system/std.zusatz/1.7.3/src/printer-S


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 ;