10 IF A=1 THEN 40
20 A=1
30 LOAD "UHR ASS",8,1
40 POKE 1019,1
41 REM ** FLAG FUER -UHR AN- SETZEN **
50 PRINT "BITTE UHRZEIT EINGEBEN"
60 SYS 12288
61 REM ** UHR EINSCHALTEN **
70 INPUT "STUNDEN ";A
73 IF A<0 OR A>23 THEN 70
77 POKE 1023,A
80 INPUT "MINUTEN ";A
83 IF A<0 OR A>59 THEN 80
87 POKE 1022,A
90 INPUT "SEKUNDEN ";A
93 IF A<0 OR A>59 THEN 90
97 POKE 1021,A
100 PRINT "ANZEIGE AUS : POKE 1019,0"
110 PRINT "ANZEIGE AN  : POKE 1019,1"
120 PRINT "UHR ABSCHALTEN : SYS 12320"