home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / source / pt4setp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  1.4 KB  |  40 lines
  1. UNIT PT4SETP;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.    Dos, Crt, GlobType, StringMan, GlobRout, PibAsync,   PT4UpDwn;
  7.  
  8. (* EXPORTS *)
  9.    FUNCTION Set_Params( First_Time : BOOLEAN;
  10.                         Use_Script : BOOLEAN ) : BOOLEAN;
  11.    PROCEDURE Get_Default_Params( First_Time : BOOLEAN );
  12.    FUNCTION Look_Up_Parameter( PName : Char_2 ) : INTEGER;
  13.    PROCEDURE Write_Config_File( Config_File_Name : AnyStr );
  14.    PROCEDURE Set_Parameter( Param_Num  : INTEGER;
  15.                             Param_Ival : INTEGER;
  16.                             Param_Rval : LONGINT;
  17.                             Param_Str  : AnyStr   );
  18.    FUNCTION Get_Config_File_Line(  VAR Config_File : Text_File;
  19.                                    VAR Param_Num   : INTEGER;
  20.                                    VAR Param_Str   : AnyStr;
  21.                                    VAR Param_Ival  : INTEGER;
  22.                                    VAR Param_Rval  : LONGINT ) : BOOLEAN;
  23.  
  24.                                    (* Parameter definitions           *)
  25. (*$I PARMDAT.GLO *)
  26.  
  27. IMPLEMENTATION
  28.                                    (* Get value of parameter *)
  29. {$I GETPARAM.MOD }
  30.                                    (* Set value of parameter *)
  31. {$I SETPARAM.MOD }
  32.                                    (* Get one line of configuration file *)
  33. {$I GETCONFI.MOD }
  34.                                    (* Main parameter setting routines *)
  35. {$I SETPARMA.MOD }
  36. {$I SETPARMB.MOD }
  37. {$I SETPARMC.MOD }
  38.  
  39. END   (* PT4SETP *).
  40.