QBasic. Графики функций

[Herovata]

всем привет. вот хотел бы поделиться заданием.
Препод сказал, что нужно найти максимум самого "длинного графика" по оси +У и самого дляинного по оси -У. вычесть, что то там найти и ограничить графики.
Чтобы они не по пикселям щитались а по еденичным отрезкам. и чтобы график был урезан (не вылезал за экран)
Не знаю как это реализовать. Прошу помощи.

Задание: Построить графики ф-ий на одной координатной сетке, и вывести всю сопроводительную информацию (оси, 0, х,у, название функций и деления по осям)

Xнач 1 Хконеч 10 шаг 0,01 функция y=EXP(0.4*X)
Хнач 0 Хконеч 10 шаг 0,03 функция y=50+10*X
Хнач 1 Хконеч 10 шаг 0,1 функция y=300/X^2

SCREEN 12
Scale = 20
ZeroX = 320
ZeroY = 230
ScreenHeight = 480

LINE (120, 250)-(520, 250), 15
LINE (510, 247)-(520, 250), 15
LINE (510, 253)-(520, 250), 15
'Îñü Ó
LINE (ZeroX, 50)-(ZeroX, 450), 15 'Îñü Í
LINE (ZeroX, 50)-(317, 60), 15
LINE (ZeroX, 50)-(323, 60), 15

FOR X = 140 TO 500 STEP Scale
    LINE (X, 247)-(X, 253), 15
NEXT X
FOR Y = 70 TO 430 STEP Scale
    LINE (317, Y)-(323, Y), 15
NEXT Y
LOCATE 5, 39: PRINT "Y";
LOCATE 15, 39: PRINT "1";
LOCATE 17, 39: PRINT "0";
LOCATE 17, 43: PRINT "1";
LOCATE 17, 63: PRINT "X";

F = 0
FOR X = -5 TO 10 STEP .003
    Y = 50 + 10 * X
    IF F = 0 THEN
        PSET (X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 2
        F = 1
    END IF
    LINE -(X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 2
NEXT X

F = 0
FOR X = 1 TO 10 STEP .01
    Y = EXP(0.4 * X)
    IF Y * Scale > 32767 THEN EXIT FOR
    IF F = 0 THEN
        PSET (X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 3
        F = 1
    END IF
    LINE -(X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 3
NEXT X

F = 0
FOR X = 1 TO 10 STEP .1
    Y = 300 / X ^ 2
    IF F = 0 THEN
        PSET (X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 4
        F = 1
    END IF
    LINE -(X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 4
NEXT X
LOCATE 2, 17
PRINT "f(x)=50+10*X"
LOCATE 14, 47
PRINT "f(x)=EXP(0.4*X)"
LOCATE 8, 59
PRINT "f(x)=300/X^2"