MODULE Form; (* SJ *)

(* aes module form *)


CONST START* = 0; GROW* = 1; SHRINK* = 2; FINISH* = 3;


PROCEDURE Do* (Tree : LONGINT; Startob : INTEGER) : INTEGER;


PROCEDURE Dial* (Type,Sx,Sy,Sw,Sh,Bx,By,Bw,Bh : INTEGER);


PROCEDURE Alert* (Defbut : INTEGER; Text : ARRAY OF CHAR) : INTEGER;


PROCEDURE Center* (Tree : LONGINT; VAR X,Y,W,H : INTEGER);


END Form.