5 REM PMSAMPLE1›10 DIM PM1$(128),PM2$(128),PM3$(128)›20 SIZE1=16:SIZE2=8›30 DIM SHIP$(SIZE1),ALIEN$(SIZE2)›40 DIM CLEAR$(128)›50 FOR ROWS=1 TO SIZE1›60 READ DOTS›70 SHIP$(ROWS,ROWS)=CHR$(DOTS)›80 NEXT ROWS›90 DATA 0,0,0,0,0›100 DATA 16,56,56,124,108,68›110 DATA 0,0,0,0,0›120 FOR ROWS=1 TO SIZE2›130 READ DOTS›140 ALIEN$(ROWS,ROWS)=CHR$(DOTS)›145 POKE 53248,X0›150 NEXT ROWS›160 DATA 60,126,219,126,36,36,66,129›170 FOR ROWS=1 TO 128›180 CLEAR$(ROWS,ROWS)=CHR$(0)›190 NEXT ROWS›200 A=4*(INT(PEEK(742)/4)-1)›210 POKE 54279,A›220 VSA=256*PEEK(135)+PEEK(134)›230 BOA=256*PEEK(141)+PEEK(140)›240 PM=256*A+512›250 DISP=PM-BOA›260 ADD=2›270 FOR T=1 TO 3›280 PMHIGH=INT(DISP/256)›290 PMLOW=DISP-256*PMHIGH›300 POKE VSA+ADD,PMLOW›310 POKE VSA+ADD+1,PMHIGH›320 DISP=DISP+128:ADD=ADD+8›330 NEXT T›340 PM1$=CLEAR$:PM2$=CLEAR$:PM3$=CLEAR$›350 POKE 559,46:POKE 53277,3›360 COLR1=25:COLR2=11:COLR3=74›370 POKE 704,COLR1:POKE 705,COLR2:POKE 706,COLR3›380 X1=125:X2=75:X3=175›390 POKE 53248,X1:POKE 53249,X2:POKE 53250,X3›400 Y1=75:Y2=25:Y3=25›410 PM1$(Y1)=SHIP$:PM2$(Y2)=ALIEN$:PM3$(Y3)=ALIEN$›420 IF STICK(0)<8 THEN X1=X1+3›430 IF STICK(0)>8 AND STICK(0)<13 THEN X1=X1-3›440 IF STICK(0)=14 THEN Y1=Y1-3›450 IF STICK(0)=13 THEN Y1=Y1+3›460 POKE 53248,X1:PM1$(Y1)=SHIP$›470 IF STICK(1)<8 THEN X2=X2+2›480 IF STICK(1)>8 AND STICK(1)<13 THEN X2=X2-2›490 POKE 53249,X2›500 IF STICK(2)<8 THEN X3=X3+2›510 IF STICK(2)>8 AND STICK(2)<13 THEN X3=X3-2›520 POKE 53250,X3›530 GOTO 420›