From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 system/base/1.7.5/src/local manager 2 | 41 +++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 system/base/1.7.5/src/local manager 2

(limited to 'system/base/1.7.5/src/local manager 2')

diff --git a/system/base/1.7.5/src/local manager 2 b/system/base/1.7.5/src/local manager 2
new file mode 100644
index 0000000..8f70301
--- /dev/null
+++ b/system/base/1.7.5/src/local manager 2	
@@ -0,0 +1,41 @@
+ 
+PACKET local manager part 2 DEFINES            (* Autor: J.Liedtke *)
+                                               (* Stand: 25.02.85  *)
+  list :
+ 
+ 
+TEXT VAR file name, status text;
+
+
+PROC list :
+ 
+  disable stop ;
+  DATASPACE VAR ds := nilspace ;
+  FILE VAR list file := sequential file (output, ds) ;
+  headline (list file, "list") ;
+  list (list file) ;
+  show (list file) ;
+  forget (ds) .
+ 
+ENDPROC list ;
+ 
+PROC list (FILE VAR f) :
+ 
+  enable stop ;
+  begin list ;
+  putline (f, "") ;
+  REP
+    get list entry (file name, status text) ;
+    IF file name = ""
+      THEN LEAVE list
+    FI ;
+    write (f, status text + "  """ ) ;
+    write (f, file name) ;
+    write (f, """") ;
+    line (f)
+  PER .
+ 
+ENDPROC list ;
+ 
+ENDPACKET local manager part 2 ;
+
-- 
cgit v1.2.3