Quine: Difference between revisions
added BASIC, 2 examples (I wrote the code a few years ago... just because)
(added BASIC, 2 examples (I wrote the code a few years ago... just because)) |
|||
Line 23:
=={{header|ALGOL 68}}==
<lang algol>STRING p="STRING p=?;print(p[:9]+REPR 34+p+REPR 34+p[11:])";print(p[:9]+REPR 34+p+REPR 34+p[11:])</lang>
=={{header|BASIC}}==
<lang qbasic>
READ d$
DO
READ x$
PRINT x$
LOOP UNTIL LEN(x$) < 1
RESTORE
DO
READ x$
PRINT d$; CHR$(34); x$; CHR$(34)
LOOP UNTIL LEN(x$) < 1
END
DATA "DATA "
DATA "READ d$"
DATA "DO"
DATA " READ x$"
DATA " PRINT x$"
DATA "LOOP UNTIL LEN(x$) < 1"
DATA "RESTORE"
DATA "DO"
DATA " READ x$"
DATA " PRINT d$; CHR$(34); x$; CHR$(34)"
DATA "LOOP UNTIL LEN(x$) < 1"
DATA "END"
DATA ""
</lang>
This version pulls the 'read' code into a subroutine (of sorts).
<lang qbasic>
a = 0
READ d$
GOSUB reader
a = 1
RESTORE
GOSUB reader
END
reader:
DO
READ x$
IF a = 1 THEN PRINT d$; CHR$(34);
PRINT x$;
IF a = 1 THEN PRINT CHR$(34);
PRINT
LOOP UNTIL LEN(x$) < 1
RETURN
DATA "DATA "
DATA "a = 0"
DATA "READ d$"
DATA "GOSUB reader"
DATA "a = 1"
DATA "RESTORE"
DATA "GOSUB reader"
DATA "END"
DATA "reader:"
DATA " DO"
DATA " READ x$"
DATA " IF a = 1 THEN PRINT d$; CHR$(34);"
DATA " PRINT x$;"
DATA " IF a = 1 THEN PRINT CHR$(34);"
DATA " PRINT"
DATA " LOOP UNTIL LEN(x$) < 1"
DATA "RETURN"
DATA ""
</lang>
=={{header|Befunge}}==
| |||