Defender

Gallery

Source Code

   1 LET C=1
   2 LET D=0
   3 LET F=6
   4 LET X=3
   5 LET C$=" "
   6 LET A$="\.:\:.\ :\..\ .\..\ :\. \.:\..\.:\:.\ :\..\ .\..\ :\. \.:"
  10 PRINT AT X,C;"         "
  20 IF X<>Y THEN RETURN 
  30 LET S=S+(10-E)*(B$(E)<>C$)
  40 LET B$(E)=C$
  50 RETURN 
  60 LET S=D
  70 FOR E=9 TO 20 STEP -C
  80 PRINT AT D,D;"% %S%C%O%R%E% % % % ";AT D,F+C;S;AT F+C,D;"% % %W%A%V%E% ";CHR$ (166-E);"% % "
  90 FOR B=C TO 20
 100 DIM B$(18)
 110 LET B$(E)=CHR$ (E+14)
 120 LET Y=INT (RND*5)+C
 130 FOR A=C TO C+E
 140 PRINT AT Y,C;B$(A TO A+8);AT X,D;C$;AT F,D;A$(A TO A+9)
 150 LET X=X+(INKEY$="" AND X<5)-(INKEY$="Z" AND X>C)
 160 PRINT AT X,D;">"
 170 IF INKEY$="M" THEN GOSUB 10
 180 NEXT A
 190 IF X=Y AND B$(E)<>C$ THEN GOTO 220
 210 NEXT E
 215 GOTO 80
 220 PRINT AT D,F;S
 225 PAUSE 500
 230 GOTO 60
 999 STOP 
1000 SAVE "1026%0"
1010 GOTO 60