0 'FOXFTR.BA
1 'NEC 8201A adaptation for GEnie's Laptops RoundTable, Dave Thomas - 8/6/87
2 CLS:SCREEN,0:DEFINTA-Z:CLEAR256,-4096:RESTORE39:FORI=0TO10*6-1:READA:POKEI-4096,A:NEXT:POKE-321,0:POKE-320,240:RESTORE5
3 C$=CHR$(139):D$=CHR$(138):E$=CHR$(134):F$=CHR$(137):G$=CHR$(135):FORI=1TO9:H$=H$+C$:NEXT:DIMX(6):V=3:SCR=0
4 LOCATE12,2:PRINT"<< FOXFIGHTER >>":PRINT:PRINT:INPUT"Do you need instructions (Y/N)";A$:IFA$="Y"ORA$="y"THEN32ELSE5
5 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
6 FORM=1TO6:READX(M):C(M)=X(M)MOD40:R(M)=X(M)\40:IFX(M)=30THENRESTORE5ELSENEXT
7 P=0:CLS:GOSUB22:Z$=F$+E$+CHR$(140)
8 FORB=7TO198:FORM=1TO6:IFB<198ANDB<>X(M)THENNEXTELSEIFB=198THEN18ELSEIFB=X(M)THEN31
9 Q$=INKEY$:IFQ$=""THEN13ELSEIFQ$=CHR$(32)THEN19ELSEIFQ$=CHR$(30)THEN10ELSEIFQ$=CHR$(31)THEN12ELSE13
10 LOCATE(B-1)MOD40,(B-1)\40:PRINT"   ":B=B-39:IFB<0THENB=B+40ELSE13
11 GOTO13
12 LOCATE(B-1)MOD40,(B-1)\40:PRINT"   ":B=B+41:IFB>198THENB=B-40
13 LOCATEBMOD40,B\40:PRINTZ$:SOUND12538,1                             
14 IFB=0THEN17ELSEC=B-1
15 IFSCR=500ORSCR=1000ORSCR=2000THENLOCATE0,0:PRINTV+1
16 LOCATECMOD40,C\40:PRINT" " 
17 NEXTB
18 LOCATE(B-1)MOD40,(B-1)\40:PRINT"   ":GOTO8
19 LOCATE(B-1)MOD40,(B-1)\40:PRINTZ$:LOCATE(B+2)MOD40,(B+2)\40:PRINT"........":FORT=1TO8:SOUND1479,1:NEXT:LOCATE(B+2)MOD40,(B+2)\40:PRINT"        ":FORM=1TO6
20 IFX(M)>(B+2)ANDX(M)<(B+10)THEN30ELSENEXT
21 GOTO14
22 LOCATE0,5:PRINTF$:LOCATE3,5:PRINTC$:LOCATE8,5:PRINTCHR$(136)+G$+CHR$(133)+G$+CHR$(133):LOCATE26,6:PRINTCHR$(136)
23 LOCATE27,6:PRINTE$+G$+D$+D$+C$+C$:LOCATE33,5:PRINTG$+D$:LOCATE38,5:PRINTF$
24 LOCATE0,6:PRINTC$:LOCATE2,6:PRINTCHR$(132)+C$+CHR$(132):LOCATE8,6:PRINTC$+C$+C$
25 LOCATE11,6:PRINTF$+D$:LOCATE14,6:PRINTD$:LOCATE16,6:PRINTC$:LOCATE20,6:PRINTD$+C$
26 LOCATE22,6:PRINTF$+E$:LOCATE16,6:PRINTC$+C$+C$+C$+C$+C$
27 LOCATE31,6:PRINTE$+D$+C$+C$+E$+E$+E$+C$+C$;:LOCATE0,7:PRINTH$;:LOCATE8,7:PRINTH$;:
28 LOCATE17,7:PRINTH$;:LOCATE26,7:PRINTH$;:LOCATE35,7:PRINTC$+C$+C$+C$;:FORM=1TO6:LOCATEC(M),R(M):PRINTCHR$(131):NEXT
29 LOCATE0,0:PRINTV":":LOCATE3,0:PRINTSCR:RETURN
30 FORT=1TO5:LOCATEC(M),R(M):PRINT"***":SOUND9394,2:NEXT:LOCATEC(M),R(M):PRINT"   ":SCR=SCR+10:LOCATE3,0:PRINTSCR:P=P+1:IFP=6THEN6ELSEX(M)=290:GOTO14
31 FORT=1TO5:LOCATE(B-1)MOD40,(B-1)\40:PRINT"***":SOUND9952,2:NEXTT:V=V-1:LOCATE0,0:PRINTV:IFV=0THEN37ELSE6
32 CLS:LOCATE15,1:PRINT"FOXFIGHTER":PRINT" Your mission is to destroy the airmine":PRINT" fields about the enemy capitol.
33 PRINT" Your fighters are guided using the UP   cursor for up and the DOWN cursor for   down.The SPACEBAR fires the fighter's   laser cannon.";
34 FORT=1TO4000:NEXTT:CLS:LOCATE12,1:PRINT"*** WARNING ***":PRINT:PRINT" If laser fire or part of your fighter"
35 PRINT" brushes the sensor field around":PRINT" each airmine, it will become invisible  yet remains armed. GOOD LUCK!"
36 FORT=1TO4000:NEXT:GOTO5
37 CLS:LOCATE2,2:PRINT"You have run out of fighters!!":LOCATE2,3:PRINT"Your final score is"SCR:PRINT:V=3:SCR=0:INPUT"Play again (Y/N)";A$
38 IFA$<>"Y"ANDA$<>"y"THENENDELSE5
39 DATA24,167,165,229,24,0,240,240,240,0,0,0,0,0,0,240,240,240,240,240,240,240,240,240,255,255,255,0,0,0,0,0,0,255,255,255,255,255,255,240,240,240,240,240,240,255,255,255,255,255,255,255,255,255,252,248,240,224,192,128
                                                                                