'  Terne pitagoriche -> Matematica e Calcolatore, sch.8, es.6
DEFDBL A-Z
max = 300
COLOR 11
PRINT : PRINT "Terne pitagoriche  (x^2+y^2=z^2; x, y <="; max; ")"
n.cifre = 15: prec.rel = 5 * 10 ^ -n.cifre: i = 2: n = 0
FOR x = 1 TO max: FOR y = x TO max
    u = (x ^ 2 + y ^ 2) ^ .5#
    GOSUB Ver.Int
    IF intero = 1 THEN
      COLOR 12 + i: PRINT x; y; u; " "; : intero = 0: i = -i: n = n + 1
      IF n \ 50 = n / 50 THEN COLOR 15: INPUT "Enter", x$
    END IF
NEXT: NEXT
COLOR 7
PRINT "FINE"
END

Ver.Int:
IF ABS((INT(u) - u) / u) < prec.rel THEN            ' parte intera inf.
    intero = 1
ELSEIF ABS((INT(u + 1) - u) / u) < prec.rel THEN    ' parte intera sup.
    intero = 1
END IF
RETURN