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:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Pascal/Delphi Source File
|
1992-12-15
|
265 b
|
21 lines
{$B-,V-,I-,N-,E-}
{$M 4096,0,10240}
uses
eco_lib, crt, dos
;
var
f : text;
begin
assign(f, 'setenv.bat'); rewrite(f);
writeln(f,
'SET ' + __chgenutl(0, 'DAG=' + __up(__retdowstr(__today, true)), error)
);
close(f);
end.