%begin; !CUSTOM: Prepare to obey machine-specific command file
!Changed to NIMP JHB 31/10/84

%include "inc:util.imp"
%include "inc:fs.imp"
%include "inc:chario.imp"

%constbytearray b(0:15)=
'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'

%routine try(%string(255)s)
  %onevent 3,4,9 %start
    %return
  %finish
  openinput(1,s);              !Fail if S doesn't exist
  selectinput(0); closeinput;  !Close previous
  openinput(0,s);              !Open S
  selectinput(1); closeinput;  !Close test stream
%end

%string(255)p

  p = "custom:".tostring(b(ldte>>4&15)).tostring(b(ldte&15)).cliparam
  try(p) %unless pendsymbol=' '

%end
