MODULE HelloWorld3;
IMPORT
WMDialogs;
PROCEDURE Hello*;
VAR name : ARRAY 32 OF CHAR;
BEGIN
IF WMDialogs.QueryString("What is your name ?", name) = WMDialogs.ResOk THEN
WMDialogs.Information("Hello", name);
ELSE
WMDialogs.Information("Arrgh", "You need to press Ok otherwise it is aborted");
END;
END Hello;
END HelloWorld3.
SystemTools.Free HelloWorld2 ~
HelloWorld3.Hello ~