1.     (VBScript语句) XX(125)=459:YY(125)=268
  2.     (VBScript语句) XX(126)=466:YY(126)=268
  3.     (VBScript语句) XX(127)=467:YY(127)=268
  4.     (VBScript语句) XX(128)=468:YY(128)=268
  5.     (VBScript语句) XX(129)=458:YY(129)=269
  6.     (VBScript语句) XX(130)=459:YY(130)=269
  7.     (VBScript语句) XX(131)=466:YY(131)=269
  8.     (VBScript语句) XX(132)=467:YY(132)=269
  9.     (VBScript语句) XX(133)=468:YY(133)=269
  10.     (VBScript语句) XX(134)=458:YY(134)=270
  11.     (VBScript语句) XX(135)=466:YY(135)=270
  12.     (VBScript语句) XX(136)=467:YY(136)=270
  13.     (VBScript语句) XX(137)=468:YY(137)=270
  14.     (VBScript语句) XX(138)=469:YY(138)=270
  15.     (VBScript语句) XX(139)=457:YY(139)=271
  16.     (VBScript语句) XX(140)=458:YY(140)=271
  17.     (VBScript语句) XX(141)=467:YY(141)=271
  18.     (VBScript语句) XX(142)=468:YY(142)=271
  19.     (VBScript语句) XX(143)=469:YY(143)=271
  20.     (VBScript语句) XX(144)=457:YY(144)=272
  21.     (VBScript语句) XX(145)=467:YY(145)=272
  22.     (VBScript语句) XX(146)=468:YY(146)=272
  23.     (VBScript语句) XX(147)=469:YY(147)=272
  24.     (VBScript语句) XX(148)=470:YY(148)=272
  25.     (VBScript语句) XX(149)=456:YY(149)=273
  26.     (VBScript语句) XX(150)=457:YY(150)=273
  27.     (VBScript语句) XX(151)=468:YY(151)=273
  28.     (VBScript语句) XX(152)=469:YY(152)=273
  29.     (VBScript语句) XX(153)=470:YY(153)=273
  30.     (VBScript语句) XX(154)=456:YY(154)=274
  31.     (VBScript语句) XX(155)=457:YY(155)=274
  32.     (VBScript语句) XX(156)=468:YY(156)=274
  33.     (VBScript语句) XX(157)=469:YY(157)=274
  34.     (VBScript语句) XX(158)=470:YY(158)=274
  35.     (VBScript语句) XX(159)=471:YY(159)=274
  36.     (VBScript语句) XX(160)=455:YY(160)=275
  37.     (VBScript语句) XX(161)=456:YY(161)=275
  38.     (VBScript语句) XX(162)=457:YY(162)=275
  39.     (VBScript语句) XX(163)=468:YY(163)=275
  40.     (VBScript语句) XX(164)=469:YY(164)=275
  41.     (VBScript语句) XX(165)=470:YY(165)=275
  42.     (VBScript语句) XX(166)=471:YY(166)=275
  43.     (VBScript语句) XX(167)=472:YY(167)=275
  44.     (VBScript语句) XX(168)=452:YY(168)=276
  45.     (VBScript语句) XX(169)=453:YY(169)=276
  46.     (VBScript语句) XX(170)=454:YY(170)=276
  47.     (VBScript语句) XX(171)=455:YY(171)=276
  48.     (VBScript语句) XX(172)=456:YY(172)=276
  49.     (VBScript语句) XX(173)=457:YY(173)=276
  50.     (VBScript语句) XX(174)=458:YY(174)=276
  51.     (VBScript语句) XX(175)=459:YY(175)=276
  52.     (VBScript语句) XX(176)=466:YY(176)=276
  53.     (VBScript语句) XX(177)=467:YY(177)=276
  54.     (VBScript语句) XX(178)=468:YY(178)=276
  55.     (VBScript语句) XX(179)=469:YY(179)=276
  56.     (VBScript语句) XX(180)=470:YY(180)=276
  57.     (VBScript语句) XX(181)=471:YY(181)=276
  58.     (VBScript语句) XX(182)=472:YY(182)=276
  59.     (VBScript语句) XX(183)=473:YY(183)=276
  60.     (VBScript语句) XX(184)=474:YY(184)=276
  61.     调用子程序 旋转
  62.     调用子程序 缩小
  63.     调用子程序 提取
  64. 子程序结束,回到调用处
  65. 子程序 Y
  66.     dim XX(350),YY(350)
  67.     (VBScript语句) XX(1)=452:YY(1)=245
  68.     (VBScript语句) XX(2)=453:YY(2)=245
  69.     (VBScript语句) XX(3)=454:YY(3)=245
  70.     (VBScript语句) XX(4)=455:YY(4)=245
  71.     (VBScript语句) XX(5)=456:YY(5)=245
  72.     (VBScript语句) XX(6)=457:YY(6)=245
  73.     (VBScript语句) XX(7)=458:YY(7)=245
  74.     (VBScript语句) XX(8)=459:YY(8)=245
  75.     (VBScript语句) XX(9)=460:YY(9)=245
  76.     (VBScript语句) XX(10)=465:YY(10)=245
  77.     (VBScript语句) XX(11)=466:YY(11)=245
  78.     (VBScript语句) XX(12)=467:YY(12)=245
  79.     (VBScript语句) XX(13)=468:YY(13)=245
  80.     (VBScript语句) XX(14)=469:YY(14)=245
  81.     (VBScript语句) XX(15)=470:YY(15)=245
  82.     (VBScript语句) XX(16)=471:YY(16)=245
  83.     (VBScript语句) XX(17)=472:YY(17)=245
  84.     (VBScript语句) XX(18)=473:YY(18)=245
  85.     (VBScript语句) XX(19)=454:YY(19)=246
  86.     (VBScript语句) XX(20)=455:YY(20)=246
  87.     (VBScript语句) XX(21)=456:YY(21)=246
  88.     (VBScript语句) XX(22)=457:YY(22)=246
  89.     (VBScript语句) XX(23)=468:YY(23)=246
  90.     (VBScript语句) XX(24)=469:YY(24)=246
  91.     (VBScript语句) XX(25)=470:YY(25)=246
  92.     (VBScript语句) XX(26)=471:YY(26)=246
  93.     (VBScript语句) XX(27)=455:YY(27)=247
  94.     (VBScript语句) XX(28)=456:YY(28)=247
  95.     (VBScript语句) XX(29)=457:YY(29)=247
  96.     (VBScript语句) XX(30)=468:YY(30)=247
  97.     (VBScript语句) XX(31)=469:YY(31)=247
  98.     (VBScript语句) XX(32)=470:YY(32)=247
  99.     (VBScript语句) XX(33)=455:YY(33)=248
  100.     (VBScript语句) XX(34)=456:YY(34)=248