DEFLNG A-Z
DIM z(100)
z(1) = 2
k = 1
FOR i = 3 TO 1000
    FOR j = 1 TO k
        IF i MOD z(j) = 0 THEN EXIT FOR
    NEXT
    IF j > k THEN
       k = k + 1
       z(k) = i
       IF k = 100 THEN EXIT FOR
    END IF
NEXT

FOR i = 1 TO k
    z(i) = z(i) * z(i)
    FOR j = 1 TO i-1
        IF(z(i)-1)MOD z(j)=0 THEN PRINT z(i),z(i)-1, SQR(z(i)); SQR(z(j))
        IF(z(i)+1)MOD z(j)=0 THEN PRINT z(i),z(i)+1, SQR(z(i)); SQR(z(j))
NEXT j, i