1.     如果表达式 (pcolor(11)=1) 为真,则
  2.         strnum="2"
  3.         跳转到标记 合并
  4.     条件结束
  5.     pcolor(5)=Chen8.NewYNColor1(nx+1,ny+2,coor,rdev,gdev,bdev)
  6.     如果表达式 (pcolor(5)=1) 为真,则
  7.         strnum="4"
  8.         跳转到标记 合并
  9.     条件结束
  10.     pcolor(0)=Chen8.NewYNColor1(nx,ny,coor,rdev,gdev,bdev)
  11.     pcolor(4)=Chen8.NewYNColor1(nx,ny+2,coor,rdev,gdev,bdev)
  12.     如果表达式 (pcolor(0)=1 and pcolor(4)=1) 为真,则
  13.         strnum="5"
  14.         跳转到标记 合并
  15.     条件结束
  16.     pcolor(3)=Chen8.NewYNColor1(nx+3,ny+1,coor,rdev,gdev,bdev)
  17.     pcolor(10)=Chen8.NewYNColor1(nx,ny+5,coor,rdev,gdev,bdev)
  18.     如果表达式 (pcolor(3)=1 and pcolor(10)=1) 为真,则
  19.         strnum="6"
  20.         跳转到标记 合并
  21.     条件结束
  22.     如果表达式 (pcolor(0)=1 and pcolor(3)=1) 为真,则
  23.         strnum="7"
  24.         跳转到标记 合并
  25.     条件结束
  26.     pcolor(9)=Chen8.NewYNColor1(nx+1,ny+4,coor,rdev,gdev,bdev)
  27.     如果表达式 (pcolor(9)=1) 为真,则
  28.         strnum="9"
  29.         跳转到标记 合并
  30.     条件结束
  31.     pcolor(7)=Chen8.NewYNColor1(nx+4,ny+3,coor,rdev,gdev,bdev)
  32.     调用插件命令 pcolor(8)=Chen8.NewYNColor1(nx,ny+4,coor,rdev,gdev,bdev)
  33.     如果表达式 (pcolor(7)=1 and pcolor(8)=1) 为真,则
  34.         strnum="0"
  35.         跳转到标记 合并
  36.     条件结束
  37.     如果表达式 (pcolor(4)=1) 为真,则
  38.         strnum="8"
  39.         跳转到标记 合并
  40.     条件结束
  41.     pcolor(6)=Chen8.NewYNColor1(nx,ny+3,coor,rdev,gdev,bdev)
  42.     如果表达式 (pcolor(6)=1) 为真,则
  43.         strnum="-"
  44.         跳转到标记 合并
  45.     条件结束
  46.     pcolor(1)=Chen8.NewYNColor1(nx+1,ny,coor,rdev,gdev,bdev)
  47.     如果表达式 (pcolor(1)=1) 为真,则
  48.         strnum="3"
  49.         跳转到标记 合并
  50.     条件结束
  51.     如果表达式 (point=0) 为真,则
  52.         strnum="."
  53.         point=1
  54.         跳转到标记 合并
  55.     条件结束
  56.     跳转到标记 结束
  57.     标记 合并
  58.     strxy = strxy&strnum
  59.     nx=nx+6
  60.     跳转到标记 读数
  61.     标记 读取结束
  62.     i=InStr(strxy,".")
  63.     如果表达式 (i>1) 为真,则
  64.         如果表达式 (IsNumeric(Left(strXY,i-1)) And IsNumeric(Mid(strxy,i+1))) 为真,则
  65.             curx=CLng(Left(strxy,i-1))
  66.             cury=CLng(Mid(strxy,i+1))
  67.         条件结束
  68.     条件结束
  69.     标记 结束
  70.     如果表达式 (outnumber=1) 为真,则
  71.         myway="我的坐标是"&cstr(curx)&"."&cstr(cury)
  72.         输入文本 myway
  73.         延时8毫秒
  74.         按键<Enter>
  75.     条件结束
  76.     如果表达式 (curx<>0 and cury<>0) 为真,则
  77.         cur=1
  78.     条件结束
  79. 子程序结束,回到调用处