1.     （VBScript语句） XX(212)=467:YY(212)=265
  2.     （VBScript语句） XX(213)=468:YY(213)=265
  3.     （VBScript语句） XX(214)=456:YY(214)=266
  4.     （VBScript语句） XX(215)=457:YY(215)=266
  5.     （VBScript语句） XX(216)=458:YY(216)=266
  6.     （VBScript语句） XX(217)=459:YY(217)=266
  7.     （VBScript语句） XX(218)=460:YY(218)=266
  8.     （VBScript语句） XX(219)=465:YY(219)=266
  9.     （VBScript语句） XX(220)=466:YY(220)=266
  10.     （VBScript语句） XX(221)=467:YY(221)=266
  11.     （VBScript语句） XX(222)=468:YY(222)=266
  12.     （VBScript语句） XX(223)=456:YY(223)=267
  13.     （VBScript语句） XX(224)=457:YY(224)=267
  14.     （VBScript语句） XX(225)=458:YY(225)=267
  15.     （VBScript语句） XX(226)=459:YY(226)=267
  16.     （VBScript语句） XX(227)=460:YY(227)=267
  17.     （VBScript语句） XX(228)=465:YY(228)=267
  18.     （VBScript语句） XX(229)=466:YY(229)=267
  19.     （VBScript语句） XX(230)=467:YY(230)=267
  20.     （VBScript语句） XX(231)=468:YY(231)=267
  21.     （VBScript语句） XX(232)=456:YY(232)=268
  22.     （VBScript语句） XX(233)=457:YY(233)=268
  23.     （VBScript语句） XX(234)=458:YY(234)=268
  24.     （VBScript语句） XX(235)=459:YY(235)=268
  25.     （VBScript语句） XX(236)=460:YY(236)=268
  26.     （VBScript语句） XX(237)=465:YY(237)=268
  27.     （VBScript语句） XX(238)=466:YY(238)=268
  28.     （VBScript语句） XX(239)=467:YY(239)=268
  29.     （VBScript语句） XX(240)=468:YY(240)=268
  30.     （VBScript语句） XX(241)=456:YY(241)=269
  31.     （VBScript语句） XX(242)=457:YY(242)=269
  32.     （VBScript语句） XX(243)=458:YY(243)=269
  33.     （VBScript语句） XX(244)=459:YY(244)=269
  34.     （VBScript语句） XX(245)=465:YY(245)=269
  35.     （VBScript语句） XX(246)=466:YY(246)=269
  36.     （VBScript语句） XX(247)=467:YY(247)=269
  37.     （VBScript语句） XX(248)=468:YY(248)=269
  38.     （VBScript语句） XX(249)=456:YY(249)=270
  39.     （VBScript语句） XX(250)=457:YY(250)=270
  40.     （VBScript语句） XX(251)=458:YY(251)=270
  41.     （VBScript语句） XX(252)=459:YY(252)=270
  42.     （VBScript语句） XX(253)=466:YY(253)=270
  43.     （VBScript语句） XX(254)=467:YY(254)=270
  44.     （VBScript语句） XX(255)=468:YY(255)=270
  45.     （VBScript语句） XX(256)=457:YY(256)=271
  46.     （VBScript语句） XX(257)=458:YY(257)=271
  47.     （VBScript语句） XX(258)=459:YY(258)=271
  48.     （VBScript语句） XX(259)=466:YY(259)=271
  49.     （VBScript语句） XX(260)=467:YY(260)=271
  50.     （VBScript语句） XX(261)=457:YY(261)=272
  51.     （VBScript语句） XX(262)=458:YY(262)=272
  52.     （VBScript语句） XX(263)=459:YY(263)=272
  53.     （VBScript语句） XX(264)=466:YY(264)=272
  54.     （VBScript语句） XX(265)=467:YY(265)=272
  55.     （VBScript语句） XX(266)=457:YY(266)=273
  56.     （VBScript语句） XX(267)=458:YY(267)=273
  57.     （VBScript语句） XX(268)=466:YY(268)=273
  58.     （VBScript语句） XX(269)=467:YY(269)=273
  59.     （VBScript语句） XX(270)=457:YY(270)=274
  60.     （VBScript语句） XX(271)=458:YY(271)=274
  61.     （VBScript语句） XX(272)=466:YY(272)=274
  62.     （VBScript语句） XX(273)=467:YY(273)=274
  63.     （VBScript语句） XX(274)=457:YY(274)=275
  64.     （VBScript语句） XX(275)=458:YY(275)=275
  65.     （VBScript语句） XX(276)=466:YY(276)=275
  66.     （VBScript语句） XX(277)=467:YY(277)=275
  67.     （VBScript语句） XX(278)=457:YY(278)=276
  68.     （VBScript语句） XX(279)=458:YY(279)=276
  69.     （VBScript语句） XX(280)=466:YY(280)=276
  70.     （VBScript语句） XX(281)=467:YY(281)=276
  71.     调用子程序 旋转
  72.     调用子程序 缩小
  73.     调用子程序 提取
  74. 子程序结束,回到调用处
  75. 子程序 X
  76.     dim XX(350),YY(350)
  77.     （VBScript语句） XX(1)=453:YY(1)=245
  78.     （VBScript语句） XX(2)=454:YY(2)=245
  79.     （VBScript语句） XX(3)=455:YY(3)=245
  80.     （VBScript语句） XX(4)=456:YY(4)=245
  81.     （VBScript语句） XX(5)=457:YY(5)=245
  82.     （VBScript语句） XX(6)=458:YY(6)=245
  83.     （VBScript语句） XX(7)=459:YY(7)=245
  84.     （VBScript语句） XX(8)=460:YY(8)=245
  85.     （VBScript语句） XX(9)=461:YY(9)=245
  86.     （VBScript语句） XX(10)=466:YY(10)=245
  87.     （VBScript语句） XX(11)=467:YY(11)=245
  88.     （VBScript语句） XX(12)=468:YY(12)=245
  89.     （VBScript语句） XX(13)=469:YY(13)=245
  90.     （VBScript语句） XX(14)=470:YY(14)=245
  91.     （VBScript语句） XX(15)=471:YY(15)=245
  92.     （VBScript语句） XX(16)=472:YY(16)=245
  93.     （VBScript语句） XX(17)=473:YY(17)=245
  94.     （VBScript语句） XX(18)=456:YY(18)=246
  95.     （VBScript语句） XX(19)=457:YY(19)=246
  96.     （VBScript语句） XX(20)=458:YY(20)=246
  97.     （VBScript语句） XX(21)=459:YY(21)=246
  98.     （VBScript语句） XX(22)=468:YY(22)=246
  99.     （VBScript语句） XX(23)=469:YY(23)=246
  100.     （VBScript语句） XX(24)=470:YY(24)=246