VBS XX(155)=458:YY(155)=276
VBS XX(156)=459:YY(156)=276
VBS XX(157)=460:YY(157)=276
VBS XX(158)=461:YY(158)=276
VBS XX(159)=462:YY(159)=276
VBS XX(160)=463:YY(160)=276
VBS XX(161)=464:YY(161)=276
VBS XX(162)=465:YY(162)=276
VBS XX(163)=466:YY(163)=276
VBS XX(164)=467:YY(164)=276
VBS XX(165)=468:YY(165)=276
VBS XX(166)=469:YY(166)=276
VBS XX(167)=470:YY(167)=276
VBS XX(168)=471:YY(168)=276
Gosub 旋转
Gosub 缩小
Gosub 提取
Return Z
Sub 0
dim XX(350),YY(350)
VBS XX(1)=460:YY(1)=245
VBS XX(2)=461:YY(2)=245
VBS XX(3)=462:YY(3)=245
VBS XX(4)=463:YY(4)=245
VBS XX(5)=464:YY(5)=245
VBS XX(6)=465:YY(6)=245
VBS XX(7)=459:YY(7)=246
VBS XX(8)=460:YY(8)=246
VBS XX(9)=465:YY(9)=246
VBS XX(10)=466:YY(10)=246
VBS XX(11)=458:YY(11)=247
VBS XX(12)=459:YY(12)=247
VBS XX(13)=466:YY(13)=247
VBS XX(14)=467:YY(14)=247
VBS XX(15)=468:YY(15)=247
VBS XX(16)=457:YY(16)=248
VBS XX(17)=458:YY(17)=248
VBS XX(18)=467:YY(18)=248
VBS XX(19)=468:YY(19)=248
VBS XX(20)=456:YY(20)=249
VBS XX(21)=457:YY(21)=249
VBS XX(22)=458:YY(22)=249
VBS XX(23)=468:YY(23)=249
VBS XX(24)=469:YY(24)=249
VBS XX(25)=456:YY(25)=250
VBS XX(26)=457:YY(26)=250
VBS XX(27)=468:YY(27)=250
VBS XX(28)=469:YY(28)=250
VBS XX(29)=470:YY(29)=250
VBS XX(30)=455:YY(30)=251
VBS XX(31)=456:YY(31)=251
VBS XX(32)=457:YY(32)=251
VBS XX(33)=468:YY(33)=251
VBS XX(34)=469:YY(34)=251
VBS XX(35)=470:YY(35)=251
VBS XX(36)=455:YY(36)=252
VBS XX(37)=456:YY(37)=252
VBS XX(38)=457:YY(38)=252
VBS XX(39)=469:YY(39)=252
VBS XX(40)=470:YY(40)=252
VBS XX(41)=454:YY(41)=253
VBS XX(42)=455:YY(42)=253
VBS XX(43)=456:YY(43)=253
VBS XX(44)=469:YY(44)=253
VBS XX(45)=470:YY(45)=253
VBS XX(46)=471:YY(46)=253
VBS XX(47)=454:YY(47)=254
VBS XX(48)=455:YY(48)=254
VBS XX(49)=456:YY(49)=254
VBS XX(50)=469:YY(50)=254
VBS XX(51)=470:YY(51)=254
VBS XX(52)=471:YY(52)=254
VBS XX(53)=454:YY(53)=255
VBS XX(54)=455:YY(54)=255
VBS XX(55)=456:YY(55)=255
VBS XX(56)=469:YY(56)=255
VBS XX(57)=470:YY(57)=255
VBS XX(58)=471:YY(58)=255
VBS XX(59)=454:YY(59)=256
VBS XX(60)=455:YY(60)=256
VBS XX(61)=456:YY(61)=256
VBS XX(62)=469:YY(62)=256
VBS XX(63)=470:YY(63)=256
VBS XX(64)=471:YY(64)=256
VBS XX(65)=454:YY(65)=257
VBS XX(66)=455:YY(66)=257
VBS XX(67)=456:YY(67)=257
VBS XX(68)=469:YY(68)=257
VBS XX(69)=470:YY(69)=257
VBS XX(70)=471:YY(70)=257
VBS XX(71)=453:YY(71)=258
VBS XX(72)=454:YY(72)=258
VBS XX(73)=455:YY(73)=258
VBS XX(74)=456:YY(74)=258
VBS XX(75)=469:YY(75)=258
VBS XX(76)=470:YY(76)=258
VBS XX(77)=471:YY(77)=258
VBS XX(78)=472:YY(78)=258
VBS XX(79)=453:YY(79)=259
VBS XX(80)=454:YY(80)=259