17000 INPUT"STUNDE, MINUTE, SEKUNDE";H,M,S
17010 IFH>12THENS1=128:H=H-12
17020 H=INT(H/10)*16+(H-INT(H/10)*10)+S1
17030 POKE56587,H
17031 M=INT(M/10)*16+(M-INT(M/10)*10)
17032 POKE56586,M
17040 S=INT(S/10)*16+(S-INT(S/10)*10)
17070 POKE56585,S
17080 POKE56584,0
17090 RETURN