home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / turbopas / tp5menu1.arc / PPS_HELP.PAS < prev    next >
Pascal/Delphi Source File  |  1989-01-21  |  7KB  |  177 lines
  1. {
  2. Copyright (c) 1988 BittWare Computing, ALL RIGHTS RESERVED
  3. }
  4. program pps_help;
  5. uses
  6.      dos,
  7.      crt;
  8.  
  9. const
  10. {These Help Variables are also defined in MenuVars.pas}
  11. {They are checked with execution to make sure they are equal}
  12. {all help records are equal}
  13. {Size of the help file was sacrificed in favor of speed in file access}
  14.      MaxHelpLines        = 4;
  15.      HelpLineWidth       = 70;
  16.      HelpFileName        = 'tp5menu.hlp';
  17.      MaxHelpPages        = 5; {max number of "pages" for one help number}
  18.  
  19. {the number of help records can be change, but the above variables}
  20. {cannot be changed, without changing the source code in MenuVars.pas}
  21.  
  22. {Help Codes, MUST be the same as set in pps_glob.pas}
  23.      InfoRec        = 0;
  24.      MainHeader     = 1;
  25.      DataEntryHelp1 = 2;
  26.      MenuNumHelp    = 3;
  27.      FileMenuHelp   = 4;
  28.      MaskListHelp   = 5;
  29.      ChgVarHelp     = 6;
  30.      InpVarsHelp    = 7;
  31.      ExeMainHelp    = 8;
  32.      ConfirmHelp    = 9;
  33.      UserProc1Help  = 10;
  34.      UserProc2Help  = 11;
  35.      UserProc3Help  = 12;
  36.      UserProc4Help  = 13;
  37.      DataEntryHelp2 = 14;
  38.      MainHeader2    = 15;
  39.  
  40.      MaxHelps       = 15;
  41. type
  42.      HelpMessType = record
  43.           NextRec:integer;  {NextRec = 0 if last, else}
  44.                             {NextRec = Seek Number of Next "Page" of Message}
  45.           Str    :array[1..MaxHelpLines] of string[HelpLineWidth];
  46.      end;
  47. var
  48.         HelpFile        :file of HelpMessType;
  49.         HelpVar         :array[0..MaxHelps] of HelpMessType;
  50.         HelpVarTmp      :HelpMessType;
  51.         indx            :integer;
  52.         DiskNeeded      :longint;
  53.         DiskAvail       :longint;
  54. begin
  55.  
  56. {check disk to make sure space available}
  57.      DiskAvail := DiskFree(0);
  58.      DiskNeeded := (MaxHelpLines * HelpLineWidth + 2) * (MaxHelps + 2);
  59.      writeln('Disk Available = ',DiskAvail);
  60.      writeln('Disk Needed = ',DiskNeeded);
  61.      if DiskAvail < DiskNeeded then begin
  62.           writeln('Not enough disk space available to create Help Files');
  63.           writeln('Hit <enter> to continue...');
  64.           readln;
  65.      end
  66.  
  67. {Enough Disk Space!  Let's Create the HelpFile}
  68.      else begin
  69.           writeln('Help file being created = ',HelpFileName);
  70.           Assign(HelpFile,HelpFileName);
  71.           Rewrite(helpFile);
  72.  
  73. {info rec can be used to verify that the help file found is compatible}
  74.           HelpVar[InfoRec].NextRec := 0;
  75.           Str(HelpLineWidth,HelpVar[InfoRec].str[1]);
  76.           Str(MaxHelpLines,HelpVar[InfoRec].str[2]);
  77.           Str(MaxHelpPages,HelpVar[InfoRec].str[3]);
  78.           HelpVar[InfoRec].str[4] := '';
  79.  
  80.           HelpVar[MainHeader].NextRec := MainHeader2;
  81.           HelpVar[MainHeader].str[1] := 'Welcome to the BittWare Computing User-Interface Maker';
  82.           HelpVar[MainHeader].str[2] := 'This Help utility <F1> provides information on the';
  83.           HelpVar[MainHeader].str[3] := 'current choices available';
  84.           HelpVar[MainHeader].str[4] := 'Select an item, and try <F1> again';
  85.  
  86.           HelpVar[MainHeader2].NextRec := 0;
  87.           HelpVar[MainHeader2].str[1] := '"Execute"     - Sample User executable routines';
  88.           HelpVar[MainHeader2].str[2] := '"File Select" - Sample Pick file/Pick Color';
  89.           HelpVar[MainHeader2].str[3] := '"Data Entry"  - Sample Data Entry';
  90.           HelpVar[MainHeader2].str[4] := '"Quit"        - Exit to Dos';
  91.  
  92.           HelpVar[DataEntryHelp1].NextRec := DataEntryHelp2;
  93.           HelpVar[DataEntryHelp1].str[1] := 'Menu Data-Entry Demo';
  94.           HelpVar[DataEntryHelp1].str[2] := 'Entries written in Black cannot be selected';
  95.           HelpVar[DataEntryHelp1].str[3] := 'until the mask is changed';
  96.           HelpVar[DataEntryHelp1].str[4] := 'hit <Enter> on the variable of your choice';
  97.  
  98.           HelpVar[DataEntryHelp2].NextRec := 0;
  99.           HelpVar[DataEntryHelp2].str[1] := 'These Variables can be used by your programs';
  100.           HelpVar[DataEntryHelp2].str[2] := 'when executed from the Execute Menu';
  101.           HelpVar[DataEntryHelp2].str[3] := '';
  102.           HelpVar[DataEntryHelp2].str[4] := '';
  103.  
  104.           HelpVar[MenuNumHelp].NextRec := 0;
  105.           HelpVar[MenuNumHelp].str[1] := 'Numbers can be entered directly';
  106.           HelpVar[MenuNumHelp].str[2] := 'or selected from a menu';
  107.           HelpVar[MenuNumHelp].str[3] := '2';
  108.           HelpVar[MenuNumHelp].str[4] := '3';
  109.  
  110.           HelpVar[FileMenuHelp].NextRec := 0;
  111.           HelpVar[FileMenuHelp].str[1] := 'Set File Search Path';
  112.           HelpVar[FileMenuHelp].str[2] := 'Set File Search Mask';
  113.           HelpVar[FileMenuHelp].str[3] := 'Last File Selected';
  114.           HelpVar[FileMenuHelp].str[4] := 'Fg/Bg - Demo for pick list';
  115.  
  116.           HelpVar[MaskListHelp].NextRec := 0;
  117.           HelpVar[MaskListHelp].str[1] := 'Demonstrates use of';
  118.           HelpVar[MaskListHelp].str[2] := 'Pull-Down-Menu masks';
  119.           HelpVar[MaskListHelp].str[3] := '2';
  120.           HelpVar[MaskListHelp].str[4] := '3';
  121.  
  122.           HelpVar[ExeMainHelp].NextRec := 0;
  123.           HelpVar[ExeMainHelp].str[1] := 'User 1 - Shows Global Vars';
  124.           HelpVar[ExeMainHelp].str[2] := 'User 2 - Window Data Entry';
  125.           HelpVar[ExeMainHelp].str[3] := 'User 3 = Good Beep';
  126.           HelpVar[ExeMainHelp].str[4] := 'User 4 = Bad Beep';
  127.  
  128.           HelpVar[ChgVarHelp].NextRec := 0;
  129.           HelpVar[ChgVarHelp].str[1] := 'Hit <enter> to scroll through choices';
  130.           HelpVar[ChgVarHelp].str[2] := '1';
  131.           HelpVar[ChgVarHelp].str[3] := '2';
  132.           HelpVar[ChgVarHelp].str[4] := '3';
  133.  
  134.           HelpVar[InpVarsHelp].NextRec := 0;
  135.           HelpVar[InpVarsHelp].str[1] := 'Get User Input';
  136.           HelpVar[InpVarsHelp].str[2] := 'Reals must have leading 0 ==> "0.02"';
  137.           HelpVar[InpVarsHelp].str[3] := 'Reals also accept 2e-2 ==> "0.02"';
  138.           HelpVar[InpVarsHelp].str[4] := '3';
  139.  
  140.           HelpVar[ConfirmHelp].NextRec := 0;
  141.           HelpVar[ConfirmHelp].str[1] := 'Select "Confirm" to continue';
  142.           HelpVar[ConfirmHelp].str[2] := 'or "Cancel" to return';
  143.           HelpVar[ConfirmHelp].str[3] := '2';
  144.           HelpVar[ConfirmHelp].str[4] := '3';
  145.  
  146.           HelpVar[UserProc1Help].NextRec := 0;
  147.           HelpVar[UserProc1Help].str[1] := 'User Procedure 1 Help';
  148.           HelpVar[UserProc1Help].str[2] := '1';
  149.           HelpVar[UserProc1Help].str[3] := '2';
  150.           HelpVar[UserProc1Help].str[4] := '3';
  151.  
  152.           HelpVar[UserProc2Help].NextRec := 0;
  153.           HelpVar[UserProc2Help].str[1] := 'User Procedure 2 Help';
  154.           HelpVar[UserProc2Help].str[2] := '1';
  155.           HelpVar[UserProc2Help].str[3] := '2';
  156.           HelpVar[UserProc2Help].str[4] := '3';
  157.  
  158.           HelpVar[UserProc3Help].NextRec := 0;
  159.           HelpVar[UserProc3Help].str[1] := 'User Procedure 3 Help';
  160.           HelpVar[UserProc3Help].str[2] := '1';
  161.           HelpVar[UserProc3Help].str[3] := 'Emits a "good" beep';
  162.           HelpVar[UserProc3Help].str[4] := '3';
  163.  
  164.           HelpVar[UserProc4Help].NextRec := 0;
  165.           HelpVar[UserProc4Help].str[1] := 'User Procedure 4 Help';
  166.           HelpVar[UserProc4Help].str[2] := '1';
  167.           HelpVar[UserProc4Help].str[3] := 'Emits a "bad" beep';
  168.           HelpVar[UserProc4Help].str[4] := '3';
  169.  
  170.           for indx := 0 to MaxHelps do
  171.                write(HelpFile,HelpVar[indx]);
  172.  
  173.           close(helpfile);
  174.      end;
  175. end.
  176. 
  177.