home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol12n03.zip
/
TODAY.BAS
< prev
Wrap
BASIC Source File
|
1992-07-28
|
178b
|
9 lines
D$ = MID$(DATE$, 4, 2)
M$ = LEFT$(DATE$, 2)
Y$ = RIGHT$(DATE$, 2)
today$ = Y$ + M$ + D$
OPEN "today.bat" FOR OUTPUT AS #1
PRINT #1, "set today="; today$
CLOSE #1
SYSTEM