VBS XX(155)=468:YY(155)=273 VBS XX(156)=469:YY(156)=273 VBS XX(157)=470:YY(157)=273 VBS XX(158)=455:YY(158)=274 VBS XX(159)=456:YY(159)=274 VBS XX(160)=457:YY(160)=274 VBS XX(161)=458:YY(161)=274 VBS XX(162)=468:YY(162)=274 VBS XX(163)=469:YY(163)=274 VBS XX(164)=455:YY(164)=275 VBS XX(165)=456:YY(165)=275 VBS XX(166)=457:YY(166)=275 VBS XX(167)=458:YY(167)=275 VBS XX(168)=459:YY(168)=275 VBS XX(169)=460:YY(169)=275 VBS XX(170)=466:YY(170)=275 VBS XX(171)=467:YY(171)=275 VBS XX(172)=468:YY(172)=275 VBS XX(173)=455:YY(173)=276 VBS XX(174)=460:YY(174)=276 VBS XX(175)=461:YY(175)=276 VBS XX(176)=462:YY(176)=276 VBS XX(177)=463:YY(177)=276 VBS XX(178)=464:YY(178)=276 VBS XX(179)=465:YY(179)=276 VBS XX(180)=466:YY(180)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return S Sub T dim XX(350),YY(350) VBS XX(1)=454:YY(1)=245 VBS XX(2)=455:YY(2)=245 VBS XX(3)=456:YY(3)=245 VBS XX(4)=457:YY(4)=245 VBS XX(5)=458:YY(5)=245 VBS XX(6)=459:YY(6)=245 VBS XX(7)=460:YY(7)=245 VBS XX(8)=461:YY(8)=245 VBS XX(9)=462:YY(9)=245 VBS XX(10)=463:YY(10)=245 VBS XX(11)=464:YY(11)=245 VBS XX(12)=465:YY(12)=245 VBS XX(13)=466:YY(13)=245 VBS XX(14)=467:YY(14)=245 VBS XX(15)=468:YY(15)=245 VBS XX(16)=469:YY(16)=245 VBS XX(17)=470:YY(17)=245 VBS XX(18)=471: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)=461:YY(22)=246 VBS XX(23)=462:YY(23)=246 VBS XX(24)=463:YY(24)=246 VBS XX(25)=464:YY(25)=246 VBS XX(26)=469:YY(26)=246 VBS XX(27)=470:YY(27)=246 VBS XX(28)=471:YY(28)=246 VBS XX(29)=454:YY(29)=247 VBS XX(30)=455:YY(30)=247 VBS XX(31)=461:YY(31)=247 VBS XX(32)=462:YY(32)=247 VBS XX(33)=463:YY(33)=247 VBS XX(34)=464:YY(34)=247 VBS XX(35)=470:YY(35)=247 VBS XX(36)=471:YY(36)=247 VBS XX(37)=472:YY(37)=247 VBS XX(38)=453:YY(38)=248 VBS XX(39)=454:YY(39)=248 VBS XX(40)=461:YY(40)=248 VBS XX(41)=462:YY(41)=248 VBS XX(42)=463:YY(42)=248 VBS XX(43)=464:YY(43)=248 VBS XX(44)=471:YY(44)=248 VBS XX(45)=472:YY(45)=248 VBS XX(46)=453:YY(46)=249 VBS XX(47)=454:YY(47)=249 VBS XX(48)=461:YY(48)=249 VBS XX(49)=462:YY(49)=249 VBS XX(50)=463:YY(50)=249 VBS XX(51)=464:YY(51)=249 VBS XX(52)=472:YY(52)=249 VBS XX(53)=453:YY(53)=250 VBS XX(54)=461:YY(54)=250 VBS XX(55)=462:YY(55)=250 VBS XX(56)=463:YY(56)=250 VBS XX(57)=464:YY(57)=250 VBS XX(58)=472:YY(58)=250 VBS XX(59)=453:YY(59)=251 VBS XX(60)=461:YY(60)=251 VBS XX(61)=462:YY(61)=251 VBS XX(62)=463:YY(62)=251 VBS XX(63)=464:YY(63)=251 VBS XX(64)=472:YY(64)=251 VBS XX(65)=461:YY(65)=252 VBS XX(66)=462:YY(66)=252 VBS XX(67)=463:YY(67)=252 VBS XX(68)=464:YY(68)=252