<< Previous Message Main Index Next Message >>
<< Previous Message in Thread This Month Next Message in Thread >>
Date   : Sun, 15 Nov 2009 16:05:59 +0000
From   : me@... (me@...)
Subject: Quine

Disclaimer: I didn't write this, but I did adapt it for BBC BASIC.

10DATA B$="DATA "
20DATA FOR J=10 TO 180 STEP 10
30DATA READ A$
40DATA PRINT J;B$;A$
50DATA IF J<>90 THEN 170
60DATA RESTORE
70DATA B$=" "
80DATA NEXT J
90DATA END
100 B$="DATA "
110 FOR J=10 TO 180 STEP 10
120 READ A$
130 PRINT J;B$;A$
140 IF J<>90 THEN 170
150 RESTORE
160 B$=" "
170 NEXT J
180 END

-- 
David Glover
http://www.davidglover.org/
<< Previous Message Main Index Next Message >>
<< Previous Message in Thread This Month Next Message in Thread >>