RosettaCodeData/Task/Loops-Break/Simula/loops-break.simula

! Loops/Break - simula67 - 08/03/2017;
begin
  integer num,seed;
  seed:=0;
  while true do
  begin
    num:=randint(1,20,seed);
    outint(num,2); outimage;
    if num=10 then goto lab;
  end;
lab:
end