REM ******** euklideszi algoritmus ********
DEFLNG A-Z
CLS
be: INPUT "Egyik"; a
INPUT "M sik"; b
a = INT(ABS(a)): b = INT(ABS(b))
IF a = 0 OR b = 0 THEN PRINT "˘cska trkk!": GOTO be
IF b > a THEN c = a: a = b: b = c: c = 0
IF a > 2 * 10 ^ 9 THEN BEEP: PRINT "Ezzel sz”szm”t”lj magad!": GOTO be
oszt: q = INT(a / b)
c = a - b * q
PRINT a; "/"; b; "="; q; ", maradt "; c
IF c = 0 THEN PRINT " ******* lnko="; b; " *******": END
a = b: b = c
GOTO oszt