RosettaCodeData/Task/Loops-Break/PL-I/loops-break.pli

do forever;
   k = trunc(random()*20);
   put (k);
   if k = 10 then leave;
   k = trunc(random()*20);
   put skip list (k);
end;
langs a-z 2013-04-10 22:43:41 -07:00			`do forever;`
Just another update 2015-02-20 00:35:01 -05:00			`k = trunc(random()*20);`
langs a-z 2013-04-10 22:43:41 -07:00			`put (k);`
			`if k = 10 then leave;`
Just another update 2015-02-20 00:35:01 -05:00			`k = trunc(random()*20);`
langs a-z 2013-04-10 22:43:41 -07:00			`put skip list (k);`
			`end;`