home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8601.d64 / b-clock-fertig (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  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.