MODULE zaehle;
IMPORT Display;
PROCEDURE ProgMain*;
VAR i: INTEGER;
BEGIN
FOR i := 1 TO 100
DO Display.WriteInt (i,3);
END;
REPEAT UNTIL Display.KeyPressed();
END ProgMain;
END zaehle.
MODULE countdown;
IMPORT Display;
PROCEDURE ProgMain*;
VAR i: INTEGER;
BEGIN
FOR i := 1 TO 100
DO Display.WriteInt (i,3);
END;
REPEAT UNTIL Display.KeyPressed();
END ProgMain;
END countdown.