home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TP5MENU1.ZIP / PPS_GLOB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-21  |  3.4 KB  |  137 lines
  1. {
  2. Copyright (c) 1988 BittWare Computing, ALL RIGHTS RESERVED 
  3. }
  4. unit pps_glob;
  5. interface
  6. uses
  7.         menuvars,
  8.         crt,
  9.         dos;
  10.  
  11. const
  12.  
  13. {If regenerating Help File, the following Help Codes MUST change accordingly}
  14.      InitHelpFilePath = '';
  15.      InitHelpFileName = 'tp5menu.hlp';
  16.  
  17.      InfoRec        = 0;
  18.      MainHeader     = 1;
  19.      DataEntryHelp  = 2;
  20.      MenuNumHelp    = 3;
  21.      FileMenuHelp   = 4;
  22.      MaskListHelp   = 5;
  23.      ChgVarHelp     = 6;
  24.      InpVarsHelp    = 7;
  25.      ExeMainHelp    = 8;
  26.      ConfirmHelp    = 9;
  27.      UserProc1Help  = 10;
  28.      UserProc2Help  = 11;
  29.      UserProc3Help  = 12;
  30.      UserProc4Help  = 13;
  31.      DataEntryHelp2 = 14;
  32.      MainHeader2    = 15;
  33.  
  34. {Error Codes, max defined in MenuVars.pas, currently = 20}
  35.  
  36. {
  37. These are already defined in MenuVars.pas
  38.      InvalidInput        = 1;
  39.      PathNotFound        = 2;
  40.      FileNotFound        = 3;
  41.      SeekPastHelp        = 4;
  42. }
  43. type
  44.      VarStringType = PathString;
  45. var
  46.      HomeDir         :PathString;
  47.      ts,ts2          :PathString;
  48.      HelpFileName    :filestring;
  49.      HelpFilePath    :PathString;
  50.      StringVar      :VarStringType;
  51.      MaskVar        :byte;
  52.      RealVar1       :real;
  53.      RealVar2       :real;
  54.      IntVar         :integer;
  55.      LongIntVar     :longint;
  56.      BoolVar        :byte;
  57.      MenuNum        :longint;
  58.      FrChgVar       :byte;
  59.      FgColorSel     :byte;
  60.      BgColorSel     :byte;
  61.      DirSearchMask  :FileString;
  62.      DirSearchPath  :PathString;
  63.      SpclNum        :longint;
  64.      CommandMode    :boolean;
  65.      User2Int       :integer;
  66.  
  67.         linestr         :linestrg;
  68.         inputstring     :linestrg;
  69.         flname          :filestring;
  70.         ch              :char;
  71.         i,j             :integer;
  72.         keycode         :byte;
  73.         tstr            :string[10];
  74.         tx,ty           :longint;
  75.         indx,i2         :integer;
  76.  
  77.         crt_mode       :byte;
  78.  
  79.         mvp     :InpStrPtr;
  80.         tch     :char;
  81.         tc      :string[1];
  82.         tbyte   :byte;
  83.         dbyte   :byte;
  84.         menu1   :byte;
  85.         menu2   :byte;
  86.         menu3   :byte;
  87.         menu4   :byte;
  88.         menu5   :byte;
  89.         menu6   :byte;
  90.         li      :longint;
  91.         OldTextAttr :byte;
  92.         x       :integer;
  93.         tfx    :integer;
  94.  
  95. procedure InitVars;
  96.  
  97. implementation
  98.  
  99. procedure InitVars;
  100. begin
  101.  
  102.      HelpNum         := MainHeader;
  103.      HelpFileName    := InitHelpFileName;
  104.      HelpFilePath    := InitHelpFilePath;
  105.  
  106.      ErrorNum                      := NoError;
  107.      ErrorMessStr[InvalidInput]    := 'Invalid Input, Ignored';
  108.      ErrorMessStr[PathNotFound]    := 'Path not Found, Ignored';
  109.      ErrorMessStr[FileNotFound]    := 'File not found';
  110. {
  111.      ErrorMessStr[SeekPastHelp]    := 'An attempt was made to seek past the end of the Help File';
  112. }
  113.  
  114.      StringVar      := 'BittWare';
  115.      MaskVar        := 1;
  116.      RealVar1       := -46.3;
  117.      RealVar2       := 1.2e-4;
  118.      IntVar         := 400;
  119.      LongIntVar     := 94236;
  120.      CommandMode    := False;
  121.      BoolVar        := 2;
  122.      FrChgVar       := 1;
  123.      FgColorSel     := yellow;
  124.      BgColorSel     := black;
  125.      DirSearchMask  := '*.*';
  126.      GetDir(0,DirSearchPath);
  127.      FlName         := '';
  128.      SpclNum        := 1000;
  129.      MenuNum        := SpclNum;
  130.  
  131.      User2Int       := 79;
  132. end;
  133.  
  134. end.
  135. 
  136.  
  137.