#irport.bas
open "com1:",9600,ir as #5
draw -1
while 1
  input n
  put #5,n
  a= fn wait(0.1)
  i=fn serial(5)
  if i>1 then dummy=get$(#5,0)
  n =get$(#5,0)
  t$=str$(n)+"    "
  draw t$,75,60,2
  dummy =get$(#5,0)
wend

