1.     （VBScript语句） XX(172)=456:YY(172)=270
  2.     （VBScript语句） XX(173)=457:YY(173)=270
  3.     （VBScript语句） XX(174)=458:YY(174)=270
  4.     （VBScript语句） XX(175)=459:YY(175)=270
  5.     （VBScript语句） XX(176)=464:YY(176)=270
  6.     （VBScript语句） XX(177)=465:YY(177)=270
  7.     （VBScript语句） XX(178)=466:YY(178)=270
  8.     （VBScript语句） XX(179)=470:YY(179)=270
  9.     （VBScript语句） XX(180)=471:YY(180)=270
  10.     （VBScript语句） XX(181)=472:YY(181)=270
  11.     （VBScript语句） XX(182)=455:YY(182)=271
  12.     （VBScript语句） XX(183)=456:YY(183)=271
  13.     （VBScript语句） XX(184)=457:YY(184)=271
  14.     （VBScript语句） XX(185)=458:YY(185)=271
  15.     （VBScript语句） XX(186)=459:YY(186)=271
  16.     （VBScript语句） XX(187)=465:YY(187)=271
  17.     （VBScript语句） XX(188)=466:YY(188)=271
  18.     （VBScript语句） XX(189)=467:YY(189)=271
  19.     （VBScript语句） XX(190)=470:YY(190)=271
  20.     （VBScript语句） XX(191)=471:YY(191)=271
  21.     （VBScript语句） XX(192)=472:YY(192)=271
  22.     （VBScript语句） XX(193)=456:YY(193)=272
  23.     （VBScript语句） XX(194)=457:YY(194)=272
  24.     （VBScript语句） XX(195)=458:YY(195)=272
  25.     （VBScript语句） XX(196)=459:YY(196)=272
  26.     （VBScript语句） XX(197)=465:YY(197)=272
  27.     （VBScript语句） XX(198)=466:YY(198)=272
  28.     （VBScript语句） XX(199)=467:YY(199)=272
  29.     （VBScript语句） XX(200)=469:YY(200)=272
  30.     （VBScript语句） XX(201)=470:YY(201)=272
  31.     （VBScript语句） XX(202)=471:YY(202)=272
  32.     （VBScript语句） XX(203)=457:YY(203)=273
  33.     （VBScript语句） XX(204)=458:YY(204)=273
  34.     （VBScript语句） XX(205)=459:YY(205)=273
  35.     （VBScript语句） XX(206)=465:YY(206)=273
  36.     （VBScript语句） XX(207)=466:YY(207)=273
  37.     （VBScript语句） XX(208)=467:YY(208)=273
  38.     （VBScript语句） XX(209)=468:YY(209)=273
  39.     （VBScript语句） XX(210)=469:YY(210)=273
  40.     （VBScript语句） XX(211)=470:YY(211)=273
  41.     （VBScript语句） XX(212)=458:YY(212)=274
  42.     （VBScript语句） XX(213)=459:YY(213)=274
  43.     （VBScript语句） XX(214)=466:YY(214)=274
  44.     （VBScript语句） XX(215)=467:YY(215)=274
  45.     （VBScript语句） XX(216)=468:YY(216)=274
  46.     （VBScript语句） XX(217)=469:YY(217)=274
  47.     （VBScript语句） XX(218)=459:YY(218)=275
  48.     （VBScript语句） XX(219)=460:YY(219)=275
  49.     （VBScript语句） XX(220)=461:YY(220)=275
  50.     （VBScript语句） XX(221)=466:YY(221)=275
  51.     （VBScript语句） XX(222)=467:YY(222)=275
  52.     （VBScript语句） XX(223)=468:YY(223)=275
  53.     （VBScript语句） XX(224)=461:YY(224)=276
  54.     （VBScript语句） XX(225)=462:YY(225)=276
  55.     （VBScript语句） XX(226)=463:YY(226)=276
  56.     （VBScript语句） XX(227)=464:YY(227)=276
  57.     （VBScript语句） XX(228)=465:YY(228)=276
  58.     （VBScript语句） XX(229)=466:YY(229)=276
  59.     （VBScript语句） XX(230)=467:YY(230)=276
  60.     （VBScript语句） XX(231)=468:YY(231)=276
  61.     （VBScript语句） XX(232)=467:YY(232)=277
  62.     （VBScript语句） XX(233)=468:YY(233)=277
  63.     （VBScript语句） XX(234)=469:YY(234)=277
  64.     （VBScript语句） XX(235)=472:YY(235)=277
  65.     （VBScript语句） XX(236)=467:YY(236)=278
  66.     （VBScript语句） XX(237)=468:YY(237)=278
  67.     （VBScript语句） XX(238)=469:YY(238)=278
  68.     （VBScript语句） XX(239)=470:YY(239)=278
  69.     （VBScript语句） XX(240)=471:YY(240)=278
  70.     （VBScript语句） XX(241)=472:YY(241)=278
  71.     （VBScript语句） XX(242)=467:YY(242)=279
  72.     （VBScript语句） XX(243)=468:YY(243)=279
  73.     （VBScript语句） XX(244)=469:YY(244)=279
  74.     （VBScript语句） XX(245)=470:YY(245)=279
  75.     （VBScript语句） XX(246)=471:YY(246)=279
  76.     （VBScript语句） XX(247)=468:YY(247)=280
  77.     （VBScript语句） XX(248)=469:YY(248)=280
  78.     （VBScript语句） XX(249)=470:YY(249)=280
  79.     调用子程序 旋转
  80.     调用子程序 缩小
  81.     调用子程序 提取
  82. 子程序结束,回到调用处
  83. 子程序 R
  84.     dim XX(350),YY(350)
  85.     （VBScript语句） XX(1)=452:YY(1)=245
  86.     （VBScript语句） XX(2)=453:YY(2)=245
  87.     （VBScript语句） XX(3)=454:YY(3)=245
  88.     （VBScript语句） XX(4)=455:YY(4)=245
  89.     （VBScript语句） XX(5)=456:YY(5)=245
  90.     （VBScript语句） XX(6)=457:YY(6)=245
  91.     （VBScript语句） XX(7)=458:YY(7)=245
  92.     （VBScript语句） XX(8)=459:YY(8)=245
  93.     （VBScript语句） XX(9)=460:YY(9)=245
  94.     （VBScript语句） XX(10)=461:YY(10)=245
  95.     （VBScript语句） XX(11)=462:YY(11)=245
  96.     （VBScript语句） XX(12)=463:YY(12)=245
  97.     （VBScript语句） XX(13)=464:YY(13)=245
  98.     （VBScript语句） XX(14)=465:YY(14)=245
  99.     （VBScript语句） XX(15)=466:YY(15)=245
  100.     （VBScript语句） XX(16)=455:YY(16)=246