RosettaCodeData/Task/Loops-Break/Oforth/loops-break.fth

6 lines
113 B
Forth

while(true) [
19 rand dup print ":" print
10 == ifTrue: [ break ]
19 rand print " " print
]