PROGRAM DEMO3(INPUT,OUTPUT);
TYPE COMMANDREC=RECORD
     LENGTH:INTEGER;
     DATA:PACKED ARRAY[1..8] OF CHAR
     END;
     PARAMREC=RECORD
     LENGTH:INTEGER;
     DATA:PACKED ARRAY[1..12] OF CHAR
     END;
VAR COMMAND:COMMANDREC;
    PARAM:PARAMREC;
PROCEDURE PCALL(VAR CL,PL:INTEGER);EXTERN;
BEGIN
COMMAND.LENGTH:=6;
COMMAND.DATA:='DEFINE  ';
PARAM.LENGTH:=9;
PARAM.DATA:='3,POUTPUTXXX';
PCALL(COMMAND.LENGTH,PARAM.LENGTH);
END.