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