VBS XX(125)=459:YY(125)=268 VBS XX(126)=466:YY(126)=268 VBS XX(127)=467:YY(127)=268 VBS XX(128)=468:YY(128)=268 VBS XX(129)=458:YY(129)=269 VBS XX(130)=459:YY(130)=269 VBS XX(131)=466:YY(131)=269 VBS XX(132)=467:YY(132)=269 VBS XX(133)=468:YY(133)=269 VBS XX(134)=458:YY(134)=270 VBS XX(135)=466:YY(135)=270 VBS XX(136)=467:YY(136)=270 VBS XX(137)=468:YY(137)=270 VBS XX(138)=469:YY(138)=270 VBS XX(139)=457:YY(139)=271 VBS XX(140)=458:YY(140)=271 VBS XX(141)=467:YY(141)=271 VBS XX(142)=468:YY(142)=271 VBS XX(143)=469:YY(143)=271 VBS XX(144)=457:YY(144)=272 VBS XX(145)=467:YY(145)=272 VBS XX(146)=468:YY(146)=272 VBS XX(147)=469:YY(147)=272 VBS XX(148)=470:YY(148)=272 VBS XX(149)=456:YY(149)=273 VBS XX(150)=457:YY(150)=273 VBS XX(151)=468:YY(151)=273 VBS XX(152)=469:YY(152)=273 VBS XX(153)=470:YY(153)=273 VBS XX(154)=456:YY(154)=274 VBS XX(155)=457:YY(155)=274 VBS XX(156)=468:YY(156)=274 VBS XX(157)=469:YY(157)=274 VBS XX(158)=470:YY(158)=274 VBS XX(159)=471:YY(159)=274 VBS XX(160)=455:YY(160)=275 VBS XX(161)=456:YY(161)=275 VBS XX(162)=457:YY(162)=275 VBS XX(163)=468:YY(163)=275 VBS XX(164)=469:YY(164)=275 VBS XX(165)=470:YY(165)=275 VBS XX(166)=471:YY(166)=275 VBS XX(167)=472:YY(167)=275 VBS XX(168)=452:YY(168)=276 VBS XX(169)=453:YY(169)=276 VBS XX(170)=454:YY(170)=276 VBS XX(171)=455:YY(171)=276 VBS XX(172)=456:YY(172)=276 VBS XX(173)=457:YY(173)=276 VBS XX(174)=458:YY(174)=276 VBS XX(175)=459:YY(175)=276 VBS XX(176)=466:YY(176)=276 VBS XX(177)=467:YY(177)=276 VBS XX(178)=468:YY(178)=276 VBS XX(179)=469:YY(179)=276 VBS XX(180)=470:YY(180)=276 VBS XX(181)=471:YY(181)=276 VBS XX(182)=472:YY(182)=276 VBS XX(183)=473:YY(183)=276 VBS XX(184)=474:YY(184)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return X Sub Y dim XX(350),YY(350) VBS XX(1)=452:YY(1)=245 VBS XX(2)=453:YY(2)=245 VBS XX(3)=454:YY(3)=245 VBS XX(4)=455:YY(4)=245 VBS XX(5)=456:YY(5)=245 VBS XX(6)=457:YY(6)=245 VBS XX(7)=458:YY(7)=245 VBS XX(8)=459:YY(8)=245 VBS XX(9)=460:YY(9)=245 VBS XX(10)=465:YY(10)=245 VBS XX(11)=466:YY(11)=245 VBS XX(12)=467:YY(12)=245 VBS XX(13)=468:YY(13)=245 VBS XX(14)=469:YY(14)=245 VBS XX(15)=470:YY(15)=245 VBS XX(16)=471:YY(16)=245 VBS XX(17)=472:YY(17)=245 VBS XX(18)=473:YY(18)=245 VBS XX(19)=454:YY(19)=246 VBS XX(20)=455:YY(20)=246 VBS XX(21)=456:YY(21)=246 VBS XX(22)=457:YY(22)=246 VBS XX(23)=468:YY(23)=246 VBS XX(24)=469:YY(24)=246 VBS XX(25)=470:YY(25)=246 VBS XX(26)=471:YY(26)=246 VBS XX(27)=455:YY(27)=247 VBS XX(28)=456:YY(28)=247 VBS XX(29)=457:YY(29)=247 VBS XX(30)=468:YY(30)=247 VBS XX(31)=469:YY(31)=247 VBS XX(32)=470:YY(32)=247 VBS XX(33)=455:YY(33)=248 VBS XX(34)=456:YY(34)=248