Source Code
40 REM "INVASION"
50 LET W=0
60 LET R$="\##% \'.\''\,,"
70 LET M=0
80 LET J=15
90 PRINT AT 20,J;"\:.\.:"
100 LET X=INT (RND*28)+2
105 LET T=INT (RND*5)+1
110 IF X<12 THEN GOTO 200
120 IF X>20 THEN GOTO 300
200 LET Y=INT (RND*3)+1
210 IF Y=1 THEN LET K=0
220 IF Y>1 THEN LET K=.5
230 GOSUB 400
280 GOTO 100
300 LET Y=INT (RND*3)+1
310 IF Y=1 THEN LET K=0
320 IF Y>1 THEN LET K=.5
330 GOSUB 400
340 GOTO 100
400 FOR I=1 TO 20
410 PRINT AT I-1,X;" "
420 LET X=X+K
430 PRINT AT I,X;R$(T)
435 IF INKEY$<>"" THEN GOSUB 500
440 NEXT I
450 PRINT AT I-1,X;" "
460 IF J=X OR J+1=X THEN LET W=W+T*100
470 IF J<>X AND J+1<>X THEN LET M=M+1
480 IF M>=5 THEN GOTO 900
490 PRINT AT 21,7;"PTS= ";W;" LIVES= "; 5-M
495 RETURN
500 LET Y$=INKEY$
510 IF Y$="5" THEN LET P=-1
520 IF Y$="8" THEN LET P=1
525 IF Y$="H" THEN GOTO 580
530 IF J+P>30 OR J+P<1 THEN RETURN
540 PRINT AT 20,J;" "
550 LET J=J+P
560 PRINT AT 20,J;"\:.\.:"
570 RETURN
580 PRINT AT 20,J;" "
590 LET J=INT (RND*30)+1
600 GOTO 560
900 PRINT AT 19,12;"%G%A%M%E% %O%V%E%R"
910 PRINT AT 21,7;"PTS= ";W;" LIVES= "; 5-M
920 STOP
930 SAVE "1023%2"
940 RUN
