VBS XX(186)=457:YY(186)=270 VBS XX(187)=458:YY(187)=270 VBS XX(188)=469:YY(188)=270 VBS XX(189)=470:YY(189)=270 VBS XX(190)=471:YY(190)=270 VBS XX(191)=455:YY(191)=271 VBS XX(192)=456:YY(192)=271 VBS XX(193)=457:YY(193)=271 VBS XX(194)=458:YY(194)=271 VBS XX(195)=469:YY(195)=271 VBS XX(196)=470:YY(196)=271 VBS XX(197)=455:YY(197)=272 VBS XX(198)=456:YY(198)=272 VBS XX(199)=457:YY(199)=272 VBS XX(200)=458:YY(200)=272 VBS XX(201)=468:YY(201)=272 VBS XX(202)=469:YY(202)=272 VBS XX(203)=470:YY(203)=272 VBS XX(204)=455:YY(204)=273 VBS XX(205)=456:YY(205)=273 VBS XX(206)=457:YY(206)=273 VBS XX(207)=458:YY(207)=273 VBS XX(208)=467:YY(208)=273 VBS XX(209)=468:YY(209)=273 VBS XX(210)=469:YY(210)=273 VBS XX(211)=455:YY(211)=274 VBS XX(212)=456:YY(212)=274 VBS XX(213)=457:YY(213)=274 VBS XX(214)=458:YY(214)=274 VBS XX(215)=466:YY(215)=274 VBS XX(216)=467:YY(216)=274 VBS XX(217)=468:YY(217)=274 VBS XX(218)=455:YY(218)=275 VBS XX(219)=456:YY(219)=275 VBS XX(220)=457:YY(220)=275 VBS XX(221)=458:YY(221)=275 VBS XX(222)=464:YY(222)=275 VBS XX(223)=465:YY(223)=275 VBS XX(224)=466:YY(224)=275 VBS XX(225)=452:YY(225)=276 VBS XX(226)=453:YY(226)=276 VBS XX(227)=454:YY(227)=276 VBS XX(228)=455:YY(228)=276 VBS XX(229)=456:YY(229)=276 VBS XX(230)=457:YY(230)=276 VBS XX(231)=458:YY(231)=276 VBS XX(232)=459:YY(232)=276 VBS XX(233)=460:YY(233)=276 VBS XX(234)=461:YY(234)=276 VBS XX(235)=462:YY(235)=276 VBS XX(236)=463:YY(236)=276 VBS XX(237)=464:YY(237)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return D Sub E 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)=461:YY(10)=245 VBS XX(11)=462:YY(11)=245 VBS XX(12)=463:YY(12)=245 VBS XX(13)=464:YY(13)=245 VBS XX(14)=465:YY(14)=245 VBS XX(15)=466:YY(15)=245 VBS XX(16)=467:YY(16)=245 VBS XX(17)=468:YY(17)=245 VBS XX(18)=469:YY(18)=245 VBS XX(19)=470:YY(19)=245 VBS XX(20)=455:YY(20)=246 VBS XX(21)=456:YY(21)=246 VBS XX(22)=457:YY(22)=246 VBS XX(23)=458:YY(23)=246 VBS XX(24)=467:YY(24)=246 VBS XX(25)=468:YY(25)=246 VBS XX(26)=469:YY(26)=246 VBS XX(27)=470:YY(27)=246 VBS XX(28)=455:YY(28)=247 VBS XX(29)=456:YY(29)=247 VBS XX(30)=457:YY(30)=247 VBS XX(31)=458:YY(31)=247 VBS XX(32)=469:YY(32)=247 VBS XX(33)=470:YY(33)=247 VBS XX(34)=455:YY(34)=248 VBS XX(35)=456:YY(35)=248 VBS XX(36)=457:YY(36)=248 VBS XX(37)=458:YY(37)=248 VBS XX(38)=469:YY(38)=248 VBS XX(39)=470:YY(39)=248 VBS XX(40)=471:YY(40)=248 VBS XX(41)=455:YY(41)=249 VBS XX(42)=456:YY(42)=249