10 REM *** CENTERFOLD *** BUCK CHILDRESS ***
20 REM *** P.O. BOX 13575 SALEM, OR 97309 ***
30 PRINTCHR$(147)"LOADING AND CHECKING DATA LINE:":D=49152
40 FORA=0TO11:READB
50 IFA=0THENF=PEEK(64)*256+PEEK(63):PRINTCHR$(19)TAB(31)F:PRINT
60 IFB<0ORB>255THEN80
70 POKED+A,B:E=E+B:C=C+1:NEXTA:READB:IFB=ETHEN90
80 PRINT"ERROR IN DATA LINE:"F:END
90 E=0:D=D+12:IFC<312THEN40
100 PRINT"THE DATA IS OK...":PRINT
110 PRINT"SYS 49152 TO ACTIVATE...":END
120 DATA169,18,162,192,160,0,120,141,143,2,142,144,1393
130 DATA2,140,49,193,88,96,173,49,193,208,28,165,1384
140 DATA207,208,24,173,141,2,174,50,193,141,50,193,1556
150 DATA236,50,193,240,10,201,5,208,9,141,49,193,1535
160 DATA32,67,192,76,72,235,201,6,208,249,141,49,1528
170 DATA193,32,94,192,76,72,235,173,32,208,141,51,1499
180 DATA193,24,105,8,141,32,208,32,242,192,173,51,1401
190 DATA193,141,32,208,169,0,141,49,193,96,169,0,1391
200 DATA166,214,164,211,141,52,193,142,53,193,140,54,1723
210 DATA193,32,68,229,32,11,193,140,60,193,173,52,1376
220 DATA193,141,55,193,172,55,193,177,107,141,56,193,1676
230 DATA177,111,141,58,193,169,39,56,237,55,193,168,1597
240 DATA177,107,141,57,193,177,111,141,59,193,169,19,1544
250 DATA56,237,52,193,24,109,55,193,168,173,56,193,1509
260 DATA145,105,173,58,193,145,109,169,20,24,109,52,1302
270 DATA193,56,237,55,193,168,173,57,193,145,105,173,1748
280 DATA59,193,145,109,206,55,193,16,179,165,105,24,1449
290 DATA105,40,32,31,193,144,3,32,40,193,206,60,1079
300 DATA193,208,155,238,52,193,173,52,193,201,20,208,1886
310 DATA139,174,53,193,172,54,193,24,32,240,255,76,1605
320 DATA88,192,32,11,193,168,177,105,145,107,177,109,1504
330 DATA145,111,200,208,245,32,40,193,165,106,201,8,1654
340 DATA144,236,96,169,4,162,194,133,106,134,108,169,1655
350 DATA216,162,198,160,25,133,110,134,112,169,0,133,1552
360 DATA105,133,107,133,109,133,111,96,230,106,230,108,1601
370 DATA230,110,230,112,96,0,0,0,0,0,0,0,778