ループを抜ける初歩的な方法には、 GOTO number という方法があります。 たとえば次のようなプログラムです。
PRINT " ある自然数よりも大きくてそれに最も近いピタゴラス数 "
PRINT " ( ピタゴラス数 = m ^ 2 + n ^ 2 : m, n は自然数 ) "
INPUT PROMPT " 基準とする自然数は? " : n
LET n0 = n
LET C = 0
DO
LET n = n + 1
FOR i = 1 TO SQR ( n ) − 1
LET m = INT ( SQR ( n − i ^ 2 ) )
IF m ^ 2 + i ^ 2 = n THEN GOTO 10
NEXT i
10 LET C = C + 1
IF m ^ 2 + i ^ 2 = n THEN GOTO 20
LOOP
20 PRINT " " ; n ; " = " ; m ; " ^ 2 + " ; i ; " ^ 2 "
PRINT " それは " ; n0 ; " よりも " ; C ; " 大きい数です。"
END
もう少し格好良くするには、 EXIT FOR や EXIT DO を用います。
十進