home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / QFP4.ZIP / QFPSETUP.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-07-08  |  4.0 KB  |  47 lines
  1. 0 '        ********************************
  2. 1 '        *           QFP-4              *
  3. 2 '        *             BY               *
  4. 3 '        *      Michael M. Brogan       *
  5. 4 '        *       41801 Lakota Dr.       *
  6. 5 '        *       Parker, CO 80134       *
  7. 6 '        *    Copyright 1987, 1988      *
  8. 7 '        *    All rights reserved       *
  9. 8 '        *  Share Ware see QFP4.BAS     *
  10. 9 '        *     set up  ver 1.2          *
  11. 10 '       ********************************
  12. 15 KEY OFF:ON ERROR GOTO 10000
  13. 30 DEFINT A,R,X:DIM A(213),R(5)
  14. 100 F$="\QFP4DIR\QFP4DATA"
  15. 110 OPEN F$ FOR INPUT AS #1:FOR X=1 TO 209:INPUT #1,A(X):NEXT X:CLOSE #1:GOTO 1000
  16. 200 COLOR 0,7:LOCATE 1,20:PRINT"                                       ":LOCATE 2,20:PRINT"  Q U I C K  F L I G H T  P L A N N E R ":LOCATE 3,20:PRINT"                                       ":COLOR 7,0:RETURN
  17. 300 Q=0:X=ASC(N$):IF X<65 OR X>90 THEN Q=1:COLOR 0,7:BEEP:LOCATE 23,11:PRINT" All inputs for this package must be in CAPITAL letters!! ":BEEP:LOCATE 24,25:PRINT" Push  <RETURN>  to continue. ";:COLOR 7,0:N$=INPUT$(1):GOTO 500
  18. 350 IF N$="A" THEN N=0 ELSE IF N$="B" THEN N=1 ELSE IF N$="C" THEN N=2 ELSE IF N$="D" THEN N=3 ELSE IF N$="E" THEN N=4 ELSE N=9
  19. 360 RETURN
  20. 400 BEEP:LOCATE 23,13:COLOR 0,7:PRINT" YOU HAVE ALREADY SELECTED THIS DRIVE - PUSH <RETURN> ":BEEP:LOCATE 24,15:PRINT" IF YOU WANT TO START OVER - PUSH <RETURN> TWICE ";:COLOR 7,0:N$=INPUT$(1)
  21. 500 S$=STRING$(79," "):LOCATE 23,1:PRINT S$:PRINT S$;:RETURN
  22. 600 R(2)=9
  23. 610 R(3)=9
  24. 620 R(4)=9:RETURN
  25. 700 LOCATE 24,24:PRINT"(PUSH  <RETURN>  TO START OVER.)";:RETURN
  26. 1000 CLS:GOSUB 200:LOCATE 9,14:PRINT"THIS PROGRAM WILL ONLY BE RUN TO SET-UP THIS PACKAGE.":LOCATE 12,9:PRINT"IT WILL SET ALL OF THE PARAMETERS THAT YOU WILL NEED TO RUN THE"
  27. 1010 COLOR 15,0:LOCATE 18,30:PRINT"      QFP-4         ":COLOR 7,0:LOCATE 24,27:PRINT"(PUSH ANY KEY TO CONTINUE)";:N$=INPUT$(1)
  28. 2000 CLS:GOSUB 200:LOCATE 7,19:PRINT"ENTER THE NUMBER OF DISK DRIVES THAT YOU":LOCATE 8,20:INPUT"WANT TO USE WITH THIS PROGRAM. (1-4): ",N$:R(0)=VAL(N$):IF R(0)<1 OR R(0)>4 THEN 2000
  29. 2010 GOSUB 700:LOCATE 11,2:PRINT"DISK DRIVES";TAB(20);:INPUT"INPUT LETTER FOR PRIMARY DRIVE  (A-E): ",N$:IF N$="" THEN 2010 ELSE GOSUB 300:IF Q=1 THEN 2010 ELSE IF N=9 THEN 2010 ELSE R(1)=N
  30. 2020 IF R(0)=1 THEN GOSUB 600:GOTO 3000 ELSE GOSUB 700:LOCATE 13,20:INPUT"INPUT LETTER FOR DRIVE NUMBER 2 (A-E): ",N$:IF N$="" THEN 2000 ELSE GOSUB 300:IF Q=1 THEN 2020
  31. 2025 IF N=9 THEN 2020 ELSE R(2)=N:IF N=R(1) THEN GOSUB 400:GOTO 2020
  32. 2030 IF R(0)=2 THEN GOSUB 610:GOTO 3000 ELSE GOSUB 700:LOCATE 15,20:INPUT"INPUT LETTER FOR DRIVE NUMBER 3 (A-E): ",N$:IF N$="" THEN 2000 ELSE GOSUB 300:IF Q=1 THEN 2030
  33. 2035 IF N=9 THEN 2030 ELSE R(3)=N:IF N=R(1) OR N=R(2) THEN GOSUB 400:GOTO 2030
  34. 2040 IF R(0)=3 THEN GOSUB 620:GOTO 3000 ELSE GOSUB 700:LOCATE 17,20:INPUT"INPUT LETTER FOR DRIVE NUMBER 4 (A-E): ",N$:IF N$="" THEN 2000 ELSE GOSUB 300:IF Q=1 THEN 2040
  35. 2045 IF N=9 THEN 2040 ELSE R(4)=N:IF N=R(1) OR N=R(2) OR N=R(3) THEN GOSUB 400:GOTO 2040
  36. 3000 GOSUB 700:LOCATE 20,2:PRINT"PRINTER";TAB(20);:INPUT"DO YOU HAVE A PRINTER  (Y/N):  ",N$:IF N$="" THEN 2000 ELSE IF N$="Y" THEN R(5)=1 ELSE IF N$="N" THEN R(5)=0 ELSE 3000
  37. 4000 LOCATE 24,15:INPUT;"IS ALL OF THE ABOVE INFORMATION CORRECT? (Y/N):  ",N$:IF N$="Y" THEN 5000 ELSE IF N$="N" THEN 2000 ELSE 4000
  38. 5000 GOSUB 500:COLOR 0,7:LOCATE 24,8:PRINT" PLEASE STAND-BY.  THE INFORMATION IS BEING STORED ON THE DISK. ";:COLOR 7,0
  39. 5010 OPEN F$ FOR OUTPUT AS #1:FOR X=1 TO 209:WRITE #1,A(X):NEXT X:FOR X=0 TO 5:WRITE #1,R(X):NEXT X:CLOSE #1
  40. 5020 F$="\QFP4DIR\QFPCHECK"
  41. 5030 OPEN F$ FOR OUTPUT AS #1:PRINT #1,"QFP":CLOSE #1
  42. 6000 F$="\QFP4DIR\QFP4MAIN"
  43. 6010 RUN F$
  44. 9900 CLS:COLOR 7,0:KEY ON:END '***  CHANGE TO *** CLS:COLOR 7,0:CLEAR:SYSTEM ***********************************
  45. 10000 IF ERR>52 THEN CLS:BEEP:COLOR 0,7:BEEP:PRINT" THE PROGRAM HAS ENCOUNTERED A PROBLEM WITH THE ":BEEP:PRINT:BEEP:PRINT" DISK OR DISK DRIVE WHICH IT CANNOT CORRECT!!! ":BEEP:COLOR 7,0:PRINT:BEEP:END ' *** CHANGE TO *** :NEW:END  *****
  46. 10010 GOTO 9900
  47.