16 lines
310 B
Text
16 lines
310 B
Text
/* 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
|