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