$ > BLib.StringIO 1.01 12Apr2005 :  String I/O routines ( =================== 2* v1.00 - uses slow serial file access <& v1.01 - checks for crlf and lfcr F: P: ZY rd(in%) - Read a , , , or terminated string from in% dY ----------------------------------------------------------------------------------- n9ݤrd(i%):A%,B%,A$::A%=#i%:A%<>10A%<>13:A$=A$+A% xGA%=10A%=13#i%:#i%:B%=#i%:A%=B%(B%<>13B%<>10):#i%=#i%-1 =A$ : : I wr(out%,A$) - Write A$ to out%. A$ must include required terminator I ------------------------------------------------------------------- wr(o%,A$):A$="": !A%=1A$:#o%,A$,A%,1):: :