home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol223 / dbiidate.prg < prev    next >
Encoding:
Text File  |  1986-02-13  |  1.1 KB  |  45 lines
  1. *PUBLIC DOMAIN SOFTWARE TO ACCESS THE SYSTEM DATE ON THE APC
  2. * DATE IS STORED IN SYSTEM FUNCTION 'DATE()'
  3. * BY JACK BURKE, DALLAS,TX
  4. * MODIFIED BY JEFF JOY, NECIS
  5. * The 'SET' paramaters were added by R.P.Brady
  6. * 
  7. SET TALK OFF
  8. SET BELL ON
  9. SET ESCAPE ON
  10. SET INTENSITY ON
  11. SET DEFA TO B
  12. *
  13. * The date routine begins on next line.
  14. STORE '                                           'TO DUMMY
  15. POKE 61440,82,81,177,0,186,16,240,205,220,89,90,195
  16. SET CALL TO 61440
  17. CALL DUMMY
  18. STORE PEEK (61456) TO C1
  19. STORE PEEK (61457) TO C2
  20. STORE PEEK (61458) TO C3
  21. STORE C1/16.0000 TO Y1
  22. STORE (Y1-INT(Y1))*16 TO Y2
  23. * THIS CREATES A YEAR STRING
  24. STORE STR((INT(Y1)*10)+INT(Y2),2) TO YR
  25. * THIS CREATES A MONTH STRING
  26. IF C2/16.0000 < 10
  27.   STORE '0'+STR(C2/16.0000,1) TO MO
  28. ELSE
  29. STORE STR(C2/16.0000,2) TO MO
  30. ENDIF
  31. * THIS CREATES A DATE STRING
  32. STORE C3/16.0000 TO D1
  33. STORE (D1-INT(D1))*16 TO D2
  34. STORE (INT(D1)*10)+INT(D2) TO DA
  35. IF INT(D1)=0
  36. STORE "0"+STR(INT(D2),1) TO DT
  37. ELSE
  38. STORE STR(DA,2) TO DT
  39. ENDIF
  40. STORE (MO+'/'+DT+'/'+YR) TO DT
  41. SET DATE TO &DT
  42. ? "THE SYSTEM DATE IS SET TO: ",DATE()
  43. RELEASE ALL
  44. SET TALK ON
  45. RETURN