Invasion

Gallery

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