home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1990 A…st & September & October / rerun-1990-08-09-10.d64 / time-clock.64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  11 lines
  1. 100 print"[147]";tab(16);"time clock"
  2. 110 printtab(13);"copyright 1990"
  3. 120 printtab(13);"run magazine       "
  4. 130 printtab(13);"all rights reserved"
  5. 200 input"   time (hhmmss)";t$
  6. 450 poke56587,16*val(mid$(t$,1,1))+val(mid$(t$,2,1))
  7. 475 poke56586,16*val(mid$(t$,3,1))+val(mid$(t$,4,1))
  8. 500 poke56585,16*val(mid$(t$,5,1))+val(mid$(t$,6,1))
  9. 525 poke56584,0
  10. 550 sys 2345:new
  11.