st = ""
port = 1 
baud = 4 
parity = 0
data = 3
stop = 0 
term = 13    !13  or 0 
lens = 255   !255 or length 
to = 200 
!CALL("IOGETSTR", 1, 4, 0, 3, 0, TERM, LEN, 200)
b = call ("iogetstr", port, baud, parity, data, stop, term, lens, to)
put b
put do newline 
get st
put do newline
put st  
get b 
         

