1. 子程序 08
  2.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  3.     如果表达式 (x>a and y>b) 为真,则
  4.         按键<Num 2>
  5.         a=x+e
  6.         c=a+f
  7.         x=0
  8.         y=0
  9.     否则
  10.         调用子程序 09
  11.     条件结束
  12. 子程序结束,回到调用处
  13. 子程序 09
  14.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  15.     如果表达式 (x>a and y>b) 为真,则
  16.         按键<Num 1>
  17.         a=x+e
  18.         c=a+f
  19.         x=0
  20.         y=0
  21.     否则如果(c>g)为真,则
  22.         x=0
  23.         y=0
  24.         n=0
  25.     否则
  26.         c=c+e
  27.     条件结束
  28. 子程序结束,回到调用处