1.     (VBScript语句) XX(143)=458:YY(143)=265
  2.     (VBScript语句) XX(144)=455:YY(144)=266
  3.     (VBScript语句) XX(145)=456:YY(145)=266
  4.     (VBScript语句) XX(146)=457:YY(146)=266
  5.     (VBScript语句) XX(147)=458:YY(147)=266
  6.     (VBScript语句) XX(148)=455:YY(148)=267
  7.     (VBScript语句) XX(149)=456:YY(149)=267
  8.     (VBScript语句) XX(150)=457:YY(150)=267
  9.     (VBScript语句) XX(151)=458:YY(151)=267
  10.     (VBScript语句) XX(152)=455:YY(152)=268
  11.     (VBScript语句) XX(153)=456:YY(153)=268
  12.     (VBScript语句) XX(154)=457:YY(154)=268
  13.     (VBScript语句) XX(155)=458:YY(155)=268
  14.     (VBScript语句) XX(156)=455:YY(156)=269
  15.     (VBScript语句) XX(157)=456:YY(157)=269
  16.     (VBScript语句) XX(158)=457:YY(158)=269
  17.     (VBScript语句) XX(159)=458:YY(159)=269
  18.     (VBScript语句) XX(160)=455:YY(160)=270
  19.     (VBScript语句) XX(161)=456:YY(161)=270
  20.     (VBScript语句) XX(162)=457:YY(162)=270
  21.     (VBScript语句) XX(163)=458:YY(163)=270
  22.     (VBScript语句) XX(164)=472:YY(164)=270
  23.     (VBScript语句) XX(165)=455:YY(165)=271
  24.     (VBScript语句) XX(166)=456:YY(166)=271
  25.     (VBScript语句) XX(167)=457:YY(167)=271
  26.     (VBScript语句) XX(168)=458:YY(168)=271
  27.     (VBScript语句) XX(169)=472:YY(169)=271
  28.     (VBScript语句) XX(170)=455:YY(170)=272
  29.     (VBScript语句) XX(171)=456:YY(171)=272
  30.     (VBScript语句) XX(172)=457:YY(172)=272
  31.     (VBScript语句) XX(173)=458:YY(173)=272
  32.     (VBScript语句) XX(174)=471:YY(174)=272
  33.     (VBScript语句) XX(175)=472:YY(175)=272
  34.     (VBScript语句) XX(176)=455:YY(176)=273
  35.     (VBScript语句) XX(177)=456:YY(177)=273
  36.     (VBScript语句) XX(178)=457:YY(178)=273
  37.     (VBScript语句) XX(179)=458:YY(179)=273
  38.     (VBScript语句) XX(180)=470:YY(180)=273
  39.     (VBScript语句) XX(181)=471:YY(181)=273
  40.     (VBScript语句) XX(182)=455:YY(182)=274
  41.     (VBScript语句) XX(183)=456:YY(183)=274
  42.     (VBScript语句) XX(184)=457:YY(184)=274
  43.     (VBScript语句) XX(185)=458:YY(185)=274
  44.     (VBScript语句) XX(186)=469:YY(186)=274
  45.     (VBScript语句) XX(187)=470:YY(187)=274
  46.     (VBScript语句) XX(188)=471:YY(188)=274
  47.     (VBScript语句) XX(189)=455:YY(189)=275
  48.     (VBScript语句) XX(190)=456:YY(190)=275
  49.     (VBScript语句) XX(191)=457:YY(191)=275
  50.     (VBScript语句) XX(192)=458:YY(192)=275
  51.     (VBScript语句) XX(193)=468:YY(193)=275
  52.     (VBScript语句) XX(194)=469:YY(194)=275
  53.     (VBScript语句) XX(195)=470:YY(195)=275
  54.     (VBScript语句) XX(196)=471:YY(196)=275
  55.     (VBScript语句) XX(197)=452:YY(197)=276
  56.     (VBScript语句) XX(198)=453:YY(198)=276
  57.     (VBScript语句) XX(199)=454:YY(199)=276
  58.     (VBScript语句) XX(200)=455:YY(200)=276
  59.     (VBScript语句) XX(201)=456:YY(201)=276
  60.     (VBScript语句) XX(202)=457:YY(202)=276
  61.     (VBScript语句) XX(203)=458:YY(203)=276
  62.     (VBScript语句) XX(204)=459:YY(204)=276
  63.     (VBScript语句) XX(205)=460:YY(205)=276
  64.     (VBScript语句) XX(206)=461:YY(206)=276
  65.     (VBScript语句) XX(207)=462:YY(207)=276
  66.     (VBScript语句) XX(208)=463:YY(208)=276
  67.     (VBScript语句) XX(209)=464:YY(209)=276
  68.     (VBScript语句) XX(210)=465:YY(210)=276
  69.     (VBScript语句) XX(211)=466:YY(211)=276
  70.     (VBScript语句) XX(212)=467:YY(212)=276
  71.     (VBScript语句) XX(213)=468:YY(213)=276
  72.     (VBScript语句) XX(214)=469:YY(214)=276
  73.     (VBScript语句) XX(215)=470:YY(215)=276
  74.     (VBScript语句) XX(216)=471:YY(216)=276
  75.     调用子程序 旋转
  76.     调用子程序 缩小
  77.     调用子程序 提取
  78. 子程序结束,回到调用处
  79. 子程序 F
  80.     dim XX(350),YY(350)
  81.     (VBScript语句) XX(1)=452:YY(1)=245
  82.     (VBScript语句) XX(2)=453:YY(2)=245
  83.     (VBScript语句) XX(3)=454:YY(3)=245
  84.     (VBScript语句) XX(4)=455:YY(4)=245
  85.     (VBScript语句) XX(5)=456:YY(5)=245
  86.     (VBScript语句) XX(6)=457:YY(6)=245
  87.     (VBScript语句) XX(7)=458:YY(7)=245
  88.     (VBScript语句) XX(8)=459:YY(8)=245
  89.     (VBScript语句) XX(9)=460:YY(9)=245
  90.     (VBScript语句) XX(10)=461:YY(10)=245
  91.     (VBScript语句) XX(11)=462:YY(11)=245
  92.     (VBScript语句) XX(12)=463:YY(12)=245
  93.     (VBScript语句) XX(13)=464:YY(13)=245
  94.     (VBScript语句) XX(14)=465:YY(14)=245
  95.     (VBScript语句) XX(15)=466:YY(15)=245
  96.     (VBScript语句) XX(16)=467:YY(16)=245
  97.     (VBScript语句) XX(17)=468:YY(17)=245
  98.     (VBScript语句) XX(18)=469:YY(18)=245
  99.     (VBScript语句) XX(19)=470:YY(19)=245
  100.     (VBScript语句) XX(20)=471:YY(20)=245