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