home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / NOVELL / ENV_UP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-15  |  265 b   |  21 lines

  1. {$B-,V-,I-,N-,E-}
  2. {$M 4096,0,10240}
  3. uses
  4.   eco_lib, crt, dos
  5.  
  6.   ;
  7.  
  8.  
  9.  
  10.  
  11. var
  12.   f : text;
  13.  
  14. begin
  15.   assign(f, 'setenv.bat'); rewrite(f); 
  16.   writeln(f,
  17.     'SET ' + __chgenutl(0, 'DAG=' + __up(__retdowstr(__today, true)), error)
  18.   );
  19.   close(f);
  20. end.
  21.