VBS XX(82)=469:YY(82)=257 VBS XX(83)=458:YY(83)=258 VBS XX(84)=459:YY(84)=258 VBS XX(85)=460:YY(85)=258 VBS XX(86)=461:YY(86)=258 VBS XX(87)=468:YY(87)=258 VBS XX(88)=469:YY(88)=258 VBS XX(89)=459:YY(89)=259 VBS XX(90)=460:YY(90)=259 VBS XX(91)=461:YY(91)=259 VBS XX(92)=467:YY(92)=259 VBS XX(93)=468:YY(93)=259 VBS XX(94)=459:YY(94)=260 VBS XX(95)=460:YY(95)=260 VBS XX(96)=461:YY(96)=260 VBS XX(97)=467:YY(97)=260 VBS XX(98)=468:YY(98)=260 VBS XX(99)=459:YY(99)=261 VBS XX(100)=460:YY(100)=261 VBS XX(101)=461:YY(101)=261 VBS XX(102)=467:YY(102)=261 VBS XX(103)=468:YY(103)=261 VBS XX(104)=459:YY(104)=262 VBS XX(105)=460:YY(105)=262 VBS XX(106)=461:YY(106)=262 VBS XX(107)=462:YY(107)=262 VBS XX(108)=467:YY(108)=262 VBS XX(109)=460:YY(109)=263 VBS XX(110)=461:YY(110)=263 VBS XX(111)=462:YY(111)=263 VBS XX(112)=466:YY(112)=263 VBS XX(113)=467:YY(113)=263 VBS XX(114)=460:YY(114)=264 VBS XX(115)=461:YY(115)=264 VBS XX(116)=462:YY(116)=264 VBS XX(117)=466:YY(117)=264 VBS XX(118)=467:YY(118)=264 VBS XX(119)=460:YY(119)=265 VBS XX(120)=461:YY(120)=265 VBS XX(121)=462:YY(121)=265 VBS XX(122)=466:YY(122)=265 VBS XX(123)=467:YY(123)=265 VBS XX(124)=461:YY(124)=266 VBS XX(125)=462:YY(125)=266 VBS XX(126)=463:YY(126)=266 VBS XX(127)=466:YY(127)=266 VBS XX(128)=461:YY(128)=267 VBS XX(129)=462:YY(129)=267 VBS XX(130)=463:YY(130)=267 VBS XX(131)=465:YY(131)=267 VBS XX(132)=466:YY(132)=267 VBS XX(133)=461:YY(133)=268 VBS XX(134)=462:YY(134)=268 VBS XX(135)=463:YY(135)=268 VBS XX(136)=464:YY(136)=268 VBS XX(137)=465:YY(137)=268 VBS XX(138)=466:YY(138)=268 VBS XX(139)=461:YY(139)=269 VBS XX(140)=462:YY(140)=269 VBS XX(141)=463:YY(141)=269 VBS XX(142)=464:YY(142)=269 VBS XX(143)=465:YY(143)=269 VBS XX(144)=466:YY(144)=269 VBS XX(145)=462:YY(145)=270 VBS XX(146)=463:YY(146)=270 VBS XX(147)=464:YY(147)=270 VBS XX(148)=465:YY(148)=270 VBS XX(149)=462:YY(149)=271 VBS XX(150)=463:YY(150)=271 VBS XX(151)=464:YY(151)=271 VBS XX(152)=465:YY(152)=271 VBS XX(153)=462:YY(153)=272 VBS XX(154)=463:YY(154)=272 VBS XX(155)=464:YY(155)=272 VBS XX(156)=465:YY(156)=272 VBS XX(157)=463:YY(157)=273 VBS XX(158)=464:YY(158)=273 VBS XX(159)=463:YY(159)=274 VBS XX(160)=464:YY(160)=274 VBS XX(161)=463:YY(161)=275 VBS XX(162)=464:YY(162)=275 VBS XX(163)=463:YY(163)=276 VBS XX(164)=464:YY(164)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return V Sub W dim XX(350),YY(350) VBS XX(1)=451:YY(1)=245 VBS XX(2)=452:YY(2)=245 VBS XX(3)=453:YY(3)=245 VBS XX(4)=454:YY(4)=245 VBS XX(5)=455:YY(5)=245 VBS XX(6)=456:YY(6)=245 VBS XX(7)=457:YY(7)=245 VBS XX(8)=460:YY(8)=245 VBS XX(9)=461:YY(9)=245 VBS XX(10)=462:YY(10)=245 VBS XX(11)=463:YY(11)=245