home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / sys_util / setdt110.zip / SETDT.BAS < prev    next >
BASIC Source File  |  1993-09-29  |  378b  |  18 lines
  1. OPEN "set_dt.bat" FOR OUTPUT AS #1
  2. d$ = DATE$
  3. mm$ = MID$(d$, 1, 2)
  4. dd$ = MID$(d$, 4, 2)
  5. yy$ = MID$(d$, 9, 2)
  6. t$ = TIME$
  7. hr$ = MID$(t$, 1, 2)
  8. mn$ = MID$(t$, 4, 2)
  9. sc$ = MID$(t$, 7, 2)
  10. PRINT #1, "@echo off"
  11. PRINT #1, "set mm="; mm$
  12. PRINT #1, "set dd="; dd$
  13. PRINT #1, "set yy="; yy$
  14. PRINT #1, "set hr="; hr$
  15. PRINT #1, "set mn="; mn$
  16. PRINT #1, "set sc="; sc$
  17. CLOSE
  18.