RosettaCodeData/Task/Loops-Break/NetRexx/loops-break.netrexx

17 lines
310 B
Plaintext

/* NetRexx */
options replace format comments java crossref savelog symbols nobinary
say
say 'Loops/Break'
rn = Rexx
rnd = Random()
loop label lb forever
rn = rnd.nextInt(19)
say rn.right(3)'\-'
if rn = 10 then leave lb
rn = rnd.nextInt(19)
say rn.right(3)'\-'
end lb
say