1 files changed, 36 insertions, 0 deletions
diff --git a/system/std.zusatz/1.7.3/src/printer-S b/system/std.zusatz/1.7.3/src/printer-S
new file mode 100644
index 0000000..5124cc4
--- /dev/null
+++ b/system/std.zusatz/1.7.3/src/printer-S
@@ -0,0 +1,36 @@
+PACKET single user print cmd DEFINES print :
+ 
+INT VAR print channel ;
+FILE VAR print file ;
+
+put ("Druckerkanal:") ;
+get (print channel) ;
+
+PROC print :
+
+  print (last param)
+
+ENDPROC print ;
+
+PROC print (TEXT CONST file name) :
+
+  last param (file name) ;
+  print file := sequential file (input, file name) ;
+  continue (print channel) ;
+  disable stop ;
+  execute print ;
+  continue (0)
+
+ENDPROC print ;
+
+PROC execute print :
+
+  enable stop ;
+  IF is elan source (print file)
+    THEN elan list (print file)
+    ELSE print (print file)
+  FI
+
+ENDPROC execute print ;
+
+ENDPACKET single user print cmd ;