1 X=49152:FORZ=1TO15:READA$:FORI=1TOLEN(A$):B$=MID$(A$,I,1):GOSUB3:H=B*16:I=I+1
2 B$=MID$(A$,I,1):GOSUB3:H=H+B:POKEX,H:X=X+1:NEXTI:NEXTZ:POKE2206,58:GOTO4
3 A=ASC(B$):B=A-48:IFA>64THENB=A-55:RETURN
4 RETURN:INPUT"UHRZEIT (STUNDE,MINUTE) ";H,M:IFH>23ORM>59THEN4
5 PRINT"[158]IDEE:     T.OELSNER":PRINT"UMSETZUNG:M.LANGE[154]":POKE49587,H:POKE49609,M:SYS49586:NEW
6 DATA"AA4A4A4A4AA88A290F8502A90088300818F86916D81890F518F86502D860E88EFA07A9338D"
7 DATA"01D08D03D08D05D0A9178D00D0A92F8D02D0A9478D04D0AD0EDC09808D0EDCA9078D17D08D"
8 DATA"10D0A248A0008E05DC8C04DCA208A0C28E30038C3103A216A0C28E32038C3303EAA9008D1B"
9 DATA"D08D1BD08D1CD08D1DD0A9018D27D08D28D08D29D0A9078D15D078A224A0C28E14038C1503"
10 DATA"5860A8A9338501A9D8AAA90088C0FFF0091869089001E84CA0C08DB7C08EB8C0A200BD98D9"
11 DATA"9D00CFE8E008D0F5A937850160C90A900638E9091890031869306098290F20C6C08D03CE98"
12 DATA"4A4A4A4A20C6C08D02CE8A290F20C6C08D01CE8A4A4A4A4A20C6C08D00CE60A200A000BD00"
13 DATA"CF994103E8C8C8C8E008D0F260A213C981F00F297FC91A3010186906C924D009A2008E0BDC"
14 DATA"8E08DC8AAAAC0ADC20D4C0AD00CE2096C0A240A0038E05C18C06C120FDC0AD01CE2096C0A2"
15 DATA"418E05C120FDC0A93A2096C0A2428E05C120FDC0AD02CE2096C0A2808E05C120FDC0AD03CE"
16 DATA"2096C0A2818E05C120FDC0AE09DCAC08DC20D4C0A93A2096C0A2828E05C120FDC0AD00CE20"
17 DATA"96C0A2C08E05C120FDC0AD01CE2096C0A2C18E05C120FDC04C31EAA900C91890034C48B220"
18 DATA"00C0C920300338E9068D0BDCA900C93C90034C48B22000C08D0ADCA9008D09DC8D08DCA200"
19 DATA"8A9D4003E8E0C0D0F8A20D8EF807E88EF9074C1EC078A2008E15D0A231A0EA8E14038C1503"
20 DATA"5860A0008C15D020A5F4A0078C15D060A0008C15D020EDF5A0078C15D060AD0BDC4C10C14D"