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