INPUT_TCP 0 a$INPUT_TCP CH a$INPUT_TCP 5 EOL|10 c$INPUT_TCP 3 CHR_C|54 a$INPUT_TCP 3 TMOUT|10 a$INPUT_TCP 2 a$INPUT_TCP 2 CLR_BUF
DOrse_=0INPUT_TCP 0 EOL|10 TMOUT|10 C_TCP_MSG$IF rse_==1 THENPRINT "timeout!" : BREAKEND_IFe=LEN(C_TCP_MSG$)-1POKE 0 (C_TCP_MSG$+e)DUMP C_TCP_MSG$PRINT "rse_" rse_LOOP