home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / tptools.zip / BININST.ZIP / INSTALL.PAS < prev   
Pascal/Delphi Source File  |  1987-12-21  |  1KB  |  41 lines
  1. {                          INSTALL.PAS
  2.                            INSTALL 4.0
  3.              Copyright (c) 1985, 87 by Borland International, Inc.            }
  4.  
  5. program Install;
  6.   {-Install Binary Editor}
  7.  
  8. {$R-}
  9. {$V-}
  10. {$I-}
  11. {$S-}
  12.  
  13.  
  14. uses
  15.   Crt,                       {Screen routines - standard unit}
  16.   Dos,                       {DOS calls - standard unit}
  17.   Errors,                    {error handling routines}
  18.   SInst,                     {fast screen routines for installation programs}
  19.   EscSeq,                    {returns names for extended keystroke sequences}
  20.   EdiTools;                  {general purpose tools for installation programs}
  21.  
  22.   {$I bicmds.inc}            {Enumerated type of all editor commands}
  23.   {$I bivars.inc}            {Global declarations for installation program}
  24.   {$I bikey.inc}             {Keyboard installation}
  25.  
  26. begin                        {Install}
  27.   {get name of file to install}
  28.   if ParamCount = 0 then begin
  29.     Write('Enter name of binary file to install: ');
  30.     ReadLn(FName);
  31.     if FName = '' then
  32.       Halt;
  33.     WriteLn;
  34.   end else
  35.     FName := ParamStr(1);
  36.  
  37.   Initialize(FName, Version);
  38.   KeyInstall;
  39.   CleanUp;
  40. end.                         {Install}
  41.