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