NonBlockingIO: obj
NonBlockingIOSystem:
IO_buf: obj
status: var char -- '!' new data, '?' no data
V: var char -- value of data in buffer
N: var integer -- for simulating buffer
ch: var char -- ditto
scan:
reader: obj
buf: obj Indexed(,char)
next: var integer
top: var integer
get:
out ch: var char
go:
loop: obj