10 REM *** SPRITE-ON *** BUCK CHILDRESS ***
20 REM *** P.O. BOX 13575 SALEM, OR 97309 ***
30 PRINTCHR$(147)"LOADING AND CHECKING DATA LINE:":J=53000
40 FORB=0TO11:READA
50 IFB=0THENL=PEEK(64)*256+PEEK(63):PRINTCHR$(19)TAB(31)L:PRINT
60 IFA<0ORA>255THEN80
70 POKEJ+B,A:X=X+A:D=D+1:NEXTB:READA:IFA=XTHEN90
80 PRINT"ERROR IN DATA LINE:"L:END
90 X=0:J=J+12:IFD<216THEN40
100 FORJ=12288TO12351:POKEJ,255:NEXTJ
110 PRINT"THE DATA IS OK...":PRINT
120 PRINT"SYS 53000 TO USE SPRITE-ON...":END
130 DATA169,187,160,207,32,30,171,169,170,141,0,208,1644
140 DATA141,1,208,169,192,141,248,7,162,0,142,16,1427
150 DATA208,232,142,21,208,32,126,207,173,141,2,201,1693
160 DATA4,144,6,232,208,253,200,208,250,165,203,201,2074
170 DATA2,208,39,173,141,2,41,1,208,8,238,0,1061
180 DATA208,240,16,76,37,207,206,0,208,172,0,208,1578
190 DATA192,255,240,3,76,37,207,173,16,208,73,1,1481
200 DATA141,16,208,76,37,207,201,7,208,19,173,141,1434
210 DATA2,41,1,208,6,238,1,208,76,37,207,206,1231
220 DATA1,208,76,37,207,201,63,208,184,96,173,0,1454
230 DATA208,133,251,160,9,32,143,207,173,1,208,133,1658
240 DATA251,160,28,162,1,24,32,240,255,166,251,224,1794
250 DATA100,176,12,169,32,32,210,255,224,10,176,3,1399
260 DATA32,210,255,173,16,208,240,5,169,18,32,210,1568
270 DATA255,169,0,32,205,189,169,146,76,210,255,147,1853
280 DATA32,32,32,32,32,88,32,80,79,83,73,84,679
290 DATA73,79,78,32,32,32,32,32,32,32,32,32,518
300 DATA89,32,80,79,83,73,84,73,79,78,0,0,750