home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / v / v12n3.zip / TODAY.ZIP / TODAY.BAS < prev   
BASIC Source File  |  1992-07-28  |  178b  |  9 lines
  1. D$ = MID$(DATE$, 4, 2)
  2. M$ = LEFT$(DATE$, 2)
  3. Y$ = RIGHT$(DATE$, 2)
  4. today$ = Y$ + M$ + D$
  5. OPEN "today.bat" FOR OUTPUT AS #1
  6. PRINT #1, "set today="; today$
  7. CLOSE #1
  8. SYSTEM
  9.