From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 11 Feb 2019 11:49:19 +0100 Subject: Add source files from Michael --- system/std.zusatz/1.7.3/src/printer-S | 36 +++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 system/std.zusatz/1.7.3/src/printer-S (limited to 'system/std.zusatz/1.7.3/src/printer-S') 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 ; -- cgit v1.2.3