5 REM PMSAMPLE2›10 DIM PM$(128)›20 DIM SHIP$(16),CLEAR$(128)›30 FOR ROW=1 TO 16›40 READ DOTS›50 SHIP$(ROW,ROW)=CHR$(DOTS)›60 NEXT ROW›70 DATA 0,0,0,0,0›80 DATA 16,56,56,124,108,68›90 DATA 0,0,0,0,0›100 FOR ROW=1 TO 128›110 CLEAR$(ROW,ROW)=CHR$(0)›120 NEXT ROW›130 A=4*(INT(PEEK(742)/4)-1)›140 POKE 54279,A›145 POKE 53248,X0›150 VSA=256*PEEK(135)+PEEK(134)›160 BOA=256*PEEK(141)+PEEK(140)›170 PM=256*A+512›180 DISP=PM-BOA›190 ADD=2›200 FOR T=1 TO 1›210 PMHIGH=INT(DISP/256)›220 PMLOW=DISP-256*PMHIGH›230 POKE VSA+ADD,PMLOW›240 POKE VSA+ADD+1,PMHIGH›250 DISP=DISP+128:ADD=ADD+8›260 NEXT T›270 PM$=CLEAR$›280 POKE 559,46:POKE 53277,3›290 POKE 704,12›300 POKE 53248,50›310 PM$(10)=SHIP$›320 N=1›330 FOR X=60 TO 190 STEP N›340 POKE 53248,X›350 NEXT X›360 FOR Y=10 TO 100 STEP N›370 PM$(Y)=SHIP$›380 NEXT Y›390 FOR X=190 TO 60 STEP -N›400 POKE 53248,X›410 NEXT X›420 FOR Y=100 TO 10 STEP -N›430 PM$(Y)=SHIP$›440 NEXT Y›450 N=N+0.1›460 IF N>5 THEN N=1›470 GOTO 330›