0 ' FOXFTR.BA - AUTHOR UNKNOWN
1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 DEFINTA-Z:C$=CHR$(239):D$=CHR$(238):E$=CHR$(232):F$=CHR$(237):G$=CHR$(233):H$=STRING$(9,239):DIMX(6):V=3:SCR=0:CLS:PRINT@92,"<< FOXFIGHTER >>":PRINT:PRINT:INPUT"DO YOU NEED INSTRUCTIONS (Y/N)";A$:IFA$="Y"THEN25ELSE3
3 DATA45,79,115,95,102,124,19,83,58,23,150,128,51,73,140,113,102,31,16,118,88,67,81,75,100,12,68,95,64,28,116,147,159,48,95,114,149,140,119,57,107,30
4 FORM=1TO6:READX(M):IFX(M)=30THENRESTORE25ELSENEXT
5 P=0:CLS:GOSUB19:Z$=CHR$(237)+CHR$(232)+CHR$(254)
6 FORB=7TO198:FORM=1TO6:IFB<198ANDB<>X(M)THENNEXTELSEIFB=198THEN16ELSEIFB=X(M)THEN24
7 C$=INKEY$:IFC$=""THEN11ELSEIFC$=CHR$(32)THEN17ELSEIFC$="O"THEN8ELSEIFC$="P"THEN10ELSE11
8 PRINT@(B-1),"   ":B=B-39:IFB<0THENB=B+40ELSE11
9 GOTO11
10 PRINT@(B-1),"   ":B=B+41:IFB>198THENB=B-40
11 PRINT@B,Z$:SOUND12538,1
12 IFB=0THEN15ELSEC=B-1
13 IFSCR=500ORSCR=1000ORSCR=2000THENPRINT@0,V+1
14 PRINT@C," 
15 NEXTB
16 PRINT@(B-1),"   ":GOTO6
17 PRINT@(B-1),Z$:PRINT@(B+2),"........":FORT=1TO8:SOUND1479,1:NEXT:PRINT@(B+2),"        ":FORM=1TO6:IFX(M)>(B+2)ANDX(M)<(B+10)THEN23ELSENEXT
18 GOTO12
19 PRINT@200,CHR$(237):PRINT@203,CHR$(239):PRINT@208,CHR$(234)+CHR$(233)+CHR$(228)+CHR$(233)+CHR$(228):PRINT@266,CHR$(234):PRINT@267,CHR$(232)+CHR$(233)+CHR$(238)+CHR$(238)+CHR$(239)+CHR$(239):PRINT@233,CHR$(233)+CHR$(238):PRINT@238,CHR$(237)
20 PRINT@240,CHR$(239):PRINT@242,CHR$(227)+CHR$(239)+CHR$(227):PRINT@248,CHR$(239)+CHR$(239)+CHR$(239):PRINT@251,CHR$(237)+CHR$(238):PRINT@254,CHR$(238):PRINT@256,CHR$(239):PRINT@260,CHR$(238)+CHR$(239):PRINT@262,CHR$(237)+CHR$(232)
21 PRINT@256,CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239):PRINT@271,CHR$(232)+CHR$(238)+CHR$(239)+CHR$(239)+CHR$(232)+CHR$(232)+CHR$(232)+CHR$(239):PRINT@280,H$;::PRINT@288,H$;::PRINT@297,H$;:PRINT@306,H$;
22 PRINT@315,CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239);:FORM=1TO6:PRINT@X(M),CHR$(169):NEXT:PRINT@0,V":":PRINT@3,SCR:RETURN
23 FORT=1TO5:PRINT@X(M),"***":SOUND9394,2:NEXT:PRINT@X(M),"   ":SCR=SCR+10:PRINT@3,SCR:P=P+1:IFP=6THEN4ELSEX(M)=290:GOTO12
24 FORT=1TO5:PRINT@(B-1),"***":SOUND9952,2:NEXTT:V=V-1:PRINT@0,V:IFV=0THEN27ELSE4
25 CLS:PRINT@52,"FOXFIGHTER":PRINT"YOUR MISSION IS TO DESTROY THE AIRMINE":PRINT"FIELDS ABOVE THE ENEMY CAPITOL.":PRINT"YOUR FIGHTERS ARE GUIDED USING THE 'O'  KEY TO GO UP AND THE 'P' KEY TO GO DOWN.THE SPACEBAR FIRES THE FIGHTER'S LASER  CANNON.
26 FORT=1TO4000:NEXTT:CLS:PRINT@52,"*** WARNING ***":PRINT:PRINT"IF LASER FIRE OR PART OF YOUR FIGHTER":PRINT"BRUSHES THE SENSOR FIELD AROUND":PRINT"EACH AIRMINE, IT WILL BECOME INVISIBLE  YET REMAINS ARMED. GOOD LUCK!":FORT=1TO4000:NEXT:GOTO3
27 CLS:PRINT@82,"YOU HAVE RUN OUT OF FIGHTERS!!":PRINT@122,"YOUR FINAL SCORE IS"SCR:PRINT:V=3:SCR=0:INPUT"PLAY AGAIN (Y/N)";A$:IFA$<>"Y"THENENDELSE3