VBS XX(155)=458:YY(155)=276 VBS XX(156)=459:YY(156)=276 VBS XX(157)=460:YY(157)=276 VBS XX(158)=461:YY(158)=276 VBS XX(159)=462:YY(159)=276 VBS XX(160)=463:YY(160)=276 VBS XX(161)=464:YY(161)=276 VBS XX(162)=465:YY(162)=276 VBS XX(163)=466:YY(163)=276 VBS XX(164)=467:YY(164)=276 VBS XX(165)=468:YY(165)=276 VBS XX(166)=469:YY(166)=276 VBS XX(167)=470:YY(167)=276 VBS XX(168)=471:YY(168)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return Z Sub 0 dim XX(350),YY(350) VBS XX(1)=460:YY(1)=245 VBS XX(2)=461:YY(2)=245 VBS XX(3)=462:YY(3)=245 VBS XX(4)=463:YY(4)=245 VBS XX(5)=464:YY(5)=245 VBS XX(6)=465:YY(6)=245 VBS XX(7)=459:YY(7)=246 VBS XX(8)=460:YY(8)=246 VBS XX(9)=465:YY(9)=246 VBS XX(10)=466:YY(10)=246 VBS XX(11)=458:YY(11)=247 VBS XX(12)=459:YY(12)=247 VBS XX(13)=466:YY(13)=247 VBS XX(14)=467:YY(14)=247 VBS XX(15)=468:YY(15)=247 VBS XX(16)=457:YY(16)=248 VBS XX(17)=458:YY(17)=248 VBS XX(18)=467:YY(18)=248 VBS XX(19)=468:YY(19)=248 VBS XX(20)=456:YY(20)=249 VBS XX(21)=457:YY(21)=249 VBS XX(22)=458:YY(22)=249 VBS XX(23)=468:YY(23)=249 VBS XX(24)=469:YY(24)=249 VBS XX(25)=456:YY(25)=250 VBS XX(26)=457:YY(26)=250 VBS XX(27)=468:YY(27)=250 VBS XX(28)=469:YY(28)=250 VBS XX(29)=470:YY(29)=250 VBS XX(30)=455:YY(30)=251 VBS XX(31)=456:YY(31)=251 VBS XX(32)=457:YY(32)=251 VBS XX(33)=468:YY(33)=251 VBS XX(34)=469:YY(34)=251 VBS XX(35)=470:YY(35)=251 VBS XX(36)=455:YY(36)=252 VBS XX(37)=456:YY(37)=252 VBS XX(38)=457:YY(38)=252 VBS XX(39)=469:YY(39)=252 VBS XX(40)=470:YY(40)=252 VBS XX(41)=454:YY(41)=253 VBS XX(42)=455:YY(42)=253 VBS XX(43)=456:YY(43)=253 VBS XX(44)=469:YY(44)=253 VBS XX(45)=470:YY(45)=253 VBS XX(46)=471:YY(46)=253 VBS XX(47)=454:YY(47)=254 VBS XX(48)=455:YY(48)=254 VBS XX(49)=456:YY(49)=254 VBS XX(50)=469:YY(50)=254 VBS XX(51)=470:YY(51)=254 VBS XX(52)=471:YY(52)=254 VBS XX(53)=454:YY(53)=255 VBS XX(54)=455:YY(54)=255 VBS XX(55)=456:YY(55)=255 VBS XX(56)=469:YY(56)=255 VBS XX(57)=470:YY(57)=255 VBS XX(58)=471:YY(58)=255 VBS XX(59)=454:YY(59)=256 VBS XX(60)=455:YY(60)=256 VBS XX(61)=456:YY(61)=256 VBS XX(62)=469:YY(62)=256 VBS XX(63)=470:YY(63)=256 VBS XX(64)=471:YY(64)=256 VBS XX(65)=454:YY(65)=257 VBS XX(66)=455:YY(66)=257 VBS XX(67)=456:YY(67)=257 VBS XX(68)=469:YY(68)=257 VBS XX(69)=470:YY(69)=257 VBS XX(70)=471:YY(70)=257 VBS XX(71)=453:YY(71)=258 VBS XX(72)=454:YY(72)=258 VBS XX(73)=455:YY(73)=258 VBS XX(74)=456:YY(74)=258 VBS XX(75)=469:YY(75)=258 VBS XX(76)=470:YY(76)=258 VBS XX(77)=471:YY(77)=258 VBS XX(78)=472:YY(78)=258 VBS XX(79)=453:YY(79)=259 VBS XX(80)=454:YY(80)=259