' Erweiterter euklidischer Algorithmus

INPUT "1. Zahl"; a&
INPUT "2. Zahl"; b&
IF b& > a& THEN
  SWAP a&, b&
END IF

a1& = a&
b1& = b&
x& = 0&
y& = 1&
x1& = 1&
y1& = 0&
DO
  q& = a1& \ b1&
  b2& = a1& MOD b1&
  x2& = x1& - q& * x&
  y2& = y1& - q& * y&
  x1& = x&
  y1& = y&
  x& = x2&
  y& = y2&
  a1& = b1&
  b1& = b2&
  PRINT x&; y&
LOOP UNTIL b1& = 0&
PRINT "ggT("; a&; ","; b&; ")="; x1&; "*"; a&; "+"; y1&; "*"; b&; "="; x1& * a& + y1& * b&