qbasic. построить графики функций

[ZX Spectrum-128]

Нууууу,
Теперь проверьте компилятором и посмотрите, что выходит на экран.

[ZX Spectrum-128]

Dim As Single x,y1,y2,y3 
CLS
FOR x = 3 TO 5 STEP .2
	y1 = atn(x)
	y2 = 1 / x
	y3 = SQR(x)
	PRINT x, y1,y2,y3
Next x
sleep
END

[СТУДЕНТ-БЕДАЛАГА]

проблема такая-программа не правильно рисует график
подскажите где моя ошибка
задание построить графи(и) функции(й)
Y=arctgx. Y=1/x, y=abs(X)
Решение:
10 REM
20 SCREEN 12
30 FOR i = 100 TO 250 STEP 1
40 LET y = arctg(1) * i
50 LET h = COS(i)
60 LET f = i ^ 1 / 2
70 PSET (i, y), 15
80 PSET (h, i), 2
90 PSET (i, f), 15
100 NEXT
110 END
Заранее спасибо!