VBS XX(142)=461:YY(142)=276 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 VBS XX(149)=468:YY(149)=276 VBS XX(150)=469:YY(150)=276 VBS XX(151)=470:YY(151)=276 VBS XX(152)=471:YY(152)=276 Gosub 旋转 Gosub 缩小 Gosub 提取 Return I Sub J 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)=467: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)=465:YY(17)=246 VBS XX(18)=466:YY(18)=246 VBS XX(19)=467:YY(19)=246 VBS XX(20)=468:YY(20)=246 VBS XX(21)=465:YY(21)=247 VBS XX(22)=466:YY(22)=247 VBS XX(23)=467:YY(23)=247 VBS XX(24)=468:YY(24)=247 VBS XX(25)=465:YY(25)=248 VBS XX(26)=466:YY(26)=248 VBS XX(27)=467:YY(27)=248 VBS XX(28)=468:YY(28)=248 VBS XX(29)=465:YY(29)=249 VBS XX(30)=466:YY(30)=249 VBS XX(31)=467:YY(31)=249 VBS XX(32)=468:YY(32)=249 VBS XX(33)=465:YY(33)=250 VBS XX(34)=466:YY(34)=250 VBS XX(35)=467:YY(35)=250 VBS XX(36)=468:YY(36)=250 VBS XX(37)=465:YY(37)=251 VBS XX(38)=466:YY(38)=251 VBS XX(39)=467:YY(39)=251 VBS XX(40)=468:YY(40)=251 VBS XX(41)=465:YY(41)=252 VBS XX(42)=466:YY(42)=252 VBS XX(43)=467:YY(43)=252 VBS XX(44)=468:YY(44)=252 VBS XX(45)=465:YY(45)=253 VBS XX(46)=466:YY(46)=253 VBS XX(47)=467:YY(47)=253 VBS XX(48)=468:YY(48)=253 VBS XX(49)=465:YY(49)=254 VBS XX(50)=466:YY(50)=254 VBS XX(51)=467:YY(51)=254 VBS XX(52)=468:YY(52)=254 VBS XX(53)=465:YY(53)=255 VBS XX(54)=466:YY(54)=255 VBS XX(55)=467:YY(55)=255 VBS XX(56)=468:YY(56)=255 VBS XX(57)=465:YY(57)=256 VBS XX(58)=466:YY(58)=256 VBS XX(59)=467:YY(59)=256 VBS XX(60)=468:YY(60)=256 VBS XX(61)=465:YY(61)=257 VBS XX(62)=466:YY(62)=257 VBS XX(63)=467:YY(63)=257 VBS XX(64)=468:YY(64)=257 VBS XX(65)=465:YY(65)=258 VBS XX(66)=466:YY(66)=258 VBS XX(67)=467:YY(67)=258 VBS XX(68)=468:YY(68)=258 VBS XX(69)=465:YY(69)=259 VBS XX(70)=466:YY(70)=259 VBS XX(71)=467:YY(71)=259 VBS XX(72)=468:YY(72)=259 VBS XX(73)=465:YY(73)=260 VBS XX(74)=466:YY(74)=260 VBS XX(75)=467:YY(75)=260 VBS XX(76)=468:YY(76)=260 VBS XX(77)=465:YY(77)=261 VBS XX(78)=466:YY(78)=261 VBS XX(79)=467:YY(79)=261 VBS XX(80)=468:YY(80)=261 VBS XX(81)=465:YY(81)=262 VBS XX(82)=466:YY(82)=262 VBS XX(83)=467:YY(83)=262