VBS XX(84)=468:YY(84)=262
    VBS XX(85)=465:YY(85)=263
    VBS XX(86)=466:YY(86)=263
    VBS XX(87)=467:YY(87)=263
    VBS XX(88)=468:YY(88)=263
    VBS XX(89)=465:YY(89)=264
    VBS XX(90)=466:YY(90)=264
    VBS XX(91)=467:YY(91)=264
    VBS XX(92)=468:YY(92)=264
    VBS XX(93)=465:YY(93)=265
    VBS XX(94)=466:YY(94)=265
    VBS XX(95)=467:YY(95)=265
    VBS XX(96)=468:YY(96)=265
    VBS XX(97)=465:YY(97)=266
    VBS XX(98)=466:YY(98)=266
    VBS XX(99)=467:YY(99)=266
    VBS XX(100)=468:YY(100)=266
    VBS XX(101)=465:YY(101)=267
    VBS XX(102)=466:YY(102)=267
    VBS XX(103)=467:YY(103)=267
    VBS XX(104)=468:YY(104)=267
    VBS XX(105)=465:YY(105)=268
    VBS XX(106)=466:YY(106)=268
    VBS XX(107)=467:YY(107)=268
    VBS XX(108)=468:YY(108)=268
    VBS XX(109)=465:YY(109)=269
    VBS XX(110)=466:YY(110)=269
    VBS XX(111)=467:YY(111)=269
    VBS XX(112)=468:YY(112)=269
    VBS XX(113)=465:YY(113)=270
    VBS XX(114)=466:YY(114)=270
    VBS XX(115)=467:YY(115)=270
    VBS XX(116)=468:YY(116)=270
    VBS XX(117)=465:YY(117)=271
    VBS XX(118)=466:YY(118)=271
    VBS XX(119)=467:YY(119)=271
    VBS XX(120)=468:YY(120)=271
    VBS XX(121)=465:YY(121)=272
    VBS XX(122)=466:YY(122)=272
    VBS XX(123)=467:YY(123)=272
    VBS XX(124)=468:YY(124)=272
    VBS XX(125)=465:YY(125)=273
    VBS XX(126)=466:YY(126)=273
    VBS XX(127)=467:YY(127)=273
    VBS XX(128)=468:YY(128)=273
    VBS XX(129)=465:YY(129)=274
    VBS XX(130)=466:YY(130)=274
    VBS XX(131)=467:YY(131)=274
    VBS XX(132)=468:YY(132)=274
    VBS XX(133)=465:YY(133)=275
    VBS XX(134)=466:YY(134)=275
    VBS XX(135)=467:YY(135)=275
    VBS XX(136)=468:YY(136)=275
    VBS XX(137)=465:YY(137)=276
    VBS XX(138)=466:YY(138)=276
    VBS XX(139)=467:YY(139)=276
    VBS XX(140)=454:YY(140)=277
    VBS XX(141)=455:YY(141)=277
    VBS XX(142)=456:YY(142)=277
    VBS XX(143)=465:YY(143)=277
    VBS XX(144)=466:YY(144)=277
    VBS XX(145)=467:YY(145)=277
    VBS XX(146)=454:YY(146)=278
    VBS XX(147)=455:YY(147)=278
    VBS XX(148)=456:YY(148)=278
    VBS XX(149)=465:YY(149)=278
    VBS XX(150)=466:YY(150)=278
    VBS XX(151)=467:YY(151)=278
    VBS XX(152)=453:YY(152)=279
    VBS XX(153)=454:YY(153)=279
    VBS XX(154)=455:YY(154)=279
    VBS XX(155)=456:YY(155)=279
    VBS XX(156)=457:YY(156)=279
    VBS XX(157)=465:YY(157)=279
    VBS XX(158)=466:YY(158)=279
    VBS XX(159)=454:YY(159)=280
    VBS XX(160)=455:YY(160)=280
    VBS XX(161)=456:YY(161)=280
    VBS XX(162)=464:YY(162)=280
    VBS XX(163)=465:YY(163)=280
    VBS XX(164)=455:YY(164)=281
    VBS XX(165)=456:YY(165)=281
    VBS XX(166)=457:YY(166)=281
    VBS XX(167)=462:YY(167)=281
    VBS XX(168)=463:YY(168)=281
    VBS XX(169)=464:YY(169)=281
    VBS XX(170)=456:YY(170)=282
    VBS XX(171)=457:YY(171)=282
    VBS XX(172)=458:YY(172)=282
    VBS XX(173)=459:YY(173)=282
    VBS XX(174)=460:YY(174)=282
    VBS XX(175)=461:YY(175)=282
    VBS XX(176)=462:YY(176)=282
    Gosub 旋转
    Gosub 缩小
    Gosub 提取
Return J
Sub K
    dim XX(350),YY(350)
    VBS XX(1)=452:YY(1)=245