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 ;