VBS XX(121)=467:YY(121)=261 VBS XX(122)=468:YY(122)=261 VBS XX(123)=469:YY(123)=261 VBS XX(124)=455:YY(124)=262 VBS XX(125)=456:YY(125)=262 VBS XX(126)=457:YY(126)=262 VBS XX(127)=458:YY(127)=262 VBS XX(128)=468:YY(128)=262 VBS XX(129)=469:YY(129)=262 VBS XX(130)=455:YY(130)=263 VBS XX(131)=456:YY(131)=263 VBS XX(132)=457:YY(132)=263 VBS XX(133)=458:YY(133)=263 VBS XX(134)=468:YY(134)=263 VBS XX(135)=469:YY(135)=263 VBS XX(136)=455:YY(136)=264 VBS XX(137)=456:YY(137)=264 VBS XX(138)=457:YY(138)=264 VBS XX(139)=458:YY(139)=264 VBS XX(140)=468:YY(140)=264 VBS XX(141)=469:YY(141)=264 VBS XX(142)=455:YY(142)=265 VBS XX(143)=456:YY(143)=265 VBS XX(144)=457:YY(144)=265 VBS XX(145)=458:YY(145)=265 VBS XX(146)=468:YY(146)=265 VBS XX(147)=469:YY(147)=265 VBS XX(148)=455:YY(148)=266 VBS XX(149)=456:YY(149)=266 VBS XX(150)=457:YY(150)=266 VBS XX(151)=458:YY(151)=266 VBS XX(152)=455:YY(152)=267 VBS XX(153)=456:YY(153)=267 VBS XX(154)=457:YY(154)=267 VBS XX(155)=458:YY(155)=267 VBS XX(156)=455:YY(156)=268 VBS XX(157)=456:YY(157)=268 VBS XX(158)=457:YY(158)=268 VBS XX(159)=458:YY(159)=268 VBS XX(160)=455:YY(160)=269 VBS XX(161)=456:YY(161)=269 VBS XX(162)=457:YY(162)=269 VBS XX(163)=458:YY(163)=269 VBS XX(164)=455:YY(164)=270 VBS XX(165)=456:YY(165)=270 VBS XX(166)=457:YY(166)=270 VBS XX(167)=458:YY(167)=270 VBS XX(168)=455:YY(168)=271 VBS XX(169)=456:YY(169)=271 VBS XX(170)=457:YY(170)=271 VBS XX(171)=458:YY(171)=271 VBS XX(172)=455:YY(172)=272 VBS XX(173)=456:YY(173)=272 VBS XX(174)=457:YY(174)=272 VBS XX(175)=458:YY(175)=272 VBS XX(176)=455:YY(176)=273 VBS XX(177)=456:YY(177)=273 VBS XX(178)=457:YY(178)=273 VBS XX(179)=458:YY(179)=273 VBS XX(180)=455:YY(180)=274 VBS XX(181)=456:YY(181)=274 VBS XX(182)=457:YY(182)=274 VBS XX(183)=458:YY(183)=274 VBS XX(184)=455:YY(184)=275 VBS XX(185)=456:YY(185)=275 VBS XX(186)=457:YY(186)=275 VBS XX(187)=458:YY(187)=275 VBS XX(188)=452:YY(188)=276 VBS XX(189)=453:YY(189)=276 VBS XX(190)=454:YY(190)=276 VBS XX(191)=455:YY(191)=276 VBS XX(192)=456:YY(192)=276 VBS XX(193)=457:YY(193)=276 VBS XX(194)=458:YY(194)=276 VBS XX(195)=459:YY(195)=276 VBS XX(196)=460:YY(196)=276 VBS XX(197)=461:YY(197)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return F Sub G dim XX(350),YY(350) VBS XX(1)=461:YY(1)=245 VBS XX(2)=462:YY(2)=245 VBS XX(3)=463:YY(3)=245 VBS XX(4)=464:YY(4)=245 VBS XX(5)=465:YY(5)=245 VBS XX(6)=459:YY(6)=246 VBS XX(7)=460:YY(7)=246 VBS XX(8)=465:YY(8)=246 VBS XX(9)=466:YY(9)=246 VBS XX(10)=467:YY(10)=246 VBS XX(11)=468:YY(11)=246 VBS XX(12)=469:YY(12)=246 VBS XX(13)=457:YY(13)=247 VBS XX(14)=458:YY(14)=247 VBS XX(15)=459:YY(15)=247 VBS XX(16)=467:YY(16)=247 VBS XX(17)=468:YY(17)=247