Сформировать точку, движующуюся оп эллиптической траектории с заданными параметрами- QBasic(Бейсик)

CONST Pi = 3.14159265358979#, Gr = Pi / 180
CLS
INPUT "Vvedite celochislennyj radius(10-50):"; Radius
INPUT "Vvedite drobnuj aspect(0-2):"; Aspect
IF Radius < 10 THEN Radius = 10
IF Radius > 50 THEN Radius = 50
IF Aspect < 0 THEN Aspect = 0
IF Aspect > 2 THEN Aspect = 2
SCREEN 7, , 1, 0
u% = 0
DO: CLS 1
    u% = u% + 1: IF u% > 359 THEN u% = 0
    x% = SIN(u% * Gr) * Radius
    y% = COS(u% * Gr) * Radius * Aspect
    PSET (x% + 160, 100 - y%), 15
    PCOPY 1, 0
LOOP UNTIL INKEY$ <> ""