Quine: Difference between revisions
Content deleted Content added
added BASIC, 2 examples (I wrote the code a few years ago... just because) |
|||
Line 23: | Line 23: | ||
=={{header|ALGOL 68}}== |
=={{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> |
<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}}== |
=={{header|Befunge}}== |