Рисование линии по точкам - QBasic

x2=x1
y2=y1
x1=x0
y1=y0
tt=0
 
IF x2 > x1 THEN sgnx = 1 ELSE sgnx = -1
IF y2 > y1 THEN sgny = 1 ELSE sgny = -1
absx = ABS(x2 - x1)
absy = ABS(y2 - y1)
 
    er = 0
IF absx > absy
        y = y1
        FOR x = x1 TO x2 STEP sgnx
            'PSET (x, y)
            'LOCATE y, x, 0: PRINT "X";
tt=tt+1
mdx(tt)=x
mdy(tt)=y
 
        rem    dot x,y
 
            er = er + absy
            IF 2 * er > absx
                y = y + sgny
                er = er - absx
            ENDIF
        NEXT x
ELSE
        x = x1
        FOR y = y1 TO y2 STEP sgny
            'PSET (x, y)
            'LOCATE y, x, 0: PRINT "X";
 
tt=tt+1
mdx(tt)=x
mdy(tt)=y
 
 
 
 
 
 
 
            rem             dot x,y
 
            er = er + absx
            IF 2 * er > absy
            x = x + sgnx
            er = er - absy
            ENDIF
        NEXT y
ENDIF
return