Вычислить корни уравнения - QBasic (27330)

Формулировка задачи:

Вычислить корни уравнения. 2*X-3*ln(X)-3=0 Помогите пожалуйста написать. Я написал программу , но она не выдаёт нужных значений:

CLS
y = 0
e = 1 * 10 ^ -3
FOR X = .5 TO .6 STEP e
1 :
RANDOMIZE TIMER
x=(RND*10)
y = X * 2 - 3 * ln(X) - 3
IF y = 0 GOTO 2 ELSE GOTO 1
2 :
PRINT "0 = "; X; "*2 - 3*ln("; X; ")-3"
NEXT
END

Такой способ тоже не работает

CLS
e=!*10^3
FOR X = .5 TO .6 STEP .001
y = 2*X - 3*ln(X)-3
IF ABS(y) = 0 THEN PRINT X
NEXT

Решение задачи: «Вычислить корни уравнения»

Листинг программы

REM OTBET:  x = 3.28325
 
CLS
CONST eps = .000001
INPUT "X = "; x
 
DO
   x1 = 1.5 * (LOG(x) + 1)
   IF ABS(x - x1) < eps THEN EXIT DO
   x = x1
LOOP
 
PRINT x
END

Объяснение кода листинга программы

Задается константа eps, которая определяет точность вычислений (0.000001).
Пользователю предлагается ввести значение переменной X.
Выполняется цикл DO, который будет выполняться до тех пор, пока значение переменной x не станет достаточно маленьким (по сравнению с eps), чтобы считать его корнем уравнения.
Внутри цикла вычисляется значение переменной x1, которое является приближенным значением корня уравнения. Для этого используется формула 1.5 * (LOG(x) + 1).
Сравнивается разница между текущим значением x и x1. Если она меньше eps, то цикл прекращается и значение x заменяется на x1.
После выхода из цикла DO выводится значение переменной x, которое является корнем уравнения.
Значение переменной x, которое является корнем уравнения, сохраняется в переменной x.