Как нарисовать линию по точкам?

DECLARE SUB BresenhamLine(x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER)
 
SCREEN 12
BresenhamLine(103, 222, 175, 104)
BresenhamLine(22, 103, 375, 204)
BresenhamLine(603, 322, 75, 404)
BresenhamLine(3, 402, 625, 54)
SLEEP
 
SUB BresenhamLine(x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER)
    DIM x AS INTEGER, y AS INTEGER, er AS INTEGER
    DIM sgnx AS INTEGER, sgny AS INTEGER, absx AS INTEGER, absy AS INTEGER
    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 THEN
        y = y1
        FOR x = x1 TO x2 STEP sgnx
           PSET (x, y)
           er = er + absy
           IF 2 * er > absx THEN
                y = y + sgny
                er = er - absx
           END IF
        NEXT x
    ELSE
        x = x1
        FOR y = y1 TO y2 STEP sgny
           PSET (x, y)
           er = er + absx
           IF 2 * er > absy THEN
                x = x + sgnx
                er = er - absy
           END IF
        NEXT y
    END IF
END SUB