Выполнить табулирование функции- QBasic(Бейсик)

x-[3;63] с шагом 0,4
вывести на экран все значения (x,y) системы:
f(x)= ln(x+1), x<30
5-arcsin(x/6-6), x>=30 и х<=42
sqr(x-3), x>42

CLS
WIDTH 80, 50
max = 0
FOR x = 3 TO 63.1 STEP .4
    IF x < 30 THEN y = LOG(x + 1) ELSE IF x >= 30 AND x <= 42 THEN y = 5 - ATN((x / 6 - 6) / SQR(1 - (x / 6 - 6) ^ 2)) ELSE y = SQR(x - 3)
    LOCATE 1 + i MOD (45), 2 + 20 * (i \ 45): PRINT USING "##.##"; x; y
    IF max < y THEN max = y: xmax = x
    i = i + 1
NEXT x
LOCATE 46, 1: PRINT "наибольшее значение f("; xmax; ")="; max