VBS XX(217)=468:YY(217)=272
VBS XX(218)=469:YY(218)=272
VBS XX(219)=470:YY(219)=272
VBS XX(220)=455:YY(220)=273
VBS XX(221)=456:YY(221)=273
VBS XX(222)=457:YY(222)=273
VBS XX(223)=458:YY(223)=273
VBS XX(224)=468:YY(224)=273
VBS XX(225)=469:YY(225)=273
VBS XX(226)=470:YY(226)=273
VBS XX(227)=455:YY(227)=274
VBS XX(228)=456:YY(228)=274
VBS XX(229)=457:YY(229)=274
VBS XX(230)=458:YY(230)=274
VBS XX(231)=468:YY(231)=274
VBS XX(232)=469:YY(232)=274
VBS XX(233)=470:YY(233)=274
VBS XX(234)=455:YY(234)=275
VBS XX(235)=456:YY(235)=275
VBS XX(236)=457:YY(236)=275
VBS XX(237)=458:YY(237)=275
VBS XX(238)=469:YY(238)=275
VBS XX(239)=470:YY(239)=275
VBS XX(240)=471:YY(240)=275
VBS XX(241)=452:YY(241)=276
VBS XX(242)=453:YY(242)=276
VBS XX(243)=454:YY(243)=276
VBS XX(244)=455:YY(244)=276
VBS XX(245)=456:YY(245)=276
VBS XX(246)=457:YY(246)=276
VBS XX(247)=458:YY(247)=276
VBS XX(248)=459:YY(248)=276
VBS XX(249)=460:YY(249)=276
VBS XX(250)=461:YY(250)=276
VBS XX(251)=469:YY(251)=276
VBS XX(252)=470:YY(252)=276
VBS XX(253)=471:YY(253)=276
VBS XX(254)=472:YY(254)=276
VBS XX(255)=473:YY(255)=276
VBS XX(256)=474:YY(256)=276
Gosub 旋转
Gosub 缩小
Gosub 提取
Return R
Sub S
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)=457:YY(9)=246
VBS XX(10)=458:YY(10)=246
VBS XX(11)=459:YY(11)=246
VBS XX(12)=465:YY(12)=246
VBS XX(13)=466:YY(13)=246
VBS XX(14)=467:YY(14)=246
VBS XX(15)=468:YY(15)=246
VBS XX(16)=469:YY(16)=246
VBS XX(17)=470:YY(17)=246
VBS XX(18)=456:YY(18)=247
VBS XX(19)=457:YY(19)=247
VBS XX(20)=467:YY(20)=247
VBS XX(21)=468:YY(21)=247
VBS XX(22)=469:YY(22)=247
VBS XX(23)=470:YY(23)=247
VBS XX(24)=455:YY(24)=248
VBS XX(25)=456:YY(25)=248
VBS XX(26)=457:YY(26)=248
VBS XX(27)=468:YY(27)=248
VBS XX(28)=469:YY(28)=248
VBS XX(29)=470:YY(29)=248
VBS XX(30)=454:YY(30)=249
VBS XX(31)=455:YY(31)=249
VBS XX(32)=456:YY(32)=249
VBS XX(33)=469:YY(33)=249
VBS XX(34)=470:YY(34)=249
VBS XX(35)=454:YY(35)=250
VBS XX(36)=455:YY(36)=250
VBS XX(37)=456:YY(37)=250
VBS XX(38)=469:YY(38)=250
VBS XX(39)=470:YY(39)=250
VBS XX(40)=454:YY(40)=251
VBS XX(41)=455:YY(41)=251
VBS XX(42)=456:YY(42)=251
VBS XX(43)=470:YY(43)=251
VBS XX(44)=471:YY(44)=251
VBS XX(45)=453:YY(45)=252
VBS XX(46)=454:YY(46)=252
VBS XX(47)=455:YY(47)=252
VBS XX(48)=456:YY(48)=252
VBS XX(49)=470:YY(49)=252
VBS XX(50)=453:YY(50)=253
VBS XX(51)=454:YY(51)=253
VBS XX(52)=455:YY(52)=253
VBS XX(53)=456:YY(53)=253
VBS XX(54)=454:YY(54)=254