jsbasic/samples/sample.quine.txt

22 lines
446 B
Plaintext
Raw Normal View History

2020-02-10 05:02:04 +00:00
5 REM QUINE program
10 FOR i = 5 TO 55 STEP 5
15 READ a$
20 PRINT a$
25 NEXT i
30 RESTORE
35 FOR i = 105 TO 155 STEP 5
40 READ a$
45 PRINT i; " DATA "; a$
50 NEXT i
55 PRINT
105 DATA 5 REM QUINE program
110 DATA 10 FOR i = 5 TO 55 STEP 5
115 DATA 15 READ a$
120 DATA 20 PRINT a$
125 DATA 25 NEXT i
130 DATA 30 RESTORE
135 DATA 35 FOR i = 105 TO 155 STEP 5
140 DATA 40 READ a$
145 DATA 45 PRINT i; " DATA "; a$
150 DATA 50 NEXT i
155 DATA 55 PRINT