!Send
!send a file to the Stag ZL30 PAL blower through the terminal's printer port,
!using V200 or Wy75 (default) "transparent mode", i.e. the stuff does not
!appear on the screen as it passes through the terminal.
%begin
%include "inc:util.imp"
%string(31)fuseplotfile,device="WY75"
%integer delay=-10,dev

defineparam("Fuseplotfile",fuseplotfile,pammajor!pamnodefault)
defineparam("Terminaltype",device,pammajor)
defineintparam("Delay",delay,pammajor)
processparameters(cliparam)
dev = charno(device,1)&95

%integer start,length
%constinteger esc=27

  %routine transparent mode on
    printsymbol(esc)
    %if dev='W' %start
      printstring("[5i")
    %else
      printsymbol('W')
      newline
    %finish
  %end

  %routine transparent mode off
    printsymbol(esc)
    %if dev='W' %start
      printstring("[4i")
    %else
      printsymbol('X')
    %finish
  %end

  %routine wait(%integer d)
    %if d>0 %start
      d = d+cputime
      %cycle
      %repeatuntil cputime>d
    %else
      %cycle
        d = d+1
      %repeatuntil d>0
    %finish
  %end

  connectfile(fuseplotfile,0,start,length)
  transparent mode on
  %while length>0 %cycle
    length = length-1
    printsymbol(byteinteger(start))
    start = start+1
    wait(delay)
  %repeat
  transparent mode off

%endofprogram
