home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 July / 64er_Magazin_92-07_1992-12-02_Markt__Technik_de.d64 / get-tod (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.