DEFINITION MODULE Prompts;
FROM WindowPrims IMPORT ScreenType;
FROM ScrnTypes IMPORT DisplayFrame;

VAR
  StatusScr : ScreenType;
  StatusDisplayed : BOOLEAN;
PROCEDURE DisplayStatus(S1 : ARRAY OF CHAR);
PROCEDURE RemoveDisplay();

PROCEDURE Prompt(S1 : ARRAY OF CHAR);
PROCEDURE PromptStr(S1 : ARRAY OF CHAR; VAR S2 : ARRAY OF CHAR);
PROCEDURE PromptNum(S1 : ARRAY OF CHAR; DefaultNbr : CARDINAL): CARDINAL;
PROCEDURE PromptYN(S1 : ARRAY OF CHAR; DFrame : DisplayFrame ) : BOOLEAN;

END Prompts.