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
