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