10 S=49152
20 POKE2040,13:POKE53280,0:POKE53281,0
30 FORK=832TO894:READX:POKEK,X:NEXT
40 FORK=STOS+156:READX:POKEK,X:NEXT
50 FORK=1TO21:READX,Y:H=INT((S+Y)/256):L=S+Y-H*256:POKES+X,L:POKES+1+X,H:NEXT
60 V=53248
70 POKEV+21,1:POKEV+28,1
80 POKEV+39,7:POKEV+37,1
90 POKES+160,24:POKES+161,0:POKES+159,50
100 P=56321:N=16
110 SYSS:SYSS:SYSS:SYSS:SYSS:IF(PEEK(P)ANDN)=NTHEN110
120 POKE198,0
130 REM        SPRITE DATA
140 DATA85,0,0,100,0,0,105,0,0,90,64,0,70,144,0,1,144,0,0,64,0,0,0,0,0,0,0
150 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
160 REM     MACHINE LANGUAGE DATA
170 DATA 173,157,192,141,158,192,169,14,141,3,220,169,0,141,163,192,169,8,141
180 DATA 162,192,162,255,142,0,220,173,162,192,9,241,141,1,220,173,1,220,74
190 DATA 46,163,192,78,162,192,208,236,169,239,141,3,220,142,1,220,173,1,220
200 DATA 41,240,13,163,192,162,0,142,3,220,141,157,192,41,10,77,158,192,72
210 DATA 41,12,201,12,240,10,201,8,208,9,206,159,192,24,144,3,238,159,192
220 DATA 104,41,3,201,3,240,15,201,2,208,19,206,160,192,208,14,206,161,192
230 DATA 24,144,8,238,160,192,208,3,238,161,192,173,161,192,41,1,141,161,192
240 DATA 173,16,208,41,254,13,161,192,141,16,208,173,160,192,141,0,208,173,159
250 DATA 192,141,1,208,96
260 REM        LOCATION DATA
270 DATA 1,157,4,158,14,163,19,162,27,162,39,163,42,162,60,163,68,157,73,158
280 DATA 87,159,93,159,107,160,112,161,118,160,123,161,126,161,131,161,139,161
290 DATA 145,160,151,159