home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 62 / 64er_Magazin_Sonderheft_62_19xx_Markt__Technik_de_Side_A.d64 / steller (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  139 b   |  6 lines
  1. 10 input"zeit (hhmmss)";a$:a$=a$+"00"
  2. 20 forn=0to3:t(n)=val(mid$(a$,2*n+1,2))
  3. 30 if t(0)>11 then t(0)=t(0)+68
  4. 40 poke 56331-n,t(n)+6*int(t(n)/10)
  5. 50 next
  6.