** proc test
clea
lssec =seco()
do whil seco()-lssec<30
set colo to rgb(rand()*254,rand()*254,rand()*254,,,)
@ rand()*20,rand()*80 say "这是外层嵌套~ "
do whil .t.
wait wind at rand()*20,rand()*80 "这是内层嵌套~ " time 0.1
exit
enddo
enddo
messagebox("嵌套运行 已结束, 你明白了嘛 ??","")
retu