10 DIM PT$(166):PT$="":FOR I=1 TO 166:READ A:S=S+A:PT$(I)=CHR$(A):NEXT I¢20 IF S<>22969 THEN ? CHR$(125);CHR$(29);CHR$(127);"DATA ERROR!";CHR$(253):END ¢30 ? CHR$(125);CHR$(29):FOR I=70 TO 130 STEP 10:? I:NEXT I:? "CONT":POSITION 2,0:POKE 842,13:STOP ¢40 POKE 842,12:? CHR$(125);CHR$(29):POKE 766,1:? "10DIMPT$(166),T$(255):PT$=";CHR$(34);PT$(1,75);CHR$(34)¢50 ? "20PT$(76)=";CHR$(34);PT$(76);CHR$(34):POKE 766,0:FOR I=30 TO 60 STEP 10:? I:NEXT I¢60 ? "POKE842,12:L.":POSITION 2,0:POKE 842,13:STOP ¢70 DATA 104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,206,104,133,205,104,104,168,104¢80 DATA 133,208,104,133,207,104,104,240,236,133,203,24,165,205,101,88,133,205,165,89,101,206,133,206¢90 DATA 152,240,15,165,205,105,64,133,205,165,206,105,1,133,206,136,208,241,132,212,160,0,132,211¢100 DATA 177,207,160,0,170,160,1,136,132,204,138,41,96,208,4,169,64,16,14,201,32,208,4,169¢110 DATA 0,16,6,201,64,208,2,169,32,133,209,138,41,31,5,209,133,209,169,0,162,3,6,209¢120 DATA 42,202,208,250,109,244,2,133,210,164,212,177,209,69,204,164,211,145,205,200,132,211,196,203¢130 DATA 208,182,24,165,205,105,40,133,205,144,2,230,206,230,212,169,8,197,212,208,159,96¢
