PROCEDURE COUNTER;

{ Aus der Systemuhr wird eine auswertbare und anzeigbare Counter gewonnen }
{ und in den Variablem COS, COM und COH uebergeben }
{ Diese Variablen muessen im rufenden Programm vereinbart werden }

{ Durch Uebergabe von SCO   =   0 wird der Counter voreingestellt }
{ Waehrend des Betriebes gibt SCO die Summer der Sekunden an      }
{ Die Variable wird vom rufenden Programm bereitgestellt          }

VAR   SEK         :INTEGER ABSOLUTE $42;
      SEK1,SEK2   :INTEGER;
BEGIN
SEK2:=(SEK DIV 16)*10+(SEK MOD 16);
IF (SCO=0) THEN
   BEGIN
       SEK1:=SEK2;
       SCO:=1;
   END
ELSE
      BEGIN
          IF (SEK1<SEK2) OR ((SEK2=0) AND (SEK1<>0)) THEN
             BEGIN
                 SEK1:=SEK2;
                 COS:=COS-1;
                 SCO:=SCO+1;
                 IF COS<0 THEN
                    BEGIN
                        COM:=COM-1;
                        COS:=59;
                        IF COM<0 THEN
                           BEGIN
                               COH:=COH-1;
                               COM:=59;
                               IF COH<0 THEN SCO:=0;
                           END;
                    END;
             END;
      END;
END;