下例设置了一个无限循环，但定义了一个 on escape 过程来跳出循环。 set escape on on escape do stopit wait window 'press esc to stop loop' nowait glmoreloop = .t. do while glmoreloop enddo return procedure stopit glmoreloop = .f. return