My apologies. I didn't think the rest of the program was needed as it's just DATA statements and PRINT commands. Here is it in its entirety. If you type it into your machines, it'll make a pretty little picture of a park with 10 colors!
Code: Select all
10 POKE 36869,255
20 POKE 646,9
30 POKE 36879,136
40 POKE 36878,213
50 POKE 52,28:POKE 56,28:CLR
60 FOR X=0 TO 511
70 POKE 7176+X, PEEK(32768+X)
80 NEXT X
90 FOR X=0 TO 206
100 READ A:POKE 7176+X,A
110 NEXT X
120 PRINT "RJRJRJRJRJRJRJRJRJRJR"
125 POKE 646,11
130 PRINT "BBBBBBBBBBBBBBBBBBBBB"
140 PRINT "BBBBBBBBBBBBBBBBBBBBB"
150 PRINT "DEDEDEDEDEDEDEDEDEDED"
160 POKE 646,13
170 PRINT "CCCXTCCCXTCCCCXTCCCCX"
180 PRINT "HGHGHGHGHGHGHGHGHGHGH"
190 PRINT "WBBBBVBBBBBVBBBWBBBBV"
200 PRINT "BVBWBBWBBWBBWBBBBBWBB"
210 PRINT "BWVBBWVBWBVBBWBBVBBWV"
220 PRINT "IJIJIJIJIJIJIJIJIJIJI"
230 POKE 646,14
240 PRINT "MKBLMBKKBKBLMBKBKLMBK"
250 PRINT "MKBLMBKKBKBLMBKBKLMBK"
260 PRINT "MKBLMBKKBKBLMBKBKLMBK"
270 POKE 646,13
280 PRINT "MNOLMPNOPNOLMPNOBLMPN"
290 PRINT "NOPNNOBBFUPNNOBFUNNOB"
300 PRINT "TXTXTXTXYZXTXTXYZTXTX"
310 POKE 646,10
320 PRINT "CCCCCACCCCACCCCCCCCCA"
330 POKE 646,15
340 PRINT "CCSCCCCCCCCCCCCCCCSCC"
350 POKE 646,12
360 PRINT "CQQCCCCCCQCCCCCQCCCQC"
370 POKE 646,15
380 PRINT "SCCCSCCCCCCCCCCSCCCSC"
400 DATA 255,235,235,170,170,235,235,255
410 DATA 170,170,170,170,170,170,170,170
420 DATA 255,255,255,255,255,255,255,255
430 DATA 170,170,170,86,253,255,255,255
440 DATA 170,170,170,165,95,255,255,255
450 DATA 85,106,85,106,85,106,85,85
460 DATA 255,255,255,87,169,170,170,170
470 DATA 255,255,255,213,106,170,170,170
480 DATA 170,170,170,106,85,85,85,85
490 DATA 170,170,170,170,170,169,85,85
500 DATA 65,65,65,65,65,65,65,65
510 DATA 64,64,64,80,68,64,64,64
520 DATA 1,1,1,1,1,1,5,1
530 DATA 0,0,0,0,20,105,170,170
540 DATA 106,106,26,70,154,170,170,170
550 DATA 169,169,164,145,166,170,170,170
560 DATA 251,234,234,251,239,171,171,239
570 DATA 170,170,170,170,106,86,85,85
580 DATA 235,170,130,130,130,130,170,235
590 DATA 170,175,191,255,255,255,255,255
600 DATA 85,169,85,169,85,169,85,85
610 DATA 170,106,106,106,154,166,166,169
620 DATA 170,169,169,169,166,154,154,106
630 DATA 170,250,254,255,255,255,255,255
640 DATA 85,85,127,127,127,127,255,255
650 DATA 85,85,253,253,253,253,255,255
660 END