home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / tricks / popenv.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-06  |  776 b   |  28 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    POPENV.PAS                          *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM PopMasterEnv;
  5.  
  6. {$R-,S-,I-,F-,O-,A-,V-,B-,N-,E-,D-,L-}
  7.  
  8. USES Environ;
  9.  
  10. VAR
  11.   SaveDatei : FILE OF BYTE;
  12.   Dateiname : STRING;
  13.   Ofs       : WORD;
  14.  
  15. BEGIN
  16.   IF ParamCount < 1 THEN Halt(1);
  17.   Dateiname := ParamStr(1);
  18.   Assign(SaveDatei, Dateiname);
  19.   {$I-} Reset(SaveDatei); {$I+}
  20.   IF IOResult <> 0 THEN Halt(1);
  21.   FOR Ofs := 0 TO MasterEnvSize-1 DO
  22.     Read(SaveDatei, Mem[MasterEnvSeg:Ofs]);
  23.   Close(SaveDatei);
  24.   Erase(SaveDatei);
  25. END.
  26. (* ------------------------------------------------------ *)
  27. (*                Ende von POPENV.PAS                     *)
  28.