CLS
x% = 4
y% = 13
DIM a%(2), b%(2)
a%(1) = 1
b%(1) = 0
a%(2) = 0
b%(2) = 1
PRINT x%, y%, a%(1), b%(1), a%(2), b%(2)
DO
    quotient% = y% \ x%
    y% = y% - x% * quotient%
    a%(2) = a%(2) - quotient% * a%(1)
    b%(2) = b%(2) - quotient% * b%(1)
    PRINT x%, y%, a%(1), b%(1), a%(2), b%(2)
    IF (y% = 0) THEN STOP
    quotient% = x% \ y%
    x% = x% - y% * quotient%
    a%(1) = a%(1) - quotient% * a%(2)
    b%(1) = b%(1) - quotient% * b%(2)
    PRINT x%, y%, a%(1), b%(1), a%(2), b%(2)
    IF (x% = 0) THEN STOP
LOOP
STOP
END