1.     (VBScript语句) XX(238)=471:YY(238)=271
  2.     (VBScript语句) XX(239)=454:YY(239)=272
  3.     (VBScript语句) XX(240)=455:YY(240)=272
  4.     (VBScript语句) XX(241)=456:YY(241)=272
  5.     (VBScript语句) XX(242)=457:YY(242)=272
  6.     (VBScript语句) XX(243)=468:YY(243)=272
  7.     (VBScript语句) XX(244)=469:YY(244)=272
  8.     (VBScript语句) XX(245)=470:YY(245)=272
  9.     (VBScript语句) XX(246)=471:YY(246)=272
  10.     (VBScript语句) XX(247)=454:YY(247)=273
  11.     (VBScript语句) XX(248)=455:YY(248)=273
  12.     (VBScript语句) XX(249)=456:YY(249)=273
  13.     (VBScript语句) XX(250)=457:YY(250)=273
  14.     (VBScript语句) XX(251)=468:YY(251)=273
  15.     (VBScript语句) XX(252)=469:YY(252)=273
  16.     (VBScript语句) XX(253)=470:YY(253)=273
  17.     (VBScript语句) XX(254)=471:YY(254)=273
  18.     (VBScript语句) XX(255)=454:YY(255)=274
  19.     (VBScript语句) XX(256)=455:YY(256)=274
  20.     (VBScript语句) XX(257)=456:YY(257)=274
  21.     (VBScript语句) XX(258)=457:YY(258)=274
  22.     (VBScript语句) XX(259)=468:YY(259)=274
  23.     (VBScript语句) XX(260)=469:YY(260)=274
  24.     (VBScript语句) XX(261)=470:YY(261)=274
  25.     (VBScript语句) XX(262)=471:YY(262)=274
  26.     (VBScript语句) XX(263)=454:YY(263)=275
  27.     (VBScript语句) XX(264)=455:YY(264)=275
  28.     (VBScript语句) XX(265)=456:YY(265)=275
  29.     (VBScript语句) XX(266)=457:YY(266)=275
  30.     (VBScript语句) XX(267)=468:YY(267)=275
  31.     (VBScript语句) XX(268)=469:YY(268)=275
  32.     (VBScript语句) XX(269)=470:YY(269)=275
  33.     (VBScript语句) XX(270)=471:YY(270)=275
  34.     (VBScript语句) XX(271)=451:YY(271)=276
  35.     (VBScript语句) XX(272)=452:YY(272)=276
  36.     (VBScript语句) XX(273)=453:YY(273)=276
  37.     (VBScript语句) XX(274)=454:YY(274)=276
  38.     (VBScript语句) XX(275)=455:YY(275)=276
  39.     (VBScript语句) XX(276)=456:YY(276)=276
  40.     (VBScript语句) XX(277)=457:YY(277)=276
  41.     (VBScript语句) XX(278)=458:YY(278)=276
  42.     (VBScript语句) XX(279)=459:YY(279)=276
  43.     (VBScript语句) XX(280)=460:YY(280)=276
  44.     (VBScript语句) XX(281)=465:YY(281)=276
  45.     (VBScript语句) XX(282)=466:YY(282)=276
  46.     (VBScript语句) XX(283)=467:YY(283)=276
  47.     (VBScript语句) XX(284)=468:YY(284)=276
  48.     (VBScript语句) XX(285)=469:YY(285)=276
  49.     (VBScript语句) XX(286)=470:YY(286)=276
  50.     (VBScript语句) XX(287)=471:YY(287)=276
  51.     (VBScript语句) XX(288)=472:YY(288)=276
  52.     (VBScript语句) XX(289)=473:YY(289)=276
  53.     (VBScript语句) XX(290)=474:YY(290)=276
  54.     调用子程序 旋转
  55.     调用子程序 缩小
  56.     调用子程序 提取
  57. 子程序结束,回到调用处
  58. 子程序 I
  59.     dim XX(350),YY(350)
  60.     (VBScript语句) XX(1)=456:YY(1)=245
  61.     (VBScript语句) XX(2)=457:YY(2)=245
  62.     (VBScript语句) XX(3)=458:YY(3)=245
  63.     (VBScript语句) XX(4)=459:YY(4)=245
  64.     (VBScript语句) XX(5)=460:YY(5)=245
  65.     (VBScript语句) XX(6)=461:YY(6)=245
  66.     (VBScript语句) XX(7)=462:YY(7)=245
  67.     (VBScript语句) XX(8)=463:YY(8)=245
  68.     (VBScript语句) XX(9)=464:YY(9)=245
  69.     (VBScript语句) XX(10)=465:YY(10)=245
  70.     (VBScript语句) XX(11)=466:YY(11)=245
  71.     (VBScript语句) XX(12)=467:YY(12)=245
  72.     (VBScript语句) XX(13)=468:YY(13)=245
  73.     (VBScript语句) XX(14)=469:YY(14)=245
  74.     (VBScript语句) XX(15)=470:YY(15)=245
  75.     (VBScript语句) XX(16)=471:YY(16)=245
  76.     (VBScript语句) XX(17)=462:YY(17)=246
  77.     (VBScript语句) XX(18)=463:YY(18)=246
  78.     (VBScript语句) XX(19)=464:YY(19)=246
  79.     (VBScript语句) XX(20)=465:YY(20)=246
  80.     (VBScript语句) XX(21)=462:YY(21)=247
  81.     (VBScript语句) XX(22)=463:YY(22)=247
  82.     (VBScript语句) XX(23)=464:YY(23)=247
  83.     (VBScript语句) XX(24)=465:YY(24)=247
  84.     (VBScript语句) XX(25)=462:YY(25)=248
  85.     (VBScript语句) XX(26)=463:YY(26)=248
  86.     (VBScript语句) XX(27)=464:YY(27)=248
  87.     (VBScript语句) XX(28)=465:YY(28)=248
  88.     (VBScript语句) XX(29)=462:YY(29)=249
  89.     (VBScript语句) XX(30)=463:YY(30)=249
  90.     (VBScript语句) XX(31)=464:YY(31)=249
  91.     (VBScript语句) XX(32)=465:YY(32)=249
  92.     (VBScript语句) XX(33)=462:YY(33)=250
  93.     (VBScript语句) XX(34)=463:YY(34)=250
  94.     (VBScript语句) XX(35)=464:YY(35)=250
  95.     (VBScript语句) XX(36)=465:YY(36)=250
  96.     (VBScript语句) XX(37)=462:YY(37)=251
  97.     (VBScript语句) XX(38)=463:YY(38)=251
  98.     (VBScript语句) XX(39)=464:YY(39)=251
  99.     (VBScript语句) XX(40)=465:YY(40)=251
  100.     (VBScript语句) XX(41)=462:YY(41)=252