13 lines
174 B
Text
13 lines
174 B
Text
PROCEDURE Loop()
|
|
|
|
LOCAL n
|
|
|
|
DO WHILE .T.
|
|
? n := hb_RandomInt( 0, 19 )
|
|
IF n == 10
|
|
EXIT
|
|
ENDIF
|
|
? hb_RandomInt( 0, 19 )
|
|
ENDDO
|
|
|
|
RETURN
|