home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 January / 64er_Magazin_86-01_1986_Markt__Technik_de.d64 / b-clock-fertig (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.9 KB  |  13 lines
  1. 10 poke 53280,02:poke 53281,2
  2. 20 print"[147][158]uhrzeit:    ";:open1,0,0:input#1,t$:close1
  3. 30 printchr$(13) "[155]weckzeit:   ";:open1,0,0:input#1,w$:close1
  4. 40 h$=left$(t$,2):m$=mid$(t$,3,2):s$=right$(t$,2)
  5. 50 b=0:ifval(h$)>12thenb=1:h$=right$(str$(val(h$)-12),2)
  6. 60 if h$="00"thenb=1
  7. 70 poke 56587,16*val(left$(h$,1))+val(right$(h$,1))orb*128
  8. 80 poke 56586,16*val(left$(m$,1))+val(right$(m$,1))
  9. 90 poke 56585,16*val(left$(s$,1))+val(right$(s$,1))
  10. 100 for i=0 to 3:poke51100+i,val(mid$(w$,i+1,1))+128:next
  11. 110 poke 56584,0:print""
  12. 120 sys 2460
  13.