PROGRAM TEST;
TYPE STR=PACKED ARRAY[1..40] OF CHAR;
     PSTR=^STR;
PROCEDURE LIST(DESC:INTEGER;ADDR:PSTR);EXTERN;
PROCEDURE CALL(PROCEDURE COMMAND;PARAMS:STR);EXTERN;
BEGIN
CALL(LIST,' FILEC                                  ');
END.