22 lines
446 B
Plaintext
22 lines
446 B
Plaintext
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 |