eleje:
INPUT "modulus"; m
CLS
PRINT "modulus:"; m
a = 2
k = 1
ketszerez:
k = k + 1
a = a * 2
IF a > m THEN a = a - m
PRINT "kitevo:"; k, "maradek:"; a
IF a = 1 THEN GOTO eleje
GOTO ketszerez