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 ;