1 REM *** SURVEYOR C-64 ***
2 A=49152:PRINTCHR$(147)
3 FORJ=ATOA+95:READB:POKEJ,B:X=X+B:NEXTJ
4 IFX<>14696THENPRINT"ERROR IN DATA...":END
5 C=INT(A/256):D=(A-(C*256))+13:POKEA+1,D:POKEA+3,C
6 PRINT"DATA OK * SYS"A"TO ACTIVATE...":END
7 DATA169,13,162,192,120,141,143,2,142,144,2,88
8 DATA96,173,141,2,166,254,133,254,201,5,208,69
9 DATA228,254,240,65,169,1,133,204,165,211,133,252
10 DATA165,214,133,253,165,209,166,210,24,101,252,144
11 DATA1,232,134,251,170,165,251,32,205,189,169,42
12 DATA32,210,255,165,243,166,244,24,101,252,144,1
13 DATA232,134,251,170,165,251,32,205,189,166,253,164
14 DATA252,24,32,240,255,169,0,133,207,76,72,235