PROCEDURE CLOCK;

{ Aus der Systemuhr wird eine auswertbare und anzeigbare Uhrzeit gewonnen }
{ und in den Variablem SEK, MIN und STU uebergeben }
{ Diese Variablen muessen im rufenden Programm vereinbart werden }

VAR SEK1   :INTEGER ABSOLUTE $42;
    MIN1   :INTEGER ABSOLUTE $41;
    STU1   :INTEGER ABSOLUTE $40;

BEGIN
SEK:=(SEK1 DIV 16)*10+(SEK1 MOD 16);
MIN:=(LO(MIN1) DIV 16)*10+(MIN1 MOD 16);
STU:=(HI(STU1) DIV 512)*10+(STU1 MOD 16);
END;