21 lines
423 B
Plaintext
21 lines
423 B
Plaintext
100 FOR I = 768 TO 794
|
|
110 READ B: POKE I,B: NEXT
|
|
120 DATA165,185,72,165,184,72
|
|
130 DATA165,118,72,165,117,72
|
|
140 DATA169,176,72,32,123,221
|
|
150 DATA32,82,231,32,65,217
|
|
160 DATA76,210,215
|
|
170 POKE 1014,0: POKE 1015,3
|
|
|
|
200 LET P = 400:N = 4
|
|
210 GOSUB 300"REPEAT P N
|
|
220 END
|
|
|
|
300 IF N < = 0 THEN RETURN
|
|
310 LET N = N - 1
|
|
320 & P
|
|
330 GOTO 300
|
|
|
|
400 PRINT "EXAMPLE"
|
|
410 RETURN
|