PROGRAM test;
  uses gpc; { <-- this is needed !!}
var rc: integer; {takes the return code}
BEGIN
  rc:= execute ('ls -l');
  writeln ('ReturnCode=', rc)
END.