5 POKE53280,6:POKE53281,6:PRINT"[147]"
10 GOSUB 3000:END
3000 FOR I=828 TO 875:READ D:POKE I,D:C=C+D:NEXT
3010 IF C<>6370 THEN PRINT "ERROR IN DATA STATEMENTS":END
3020 SYS 828:POKE 59639,1:POKE 64982,53:POKE 1,53
3030 RETURN
3040 DATA 160,0,132,38,169,224,133,39,177,38,145,38,200,208,249,230,39,165
3050 DATA 39,201,0,208,241,160,0,132,38,169,160,133,39,177,38,145,38,200,208
3060 DATA 249,230,39,165,39,201,192,208,241,96,0