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