Computer Combat

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

Appears on

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

Gallery

Computer Combat

Source Code

   1 REM COMPUTER COMBAT
   2 REM KEYS 5/8 TO MOVE--0 TO FIRE
   5 LET B=VAL "25"
  10 LET S=PI-PI
  15 LET M=PI-PI
  20 LET X=VAL "16"
  25 LET Y=PI-PI
  30 LET M=M+2
  35 IF M>VAL "20" THEN GOTO VAL "100"
  40 CLS 
  45 LET R=INT (RND*5)
  50 IF R=3 THEN GOSUB 155
  55 PRINT AT M,Y;"\:'\:'\:'"
  60 LET Y=Y+VAL "2"
  65 IF Y=VAL "30" THEN GOTO 25
  70 PRINT AT 21,X;" \.:\.. "
  75 LET X=X+(INKEY$="8")*3-(INKEY$="5")*3
  80 IF INKEY$="0" THEN GOSUB 115
  85 IF B<=VAL "0" THEN GOTO VAL "100"
  95 GOTO VAL "40"
 100 PRINT AT 12,10;"SCORE= ";S
 110 RUN 
 115 PRINT AT M,X;"+"
 120 IF X+1<>Y THEN LET S=S-1
 125 IF X+1=Y THEN PRINT AT M,X-1;"***"
 130 IF X+1=Y THEN LET S=S+5
 135 LET B=B-VAL "1"
 140 RETURN 
 145 PAUSE VAL "50"
 150 GOTO VAL "40"
 155 PRINT AT 21,Y;CHR$ 23
 160 IF X=Y THEN GOSUB VAL "170"
 165 RETURN 
 170 PRINT AT 21,Y;"<*>"
 175 PAUSE VAL "40"
 180 LET S=S-VAL "5"
 185 RETURN 
 190 SAVE "1014%6"
 200 LIST 

People

No people associated with this content.

Scroll to Top