STR_REPLACE((char*)inpbuf, "BIN$(", "BASE$(2,");
  STR_REPLACE((char*)inpbuf, "OCT$(", "BASE$(8,");
  STR_REPLACE((char*)inpbuf, "HEX$(", "BASE$(16,");

 '
 TCP CLIENT "localhost", 6800
 DO
   INC n
   PRINT n
   nprint "Testing my server"
   nprintat 30,20,"Here "+STR$(n)
   IF MM.ERRNO = 16 THEN
     PRINT "Comms lost"
   ENDIF
   PRINT
'on error skip
'tcp receive rec$
   PAUSE(3000)
 LOOP UNTIL rec$ = "quit"
 
 TCP CLOSE
END
 
SUB nprint txt$
 ON ERROR SKIP 1
 TCP SEND txt$+CHR$(13)+CHR$(10)
END SUB
 
SUB nprintat xpos,ypos, txt$
tosend$ = VTpos$(ypos, xpos)+txt$+CHR$(13)+CHR$(10)
 ON ERROR SKIP 1
 TCP SEND tosend$
END SUB
 
FUNCTION VTpos$(r,c)
 VTpos$ = CHR$(27)+"["+STR$(r)+";"+STR$(c)+"H"
END FUNCTION

 do
   input "Resistance (1 to 999.9)? ", r
   if r = 0 then end
 loop until r =< 999.9 and r => 1
 do
   input "Within percent (1 t0 2)? ", tol
 loop until tol => 1 and tol =< 2
 print "Done"
 print "Done"
 print "Done"