begin ; !CUSTOM: Prepare to obey machine-specific command file

option  "-nocheck-nodiag"

include  "inc:util.imp"
include  "inc:fs.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)

end