VBS XX(217)=468:YY(217)=272 VBS XX(218)=469:YY(218)=272 VBS XX(219)=470:YY(219)=272 VBS XX(220)=455:YY(220)=273 VBS XX(221)=456:YY(221)=273 VBS XX(222)=457:YY(222)=273 VBS XX(223)=458:YY(223)=273 VBS XX(224)=468:YY(224)=273 VBS XX(225)=469:YY(225)=273 VBS XX(226)=470:YY(226)=273 VBS XX(227)=455:YY(227)=274 VBS XX(228)=456:YY(228)=274 VBS XX(229)=457:YY(229)=274 VBS XX(230)=458:YY(230)=274 VBS XX(231)=468:YY(231)=274 VBS XX(232)=469:YY(232)=274 VBS XX(233)=470:YY(233)=274 VBS XX(234)=455:YY(234)=275 VBS XX(235)=456:YY(235)=275 VBS XX(236)=457:YY(236)=275 VBS XX(237)=458:YY(237)=275 VBS XX(238)=469:YY(238)=275 VBS XX(239)=470:YY(239)=275 VBS XX(240)=471:YY(240)=275 VBS XX(241)=452:YY(241)=276 VBS XX(242)=453:YY(242)=276 VBS XX(243)=454:YY(243)=276 VBS XX(244)=455:YY(244)=276 VBS XX(245)=456:YY(245)=276 VBS XX(246)=457:YY(246)=276 VBS XX(247)=458:YY(247)=276 VBS XX(248)=459:YY(248)=276 VBS XX(249)=460:YY(249)=276 VBS XX(250)=461:YY(250)=276 VBS XX(251)=469:YY(251)=276 VBS XX(252)=470:YY(252)=276 VBS XX(253)=471:YY(253)=276 VBS XX(254)=472:YY(254)=276 VBS XX(255)=473:YY(255)=276 VBS XX(256)=474:YY(256)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return R Sub S dim XX(350),YY(350) VBS XX(1)=459:YY(1)=245 VBS XX(2)=460:YY(2)=245 VBS XX(3)=461:YY(3)=245 VBS XX(4)=462:YY(4)=245 VBS XX(5)=463:YY(5)=245 VBS XX(6)=464:YY(6)=245 VBS XX(7)=465:YY(7)=245 VBS XX(8)=466:YY(8)=245 VBS XX(9)=457:YY(9)=246 VBS XX(10)=458:YY(10)=246 VBS XX(11)=459:YY(11)=246 VBS XX(12)=465:YY(12)=246 VBS XX(13)=466:YY(13)=246 VBS XX(14)=467:YY(14)=246 VBS XX(15)=468:YY(15)=246 VBS XX(16)=469:YY(16)=246 VBS XX(17)=470:YY(17)=246 VBS XX(18)=456:YY(18)=247 VBS XX(19)=457:YY(19)=247 VBS XX(20)=467:YY(20)=247 VBS XX(21)=468:YY(21)=247 VBS XX(22)=469:YY(22)=247 VBS XX(23)=470:YY(23)=247 VBS XX(24)=455:YY(24)=248 VBS XX(25)=456:YY(25)=248 VBS XX(26)=457:YY(26)=248 VBS XX(27)=468:YY(27)=248 VBS XX(28)=469:YY(28)=248 VBS XX(29)=470:YY(29)=248 VBS XX(30)=454:YY(30)=249 VBS XX(31)=455:YY(31)=249 VBS XX(32)=456:YY(32)=249 VBS XX(33)=469:YY(33)=249 VBS XX(34)=470:YY(34)=249 VBS XX(35)=454:YY(35)=250 VBS XX(36)=455:YY(36)=250 VBS XX(37)=456:YY(37)=250 VBS XX(38)=469:YY(38)=250 VBS XX(39)=470:YY(39)=250 VBS XX(40)=454:YY(40)=251 VBS XX(41)=455:YY(41)=251 VBS XX(42)=456:YY(42)=251 VBS XX(43)=470:YY(43)=251 VBS XX(44)=471:YY(44)=251 VBS XX(45)=453:YY(45)=252 VBS XX(46)=454:YY(46)=252 VBS XX(47)=455:YY(47)=252 VBS XX(48)=456:YY(48)=252 VBS XX(49)=470:YY(49)=252 VBS XX(50)=453:YY(50)=253 VBS XX(51)=454:YY(51)=253 VBS XX(52)=455:YY(52)=253 VBS XX(53)=456:YY(53)=253 VBS XX(54)=454:YY(54)=254