Mini-Invaders

Gallery

Source Code

   5 REM "MINI-INVADERS"
  10 LET S=0
  20 LET P=16
  25 FOR L=1 TO 4
  30 LET A$="V V V V V V V V V V V V V V V V "
  40 LET F=0
  50 PRINT AT L,0;A$;AT 7,P;"$"
  60 IF F THEN GOTO 120
  70 PAUSE 20
  80 IF INKEY$="0" THEN GOSUB 230
  90 LET P=P+2*(INKEY$="8")-2*(INKEY$="5")
 100 LET A$=A$(2 TO 31)+A$(1)
 105 CLS 
 106 PRINT S
 107 LET S=ABS (S-1)
 110 GOTO 50
 120 LET Y=Y-1
 140 IF Y=L THEN GOTO 170
 150 PRINT AT Y,X;" "
 160 GOTO 70
 180 LET A$(X)=" "
 190 LET S=S+10
 210 IF RND>.7 THEN GOTO 270
 220 GOTO 40
 230 LET F=1
 240 LET Y=6
 250 LET X=P
 260 RETURN 
 270 LET S=S+50
 280 NEXT L
 290 STOP 
 300 SAVE "1023%4"
 310 RUN