10 lines
916 B
Rexx
10 lines
916 B
Rexx
/*REXX program demonstrates a FOREVER DO loop with a test to LEAVE (break). */
|
|
/*REXX's RANDOM BIF returns an integer.*/
|
|
do forever /*perform loop until da cows come home.*/
|
|
a=random(19) /*same as: random(0, 19) */
|
|
call charout , right(a, 5) /*show A right─justified, column 1.*/
|
|
if a==10 then leave /*is random #=10? Then cows came home.*/
|
|
b=random(19) /*same as: random(0, 19) */
|
|
say right(b, 5) /*show B right─justified, column 2.*/
|
|
end /*forever*/ /* [↑] CHAROUT , xxx writes to term.*/
|
|
/*stick a fork in it, we're all done. */
|