home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / foxftr.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  29 lines
  1. 0 ' FOXFTR.BA - AUTHOR UNKNOWN
  2. 1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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
  4. 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
  5. 4 FORM=1TO6:READX(M):IFX(M)=30THENRESTORE25ELSENEXT
  6. 5 P=0:CLS:GOSUB19:Z$=CHR$(237)+CHR$(232)+CHR$(254)
  7. 6 FORB=7TO198:FORM=1TO6:IFB<198ANDB<>X(M)THENNEXTELSEIFB=198THEN16ELSEIFB=X(M)THEN24
  8. 7 C$=INKEY$:IFC$=""THEN11ELSEIFC$=CHR$(32)THEN17ELSEIFC$="O"THEN8ELSEIFC$="P"THEN10ELSE11
  9. 8 PRINT@(B-1),"   ":B=B-39:IFB<0THENB=B+40ELSE11
  10. 9 GOTO11
  11. 10 PRINT@(B-1),"   ":B=B+41:IFB>198THENB=B-40
  12. 11 PRINT@B,Z$:SOUND12538,1
  13. 12 IFB=0THEN15ELSEC=B-1
  14. 13 IFSCR=500ORSCR=1000ORSCR=2000THENPRINT@0,V+1
  15. 14 PRINT@C," 
  16. 15 NEXTB
  17. 16 PRINT@(B-1),"   ":GOTO6
  18. 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
  19. 18 GOTO12
  20. 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)
  21. 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)
  22. 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$;
  23. 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
  24. 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
  25. 24 FORT=1TO5:PRINT@(B-1),"***":SOUND9952,2:NEXTT:V=V-1:PRINT@0,V:IFV=0THEN27ELSE4
  26. 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.
  27. 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
  28. 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
  29.