PROGRAM DEMO2(INFILE);
TYPE STRING15=PACKED ARRAY[1..15] OF CHAR;
VAR INFILE:TEXT;
PROCEDURE PPROMPT(S:STRING15);EXTERN;
BEGIN
PPROMPT('HELLO THERE    ');
RESET(INFILE);
END.