RosettaCodeData/Task/Loops-Nested/FutureBasic/loops-nested.basic

long a(9,9), i, j
BOOL done = NO

for i = 0 to 9
  for j = 0 to 9
    a(i,j) = rnd(20)
  next
next

for i = 0 to 9
  for j = 0 to 9
    print a(i,j)
    if ( a(i,j) == 20 ) then done = YES : break
  next
  if ( done ) then break
next

HandleEvents