home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / DOS-DATE.PRG < prev    next >
Encoding:
Text File  |  1984-08-06  |  768 b   |  22 lines
  1. * Program.: DOS-DATE.PRG
  2. * Author..: "Anonymous", Luis A. Castro
  3. * Date....: 07/01/83, 10/31/83, 01/20/84
  4. * Notice..: Copyright 1983, Ashton-Tate, All Rights Reserved.
  5. * Notes...: Loads the IBM-PC system date.
  6. *
  7. *   OUT: date:dos-C-8    Date in MM/DD/YY format.
  8. *
  9. SET CALL TO 61440
  10. POKE 61440, 180,42,205,33,137,22,13,240,137,14,15,240,195
  11. CALL
  12. * ---Get the month, day, and year.
  13. STORE STR(PEEK(61454),2) + "/" +;
  14.       STR(PEEK(61453),2) + "/" +;
  15.       STR(PEEK(61456)*256+PEEK(61455)-1900,2) TO date:dos
  16. *
  17. * ---You may also want to set the dBASE II system date
  18. * ---with the command: SET DATE TO &date:dos
  19. *
  20. RETURN
  21. * EOF: DOS-DATE.PRG
  22.