home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / filutl / ldiff12s.arc / LDHELP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-15  |  969 b   |  49 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*LDHelp.pas âwâïâvÅêù¥ü@ü@         (C) ÄOû╪ÿaòF NIFTY SDR SDI00147 1989/7/1 *)
  3. (*$B-,F-,I-,N-                                                               *)
  4. (*---------------------------------------------------------------------------*)
  5. UNIT LDHelp;
  6.  
  7.  
  8. INTERFACE
  9.  
  10.  
  11. USES
  12.    Overlay,
  13.    MyTool,
  14.    LDVari,
  15.    LDProc;
  16.  
  17.  
  18. PROCEDURE HelpJob;
  19. PROCEDURE UseJob;
  20.  
  21.  
  22. IMPLEMENTATION
  23.  
  24.  
  25. PROCEDURE HelpJob;
  26. VAR
  27.    i : BYTE;
  28. BEGIN
  29.    FOR i:=RemarkTopMsg TO RemarkEndMsg DO WriteLn(OUTF,MEG(i));
  30.    WriteLn(OUTF);
  31.    WriteLn(OUTF,MEG(TitleMsg));
  32.    WriteLn(OUTF,MEG(LineMsg));
  33.    FOR i:=UsageTopMsg TO UsageEndMsg DO WriteLn(OUTF,MEG(i));
  34. END;
  35.  
  36.  
  37. PROCEDURE UseJob;
  38. VAR
  39.    i : BYTE;
  40. BEGIN
  41.    WriteLn(OUTF,MEG(TitleMsg));
  42.    WriteLn(OUTF,MEG(LineMsg));
  43.    FOR i:=UsageTopMsg TO UsageEndMsg DO WriteLn(OUTF,MEG(i));
  44.    WriteLn(OUTF,MEG(LineMsg));
  45. END;
  46.  
  47.  
  48. END.
  49.