1.     (VBScript语句) XX(121)=467:YY(121)=261
  2.     (VBScript语句) XX(122)=468:YY(122)=261
  3.     (VBScript语句) XX(123)=469:YY(123)=261
  4.     (VBScript语句) XX(124)=455:YY(124)=262
  5.     (VBScript语句) XX(125)=456:YY(125)=262
  6.     (VBScript语句) XX(126)=457:YY(126)=262
  7.     (VBScript语句) XX(127)=458:YY(127)=262
  8.     (VBScript语句) XX(128)=468:YY(128)=262
  9.     (VBScript语句) XX(129)=469:YY(129)=262
  10.     (VBScript语句) XX(130)=455:YY(130)=263
  11.     (VBScript语句) XX(131)=456:YY(131)=263
  12.     (VBScript语句) XX(132)=457:YY(132)=263
  13.     (VBScript语句) XX(133)=458:YY(133)=263
  14.     (VBScript语句) XX(134)=468:YY(134)=263
  15.     (VBScript语句) XX(135)=469:YY(135)=263
  16.     (VBScript语句) XX(136)=455:YY(136)=264
  17.     (VBScript语句) XX(137)=456:YY(137)=264
  18.     (VBScript语句) XX(138)=457:YY(138)=264
  19.     (VBScript语句) XX(139)=458:YY(139)=264
  20.     (VBScript语句) XX(140)=468:YY(140)=264
  21.     (VBScript语句) XX(141)=469:YY(141)=264
  22.     (VBScript语句) XX(142)=455:YY(142)=265
  23.     (VBScript语句) XX(143)=456:YY(143)=265
  24.     (VBScript语句) XX(144)=457:YY(144)=265
  25.     (VBScript语句) XX(145)=458:YY(145)=265
  26.     (VBScript语句) XX(146)=468:YY(146)=265
  27.     (VBScript语句) XX(147)=469:YY(147)=265
  28.     (VBScript语句) XX(148)=455:YY(148)=266
  29.     (VBScript语句) XX(149)=456:YY(149)=266
  30.     (VBScript语句) XX(150)=457:YY(150)=266
  31.     (VBScript语句) XX(151)=458:YY(151)=266
  32.     (VBScript语句) XX(152)=455:YY(152)=267
  33.     (VBScript语句) XX(153)=456:YY(153)=267
  34.     (VBScript语句) XX(154)=457:YY(154)=267
  35.     (VBScript语句) XX(155)=458:YY(155)=267
  36.     (VBScript语句) XX(156)=455:YY(156)=268
  37.     (VBScript语句) XX(157)=456:YY(157)=268
  38.     (VBScript语句) XX(158)=457:YY(158)=268
  39.     (VBScript语句) XX(159)=458:YY(159)=268
  40.     (VBScript语句) XX(160)=455:YY(160)=269
  41.     (VBScript语句) XX(161)=456:YY(161)=269
  42.     (VBScript语句) XX(162)=457:YY(162)=269
  43.     (VBScript语句) XX(163)=458:YY(163)=269
  44.     (VBScript语句) XX(164)=455:YY(164)=270
  45.     (VBScript语句) XX(165)=456:YY(165)=270
  46.     (VBScript语句) XX(166)=457:YY(166)=270
  47.     (VBScript语句) XX(167)=458:YY(167)=270
  48.     (VBScript语句) XX(168)=455:YY(168)=271
  49.     (VBScript语句) XX(169)=456:YY(169)=271
  50.     (VBScript语句) XX(170)=457:YY(170)=271
  51.     (VBScript语句) XX(171)=458:YY(171)=271
  52.     (VBScript语句) XX(172)=455:YY(172)=272
  53.     (VBScript语句) XX(173)=456:YY(173)=272
  54.     (VBScript语句) XX(174)=457:YY(174)=272
  55.     (VBScript语句) XX(175)=458:YY(175)=272
  56.     (VBScript语句) XX(176)=455:YY(176)=273
  57.     (VBScript语句) XX(177)=456:YY(177)=273
  58.     (VBScript语句) XX(178)=457:YY(178)=273
  59.     (VBScript语句) XX(179)=458:YY(179)=273
  60.     (VBScript语句) XX(180)=455:YY(180)=274
  61.     (VBScript语句) XX(181)=456:YY(181)=274
  62.     (VBScript语句) XX(182)=457:YY(182)=274
  63.     (VBScript语句) XX(183)=458:YY(183)=274
  64.     (VBScript语句) XX(184)=455:YY(184)=275
  65.     (VBScript语句) XX(185)=456:YY(185)=275
  66.     (VBScript语句) XX(186)=457:YY(186)=275
  67.     (VBScript语句) XX(187)=458:YY(187)=275
  68.     (VBScript语句) XX(188)=452:YY(188)=276
  69.     (VBScript语句) XX(189)=453:YY(189)=276
  70.     (VBScript语句) XX(190)=454:YY(190)=276
  71.     (VBScript语句) XX(191)=455:YY(191)=276
  72.     (VBScript语句) XX(192)=456:YY(192)=276
  73.     (VBScript语句) XX(193)=457:YY(193)=276
  74.     (VBScript语句) XX(194)=458:YY(194)=276
  75.     (VBScript语句) XX(195)=459:YY(195)=276
  76.     (VBScript语句) XX(196)=460:YY(196)=276
  77.     (VBScript语句) XX(197)=461:YY(197)=276
  78.     调用子程序 旋转
  79.     调用子程序 缩小
  80.     调用子程序 提取
  81. 子程序结束,回到调用处
  82. 子程序 G
  83.     dim XX(350),YY(350)
  84.     (VBScript语句) XX(1)=461:YY(1)=245
  85.     (VBScript语句) XX(2)=462:YY(2)=245
  86.     (VBScript语句) XX(3)=463:YY(3)=245
  87.     (VBScript语句) XX(4)=464:YY(4)=245
  88.     (VBScript语句) XX(5)=465:YY(5)=245
  89.     (VBScript语句) XX(6)=459:YY(6)=246
  90.     (VBScript语句) XX(7)=460:YY(7)=246
  91.     (VBScript语句) XX(8)=465:YY(8)=246
  92.     (VBScript语句) XX(9)=466:YY(9)=246
  93.     (VBScript语句) XX(10)=467:YY(10)=246
  94.     (VBScript语句) XX(11)=468:YY(11)=246
  95.     (VBScript语句) XX(12)=469:YY(12)=246
  96.     (VBScript语句) XX(13)=457:YY(13)=247
  97.     (VBScript语句) XX(14)=458:YY(14)=247
  98.     (VBScript语句) XX(15)=459:YY(15)=247
  99.     (VBScript语句) XX(16)=467:YY(16)=247
  100.     (VBScript语句) XX(17)=468:YY(17)=247