VBS XX(193)=461:YY(193)=275 VBS XX(194)=462:YY(194)=275 VBS XX(195)=463:YY(195)=275 VBS XX(196)=464:YY(196)=275 VBS XX(197)=465:YY(197)=275 VBS XX(198)=466:YY(198)=275 VBS XX(199)=467:YY(199)=275 VBS XX(200)=460:YY(200)=276 VBS XX(201)=461:YY(201)=276 VBS XX(202)=462:YY(202)=276 VBS XX(203)=463:YY(203)=276 VBS XX(204)=464:YY(204)=276 VBS XX(205)=465:YY(205)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return U Sub V 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)=468:YY(10)=245 VBS XX(11)=469:YY(11)=245 VBS XX(12)=470:YY(12)=245 VBS XX(13)=471:YY(13)=245 VBS XX(14)=472:YY(14)=245 VBS XX(15)=473:YY(15)=245 VBS XX(16)=474:YY(16)=245 VBS XX(17)=475:YY(17)=245 VBS XX(18)=455:YY(18)=246 VBS XX(19)=456:YY(19)=246 VBS XX(20)=457:YY(20)=246 VBS XX(21)=458:YY(21)=246 VBS XX(22)=470:YY(22)=246 VBS XX(23)=471:YY(23)=246 VBS XX(24)=472:YY(24)=246 VBS XX(25)=455:YY(25)=247 VBS XX(26)=456:YY(26)=247 VBS XX(27)=457:YY(27)=247 VBS XX(28)=458:YY(28)=247 VBS XX(29)=470:YY(29)=247 VBS XX(30)=471:YY(30)=247 VBS XX(31)=472:YY(31)=247 VBS XX(32)=456:YY(32)=248 VBS XX(33)=457:YY(33)=248 VBS XX(34)=458:YY(34)=248 VBS XX(35)=470:YY(35)=248 VBS XX(36)=471:YY(36)=248 VBS XX(37)=456:YY(37)=249 VBS XX(38)=457:YY(38)=249 VBS XX(39)=458:YY(39)=249 VBS XX(40)=470:YY(40)=249 VBS XX(41)=471:YY(41)=249 VBS XX(42)=456:YY(42)=250 VBS XX(43)=457:YY(43)=250 VBS XX(44)=458:YY(44)=250 VBS XX(45)=470:YY(45)=250 VBS XX(46)=471:YY(46)=250 VBS XX(47)=456:YY(47)=251 VBS XX(48)=457:YY(48)=251 VBS XX(49)=458:YY(49)=251 VBS XX(50)=459:YY(50)=251 VBS XX(51)=469:YY(51)=251 VBS XX(52)=470:YY(52)=251 VBS XX(53)=457:YY(53)=252 VBS XX(54)=458:YY(54)=252 VBS XX(55)=459:YY(55)=252 VBS XX(56)=469:YY(56)=252 VBS XX(57)=470:YY(57)=252 VBS XX(58)=457:YY(58)=253 VBS XX(59)=458:YY(59)=253 VBS XX(60)=459:YY(60)=253 VBS XX(61)=469:YY(61)=253 VBS XX(62)=470:YY(62)=253 VBS XX(63)=457:YY(63)=254 VBS XX(64)=458:YY(64)=254 VBS XX(65)=459:YY(65)=254 VBS XX(66)=469:YY(66)=254 VBS XX(67)=470:YY(67)=254 VBS XX(68)=458:YY(68)=255 VBS XX(69)=459:YY(69)=255 VBS XX(70)=460:YY(70)=255 VBS XX(71)=468:YY(71)=255 VBS XX(72)=469:YY(72)=255 VBS XX(73)=458:YY(73)=256 VBS XX(74)=459:YY(74)=256 VBS XX(75)=460:YY(75)=256 VBS XX(76)=468:YY(76)=256 VBS XX(77)=469:YY(77)=256 VBS XX(78)=458:YY(78)=257 VBS XX(79)=459:YY(79)=257 VBS XX(80)=460:YY(80)=257 VBS XX(81)=468:YY(81)=257