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