> TestClient :  *FX7,8 ( *FX8,8 2 "FX3":::"FX2":: <"SERIAL TUBE TEST" F"Flushing":read P Zsend("TEST>") d "Calling rdline":A$=rdline n"Returned string: '"A$"'" xA%=cli(A$) "Returned data:" read:0  : &ݤcli(A$):send(&9B+2+A$+13):=0 0ݤrdline:send(&9B+10+255+32+255+7+0) ""FX2,1": <>&9B:"FX2,2":="" A%=:x(A%):A%=0:err:="" @A$="":A%=:x(A%):A$=A$+A%:A%=13:"FX2,2":'':=A$,A$-1) : Jerr:A$="":A%=:x(A%):A$=A$+A%:A%=0:"FX2,2":''"Error: "A$,2): 'cmd(A$): "FX3":::"FX2":: send(&9B+2+A$+13):*FX2,1 #A%=:A%=64:A%=:A%:A%=&9B:  x(A%)  read: ": ,7send(A$): A$<>"": A%=1 A$:tx(A$,A%,1)): 6 @"tx(A%):"FX3,3":A%:"FX3": Jread:"FX2,1":A%=(100) TA%>=0:x(A%) ^A%<0:':"FX2,2": h: r=x(A%):h0(A%,2);8;8;10;c(A%);9;9;11;: >76:'' | #ݤh0(A%,N%)="0000000"+~A%,N%) 1ݤc(A%):A%=A%127:A%<32 A%=127:="." =A%