10 POKE53280,0:POKE53281,0:GOSUB1000
20 PRINT""
30 PRINT""
40 FORI=1TO15:POKE646,I:PRINTITAB(5)"":NEXT
50 END
60 :
1000 S=0:RESTORE:FORI=49152TO49356:READY:S=S+Y:POKEI,Y:NEXT:IFS<>28097THENSTOP
1010 SYS49152:PRINT"":RETURN
1020 DATA160,0,132,250,132,252,132,254,169,208,133,251,169,224,133,253
1030 DATA120,169,51,133,1,162,16,177,250,145,252,200,208,249,230,251
1040 DATA230,253,202,208,242,169,53,133,1,162,1,169,224,133,251,169
1050 DATA228,133,253,169,230,133,255,169,2,133,3,177,250,133,2,32
1060 DATA135,192,145,252,32,135,192,145,254,200,208,239,230,251,230,253
1070 DATA230,255,198,3,208,229,162,7,169,255,157,0,229,157,0,231
1080 DATA202,16,247,169,148,141,0,221,169,24,141,24,208,169,196,141
1090 DATA136,2,169,55,133,1,88,169,147,32,210,255,169,147,141,38
1100 DATA3,169,192,141,39,3,96,162,4,6,2,8,42,40,42,202
1110 DATA208,247,96,72,165,154,201,3,208,41,165,199,240,37,104,72
1120 DATA201,32,144,31,240,13,201,96,176,25,32,22,231,104,9,128
1130 DATA76,22,231,104,169,0,133,199,169,32,32,22,231,32,22,231
1140 DATA230,199,96,76,203,241,0,0,0,240,0,0,0
READY.
