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