program CMDPROG (input,output,info);

var info       : string[1024];
    cmd_error  : shortint;
    cmd_parm   : shortint;

procedure HPCICOMMAND ; intrinsic;

begin

  strappend(info,#13);
  HPCICOMMAND (info, cmd_error, cmd_parm, 2);

end.