4 21 1
rem controlla se x0 è divisibile per x1 > 0
rem restituisce x2 = 1 in caso affermativo
rem e x2 = 0 in caso negativo
let x3 = 0
if x0 < x3 goto 13
while x0 >= x3 exit 11
if x0 != x3 goto +3
let x2 = 1
end
let x0 = x0 - x1
next
let x2 = 0
end
while x0 <= x3 exit 19
if x0 != x3 goto +3
let x2 = 1
end
let x0 = x0 + x1
next
let x2 = 0
end