home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / tricks / pushenv.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-06  |  1.0 KB  |  38 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      PUSHENV.PAS                       *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM PushMasterEnv;
  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.   FUNCTION UpString(Txt : STRING) : STRING;
  16.   VAR
  17.     i : BYTE;
  18.   BEGIN
  19.     FOR i := 1 TO LENGTH(Txt) DO
  20.       UpString[i] := UpCase(Txt[i]);
  21.     UpString[0] := Txt[0];
  22.   END;
  23.  
  24. BEGIN
  25.   IF ParamCount < 1 THEN Halt(1);
  26.   Dateiname := ParamStr(1);
  27.   Assign(SaveDatei, Dateiname);
  28.   {$I-} Rewrite(SaveDatei); {$I+}
  29.   IF IOResult <> 0 THEN Halt(1);
  30.   FOR Ofs := 0 TO MasterEnvSize-1 DO
  31.     Write(SaveDatei, Mem[MasterEnvSeg:Ofs]);
  32.   Close(SaveDatei);
  33.   IF UpString(ParamStr(2)) = 'CLEAR' THEN
  34.     FillChar(Mem[MasterEnvSeg:0], MasterEnvSize, 0);
  35. END.
  36. (* ------------------------------------------------------ *)
  37. (*               Ende von PUSHENV.PAS                     *)
  38.