!TM set transparent mode on or off
%begin
%include "inc:util.imp"
%byte device=0,onoff=0
%constinteger esc=27

defineenumparam("ON,OFF",onoff,pammajor!pamnodefault)
defineenumparam("V200,Wy75",device,pammajor)
processparameters(cliparam)

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

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

  %if onoff=0 %then transparent mode on %else transparent mode off

%endofprogram
