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
