home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB01.ZIP / INIT.INC < prev    next >
Encoding:
Text File  |  1986-03-03  |  4.6 KB  |  97 lines
  1. { INIT.INC }
  2.  
  3. { *************************************************************************** }
  4. { *                                                                         * }
  5. { *                TURBO SCREEN INPUT PRE-PROCESSOR TOOLKIT                 * }
  6. { *                                                                         * }
  7. { *                 INITIALIZATION SUBPROGRAM INCLUDE FILE                  * }
  8. { *                                                                         * }
  9. { *                             Version  1.07                               * }
  10. { *                                                                         * }
  11. { *************************************************************************** }
  12.  
  13.  
  14.  
  15. Procedure InitModule;
  16.  
  17. { *************************************************************************** }
  18. { *                                                                         * }
  19. { *                          INITIALIZATION MODULE                          * }
  20. { *                                                                         * }
  21. { *    This module controls the initialization of the input pre-processor   * }
  22. { *    program.  It reads all of the prompt files, initializes all of the   * }
  23. { *    data arrays, and sets-up the proper screen colors depending on       * }
  24. { *    the type of monitor being used.                                      * }
  25. { *                                                                         * }
  26. { *************************************************************************** }
  27.  
  28.  
  29.  
  30.   Procedure InitVariables;
  31.  
  32.   { This procedure initializes the global variables that are used in this
  33.     program. }
  34.  
  35.   Begin { InitVariables }
  36.  
  37.     { variable for the specific example application of the input pre-processor }
  38.     NewFile:=False;                    { set boolean flag for generating new input file to False }
  39.  
  40.     CurrentPage:=Menu;                 { set current page type module pointer to point to menu module }
  41.     MenuPage:=1;                       { initialize the page numbers }
  42.     G_I_Page:=1;
  43.     S_I_Page:=1;
  44.   End;  { InitVariables }
  45.  
  46.  
  47.  
  48.   Procedure InitScreenColors;
  49.  
  50.   { This procedure first determines what type of monitor is being used.  It
  51.     then sets the proper screen colors for that monitor. }
  52.  
  53.   Begin   { InitScreenColors }
  54.     If MonitorType=3 Then { color adapter and color monitor }
  55.       Begin { Color Screen Constants }
  56.         HighlightColor:=15;            { Highlight prompt }
  57.         BackgroundColor:=1;            { Normal background color }
  58.         ForegroundColor:=7;            { Normal foreground color }
  59.         CharacterInputColor:=31;       { Color of characters being inputed }
  60.         BlockBackgroundColor:=7;       { Color of highlighted input block background }
  61.         BlockForegroundColor:=1;       { Color of highlighted input block foreground }
  62.         QuickInputHighlightColor:=14;  { Color of special 1 or 2 character input prompts }
  63.         InputWindowColor:=4;           { Color of load input box background }
  64.         ErrorWindowColor:=1;           { Color of error message box background }
  65.         InputWindowBorderColor:=3;     { Color of special input box border color }
  66.         MenuBackgroundColor:=0;        { Color of main menu screen background }
  67.       End { If MonitorType }
  68.     Else { monochrome adapter or color adapter and monochrome monitor }
  69.       Begin { Mono Screen Constants }
  70.         HighlightColor:=15;            { Highlight prompt }
  71.         BackgroundColor:=0;            { Normal background color }
  72.         ForegroundColor:=7;            { Normal foreground color }
  73.         CharacterInputColor:=31;       { Color of characters being inputed }
  74.         BlockBackgroundColor:=7;       { Color of highlighted input block background }
  75.         BlockForegroundColor:=0;       { Color of highlighted input block foreground }
  76.         QuickInputHighlightColor:=15;  { Color of special 1 or 2 character input prompts }
  77.         InputWindowColor:=0;           { Color of load input box background }
  78.         ErrorWindowColor:=0;           { Color of error message box background }
  79.         InputWindowBorderColor:=7;     { Color of special input box border color }
  80.         MenuBackgroundColor:=0;        { Color of main menu screen background }
  81.       End; { If MonitorType }
  82.   End;    { InitScreenColors }
  83.  
  84.  
  85.  
  86. Begin   { InitModule }
  87.   ReadMenuFiles;
  88.   Read_G_I_Files;
  89.   Init_G_I_DataEntries;
  90.   Read_S_I_Files;
  91.   Init_S_I_DataEntries;
  92.   InitVariables;
  93.   InitScreenColors;
  94.   InitTextScreenPointers;
  95.   HideBlinkingCursor;
  96. End;    { InitModule }
  97.