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