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