VBS XX(140)=467:YY(140)=275 VBS XX(141)=468:YY(141)=275 VBS XX(142)=469:YY(142)=275 VBS XX(143)=462:YY(143)=276 VBS XX(144)=463:YY(144)=276 VBS XX(145)=464:YY(145)=276 VBS XX(146)=465:YY(146)=276 VBS XX(147)=466:YY(147)=276 VBS XX(148)=467:YY(148)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return C Sub D 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)=455:YY(14)=246 VBS XX(15)=456:YY(15)=246 VBS XX(16)=457:YY(16)=246 VBS XX(17)=458:YY(17)=246 VBS XX(18)=464:YY(18)=246 VBS XX(19)=465:YY(19)=246 VBS XX(20)=466:YY(20)=246 VBS XX(21)=455:YY(21)=247 VBS XX(22)=456:YY(22)=247 VBS XX(23)=457:YY(23)=247 VBS XX(24)=458:YY(24)=247 VBS XX(25)=466:YY(25)=247 VBS XX(26)=467:YY(26)=247 VBS XX(27)=468:YY(27)=247 VBS XX(28)=455:YY(28)=248 VBS XX(29)=456:YY(29)=248 VBS XX(30)=457:YY(30)=248 VBS XX(31)=458:YY(31)=248 VBS XX(32)=467:YY(32)=248 VBS XX(33)=468:YY(33)=248 VBS XX(34)=469:YY(34)=248 VBS XX(35)=455:YY(35)=249 VBS XX(36)=456:YY(36)=249 VBS XX(37)=457:YY(37)=249 VBS XX(38)=458:YY(38)=249 VBS XX(39)=468:YY(39)=249 VBS XX(40)=469:YY(40)=249 VBS XX(41)=470:YY(41)=249 VBS XX(42)=455:YY(42)=250 VBS XX(43)=456:YY(43)=250 VBS XX(44)=457:YY(44)=250 VBS XX(45)=458:YY(45)=250 VBS XX(46)=469:YY(46)=250 VBS XX(47)=470:YY(47)=250 VBS XX(48)=455:YY(48)=251 VBS XX(49)=456:YY(49)=251 VBS XX(50)=457:YY(50)=251 VBS XX(51)=458:YY(51)=251 VBS XX(52)=469:YY(52)=251 VBS XX(53)=470:YY(53)=251 VBS XX(54)=471:YY(54)=251 VBS XX(55)=455:YY(55)=252 VBS XX(56)=456:YY(56)=252 VBS XX(57)=457:YY(57)=252 VBS XX(58)=458:YY(58)=252 VBS XX(59)=470:YY(59)=252 VBS XX(60)=471:YY(60)=252 VBS XX(61)=455:YY(61)=253 VBS XX(62)=456:YY(62)=253 VBS XX(63)=457:YY(63)=253 VBS XX(64)=458:YY(64)=253 VBS XX(65)=470:YY(65)=253 VBS XX(66)=471:YY(66)=253 VBS XX(67)=472:YY(67)=253 VBS XX(68)=455:YY(68)=254 VBS XX(69)=456:YY(69)=254 VBS XX(70)=457:YY(70)=254 VBS XX(71)=458:YY(71)=254 VBS XX(72)=470:YY(72)=254 VBS XX(73)=471:YY(73)=254 VBS XX(74)=472:YY(74)=254 VBS XX(75)=455:YY(75)=255 VBS XX(76)=456:YY(76)=255 VBS XX(77)=457:YY(77)=255 VBS XX(78)=458:YY(78)=255 VBS XX(79)=470:YY(79)=255 VBS XX(80)=471:YY(80)=255 VBS XX(81)=472:YY(81)=255 VBS XX(82)=455:YY(82)=256 VBS XX(83)=456:YY(83)=256 VBS XX(84)=457:YY(84)=256 VBS XX(85)=458:YY(85)=256