2 PRINTCHR$(147)" LOADING DATA ";
4 S=53000:REM *** CHANGE S TO RELOCATE ***
6 FORJ=STOS+167:READA:POKEJ,A:X=X+A:PRINTCHR$(42);:NEXTJ:PRINT:PRINT
8 IFX<>22661THENPRINT"ERROR IN DATA...":END
10 PRINT"DATA OK *** SYS"S"TO ACTIVATE..."
12 B=INT(S/256):POKES+1,S-(B*256)+13:POKES+3,B:END
14 DATA169,21,162,207,120,141,143,2,142,144,2,88
16 DATA96,173,141,2,201,1,208,40,165,212,208,36
18 DATA165,216,208,32,165,207,208,28,165,203,166,2
20 DATA133,2,201,4,240,21,201,5,240,25,201,6
22 DATA240,13,201,3,208,6,32,234,232,32,240,233
24 DATA76,72,235,228,2,240,249,201,6,240,239,169
26 DATA152,162,7,160,219,133,251,133,253,134,252,132
28 DATA254,169,192,133,63,133,65,134,64,132,66,160
30 DATA39,177,251,145,63,177,253,145,65,136,16,245
32 DATA165,251,56,233,40,133,251,165,253,56,233,40
34 DATA133,253,176,4,198,252,198,254,165,63,56,233
36 DATA40,133,63,165,65,56,233,40,133,65,176,4
38 DATA198,64,198,66,165,252,201,4,176,197,169,32
40 DATA160,39,153,0,4,136,16,250,76,72,235,0