Initial import

1 files changed, 29 insertions, 0 deletions

diff --git a/system/multiuser/1.7.5/src/print cmd b/system/multiuser/1.7.5/src/print cmd
new file mode 100644
index 0000000..1fcb475
--- /dev/null
+++ b/system/multiuser/1.7.5/src/print cmd
@@ -0,0 +1,29 @@
+ 
+PACKET print cmd DEFINES print, printer : 
+ 
+PROC print :
+
+  print (last param)
+
+ENDPROC print ;
+
+PROC print (TEXT CONST file name) :
+
+  save (file name, task ("PRINTER")) ; 
+ 
+ENDPROC print ;
+
+PROC print (THESAURUS CONST nameset) :
+
+  do (PROC (TEXT CONST) print, nameset)
+
+ENDPROC print ;
+
+TASK PROC printer :
+
+  task ("PRINTER")
+
+ENDPROC printer ;
+
+ENDPACKET print cmd ;
+