Преглед на файлове

+ Added exit status check

michael преди 27 години
родител
ревизия
06690a3731
променени са 1 файла, в които са добавени 5 реда и са изтрити 2 реда
  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 }
 
+Var S : Longint;
+
 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.