()
Prgm
Disp "enter upper bound"
Input n
2->j
1->k
Lbl a
If SQRT(j^2+k^2)=!iPart(SQRT(j^2+k^2))
Goto b
Disp {j,k,SQRT(j^2+k^2)}
Disp "hit enter for more triples"
Pause
Lbl b
k+1->k
If k<=j-1
Goto a
j+1->j
1->k
If j<=n
Goto a
EndPrgm