home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / PROGEN / PROSRC.ZIP / PROSUB71.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-10-08  |  2.4 KB  |  95 lines
  1. DECLARE FUNCTION strval$ (a%)
  2. DEFINT A-Z
  3. '$DYNAMIC
  4. COMMON SHARED masterFile$, numberoffields, ff, progfile$, startp
  5. '$INCLUDE: 'PROLIB71.BI'
  6.  
  7. REM $STATIC
  8.   SUB mainscreen
  9.    bg = WHITE
  10.    fg = BLACK
  11.    rev = RED
  12.  
  13.    COLOR WHITE, BLUE
  14.  
  15.    DrawBox 1, 1, 80, 25, 2, WHITE, BLUE, 4, WHITE, BLUE, 0
  16.    DrawBox 2, 20, 40, 4, 2, BLACK, WHITE, 1, BLACK, WHITE, 1
  17.  
  18.    CenterText "The PROgram GENerator DataBase", 3, fg, bg
  19.    CenterText "By: RAYMOND E DIXON, Jacksonville, FL", 4, fg, bg
  20.  
  21.   END SUB
  22.  
  23.   SUB maxfields
  24.  
  25.    DIM DispLine$(6)
  26.    DispLine$(1) = "You have (10) fields"
  27.    DispLine$(2) = "max in this version!"
  28.    DispLine$(3) = "registered version has"
  29.    DispLine$(4) = "255 fields and 25 screens"
  30.    DispLine$(5) = ""
  31.    DispLine$(6) = "Press any key to continue"
  32.  
  33.    Message DispLine$(), 4, 3, BLACK, WHITE, balck, WHITE
  34.  
  35.   END SUB
  36.  
  37. SUB nodatafile
  38.    DIM DispLine$(5)
  39.    DispLine$(1) = "You have't created a data file"
  40.    DispLine$(2) = "so no fielf data can be used"
  41.    DispLine$(3) = "design or select another file"
  42.    DispLine$(4) = ""
  43.    DispLine$(5) = "Press any key to continue"
  44.    Message DispLine$(), 5, 3, BLACK, WHITE, balck, WHITE
  45.  
  46. END SUB
  47.  
  48. SUB noreport
  49.  
  50.    DIM DispLine$(5)
  51.    DispLine$(1) = "You have't created a report"
  52.    DispLine$(2) = "select report from menu and"
  53.    DispLine$(3) = "design or select default report"
  54.    DispLine$(4) = ""
  55.    DispLine$(5) = "Press any key to continue"
  56.    Message DispLine$(), 5, 3, BLACK, WHITE, balck, WHITE
  57.  
  58. END SUB
  59.  
  60. SUB noscreen
  61.    DIM DispLine$(5)
  62.    DispLine$(1) = "You have't created a screen"
  63.    DispLine$(2) = "select screen from menu and"
  64.    DispLine$(3) = "design or select default screen"
  65.    DispLine$(4) = ""
  66.    DispLine$(5) = "Press any key to continue"
  67.    Message DispLine$(), 5, 3, BLACK, WHITE, balck, WHITE
  68.  
  69. END SUB
  70.  
  71. SUB PROSRC.INFO.1 (NS, pf$)
  72.  
  73.    PRINT #ff, "DEFINT A-Z"
  74.    PRINT #ff, "  sub " + pf$ + ".info" + LTRIM$(STR$(NS)) + "    static"
  75.    PRINT #ff, ""
  76.    PRINT #ff, "                'Display details on screen"
  77.    PRINT #ff, "    fg = white "
  78.    PRINT #ff, "    bg = blue "
  79.    PRINT #ff, ""
  80.  
  81. END SUB
  82.  
  83.   SUB PROSRC.SCN.1 (NS, pf$)
  84.  
  85.    PRINT #ff, "DEFINT A-Z"
  86.    PRINT #ff, "  sub " + pf$ + ".scn" + LTRIM$(STR$(NS)) + "    static"
  87.    PRINT #ff, ""
  88.    PRINT #ff, "                'Display details on screen"
  89.    PRINT #ff, "    fg = white "
  90.    PRINT #ff, "    bg = blue "
  91.    PRINT #ff, ""
  92.  
  93.   END SUB
  94.  
  95.