Browse Source

+ Added exit status check

michael 27 years ago
parent
commit
06690a3731
1 changed files with 5 additions and 2 deletions
  1. 5 2
      docs/linuxex/ex56.pp

+ 5 - 2
docs/linuxex/ex56.pp

@@ -4,7 +4,10 @@ uses linux;
 
 
 { Program to demonstrate the Shell function }
 { Program to demonstrate the Shell function }
 
 
+Var S : Longint;
+
 begin
 begin
-  writeln ('Output of ls -l *.pp');
-  Shell ('ls -l *.pp');
+  Writeln ('Output of ls -l *.pp');
+  S:=Shell ('ls -l *.pp');
+  Writeln ('Command exited wwith status : ',S);
 end.
 end.