1 CLS
2 SCREEN 12
3 PRINT "1     5    10     15    20    25     30    35    40    45     50    55    60"
4 FOR uhr = 10 TO 600 STEP 10: PSET (uhr, 20): NEXT
5 DO WHILE INKEY$ = ""
6 FOR punkt = 0 TO 600 STEP 50: PSET (punkt, 20), 9: NEXT
7 LOCATE 6, 1: PRINT "Stunden"
8 LOCATE 12, 1: PRINT "Minuten"
9 LOCATE 18, 1: PRINT "Sekunden"
10 PSET (240, 20), 2: PSET (1, 1), 0
11 LOCATE 26, 1: PRINT TIME$
12 Zeit$ = TIME$
13 stunde$ = MID$(Zeit$, 1, 2)
14 minute$ = MID$(Zeit$, 4, 2)
15 sekund$ = MID$(Zeit$, 7, 9)
16 DRAW "c0 m0,100 c2 r" + stunde$ + "0 c2 U79 d79 l10 u1 c0 u78"
17 IF sekund$ = "00" THEN GOTO 1
18 DRAW "c0 m0,200 c4 r" + minute$ + "0 c4 U179 d179 l10 u1 c0 u178"
19 DRAW "c0 m0,300 c14 r" + sekund$ + "0 c14 u279 d279 l10 u1 c0 u278"
20 LOOP