1 GOTO 20›2 POKE 88,Y:POSITION 0,0:? SHIP$(I,I+15);›3 POKE 53248,X›4 GOTO STICK(0)›5 Y=Y+1:X=X+1:I=49:GOTO 2›6 Y=Y-1+(Y=0):X=X+1:I=17:GOTO 2›7 X=X+1:I=33:GOTO 2›9 Y=Y+1:X=X-1:I=81:GOTO 2›10 Y=Y-1+(Y=0):X=X-1:I=113:GOTO 2›11 X=X-1:I=97:GOTO 2›13 Y=Y+1:I=65:GOTO 2›14 Y=Y-1+(Y=0):I=1:GOTO 2›15 GOTO 4:REM Line 2 sets screen pointer and prints ship into player 0 data area, line 3 moves ship horizontally›20 ? CHR$(125):POKE 752,1:POKE 82,0:POKE 83,39:? " ":REM clear screen, set margins to full screen, cursor off›30 DIM BL$(255),SHIP$(128):BL$(1)=" ":BL$(255)=" ":BL$(2)=BL$:REM fill BL$ with space character›40 FOR I=1 TO 128:READ A:SHIP$(I,I)=CHR$(A):NEXT I:REM Read player shape data into ship$›50 DATA 32,56,56,56,56,56,92,92,92,27,126,27,126,231,131,32›51 DATA 32,32,33,39,62,27,254,27,126,46,44,44,60,40,40,32›52 DATA 32,32,160,128,224,112,124,95,124,112,224,128,160,32,32,32›53 DATA 32,32,40,40,60,44,44,46,27,127,27,254,62,39,33,32›54 DATA 32,131,231,27,126,27,126,92,92,92,56,56,56,56,56,32›55 DATA 32,32,48,48,88,80,80,112,27,126,27,127,120,228,160,32›56 DATA 32,32,33,35,39,46,94,252,94,46,39,35,33,32,32,32›57 DATA 32,32,160,228,120,27,127,27,126,112,80,80,88,48,48,32›60 A=PEEK(106)-16:POKE 54279,A:X=129:Y=96:POKE 704,14:REM set pmgraphics base, x and y position and color of ship›70 POKE 88,0:POKE 89,A+4:POSITION 0,0:? BL$:REM set screen pointer to player 0 data area, print blanks to clear›80 POKE 559,30:POKE 53277,3:I=1:GOTO 2:REM enable pmgraphics, go to move loop›