1.     (VBScript语句) XX(89)=462:YY(89)=267
  2.     (VBScript语句) XX(90)=463:YY(90)=267
  3.     (VBScript语句) XX(91)=464:YY(91)=267
  4.     (VBScript语句) XX(92)=465:YY(92)=267
  5.     (VBScript语句) XX(93)=462:YY(93)=268
  6.     (VBScript语句) XX(94)=463:YY(94)=268
  7.     (VBScript语句) XX(95)=464:YY(95)=268
  8.     (VBScript语句) XX(96)=465:YY(96)=268
  9.     (VBScript语句) XX(97)=462:YY(97)=269
  10.     (VBScript语句) XX(98)=463:YY(98)=269
  11.     (VBScript语句) XX(99)=464:YY(99)=269
  12.     (VBScript语句) XX(100)=465:YY(100)=269
  13.     (VBScript语句) XX(101)=462:YY(101)=270
  14.     (VBScript语句) XX(102)=463:YY(102)=270
  15.     (VBScript语句) XX(103)=464:YY(103)=270
  16.     (VBScript语句) XX(104)=465:YY(104)=270
  17.     (VBScript语句) XX(105)=462:YY(105)=271
  18.     (VBScript语句) XX(106)=463:YY(106)=271
  19.     (VBScript语句) XX(107)=464:YY(107)=271
  20.     (VBScript语句) XX(108)=465:YY(108)=271
  21.     (VBScript语句) XX(109)=462:YY(109)=272
  22.     (VBScript语句) XX(110)=463:YY(110)=272
  23.     (VBScript语句) XX(111)=464:YY(111)=272
  24.     (VBScript语句) XX(112)=465:YY(112)=272
  25.     (VBScript语句) XX(113)=462:YY(113)=273
  26.     (VBScript语句) XX(114)=463:YY(114)=273
  27.     (VBScript语句) XX(115)=464:YY(115)=273
  28.     (VBScript语句) XX(116)=465:YY(116)=273
  29.     (VBScript语句) XX(117)=462:YY(117)=274
  30.     (VBScript语句) XX(118)=463:YY(118)=274
  31.     (VBScript语句) XX(119)=464:YY(119)=274
  32.     (VBScript语句) XX(120)=465:YY(120)=274
  33.     (VBScript语句) XX(121)=461:YY(121)=275
  34.     (VBScript语句) XX(122)=462:YY(122)=275
  35.     (VBScript语句) XX(123)=463:YY(123)=275
  36.     (VBScript语句) XX(124)=464:YY(124)=275
  37.     (VBScript语句) XX(125)=465:YY(125)=275
  38.     (VBScript语句) XX(126)=466:YY(126)=275
  39.     (VBScript语句) XX(127)=457:YY(127)=276
  40.     (VBScript语句) XX(128)=458:YY(128)=276
  41.     (VBScript语句) XX(129)=459:YY(129)=276
  42.     (VBScript语句) XX(130)=460:YY(130)=276
  43.     (VBScript语句) XX(131)=461:YY(131)=276
  44.     (VBScript语句) XX(132)=462:YY(132)=276
  45.     (VBScript语句) XX(133)=463:YY(133)=276
  46.     (VBScript语句) XX(134)=464:YY(134)=276
  47.     (VBScript语句) XX(135)=465:YY(135)=276
  48.     (VBScript语句) XX(136)=466:YY(136)=276
  49.     (VBScript语句) XX(137)=467:YY(137)=276
  50.     (VBScript语句) XX(138)=468:YY(138)=276
  51.     (VBScript语句) XX(139)=469:YY(139)=276
  52.     (VBScript语句) XX(140)=470:YY(140)=276
  53.     调用子程序 旋转
  54.     调用子程序 缩小
  55.     调用子程序 提取
  56. 子程序结束,回到调用处
  57. 子程序 2
  58.     dim XX(350),YY(350)
  59.     (VBScript语句) XX(1)=460:YY(1)=245
  60.     (VBScript语句) XX(2)=461:YY(2)=245
  61.     (VBScript语句) XX(3)=462:YY(3)=245
  62.     (VBScript语句) XX(4)=463:YY(4)=245
  63.     (VBScript语句) XX(5)=464:YY(5)=245
  64.     (VBScript语句) XX(6)=465:YY(6)=245
  65.     (VBScript语句) XX(7)=466:YY(7)=245
  66.     (VBScript语句) XX(8)=458:YY(8)=246
  67.     (VBScript语句) XX(9)=459:YY(9)=246
  68.     (VBScript语句) XX(10)=465:YY(10)=246
  69.     (VBScript语句) XX(11)=466:YY(11)=246
  70.     (VBScript语句) XX(12)=467:YY(12)=246
  71.     (VBScript语句) XX(13)=468:YY(13)=246
  72.     (VBScript语句) XX(14)=457:YY(14)=247
  73.     (VBScript语句) XX(15)=458:YY(15)=247
  74.     (VBScript语句) XX(16)=467:YY(16)=247
  75.     (VBScript语句) XX(17)=468:YY(17)=247
  76.     (VBScript语句) XX(18)=469:YY(18)=247
  77.     (VBScript语句) XX(19)=456:YY(19)=248
  78.     (VBScript语句) XX(20)=457:YY(20)=248
  79.     (VBScript语句) XX(21)=467:YY(21)=248
  80.     (VBScript语句) XX(22)=468:YY(22)=248
  81.     (VBScript语句) XX(23)=469:YY(23)=248
  82.     (VBScript语句) XX(24)=455:YY(24)=249
  83.     (VBScript语句) XX(25)=456:YY(25)=249
  84.     (VBScript语句) XX(26)=468:YY(26)=249
  85.     (VBScript语句) XX(27)=469:YY(27)=249
  86.     (VBScript语句) XX(28)=470:YY(28)=249
  87.     (VBScript语句) XX(29)=455:YY(29)=250
  88.     (VBScript语句) XX(30)=456:YY(30)=250
  89.     (VBScript语句) XX(31)=468:YY(31)=250
  90.     (VBScript语句) XX(32)=469:YY(32)=250
  91.     (VBScript语句) XX(33)=470:YY(33)=250
  92.     (VBScript语句) XX(34)=455:YY(34)=251
  93.     (VBScript语句) XX(35)=456:YY(35)=251
  94.     (VBScript语句) XX(36)=468:YY(36)=251
  95.     (VBScript语句) XX(37)=469:YY(37)=251
  96.     (VBScript语句) XX(38)=470:YY(38)=251
  97.     (VBScript语句) XX(39)=454:YY(39)=252
  98.     (VBScript语句) XX(40)=455:YY(40)=252
  99.     (VBScript语句) XX(41)=456:YY(41)=252
  100.     (VBScript语句) XX(42)=457:YY(42)=252