Download code

Jump to: navigation, search

Back to Quine_(BASIC)

Download for Windows: zip

Download for UNIX: zip, tar.gz, tar.bz2

QuineA.bas

 1 REM The authors of this work have released all rights to it and placed it
 2 REM in the public domain under the Creative Commons CC0 1.0 waiver
 3 REM (http://creativecommons.org/publicdomain/zero/1.0/).
 4 REM 
 5 REM THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 6 REM EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 7 REM MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 8 REM IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 9 REM CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
10 REM TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
11 REM SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
12 REM 
13 REM Retrieved from: http://en.literateprograms.org/Quine_(BASIC)?oldid=7278
14 
15 10 LET Q$ = "20 PRINT CHR$(49) + CHR$(48) + CHR$(32) + CHR$(76) + CHR$(69) + CHR$(84) + CHR$(32) + CHR$(81) + CHR$(36) + CHR$(32) + CHR$(61) + CHR$(32) + CHR$(34) + Q$ + CHR$(34): PRINT Q$"
16 20 PRINT CHR$(49) + CHR$(48) + CHR$(32) + CHR$(76) + CHR$(69) + CHR$(84) + CHR$(32) + CHR$(81) + CHR$(36) + CHR$(32) + CHR$(61) + CHR$(32) + CHR$(34) + Q$ + CHR$(34): PRINT Q$
17 


hijacker
hijacker
hijacker
hijacker

QuineB.bas

 1 REM The authors of this work have released all rights to it and placed it
 2 REM in the public domain under the Creative Commons CC0 1.0 waiver
 3 REM (http://creativecommons.org/publicdomain/zero/1.0/).
 4 REM 
 5 REM THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 6 REM EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 7 REM MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 8 REM IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 9 REM CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
10 REM TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
11 REM SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
12 REM 
13 REM Retrieved from: http://en.literateprograms.org/Quine_(BASIC)?oldid=7278
14 
15 10 Q$ = "PRINT CHR$(49) + CHR$(48) + CHR$(32) + CHR$(81) + CHR$(36) + CHR$(32) + CHR$(61) + CHR$(32) + CHR$(34) + Q$ + CHR$(34) + Q$ + CHR$(58) + CHR$(32) + Q$": PRINT CHR$(49) + CHR$(48) + CHR$(32) + CHR$(81) + CHR$(36) + CHR$(32) + CHR$(61) + CHR$(32) + CHR$(34) + Q$ + CHR$(34) + CHR$(58) + CHR$(32) + Q$


hijacker
hijacker
hijacker
hijacker

QuineC.bas

 1 REM The authors of this work have released all rights to it and placed it
 2 REM in the public domain under the Creative Commons CC0 1.0 waiver
 3 REM (http://creativecommons.org/publicdomain/zero/1.0/).
 4 REM 
 5 REM THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 6 REM EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 7 REM MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 8 REM IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 9 REM CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
10 REM TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
11 REM SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
12 REM 
13 REM Retrieved from: http://en.literateprograms.org/Quine_(BASIC)?oldid=7278
14 
15 10 DEF FNQ$ (T$) = T$ + CHR$(40) + CHR$(34) + T$ + CHR$(34) + CHR$(41): PRINT FNQ$("10 DEF FNQ$ (T$) = T$ + CHR$(40) + CHR$(34) + T$ + CHR$(34) + CHR$(41): PRINT FNQ$")


hijacker
hijacker
hijacker
hijacker