' A simple Quine program - http://en.wikipedia.org/wiki/Quine_(computing) - PvE 2010 - GPL
FOR i = 1 TO 7
READ src$
p$ = CONCAT$(p$, src$, NL$)
q$ = CONCAT$(q$, CHR$(68), CHR$(65), CHR$(84), CHR$(65), CHR$(32), CHR$(34), src$, CHR$(34), NL$)
NEXT
PRINT p$, CHOP$(q$)
DATA "' A simple Quine program - http://en.wikipedia.org/wiki/Quine_(computing) - PvE 2010 - GPL"
DATA "FOR i = 1 TO 7"
DATA "READ src$"
DATA "p$ = CONCAT$(p$, src$, NL$)"
DATA "q$ = CONCAT$(q$, CHR$(68), CHR$(65), CHR$(84), CHR$(65), CHR$(32), CHR$(34), src$, CHR$(34), NL$)"
DATA "NEXT"
DATA "PRINT p$, CHOP$(q$)"