PR uhr
;* ############# Leitprozedur; MK im Februar 2008 ################
   BILD
   LS
   DZ [Abbruch mit ESC-Taste!]
   VOLLBILD
   SA VI
   FARBE 0 0 0
   zifferblatt
   uhrstellen
   AUFKURS :std
   stunde
   AUFKURS :min
   minute
   AUFKURS 0
   sekunde
ENDE

PR zifferblatt
   BILD
   SETZE "ziffer" 0
   SH VW 250 SA
   RE 90
   WH 12 [WH 30 [VW (PI*250/180) RE 1] RE 90 VW 10 RW 10 LI 90 SETZE "x" XKO SETZE "y" YKO SH LI 90 VW 30 SA SETZE "ziffer" :ziffer + 1 SCHREIBE :ziffer SH AUFXY :x :y SA RE 90]
   SH MITTE SA
ENDE

PR uhrstellen
   SETZE "std" REST ER .ZEIT 12
   SETZE "min" ELEMENT 2 .ZEIT
   SETZE "std" (:std * 30) + (:min * 0.5)
   SETZE "min" :min * 6
ENDE

PR stunde
   MITTE
   FARBE 0 0 0
   LI 90 VW 4 RE 90
   WH 4 [VW 130 RE 90 VW 1 RE 90 VW 130 LI 90 VW 1 LI 90]
   VW 130
   SETZE "std" KURS
   MITTE
ENDE

PR stundelöschen
   MITTE
   AUFKURS :std
   FARBE 255 255 255
   LI 90 VW 4 RE 90
   WH 4 [VW 130 RE 90 VW 1 RE 90 VW 130 LI 90 VW 1 LI 90]
   VW 130
   MITTE
ENDE

PR minute
   MITTE
   FARBE 0 0 0
   LI 90 VW 2 RE 90
   WH 2 [VW 180 RE 90 VW 1 RE 90 VW 180 LI 90 VW 1 LI 90]
   VW 180
   SETZE "min" KURS
   MITTE
ENDE

PR minutelöschen
   MITTE
   AUFKURS :min
   FARBE 255 255 255
   LI 90 VW 2 RE 90
   WH 2 [VW 180 RE 90 VW 1 RE 90 VW 180 LI 90 VW 1 LI 90]
   VW 180
   MITTE
ENDE

PR sekunde
   FARBE 255 0 0
   VW 210
   PAUSE 10
   FARBE 255 255 255
   RW 210
   RE 6
   WENN KURS = 0 DANN minutelöschen AUFKURS :min + 6 minute stundelöschen AUFKURS :std + 0.5 stunde AUFKURS 0
   MITTE
   sekunde
ENDE