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