Ships Attack

Source Code

   10 CLS : PRINT ''TAB 10;"SHIPS ATTACK"
   15 PRINT '''"USE 5 KEY TO MOVE SHIP TO LEFT  AND 8 KEY TO MOVE SHIP TO RIGHT .. THIS WILL AVOID THE BOMBS    AND BUILD UP YOUR SCORE."'''''"Press any key when ready": PAUSE NOT PI
   20 GO SUB 200
   30 FOR i=1 TO 4: PRINT AT b(i),c(i);" ";: NEXT i
   40 LET v=v+(INKEY$="8" AND v<23)-(INKEY$="5" AND v>3)
   50 PRINT AT 20,v; INK 6;v$;
   60 FOR i=1 TO 4
   70 IF b(i)<20 THEN GO TO 120
   80 LET b(i)=4: LET c(i)=v-3+INT (RND*11)
   90 LET p=p+1: PRINT AT 0,8;p;
  100 IF p=25 THEN LET s=2
  110 GO TO 130
  120 LET b(i)=b(i)+s
  130 PRINT AT b(i),c(i); INK i;s$;
  140 IF b(i)<20 THEN GO TO 160
  150 IF (c(i)-v<5 AND c(i)-v>0) THEN BEEP 2,20: INK 0: PAPER 7: CLS : GO TO 10
  160 NEXT i
  170 GO TO 30
  199 REM init.
  200 PAPER 5: CLS 
  210 LET v$=" \'.\..\..\.' "
  220 LET s$="\.."
  230 LET s=1: LET p=0: LET v=13
  240 DIM b(4): DIM c(4)
  250 FOR i=1 TO 4: READ b(i): READ c(i): NEXT i
  260 PRINT AT 0,0;"POINTS: 0";
  270 RETURN 
  280 DATA 16,4,12,8,4,16,8,20
 9999 SAVE "S. Attack" LINE 1