Laser Cannon

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Laser Cannon

Source Code

   5 REM LASER CANNON
   6 REM 5/7KEYS MOVE YOU AND 8 FIRES THE LASER
  10 LET A=0
  20 LET J=100
  30 LET K=10
  40 LET G=0
  50 LET X=INT (RND*18)+2
  60 LET A=A+1
  70 IF A=21 THEN GOTO 260
  80 LET Y=30
  90 PRINT AT K,0;CHR$ 130;CHR$ 128;AT X,Y;"X"
 100 IF J<0 THEN GOTO 150
 110 IF INKEY$="7" THEN LET K=K-1
 120 IF INKEY$="6" THEN LET K=K+1
 130 IF INKEY$="8" THEN PRINT AT K,2;"********************"
 140 IF INKEY$="5" THEN LET J=J-1
 150 LET Y=Y-1.5
 160 IF Y=3 THEN LET G=G+1
 170 IF G=5 THEN GOTO 240
 180 IF Y=3 THEN GOTO 50
 190 IF INKEY$="8" AND K=X AND Y<21 THEN GOTO 220
 200 CLS 
 210 GOTO 90
 220 PRINT AT X,Y+1;CHR$ 189
 230 GOTO 50
 240 PRINT "DESTROYED"
 250 STOP 
 260 PRINT "YOU WIN"
 270 PRINT "FUEL LEFT= ";J
 300 SAVE "1013%2"
 310 RUN 

People

No people associated with this content.

Scroll to Top