100REM  CROSSFIRE by REEDY Software
110POKE 17115,244:TEXT:VTAB 7
120HTAB 11:? "CROSSFIRE"
130VTAB 10:HTAB 7:? "BY REEDY SOFTWARE"
140VTAB 18:? " SHOOT THE GREAN MEANIE BEFORE":?
150HTAB 5:? "TIME AND AMMO RUN OUT":?:?
160HTAB 9:? "PRESS TRIGGER";:k=0
170 p=PDL(7)+PDL(9):IF p=0 THEN 170
180 r=10:c=10
190 v=20:h=20
200 b=10:time=99
210GR:COLOR=2
220HLIN 1,38 AT 1:HLIN 1,38 AT 38
230VLIN 1,38 AT 1:VLIN 1,38 AT 38
240VTAB 20:HTAB 11:? "CROSSFIRE"
250VTAB 22:HTAB 4:? "TIME:";SPC(13);"AMMO:"
260VTAB 23:HTAB 5:? time;SPC(16);b
270 time=time-1
280COLOR=0:GOSUB 650
290 c=c-2:r=r-2
300IF RND(1)>.5 THEN c=c+4
310IF RND(1)>.5 THEN r=r+4
320IF r>36 THEN r=36
330IF r<3 THEN r=3
340IF c>36 THEN c=36
350IF c<3 THEN c=3
360COLOR=4:GOSUB 650
370COLOR=2:GOSUB 660
380 p=PDL(5)
390IF p=1 THEN v=v-2
400IF p=2 THEN h=h+2
410IF p=4 THEN v=v+2
420IF p=8 THEN h=h-2
430IF v>37 THEN v=37
440IF h>37 THEN h=37
450IF v<2 THEN v=2
460IF h<2 THEN h=2
470COLOR=13:GOSUB 660
480 p=PDL(7)+PDL(9):IF p>0 THEN GOSUB 510
490IF time<1 THEN 580
500GOTO 260
510 b=b-1:? CHR$(7);
520IF SCRN(h,v)=4 THEN k=1
530GOSUB 670
540COLOR=0:GOSUB 670
550IF NOT b THEN 580
560IF k THEN 580
570RETURN
580?:?:?
590IF NOT k THEN 630
600COLOR=3:VLIN r+1,r-1 AT c:HLIN c+1,c-1 AT r
610HTAB 10:? "GOOD JOB"
620?:HTAB 10:? "SCORE: ";(time*10)+(b*100)
630HTAB 11:? "GAME OVER":?
640FOR t=1 TO 2000:NEXT t:GOTO 160
650HLIN c,c+1 AT r:HLIN c,c+1 AT r-1:RETURN
660PLOT 1,v:PLOT 38,v:PLOT h,1:PLOT h,38:RETURN
670HLIN 2,37 AT v:VLIN 2,37 AT h:RETURN

