10 POKE 53280,02:POKE 53281,2
20 PRINT"[147][158]UHRZEIT:    ";:OPEN1,0,0:INPUT#1,T$:CLOSE1
30 PRINTCHR$(13) "[155]WECKZEIT:   ";:OPEN1,0,0:INPUT#1,W$:CLOSE1
40 H$=LEFT$(T$,2):M$=MID$(T$,3,2):S$=RIGHT$(T$,2)
50 B=0:IFVAL(H$)>12THENB=1:H$=RIGHT$(STR$(VAL(H$)-12),2)
60 IF H$="00"THENB=1
70 POKE 56587,16*VAL(LEFT$(H$,1))+VAL(RIGHT$(H$,1))ORB*128
80 POKE 56586,16*VAL(LEFT$(M$,1))+VAL(RIGHT$(M$,1))
90 POKE 56585,16*VAL(LEFT$(S$,1))+VAL(RIGHT$(S$,1))
100 FOR I=0 TO 3:POKE51100+I,VAL(MID$(W$,I+1,1))+128:NEXT
110 POKE 56584,0:PRINT""
120 SYS 2460