'irin demo

  dim cmd,device


loop:
  irin 0,cmd,device
  if device = 0 then
    goto loop
  endif

  print cmd
  goto loop