RosettaCodeData/Task/Loops-Break/FreeBASIC/loops-break.basic

' FB 1.05.0 Win64

Dim i As Integer
Randomize
Do
  i = Int(Rnd * 20)
  Print Using "##"; i;
  Print "  ";
  If i = 10 Then Exit Do
  i = Int(Rnd * 20)
  Print Using "##"; i;
  Print"  ";
Loop

Print
Sleep