<< 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 >> |