1.     (VBScript语句) XX(217)=468:YY(217)=272
  2.     (VBScript语句) XX(218)=469:YY(218)=272
  3.     (VBScript语句) XX(219)=470:YY(219)=272
  4.     (VBScript语句) XX(220)=455:YY(220)=273
  5.     (VBScript语句) XX(221)=456:YY(221)=273
  6.     (VBScript语句) XX(222)=457:YY(222)=273
  7.     (VBScript语句) XX(223)=458:YY(223)=273
  8.     (VBScript语句) XX(224)=468:YY(224)=273
  9.     (VBScript语句) XX(225)=469:YY(225)=273
  10.     (VBScript语句) XX(226)=470:YY(226)=273
  11.     (VBScript语句) XX(227)=455:YY(227)=274
  12.     (VBScript语句) XX(228)=456:YY(228)=274
  13.     (VBScript语句) XX(229)=457:YY(229)=274
  14.     (VBScript语句) XX(230)=458:YY(230)=274
  15.     (VBScript语句) XX(231)=468:YY(231)=274
  16.     (VBScript语句) XX(232)=469:YY(232)=274
  17.     (VBScript语句) XX(233)=470:YY(233)=274
  18.     (VBScript语句) XX(234)=455:YY(234)=275
  19.     (VBScript语句) XX(235)=456:YY(235)=275
  20.     (VBScript语句) XX(236)=457:YY(236)=275
  21.     (VBScript语句) XX(237)=458:YY(237)=275
  22.     (VBScript语句) XX(238)=469:YY(238)=275
  23.     (VBScript语句) XX(239)=470:YY(239)=275
  24.     (VBScript语句) XX(240)=471:YY(240)=275
  25.     (VBScript语句) XX(241)=452:YY(241)=276
  26.     (VBScript语句) XX(242)=453:YY(242)=276
  27.     (VBScript语句) XX(243)=454:YY(243)=276
  28.     (VBScript语句) XX(244)=455:YY(244)=276
  29.     (VBScript语句) XX(245)=456:YY(245)=276
  30.     (VBScript语句) XX(246)=457:YY(246)=276
  31.     (VBScript语句) XX(247)=458:YY(247)=276
  32.     (VBScript语句) XX(248)=459:YY(248)=276
  33.     (VBScript语句) XX(249)=460:YY(249)=276
  34.     (VBScript语句) XX(250)=461:YY(250)=276
  35.     (VBScript语句) XX(251)=469:YY(251)=276
  36.     (VBScript语句) XX(252)=470:YY(252)=276
  37.     (VBScript语句) XX(253)=471:YY(253)=276
  38.     (VBScript语句) XX(254)=472:YY(254)=276
  39.     (VBScript语句) XX(255)=473:YY(255)=276
  40.     (VBScript语句) XX(256)=474:YY(256)=276
  41.     调用子程序 旋转
  42.     调用子程序 缩小
  43.     调用子程序 提取
  44. 子程序结束,回到调用处
  45. 子程序 S
  46.     dim XX(350),YY(350)
  47.     (VBScript语句) XX(1)=459:YY(1)=245
  48.     (VBScript语句) XX(2)=460:YY(2)=245
  49.     (VBScript语句) XX(3)=461:YY(3)=245
  50.     (VBScript语句) XX(4)=462:YY(4)=245
  51.     (VBScript语句) XX(5)=463:YY(5)=245
  52.     (VBScript语句) XX(6)=464:YY(6)=245
  53.     (VBScript语句) XX(7)=465:YY(7)=245
  54.     (VBScript语句) XX(8)=466:YY(8)=245
  55.     (VBScript语句) XX(9)=457:YY(9)=246
  56.     (VBScript语句) XX(10)=458:YY(10)=246
  57.     (VBScript语句) XX(11)=459:YY(11)=246
  58.     (VBScript语句) XX(12)=465:YY(12)=246
  59.     (VBScript语句) XX(13)=466:YY(13)=246
  60.     (VBScript语句) XX(14)=467:YY(14)=246
  61.     (VBScript语句) XX(15)=468:YY(15)=246
  62.     (VBScript语句) XX(16)=469:YY(16)=246
  63.     (VBScript语句) XX(17)=470:YY(17)=246
  64.     (VBScript语句) XX(18)=456:YY(18)=247
  65.     (VBScript语句) XX(19)=457:YY(19)=247
  66.     (VBScript语句) XX(20)=467:YY(20)=247
  67.     (VBScript语句) XX(21)=468:YY(21)=247
  68.     (VBScript语句) XX(22)=469:YY(22)=247
  69.     (VBScript语句) XX(23)=470:YY(23)=247
  70.     (VBScript语句) XX(24)=455:YY(24)=248
  71.     (VBScript语句) XX(25)=456:YY(25)=248
  72.     (VBScript语句) XX(26)=457:YY(26)=248
  73.     (VBScript语句) XX(27)=468:YY(27)=248
  74.     (VBScript语句) XX(28)=469:YY(28)=248
  75.     (VBScript语句) XX(29)=470:YY(29)=248
  76.     (VBScript语句) XX(30)=454:YY(30)=249
  77.     (VBScript语句) XX(31)=455:YY(31)=249
  78.     (VBScript语句) XX(32)=456:YY(32)=249
  79.     (VBScript语句) XX(33)=469:YY(33)=249
  80.     (VBScript语句) XX(34)=470:YY(34)=249
  81.     (VBScript语句) XX(35)=454:YY(35)=250
  82.     (VBScript语句) XX(36)=455:YY(36)=250
  83.     (VBScript语句) XX(37)=456:YY(37)=250
  84.     (VBScript语句) XX(38)=469:YY(38)=250
  85.     (VBScript语句) XX(39)=470:YY(39)=250
  86.     (VBScript语句) XX(40)=454:YY(40)=251
  87.     (VBScript语句) XX(41)=455:YY(41)=251
  88.     (VBScript语句) XX(42)=456:YY(42)=251
  89.     (VBScript语句) XX(43)=470:YY(43)=251
  90.     (VBScript语句) XX(44)=471:YY(44)=251
  91.     (VBScript语句) XX(45)=453:YY(45)=252
  92.     (VBScript语句) XX(46)=454:YY(46)=252
  93.     (VBScript语句) XX(47)=455:YY(47)=252
  94.     (VBScript语句) XX(48)=456:YY(48)=252
  95.     (VBScript语句) XX(49)=470:YY(49)=252
  96.     (VBScript语句) XX(50)=453:YY(50)=253
  97.     (VBScript语句) XX(51)=454:YY(51)=253
  98.     (VBScript语句) XX(52)=455:YY(52)=253
  99.     (VBScript语句) XX(53)=456:YY(53)=253
  100.     (VBScript语句) XX(54)=454:YY(54)=254