10 IFK=1THEN1120
20 POKE53280,0:POKE53281,0:PRINT"[147][155]"
30 GOTO1000
100 PRINT"[147]    DIE HARDWARE-UHR"
110 PRINT"    [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
111 IFZ<>1THEN120
112 PRINT" EINGESTELLTE ZEIT: "
113 PRINT" ";A$(VAL(W$));", DEN ";D1$;".";D2$;".";D3$;
114 PRINT" - ";Z1$;":";Z2$;":";Z3$
120 PRINT" -1- UHR STELLEN"
130 IFZ=1THEN PRINT" -2- EINGESTELLTE ZEIT STARTEN"
135 PRINT"       COPYRIGHT 1989 MAGIC DISK"
140 GETA$
150 IFA$="1"THEN200
160 IFA$<>"2"THEN140
170 IFZ<>1THEN140
180 SYS828:END
200 PRINT"[147]       COPYRIGHT 1989 MAGIC DISK"
205 PRINT"    ZEIT STELLEN"
210 PRINT"    [197][197][197][197][197][197][197][197][197][197][197][197]"
220 PRINT" WOCHENTAG:     MONTAG=0"
230 PRINT"              DIENSTAG=1"
240 PRINT"              MITTWOCH=2"
250 PRINT"            DONNERSTAG=3"
260 PRINT"               FREITAG=4"
270 PRINT"               SAMSTAG=5"
280 PRINT"               SONNTAG=6"
290 PRINT" TAG: ";
300 GETW$:IFW$<"0"ORW$>"6"THEN300
310 PRINTW$:POKE1006,VAL(W$)
320 PRINT"[147]    ZEIT STELLEN"
330 PRINT"    [197][197][197][197][197][197][197][197][197][197][197][197]"
340 PRINT" DATUM: TAG-MONAT-JAHR"
350 PRINT" TT-MM-JJ    EINGABE: ";
360 OPEN1,0:INPUT#1,D$:CLOSE1:IFLEN(D$)<>8THEN320
370 IFMID$(D$,1,1)<"0"ORMID$(D$,1,1)>"3"THEN320
380 IFMID$(D$,2,1)<"0"ORMID$(D$,2,1)>"9"THEN320
390 IFMID$(D$,2,1)>"1"ANDMID$(D$,1,1)="3"THEN320
400 IFMID$(D$,4,1)<"0"ORMID$(D$,4,1)>"1"THEN320
410 IFMID$(D$,5,1)<"0"ORMID$(D$,5,1)>"9"THEN320
420 IFMID$(D$,5,1)>"2"ANDMID$(D$,4,1)="1"THEN320
430 IFMID$(D$,7,1)<"0"ORMID$(D$,7,1)>"9"THEN320
440 IFMID$(D$,8,1)<"0"ORMID$(D$,8,1)>"9"THEN320
450 D1$=MID$(D$,1,2)
460 D2$=MID$(D$,4,2)
470 D3$=MID$(D$,7,2)
480 POKE1008,VAL(LEFT$(D1$,1)):POKE1007,VAL(RIGHT$(D1$,1))
490 POKE1010,VAL(LEFT$(D2$,1)):POKE1009,VAL(RIGHT$(D2$,1))
500 POKE1012,VAL(LEFT$(D3$,1)):POKE1011,VAL(RIGHT$(D3$,1))
520 PRINT"[147]       COPYRIGHT 1989 MAGIC DISK"
525 PRINT"    ZEIT STELLEN"
530 PRINT"    [197][197][197][197][197][197][197][197][197][197][197][197]"
540 PRINT" ZEIT: STD-MIN-SEK"
550 PRINT" SS-MM-SS    EINGABE: ";
560 OPEN1,0:INPUT#1,Z$:CLOSE1:IFLEN(Z$)<>8THEN520
570 IFMID$(Z$,1,1)<"0"ORMID$(Z$,1,1)>"2"THEN520
580 IFMID$(Z$,2,1)<"0"ORMID$(Z$,2,1)>"9"THEN520
590 IFMID$(Z$,2,1)>"3"ANDMID$(Z$,1,1)="2"THEN520
600 IFMID$(Z$,4,1)<"0"ORMID$(Z$,4,1)>"5"THEN520
610 IFMID$(Z$,5,1)<"0"ORMID$(Z$,5,1)>"9"THEN520
630 IFMID$(Z$,8,1)<"0"ORMID$(Z$,8,1)>"9"THEN520
640 IFMID$(Z$,7,1)<"0"ORMID$(Z$,7,1)>"5"THEN520
650 Z1$=MID$(Z$,1,2)
660 Z2$=MID$(Z$,4,2)
670 Z3$=MID$(Z$,7,2)
680 POKE1005,VAL(LEFT$(Z1$,1))+8:POKE1004,VAL(RIGHT$(Z1$,1))
690 POKE1003,VAL(LEFT$(Z2$,1)):POKE1002,VAL(RIGHT$(Z2$,1))
700 POKE1001,VAL(LEFT$(Z3$,1)):POKE1000,VAL(RIGHT$(Z3$,1))
710 Z=1
720 FORI=0TO6:READA$(I):NEXT
730 DATAMONTAG,DIENSTAG,MITTWOCH,DONNERSTAG,FREITAG,SAMSTAG,SONNTAG
740 GOTO100
1000 PRINT"[147]    DIE HARDWARE-UHR"
1010 PRINT"    [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
1020 PRINT"  FOLGENDES PROGRAMM STELLT BEI IHRER"
1030 PRINT"  HARDWARE-UHR DATUM UND ZEIT EIN."
1040 PRINT"  DIE HARDWARE-UHR  KOENNEN SIE NACH"
1050 PRINT"  DER SCHALTUNG DIESER AUSGABE (3/89)"
1060 PRINT"  SELBST BAUEN, ODER BEIM CP-VERLAG"
1070 PRINT"  ALS BAUSATZ (39.-DM) BZW. ALS "
1080 PRINT"  FERTIGMODUL (49.-DM) ERWERBEN."
1085 PRINT"             -TASTE-"
1090 PRINT"       COPYRIGHT 1989 MAGIC DISK"
1100 K=1
1110 LOAD"TIMESET.M",8,1
1120 GETA$:IFA$=""THEN1120
1130 GOTO100