17 lines
310 B
Text
17 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
|