14 lines
174 B
Text
14 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
|