DECLARE Freedom,
Egality,
Fraternity;

DECLARE Hordó INPUT DEVICE,
AdagolóCsap OUTPUT DEVICE,
Hőmérsék INTEGER, Szomj REAL;

BEGIN

IF Szomj>0 THEN DO
OPEN Hordó;
GET Korsó;
USE AdagolóCsap;
ON OVERFLOW CALL TakarítóNő;
END;

ON ENDFILE Hordó DO
CLOSE Hordó;
CALL Utánpótlás;
END;