VBS XX(82)=469:YY(82)=257
VBS XX(83)=458:YY(83)=258
VBS XX(84)=459:YY(84)=258
VBS XX(85)=460:YY(85)=258
VBS XX(86)=461:YY(86)=258
VBS XX(87)=468:YY(87)=258
VBS XX(88)=469:YY(88)=258
VBS XX(89)=459:YY(89)=259
VBS XX(90)=460:YY(90)=259
VBS XX(91)=461:YY(91)=259
VBS XX(92)=467:YY(92)=259
VBS XX(93)=468:YY(93)=259
VBS XX(94)=459:YY(94)=260
VBS XX(95)=460:YY(95)=260
VBS XX(96)=461:YY(96)=260
VBS XX(97)=467:YY(97)=260
VBS XX(98)=468:YY(98)=260
VBS XX(99)=459:YY(99)=261
VBS XX(100)=460:YY(100)=261
VBS XX(101)=461:YY(101)=261
VBS XX(102)=467:YY(102)=261
VBS XX(103)=468:YY(103)=261
VBS XX(104)=459:YY(104)=262
VBS XX(105)=460:YY(105)=262
VBS XX(106)=461:YY(106)=262
VBS XX(107)=462:YY(107)=262
VBS XX(108)=467:YY(108)=262
VBS XX(109)=460:YY(109)=263
VBS XX(110)=461:YY(110)=263
VBS XX(111)=462:YY(111)=263
VBS XX(112)=466:YY(112)=263
VBS XX(113)=467:YY(113)=263
VBS XX(114)=460:YY(114)=264
VBS XX(115)=461:YY(115)=264
VBS XX(116)=462:YY(116)=264
VBS XX(117)=466:YY(117)=264
VBS XX(118)=467:YY(118)=264
VBS XX(119)=460:YY(119)=265
VBS XX(120)=461:YY(120)=265
VBS XX(121)=462:YY(121)=265
VBS XX(122)=466:YY(122)=265
VBS XX(123)=467:YY(123)=265
VBS XX(124)=461:YY(124)=266
VBS XX(125)=462:YY(125)=266
VBS XX(126)=463:YY(126)=266
VBS XX(127)=466:YY(127)=266
VBS XX(128)=461:YY(128)=267
VBS XX(129)=462:YY(129)=267
VBS XX(130)=463:YY(130)=267
VBS XX(131)=465:YY(131)=267
VBS XX(132)=466:YY(132)=267
VBS XX(133)=461:YY(133)=268
VBS XX(134)=462:YY(134)=268
VBS XX(135)=463:YY(135)=268
VBS XX(136)=464:YY(136)=268
VBS XX(137)=465:YY(137)=268
VBS XX(138)=466:YY(138)=268
VBS XX(139)=461:YY(139)=269
VBS XX(140)=462:YY(140)=269
VBS XX(141)=463:YY(141)=269
VBS XX(142)=464:YY(142)=269
VBS XX(143)=465:YY(143)=269
VBS XX(144)=466:YY(144)=269
VBS XX(145)=462:YY(145)=270
VBS XX(146)=463:YY(146)=270
VBS XX(147)=464:YY(147)=270
VBS XX(148)=465:YY(148)=270
VBS XX(149)=462:YY(149)=271
VBS XX(150)=463:YY(150)=271
VBS XX(151)=464:YY(151)=271
VBS XX(152)=465:YY(152)=271
VBS XX(153)=462:YY(153)=272
VBS XX(154)=463:YY(154)=272
VBS XX(155)=464:YY(155)=272
VBS XX(156)=465:YY(156)=272
VBS XX(157)=463:YY(157)=273
VBS XX(158)=464:YY(158)=273
VBS XX(159)=463:YY(159)=274
VBS XX(160)=464:YY(160)=274
VBS XX(161)=463:YY(161)=275
VBS XX(162)=464:YY(162)=275
VBS XX(163)=463:YY(163)=276
VBS XX(164)=464:YY(164)=276
Gosub 旋转
Gosub 缩小
Gosub 提取
Return V
Sub W
dim XX(350),YY(350)
VBS XX(1)=451:YY(1)=245
VBS XX(2)=452:YY(2)=245
VBS XX(3)=453:YY(3)=245
VBS XX(4)=454:YY(4)=245
VBS XX(5)=455:YY(5)=245
VBS XX(6)=456:YY(6)=245
VBS XX(7)=457:YY(7)=245
VBS XX(8)=460:YY(8)=245
VBS XX(9)=461:YY(9)=245
VBS XX(10)=462:YY(10)=245
VBS XX(11)=463:YY(11)=245