home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / menu / progen / source / proinf71.bas < prev    next >
Encoding:
BASIC Source File  |  1991-10-08  |  5.6 KB  |  108 lines
  1. DEFINT A-Z
  2.  
  3. '$INCLUDE: 'PROLIB71.BI'
  4.  
  5. SUB formatinfo
  6.  
  7.          DrawBox 1, 1, 80, 25, 2, WHITE, BLUE, 1, WHITE, BLUE, 0
  8.  
  9.          fg = WHITE + 8
  10.          bg = BLUE
  11.  
  12. pnc "       numeric formats allow higest value of format position.           ", 2, 2, fg, bg
  13. pnc "     * only formats with astric are allowed in PROGEN all others maybe      ", 3, 2, fg, bg
  14. pnc "       used in source code created by PROGEN.                               ", 4, 2, fg, bg
  15. pnc " * format$ = 99 numbers only  < (99 max) each digit = to max value         ", 5, 2, fg, bg
  16. pnc " * format$ = 19 (19) is max value                                          ", 6, 2, fg, bg
  17. pnc " * format$ = 999-99-9999 SS number                                          ", 7, 2, fg, bg
  18. pnc " * format$ = 999-9999       7  digit phone                                  ", 8, 2, fg, bg
  19. pnc " * format$ = (999) 999-9999 10 digit phone                                  ", 9, 2, fg, bg
  20. pnc " * format$ = 19/39/99  date format                                          ", 10, 2, fg, bg
  21. pnc " * format$ = ######## alphanumeric set for 8 characters (maybe more or less)", 12, 2, fg, bg
  22. pnc " * format$ = @@@@@@@@ alpha only   same as above                            ", 12, 2, fg, bg
  23. pnc "   format$ = Y/N:*    force YN answer, prompt maybe included in format.     ", 13, 2, fg, bg
  24. pnc "   format$ = M/F:|    force MF answer, same as above.                       ", 14, 2, fg, bg
  25. pnc "   format$ = ~        force enter key for prompts or other exit key.        ", 15, 2, fg, bg
  26. pnc "   format$ = may be any format you can create in a basic string             ", 16, 2, fg, bg
  27. pnc "             even you can include the Prompt if you like.                   ", 17, 2, fg, bg
  28. pnc "                                                                            ", 18, 2, fg, bg
  29. pnc "   format$ = Test Data: 99  <- this format will print,                      ", 19, 2, fg, bg
  30. pnc "   Displays  Test Data: your value passed in the the length of 2            ", 20, 2, fg, bg
  31. pnc "                        Allows numbers 1 to 99.                             ", 22, 2, fg, bg
  32. pnc "                                                                            ", 22, 2, fg, bg
  33. pnc "                                                                            ", 23, 2, fg, bg
  34.                                                                                      
  35.  
  36.          pnc "(ANY KEY) to continue.                                  ", 24, 15, fg, bg
  37.  
  38. forkey:
  39.          key$ = INKEY$
  40.  
  41.          IF key$ = "" THEN
  42.             GOTO forkey
  43.          END IF
  44.  
  45. END SUB
  46.  
  47.       SUB proginfo1
  48.  
  49.          DrawBox 1, 1, 80, 25, 2, WHITE, BLUE, 1, WHITE, BLUE, 0
  50.          fg = WHITE + 8
  51.          bg = BLUE
  52.  
  53.          pnc "         The PROGEN program generator                 ", 5, 15, fg, bg
  54.          pnc "This program was written in MICROSOFT PRO BASIC 7.1   ", 8, 15, fg, bg
  55.          pnc "and complied in the same languange.                   ", 9, 15, fg, bg
  56.          pnc "The program allows the user to create a new DATABASE  ", 10, 15, fg, bg
  57.          pnc "or to EDIT an existing program  DATABASE.             ", 11, 15, fg, bg
  58.          pnc "The program allows the user to create a new Qbasic    ", 12, 15, fg, bg
  59.          pnc "program or recreate a modified  DATABASE from user    ", 13, 15, fg, bg
  60.          pnc "data with changes .                                   ", 14, 15, fg, bg
  61.          pnc "                                                      ", 15, 15, fg, bg
  62.          pnc "                                                      ", 16, 15, fg, bg
  63.          pnc "                                                      ", 17, 15, fg, bg
  64.          pnc "(ANY KEY) next page.                                  ", 21, 15, fg, bg
  65.  
  66. infokey:
  67.          key$ = INKEY$
  68.  
  69.          IF key$ = "" THEN
  70.             GOTO infokey
  71.          END IF
  72.  
  73.       END SUB
  74.  
  75.       SUB proginfo2
  76.  
  77.          DrawBox 1, 1, 80, 25, 2, WHITE, BLUE, 1, WHITE, BLUE, 0
  78.          fg = WHITE + 8
  79.          bg = BLUE
  80.  
  81.          pnc "          THE PROgram GENerator (DATABASE)             ", 5, 15, fg, bg
  82.          pnc "                        BY                             ", 6, 15, fg, bg
  83.          pnc "                 RAYMOND E. DIXON                      ", 7, 15, fg, bg
  84.          pnc "                  (904) 765-4048                       ", 8, 15, fg, bg
  85.          pnc "                                                       ", 9, 15, fg, bg
  86.          pnc " PERMISSION TO USE THIS PROGRAM IS GRANTED TO ANY      ", 10, 15, fg, bg
  87.          pnc " COMPUTER OWNER OR HOBBIEST SO LONG AS NO CHARGES      ", 11, 15, fg, bg
  88.          pnc " OR PROFITS ARE MADE FROM IT'S USE.                    ", 12, 15, fg, bg
  89.          pnc " FOR QUESTIONS, COMMENTS, PROBLEMS OR SUGGESTIONS      ", 13, 15, fg, bg
  90.          pnc " CONTACT ME AT THE FOLLOWING ADDRESS.                  ", 14, 15, fg, bg
  91.          pnc "                                                       ", 15, 15, fg, bg
  92.          pnc "                                                       ", 16, 15, fg, bg
  93.          pnc "                 RAYMOND E DIXON                       ", 17, 15, fg, bg
  94.          pnc "                11660 VC JOHNSON RD.                   ", 18, 15, fg, bg
  95.          pnc "              JACKSONVILLE, FL. 32218                  ", 19, 15, fg, bg
  96.          pnc "                Phone (904) 765-4048                   ", 20, 15, fg, bg
  97.          pnc "                                                       ", 21, 15, fg, bg
  98.          pnc "(ANY KEY)  Returns to PROGEN                           ", 22, 15, fg, bg
  99.  
  100. waitkey:
  101.          key$ = INKEY$
  102.          IF key$ = "" THEN
  103.             GOTO waitkey
  104.          END IF
  105.  
  106.       END SUB
  107.  
  108.