4950 IF TOL0" : GOSUB 900 : GOTO 4935