ohmega bidirectional /bin/umodem rev.2d STOP ,.....|........................., :r | *==================* : ------#->!send [(W,S),(W,E)]!-+ : : v *==================* v : :*=============* | *===========*: :!case N of S,E!-#>!send[(N,E)]!- :*=============* | *===========*: : | *=======* | : : +>!split W!----#----------+ : : *=======* v | : : | *==================* | : : +>!send[(Inl(W,N),S)]! | : : *==================* v : : | *=====* : : +----->!use r!-- : *=====* : ,..............................., ,.......................|..., :rev v : :*===============* *=====* : :!send[(Inr(),E)]!->!use r!-- :*===============* *=====* : ,..........................., STOP ./verify rev rev.2d