RosettaCodeData/Task/Loops-Break/S-BASIC/loops-break-1.basic

var n = integer

while (1 = 1) do
  begin
    n = int(rnd(1) * 20)
    print n;
    if n = 10 then goto 0_done
    n = int(rnd(1) * 20)
    print n
  end
0_done print " That's all!"

end