### Appears on

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

### 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