home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9207.d64 / set-tod (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  222b  |  11 lines
  1. 17000 INPUT"STUNDE, MINUTE, SEKUNDE";H,M,S
  2. 17010 IFH>12THENS1=128:H=H-12
  3. 17020 H=INT(H/10)*16+(H-INT(H/10)*10)+S1
  4. 17030 POKE56587,H
  5. 17031 M=INT(M/10)*16+(M-INT(M/10)*10)
  6. 17032 POKE56586,M
  7. 17040 S=INT(S/10)*16+(S-INT(S/10)*10)
  8. 17070 POKE56585,S
  9. 17080 POKE56584,0
  10. 17090 RETURN
  11.