start tok64 d64-zLjH7D
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"{down}{yellow}idee:{space*5}t.oelsner":PRINT"umsetzung:m.lange{light blue}":POKE49587,h:POKE49609,m:SYS49586:NEW
6 DATA"aa4a4a4a4aa88a290f8502a90088300818f86916d81890f518f86502d860e88efa07a9338d"
7 DATA"01d08d03d08d05d0a9178d00d0a92f8d02d0a9478d04d0ad0edc09808d0edca9078d17d08d"
8 DATA"10d0a248a{0*3}8e05dc8c04dca208a0c28e30038c3103a216a0c28e32038c3303eaa9008d1b"
9 DATA"d08d1bd08d1cd08d1dd0a9018d27d08d28d08d29d0a9078d15d078a224a0c28e14038c1503"
10 DATA"5860a8a9338501a9d8{a*3}90088c0{f*3}0091869089001e84ca0c08db7c08eb8c0a200bd98d9"
11 DATA"9d00cfe8e008d0f5a937850160c90a900638e9091890031869306098290f20c6c08d03ce98"
12 DATA"4a4a4a4a20c6c08d02ce8a290f20c6c08d01ce8a4a4a4a4a20c6c08d00ce60a200a{0*3}bd00"
13 DATA"cf994103e8c8c8c8e008d0f260a213c981f00f297fc91a3010186906c924d009a2008e0bdc"
14 DATA"8e08dc8{a*4}c0adc20d4c0ad00ce2096c0a240a0038e05c18c06c120fdc0ad01ce2096c0a2"
15 DATA"418e05c120fdc0a93a2096c0a2428e05c120fdc0ad02ce2096c0a2808e05c120fdc0ad03ce"
16 DATA"2096c0a2818e05c120fdc0ae09dcac08dc20d4c0a93a2096c0a2828e05c120fdc0ad00ce20"
17 DATA"96c0a2c08e05c120fdc0ad01ce2096c0a2c18e05c120fdc04c31eaa900c91890034c48b220"
18 DATA"00c0c920300338e9068d0bdca900c93c90034c48b22{0*3}c08d0adca9008d09dc8d08dca200"
19 DATA"8a9d4003e8e0c0d0f8a20d8ef807e88ef9074c1ec078a2008e15d0a231a0ea8e14038c1503"
20 DATA"5860a{0*3}8c15d020a5f4a0078c15d060a{0*3}8c15d020edf5a0078c15d060ad0bdc4c10c14d"
stop tok64
(bastext 1.0)