行政区划定位.mb

mapinfo的代码合集

"19.王集乡"	Calling 	王集乡,
"20.高集乡"	Calling 	高集乡,
"21.桃园乡"	Calling 	桃园乡,
"22.朱集乡"	Calling 	朱集乡,
"23.凤山乡"	Calling 	凤山乡,
"24.苏塘乡"	Calling 	苏塘乡,
"25.朱楼乡"	Calling 	朱楼乡,
"26.庆安乡"	Calling 	庆安乡,
"27.睢城镇"	Calling 	睢城镇
Create Menu "邳州市" AS
"1.红旗乡"	Calling 	红旗乡,
"2.邳城镇"	Calling 	邳城镇,
"3.官湖镇"	Calling 	官湖镇,
"4.陈楼乡"	Calling 	陈楼乡,
"5.白埠乡"	Calling 	白埠乡,
"6.炮车镇"	Calling 	炮车镇,
"7.铁富乡"	Calling 	铁富乡,
"8.港上镇"	Calling 	港上镇,
"9.邹庄镇"	Calling 	邹庄镇,
"10.连防乡"	Calling 	连防乡,
"11.四户镇"	Calling 	四户镇,
"12.岔河乡"	Calling 	岔河乡,
"13.邢楼乡"	Calling 	邢楼乡,
"14.戴庄乡"	Calling 	戴庄乡,
"15.伽口乡"	Calling 	伽口乡,
"16.燕子埠乡" Calling 	燕子埠乡,
"17.车夫山乡" Calling 	车夫山乡,
"18.宿羊山乡" Calling 	宿羊山乡,
"19.徐楼乡"	Calling 	徐楼乡,
"20.滩上乡"	Calling 	滩上乡,
"21.赵墩乡"	Calling 	赵墩乡,
"22.碾庄镇"	Calling 	碾庄镇,
"23.岱山乡"	Calling 	岱山乡,
"24.八义集"	Calling 	八义集,
"25.新桥乡"	Calling 	新桥乡,
"26.薛集乡"	Calling 	薛集乡,
"27.占城乡"	Calling 	占城乡,
"28.土山镇"	Calling 	土山镇,
"29.议堂乡"	Calling 	议堂乡,
"30.八路镇"	Calling 	八路镇,
"31.新河乡"	Calling 	新河乡,
"32.新集乡"	Calling 	新集乡,
"33.张楼乡"	Calling 	张楼乡,
"34.徐塘乡"	Calling 	徐塘乡,
"35.运河镇"	Calling 	运河镇,
"36.陆井乡"	Calling 	陆井乡
Create Menu "新沂市" AS
"1.新安乡"	Calling 	新安乡,
"2.墨河乡"	Calling 	墨河乡,
"3.瓦窑乡"	Calling 	瓦窑乡,
"4.港头镇"	Calling 	港头镇,
"5.唐店乡"	Calling 	唐店乡,
"6.新安镇"	Calling 	新安镇,
"7.草桥镇"	Calling 	草桥镇,
"8.合沟乡"	Calling 	合沟乡,
"9.王楼乡"	Calling 	王楼乡,
"10.窑湾镇"	Calling 	窑湾镇,
"11.堰头乡"	Calling 	堰头乡,
"12.棋盘镇"	Calling 	棋盘镇,
"13.城岗乡"	Calling 	城岗乡,
"14.王庄镇"	Calling 	王庄镇,
"15.新店乡"	Calling 	新店乡,
"16.小湖乡"	Calling 	小湖乡,
"17.邵店乡"	Calling 	邵店乡,
"18.北沟乡"	Calling 	北沟乡,
"19.踢球山乡" Calling 	踢球山乡,
"20.时集乡"	Calling 	时集乡,
"21.高流镇"	Calling 	高流镇,
"22.阿湖镇"	Calling 	阿湖镇,
"23.黑埠乡"	Calling 	黑埠乡,
"24.徐塘庄乡" Calling 	徐塘庄乡,
"25.高塘乡"	Calling 	高塘乡

Create Menu "徐州县市区" AS
   "丰县" As "丰县",   "(-",      
   "沛县" As "沛县",   "(-",
 "铜山县" As "铜山县", "(-", 
 "睢宁县" As "睢宁县", "(-", 
 "邳州市" As "邳州市", "(-",  
 "新沂市" As "新沂市", "(-", 
 "贾汪区" As "贾汪区", "(-", 
 "鼓楼区" As "鼓楼区", "(-",    
 "云龙区" As "云龙区", "(-",  
 "泉山区" As "泉山区", "(-",  
 "九里区" As "九里区"  
 
   Create Menu "行政区划" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
   Create Menu "大型湖泊" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
   Create Menu "大型水库" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
   Create Menu "中型水库" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
 Create Menu "小一型水库" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
 Create Menu "小二型水库" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
   Create Menu "抽水泵站" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
   Create Menu "大型闸门" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
   Create Menu "中型闸门" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"

 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "选择地图" As "选择地图"   
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "行政区划" As "行政区划"     
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "大型湖泊" As "大型湖泊"  
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "大型水库" As "大型水库"   
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "中型水库" As "中型水库"     
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "小一型水库" As "小一型水库"  
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "小二型水库" As "小二型水库"     
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "抽水泵站" As "抽水泵站"
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "大型闸门" As "大型闸门"     
 ALTER MENU bar ADD "空间定位"  ALTER MENU "空间定位" ADD "(-",  "中型闸门" As "中型闸门"
NOTE "程序清单在消息框中，请查看。"
W$="行政区划定位" CLOSE ALL OPEN file W$+".MB"
FOR INPUT AS #3 INPUT #3, z0$
PRINT W$+"程序清单如下:" 
FOR I=1 TO 500 INPUT #3, z0$ 
Z3$=MID$(z0$,17,3)
IF Z3$="请查看" THEN GOTO QW1 END IF
PRINT z0$ NEXT 
QW1: Close File #3
END SUB

 
SUB 定位 
  R3=50 
   Set Map  Zoom R3 Units "mi"           '视图为CN
  Set CoordSys Earth Projection 1, 0
  Set Map  Center (x1, y1)
END SUB
Sub 大泉镇 X1=117.464 Y1=34.4167  CALL 定位  END SUB
Sub 汴塘镇 X1=117.646 Y1=34.4212  CALL 定位  END SUB
Sub 大吴镇 X1=117.399 Y1=34.3462  CALL 定位  END SUB
Sub 江庄乡 X1=117.432 Y1=34.4887  CALL 定位  END SUB
Sub 耿集乡 X1=117.65  Y1=34.3637  CALL 定位  END SUB
Sub 鹿庄乡 X1=117.431 Y1=34.3763  CALL 定位  END SUB
Sub 紫庄镇 X1=117.49  Y1=34.3593  CALL 定位  END SUB
Sub 塔山乡 X1=117.564 Y1=34.3404  CALL 定位  END SUB
Sub 青山泉镇 X1=117.367	Y1=34.4128  CALL 定位 END SUB
Sub 贾汪镇 X1=117.444 Y1=34.4485  CALL 定位  END SUB
Sub 朱庄乡 X1=117.195 Y1=34.2896  CALL 定位  END SUB
Sub 下淀乡 X1=117.255 Y1=34.2877  CALL 定位  END SUB
Sub 狮子山乡 X1=117.219	Y1=34.2457  CALL 定位 END SUB
Sub 奎山乡 X1=117.2 Y1=34.2413  CALL 定位    END SUB
Sub 石屯镇 X1=117.119 Y1=34.3291  CALL 定位 END SUB
Sub 火花乡 X1=117.076 Y1=34.2803  CALL 定位 END SUB
Sub 城关镇 X1=116.587 Y1=34.7012  CALL 定位 END SUB
Sub 宋楼镇 X1=116.601 Y1=34.5714  CALL 定位 END SUB
Sub 大沙河镇 X1=116.622 Y1=34.5407 CALL 定位 END SUB
Sub 梁寨镇 X1=116.751 Y1=34.5013 CALL 定位 END SUB
Sub 华山镇 X1=116.735 Y1=34.6392 CALL 定位 END SUB
Sub 欢口镇 X1=116.672 Y1=34.8724 CALL 定位 END SUB
Sub 赵庄镇 X1=116.468 Y1=34.7428 CALL 定位 END SUB
Sub 刘王楼乡 X1=116.513 Y1=34.6031 CALL 定位 END SUB
Sub 李寨乡 X1=116.637 Y1=34.4982 CALL 定位 END SUB
Sub 范楼乡 X1=116.851 Y1=34.481  CALL 定位 END SUB
Sub 金陵乡 X1=116.792 Y1=34.5449 CALL 定位 END SUB
Sub 黄楼乡 X1=116.705 Y1=34.5774 CALL 定位 END SUB
Sub 套耧乡 X1=116.675 Y1=34.6105 CALL 定位 END SUB
Sub 张五楼乡 X1=116.669 Y1=34.7066  CALL 定位 END SUB
Sub 孙楼乡 X1=116.589 Y1=34.6615 CALL 定位 END SUB
Sub 马楼乡 X1=116.584 Y1=34.7765 CALL 定位 END SUB
Sub 常店乡 X1=116.548 Y1=34.7757 CALL 定位 END SUB
Sub 史小桥乡 X1=116.639 Y1=34.7726 CALL 定位 END SUB
Sub 师寨乡 X1=116.646 Y1=34.8049 CALL 定位 END SUB
Sub 沙庄乡 X1=116.678 Y1=34.9062 CALL 定位 END SUB
Sub 顺河乡 X1=116.554 Y1=34.8413 CALL 定位 END SUB
Sub 和集乡 X1=116.645 Y1=34.8033 CALL 定位 END SUB
Sub 首羡乡 X1=116.456 Y1=34.8505 CALL 定位 END SUB
Sub 王沟乡 X1=116.437 Y1=34.6546 CALL 定位 END SUB
Sub 单楼乡 X1=116.508 Y1=34.6778 CALL 定位 END SUB
Sub 龙固镇 X1=116.802 Y1=34.9063 CALL 定位 END SUB
Sub 杨屯乡 X1=116.879 Y1=34.8828 CALL 定位 END SUB
Sub 大屯镇 X1=116.922 Y1=34.837 CALL 定位 END SUB
Sub 郝寨镇 X1=116.904 Y1=34.8006 CALL 定位 END SUB
Sub 沛城镇 X1=116.933 Y1=34.7385 CALL 定位 END SUB
Sub 湖屯镇 X1=116.982 Y1=34.7566 CALL 定位 END SUB
Sub 鹿湾乡 X1=116.954 Y1= 34.6904 CALL 定位 END SUB
Sub 胡寨乡 X1=117.014 Y1= 34.6737 CALL 定位 END SUB
Sub 魏庙镇 X1=117.053 Y1=34.5986 CALL 定位 END SUB
Sub 五段乡 X1=117.096 Y1=34.5796 CALL 定位 END SUB
Sub 张庄镇 X1=117.015 Y1=34.5154 CALL 定位 END SUB
SuB 崔寨乡 X1=116.98 Y1=34.5724 CALL 定位 END SUB
Sub 张寨乡 X1=116.954 Y1=34.6275 CALL 定位 END SUB
Sub 唐楼乡 X1=116.922 Y1=34.6249 CALL 定位 END SUB
Sub 孟庄乡 X1=116.885 Y1=34.5697 CALL 定位 END SUB
Sub 敬安镇 X1=116.918 Y1=34.4994 CALL 定位 END SUB
Sub 河口乡 X1=116.813 Y1=34.5758 CALL 定位 END SUB
Sub 栖山镇 X1=116.804 Y1=34.6221 CALL 定位 END SUB
Sub 王店乡 X1=116.808 Y1=34.678 CALL 定位 END SUB
Sub 闫集乡 X1=116.832 Y1=34.7208 CALL 定位 END SUB
Sub 鹿楼乡 X1=116.77 Y1=34.7166 CALL 定位 END SUB
Sub 鸳楼乡 X1=116.729 Y1=34.7823 CALL 定位 END SUB
Sub 朱寨乡 X1=116.817 Y1=34.7585 CALL 定位 END SUB
Sub 安国乡 X1=116.829 Y1=34.8306 CALL 定位 END SUB
Sub 朱王庄乡 X1=116.76 Y1=34.8561 CALL 定位 END SUB
Sub 湖西乡 X1=117.006 Y1=34.7205 CALL 定位 END SUB
Sub 何桥乡 X1=116.908 Y1=34.4525 CALL 定位 END SUB
Sub 黄集乡 X1=116.985 Y1=34.4336 CALL 定位 END SUB
Sub 马坡乡 X1=117.066 Y1=34.5153 CALL 定位 END SUB
Sub 郑集镇 X1=117.039 Y1=34.4425 CALL 定位 END SUB
Sub 柳新乡 X1=117.116 Y1=34.3677 CALL 定位 END SUB
Sub 刘集乡 X1=117.057 Y1=34.3555 CALL 定位 END SUB
Sub 夹河乡 X1=117.079 Y1=34.2853 CALL 定位 END SUB
Sub 汉王乡 X1=117.085 Y1=34.1959 CALL 定位 END SUB
Sub 三堡镇 X1=117.17 Y1=34.1319 CALL 定位 END SUB
Sub 棠张镇 X1=117.255 Y1=34.1446 CALL 定位 END SUB
Sub 潘塘乡 X1=117.27 Y1=34.1807 CALL 定位 END SUB
Sub 张集乡 X1=117.375 Y1=34.1366 CALL 定位 END SUB
Sub 房村镇 X1=117.476 Y1=34.085 CALL 定位 END SUB
Sub 郭集乡 X1=117.411 Y1=34.0661 CALL 定位 END SUB
Sub 尹庄乡 X1=117.588 Y1=34.1555 CALL 定位 END SUB
Sub 吴桥乡 X1=117.619 Y1=34.139 CALL 定位 END SUB
Sub 单集乡 X1=117.594 Y1=34.2078 CALL 定位 END SUB
Sub 毛庄乡 X1=117.466 Y1=34.2352 CALL 定位 END SUB
Sub 吴邵乡 X1=117.383 Y1=34.2314 CALL 定位 END SUB
Sub 大庙镇 X1=117.356 Y1=34.2679 CALL 定位 END SUB
Sub 徐庄乡 X1=117.468 Y1=34.2739 CALL 定位 END SUB
Sub 大许乡 X1=117.551 Y1=34.2821 CALL 定位 END SUB
Sub 太山乡 X1=117.6 Y1=34.3023 CALL 定位 END SUB
Sub 茅村乡 X1=117.244 Y1=34.363 CALL 定位 END SUB
Sub 柳泉乡 X1=117.308 Y1=34.4448 CALL 定位 END SUB
Sub 利国乡 X1=117.333 Y1=34.5525 CALL 定位 END SUB
Sub 大黄山乡 X1=117.317 Y1=34.3038 CALL 定位 END SUB
Sub 吕梁乡 X1=117.454 Y1=34.1571 CALL 定位 END SUB
Sub 睢城乡 X1=117.944 Y1=33.9059 CALL 定位 END SUB
Sub 官山乡 X1=117.867 Y1=33.8041 CALL 定位 END SUB
Sub 李集镇 X1=117.782 Y1=33.7719 CALL 定位 END SUB
Sub 黄圩乡 X1=117.865 Y1=33.759 CALL 定位 END SUB
Sub 邱集乡 X1=118.004 Y1=33.7989 CALL 定位 END SUB
Sub 王林乡 X1=118.022 Y1=33.8488 CALL 定位 END SUB
Sub 凌城镇 X1=118.112 Y1=33.8234 CALL 定位 END SUB
Sub 沙集乡 X1=118.127 Y1=33.8959 CALL 定位 END SUB
Sub 刘圩乡 X1=118.055 Y1=33.959 CALL 定位 END SUB
Sub 高作乡 X1=118.038 Y1=33.9099 CALL 定位 END SUB
Sub 梁集乡 X1=117.965 Y1=33.962 CALL 定位 END SUB
Sub 浦塘乡 X1=117.991 Y1=34.0741 CALL 定位 END SUB
Sub 魏集乡 X1=117.956 Y1=34.0237 CALL 定位 END SUB
Sub 古邳镇 X1=117.882 Y1=34.1177 CALL 定位 END SUB
Sub 姚集乡 X1=117.822 Y1=34.0602 CALL 定位 END SUB
Sub 龙集乡 X1=117.84 Y1=33.9824 CALL 定位 END SUB
Sub 张圩乡 X1=117.717 Y1=34.0816 CALL 定位 END SUB
Sub 双沟镇 X1=117.579 Y1=34.039 CALL 定位 END SUB
Sub 王集乡 X1=117.742 Y1=33.9942 CALL 定位 END SUB
Sub 高集乡 X1=117.823 Y1=33.9296 CALL 定位 END SUB
Sub 桃园乡 X1=117.774 Y1=33.8602 CALL 定位 END SUB
Sub 朱集乡 X1=117.849 Y1=33.8757 CALL 定位 END SUB
Sub 凤山乡 X1=117.727 Y1=33.9403 CALL 定位 END SUB
Sub 苏塘乡 X1=117.63 Y1=34.0302 CALL 定位 END SUB
Sub 朱楼乡 X1=117.906 Y1=33.8535 CALL 定位 END SUB
Sub 庆安乡 X1=117.876 Y1=33.9685 CALL 定位 END SUB
Sub 睢城镇 X1=117.939 Y1=33.9014 CALL 定位 END SUB
Sub 红旗乡 X1=117.927 Y1=34.4134 CALL 定位 END SUB
Sub 邳城镇 X1=117.962 Y1=34.4669 CALL 定位 END SUB
Sub 官湖镇 X1=117.996 Y1=34.4262 CALL 定位 END SUB
Sub 陈楼乡 X1=118.048 Y1=34.3922 CALL 定位 END SUB
Sub 白埠乡 X1=118.016 Y1=34.479 CALL 定位 END SUB
Sub 合沟乡 X1=118.121 Y1=34.41 CALL 定位 END SUB
Sub 铁富乡 X1=118.039 Y1=34.537 CALL 定位 END SUB
Sub 港上镇 X1=118.115 Y1=34.5239 CALL 定位 END SUB
Sub 邹庄镇 X1=118.068 Y1=34.5913 CALL 定位 END SUB
Sub 连防乡 X1=117.991 Y1=34.5321 CALL 定位 END SUB
Sub 四户镇 X1=117.966 Y1=34.627 CALL 定位 END SUB
Sub 岔河乡 X1=117.879 Y1=34.5427 CALL 定位 END SUB
Sub 邢楼乡 X1=117.825 Y1=34.5697 CALL 定位 END SUB
Sub 戴庄乡 X1=117.851 Y1=34.512 CALL 定位 END SUB
Sub 伽口乡 X1=117.819 Y1=34.4615 CALL 定位 END SUB
Sub 燕子埠乡 X1=117.701 Y1=34.5067 CALL 定位 END SUB
Sub 车夫山乡 X1=117.749 Y1=34.478 CALL 定位 END SUB
Sub 宿羊山乡 X1=117.753 Y1=34.3947 CALL 定位 END SUB
Sub 徐楼乡 X1=117.771 Y1=34.3479 CALL 定位 END SUB
Sub 滩上乡 X1=117.873 Y1=34.3907 CALL 定位 END SUB
Sub 赵墩乡 X1=117.852 Y1=34.3038 CALL 定位 END SUB
Sub 碾庄镇 X1=117.775 Y1=34.297 CALL 定位 END SUB
Sub 岱山乡 X1=117.679 Y1=34.3303 CALL 定位 END SUB
Sub 八义集 X1=117.683 Y1=34.2717 CALL 定位 END SUB
Sub 新桥乡 X1=117.712 Y1=34.2028 CALL 定位 END SUB
Sub 薛集乡 X1=117.8 Y1=34.2137 CALL 定位 END SUB
Sub 占城乡 X1=117.763 Y1=34.1755 CALL 定位 END SUB
Sub 土山镇 X1=117.835 Y1=34.2255 CALL 定位 END SUB
Sub 议堂乡 X1=117.887 Y1=34.2621 CALL 定位 END SUB
Sub 八路镇 X1=117.911 Y1=34.1871 CALL 定位 END SUB
Sub 新河乡 X1=117.67 Y1=34.2036 CALL 定位 END SUB
Sub 新集乡 X1=117.951 Y1=34.2381 CALL 定位 END SUB
Sub 张楼乡 X1=117.992 Y1=34.2722 CALL 定位 END SUB
Sub 徐塘乡 X1=118.497 Y1=34.4272 CALL 定位 END SUB
Sub 运河镇 X1=117.955 Y1=34.3177 CALL 定位 END SUB
Sub 陆井乡 X1=117.797 Y1=34.1702 CALL 定位 END SUB
Sub 新安乡 X1=118.345 Y1=34.378 CALL 定位 END SUB
Sub 墨河乡 X1=118.302 Y1=34.3779 CALL 定位 END SUB
Sub 瓦窑乡 X1=118.23 Y1=34.3903 CALL 定位 END SUB
Sub 港头镇 X1=118.205 Y1=34.3152 CALL 定位 END SUB
Sub 唐店乡 X1=118.349 Y1=34.2983 CALL 定位 END SUB
Sub 新安镇 X1=118.351 Y1=34.3721 CALL 定位 END SUB
Sub 草桥镇 X1=118.1 Y1=	34.3438 CALL 定位 END SUB
Sub 炮车镇 X1=118.034 Y1=34.3331 CALL 定位 END SUB
Sub 王楼乡 X1=118.087 Y1=34.2452 CALL 定位 END SUB
Sub 窑湾镇 X1=118.068 Y1=34.1767 CALL 定位 END SUB
Sub 堰头乡 X1=118.17 Y1=34.2519 CALL 定位 END SUB
Sub 棋盘镇 X1=118.22 Y1=34.2423 CALL 定位 END SUB
Sub 城岗乡 X1=118.265 Y1=34.2073 CALL 定位 END SUB
Sub 王庄镇 X1=118.365 Y1=34.2031 CALL 定位 END SUB
Sub 新店乡 X1=118.276 Y1=34.1398 CALL 定位 END SUB
Sub 小湖乡 X1=118.339 Y1=34.1419 CALL 定位 END SUB
Sub 邵店乡 X1=118.444 Y1=34.1264 CALL 定位 END SUB
Sub 北沟乡 X1=118.393 Y1=34.3456 CALL 定位 END SUB
Sub 踢球山乡 X1=118.449 Y1=34.2665 CALL 定位 END SUB
Sub 时集乡 X1=118.486 Y1=34.2051 CALL 定位 END SUB
Sub 高流镇 X1=118.519 Y1=34.3164 CALL 定位 END SUB
Sub 阿湖镇 X1=118.61 Y1=34.4292 CALL 定位 END SUB
Sub 黑埠乡 X1=118.596 Y1=34.3772 CALL 定位 END SUB
Sub 徐塘庄乡 X1=118.497 Y1=34.4272 CALL 定位 END SUB
Sub 高塘乡 X1=118.469 Y1=34.3701 CALL 定位 END SUB
SUB 地图 Close All Interactive RUN Application "地图.WOR" R=1 END SUB
SUB 地形图 Close All Interactive RUN Application "地图.WOR" R=2 END SUB
SUB 市区地图 Close All Interactive RUN Application "市区地图.WOR" END SUB
SUB 江苏省地图 Close All Interactive RUN Application "江苏省地图.WOR" END SUB
SUB 中国地图 Close All Interactive RUN Application "中国地图.WOR" END SUB