define proc IOPROC = do
define char io_char
if %1 then
    io_char = ci
    portdata =io_char
  else
    io_char = portdata
    write using ('0,>') io_char
  end
end





