home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9207.d64 / get-tod (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  278b  |  14 lines
  1. 14000 H = 0
  2. 14010 SR = PEEK(56587)
  3. 14020 IF SR AND 128 THEN H = 12
  4. 14030 H = H + ((SR AND 112) / 16) * 10
  5. 14040 H = H + (SR AND 15)
  6. 14050 SM = PEEK(56586)
  7. 14060 M = ((SM AND 240) / 16) * 10
  8. 14070 M = M + (SM AND 15)
  9. 14080 SR = PEEK(56585)
  10. 14090 S = ((SR AND 240) / 16) * 10
  11. 14100 S = S + (SR AND 15)
  12. 14110 Z = PEEK(56584)
  13. 14120 RETURN
  14.