home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / QFP4.ZIP / QFP4.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-03-03  |  2.8 KB  |  35 lines
  1. 0 '        ********************************   *This is a Share Ware program *
  2. 1 '        *           QFP-4              *   * If you can use it a $15.00  *
  3. 2 '        *            BY                *   * donation would help. In the *
  4. 3 '        *      Michael M. Brogan       *   * last quarter af 1988 (time  *
  5. 4 '        *       41801 Lakota Dr.       *   * permiting)?have i heard that*
  6. 5 '        *      Parker, CO. 80134       *   * before?..A new version will *
  7. 6 '        *     Copyright 1987,1988      *   * be ready, doc's and source  *
  8. 7 '        *    All Rights Reserved       *   * code will be available for  *
  9. 8 '        *                              *   * $45.00,let me know what else*
  10. 9 '        *                              *   * you would like to see. For  *
  11. 10 '       ********************************   * $25.00 a compiled version   *
  12. 11 '                                          * will be avialable. drop me a*
  13. 12 '                                          * line..happing hacking.......*
  14. 13 CLS:CLEAR:KEY OFF:WIDTH 80:ON ERROR GOTO 10000
  15. 14 P$=CHR$(219):X$="":   ' ***********  FOR X=1 TO 10 KEY X,"":NEXT X  ***********  REMOVE  '  ***************
  16. 16 DEFINT R,C,X:WIDTH 80:COLOR 7,0
  17. 20 CLS:COLOR 0,7:LOCATE 1,20:PRINT"                                      ":LOCATE 2,20:PRINT"  QFP-4 THE CHOICE FOR ALL  ":LOCATE 3,20:PRINT"                                      ":COLOR 7,0
  18. 30 LOCATE 10,15:PRINT"THIS  PROGRAM  ONLY  USES  UPPER  CASE  LETTERS!":LOCATE 15,15:PRINT"IS  THE ";:COLOR 15,0:PRINT" CAPS  LOCK ";:COLOR 7,0:PRINT" KEY  PRESSED?  (PUSH 'Y'): ";
  19. 40 X$=INPUT$(1):IF X$="Y" THEN 1000 ELSE LOCATE 15,63:COLOR 23,0:PRINT X$:COLOR 7,0:GOTO 40
  20. 1000 CLS:COLOR 7,0:LOCATE 1,20:PRINT"QUEST, INC. PROGRAMMING AT IT'S BEST :"'::COLOR 15,0:R=3:C=18:GOSUB 100:GOSUB 120:R=6:C=19:GOSUB 140::R=3:C=25:GOSUB 120:R=8:C=26:GOSUB 100::R=3:C=32:GOSUB 100:R=8:GOSUB 100:R=3:C=34:GOSUB 120
  21. 1190 COLOR 7,0:LOCATE 24,6:PRINT"BY: Michael M. Brogan " TAB(54) "C:1987,1988 VERSION: 1.2";
  22. 2000 ON ERROR GOTO 20000
  23. 2010 F$="\QFP4DIR\QFPCHECK"  ' *************************************************
  24. 2020 OPEN F$ FOR INPUT AS #1:INPUT #1,X$
  25. 2030 CLOSE #1:ON ERROR GOTO 10000
  26. 2040 IF X$="QFP" THEN 3000 ELSE 4000
  27. 3000 F$="\QFP4DIR\QFP4MAIN.BAS" ' ***********************************************
  28. 3010 RUN F$
  29. 4000 F$="\QFP4DIR\QFPSETUP.BAS" ' **********************************************
  30. 4010 RUN F$
  31. 9900 CLS:COLOR 7,O:CLEAR:END ' **************** CHANGE  'END' TO --->  'SYSTEM' **************************
  32. 10000  ' **** CLS:BEEP:COLOR 0,7:BEEP:LOCATE 1,1:PRINT" THE PROGRAM HAS ENCOUNTERED A  ":BEEP:PRINT" A PROBLEM AND CONNOT CONTINUE! ":COLOR 7,0:PRINT:PRINT"END":NEW:END
  33. 10020 COLOR 7,0:CLS:PRINT"ERR LINE: ";ERL;"    ERROR NO: ";ERR:KEY ON:END
  34. 20000 IF ERR=53 THEN RESUME 2030 ELSE 10000
  35.