1000 '***************************** Millhiore Firianno Biscotti (DOGDAYS)
1010 ' for NEC PC-9801  N88-BASIC(86)
1020 '                                                         2011/12/28
1030 '                                                    by Ayaori Tohno
1040 '                                   Original picture by Osamu Sakata
1050 '*******************************************************************
1060 '      initialize
1070 SCREEN 0,0:CONSOLE 0,25,0,1:CLS 3
1080 WINDOW(0,0)-(639,199):VIEW(0,0)-(639,199)
1090 FALSE=0:TRUE=NOT FALSE
1100 PAI=3.14159
1110 DEF FNAG(X)=(X/180)*PAI
1120 PINK$=CHR$(&HFF)+CHR$(&HFF)+CHR$(&H55)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HAA)
1130 HADA$=CHR$(&H55)+CHR$(&HFF)+CHR$(&H77)+CHR$(&HAA)+CHR$(&HFF)+CHR$(&HDD)
1140 EYEP$=CHR$(&HFF)+CHR$(&HAA)+CHR$(&H55)+CHR$(&HFF)+CHR$(&H55)+CHR$(&HAA)
1150 SKY1$=CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&H55)+CHR$(&HFF)
1160 SKY2$=CHR$(&HFF)+CHR$(&HAA)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&H55)+CHR$(&HFF)
1170 SKY3$=CHR$(&HFF)+CHR$(&H0)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HAA)+CHR$(&HFF)
1180 LC=0
1190 '      oekaki
1200 GOSUB *OEKAKI
1210 '      wait for 5 seconds
1220 STARTSEC=VAL(RIGHT$(TIME$,2))
1230 ENDSEC=(STARTSEC+5) MOD 60
1240 CURRENTSEC=VAL(RIGHT$(TIME$,2))
1250 IF CURRENTSEC=ENDSEC THEN 1200 ELSE 1240
1260 END
1270 '
1280 '
1290 *OEKAKI
1300 LINE(0,0)-(639,199),7,BF
1310 '------------------------------------- kami hidari side
1320 CIRCLE(357, 96),152,LC,FNAG(325),FNAG( 23), 77/152
1330 LINE(397, 16)-(411, 15),LC
1340 LINE-(420, 16),LC:LINE-(429, 18),LC:LINE-(439, 21),LC
1350 LINE-(453, 27),LC:LINE-(469, 37),LC:LINE-(479, 45),LC
1360 LINE-(489, 55),LC:LINE-(497, 66),LC
1370 CIRCLE(397, 90),126,LC,FNAG(315),FNAG(  0), 67/126
1380 CIRCLE(425, 90), 98,LC,FNAG(  0),FNAG( 90), 82/ 98
1390 LINE(390, 14)-(396, 12),LC
1400 LINE-(406, 10),LC:LINE-(414,  9),LC:LINE-(425,  8),LC
1410 CIRCLE(426, 55), 63,LC,FNAG(285),FNAG(350), 46/ 63
1420 CIRCLE(426, 55), 75,LC,FNAG(285),FNAG(320), 45/ 75
1430 LINE(402,158)-(406,153),LC
1440 LINE-(410,149),LC:LINE-(416,144),LC:LINE-(427,136),LC
1450 LINE-(442,126),LC:LINE-(450,120),LC:LINE-(457,114),LC
1460 LINE-(463,107),LC:LINE-(469, 98),LC:LINE-(473, 90),LC
1470 LINE(405,154)-(413,149),LC
1480 LINE-(422,144),LC:LINE-(433,139),LC
1490 LINE(418,153)-(421,149),LC
1500 LINE-(425,145),LC:LINE-(429,142),LC:LINE-(435,138),LC
1510 LINE-(444,133),LC:LINE-(456,127),LC
1520 LINE(423,148)-(431,143),LC
1530 LINE-(441,138),LC:LINE-(452,133),LC:LINE-(462,128),LC
1540 LINE-(472,122),LC:LINE-(481,116),LC:LINE-(489,110),LC
1550 LINE-(494,105),LC:LINE-(500, 98),LC:LINE-(505, 89),LC
1560 LINE-(507, 82),LC
1570 '------------------------------------- maegami
1580 CIRCLE(410, 32), 44,LC,FNAG(175),FNAG(265), 44/ 40
1590 CIRCLE(417, 37), 42,LC,FNAG(195),FNAG(250), 42/ 34
1600 CIRCLE(427, 28), 51,LC,FNAG(195),FNAG(260), 38/ 51
1610 CIRCLE(427, 28), 38,LC,FNAG(230),FNAG(257), 38/ 38
1620 CIRCLE(446, 28), 62,LC,FNAG(210),FNAG(248), 39/ 62
1630 LINE(398, 29)-(408, 36),LC
1640 LINE-(423, 48),LC:LINE-(433, 57),LC:LINE-(439, 63),LC
1650 CIRCLE(351, 84),110,LC,FNAG( 20),FNAG( 55), 53/110
1660 CIRCLE(356, 67),101,LC,FNAG(  0),FNAG( 42), 48/101
1670 CIRCLE(430, 70), 51,LC,FNAG(350),FNAG( 60), 48/ 51
1680 CIRCLE(372, 84),105,LC,FNAG(  5),FNAG( 40), 51/105
1690 CIRCLE(400, 73), 47,LC,FNAG(129),FNAG(175), 47/ 47
1700 CIRCLE(397, 58), 50,LC,FNAG(130),FNAG(200), 35/ 50
1710 CIRCLE(378, 70), 44,LC,FNAG(126),FNAG(195), 33/ 44
1720 CIRCLE(360, 50), 39,LC,FNAG(180),FNAG(235), 39/ 38
1730 CIRCLE(360, 73), 34,LC,FNAG(175),FNAG(235), 31/ 34
1740 CIRCLE(344, 62), 39,LC,FNAG(160),FNAG(260), 35/ 39
1750 CIRCLE(380, 85), 94,LC,FNAG( 95),FNAG(143), 68/ 94
1760 CIRCLE(346, 68), 53,LC,FNAG(142),FNAG(240), 37/ 53
1770 CIRCLE(320, 79), 20,LC,FNAG(160),FNAG(250), 20/ 15
1780 '------------------------------------- kami migi side
1790 CIRCLE(370, 80), 35,LC,FNAG(190),FNAG(265), 25/ 35
1800 CIRCLE(370, 80), 40,LC,FNAG(195),FNAG(255), 25/ 40
1810 CIRCLE(376,100), 36,LC,FNAG(185),FNAG(270), 36/ 28
1820 CIRCLE(376,100), 36,LC,FNAG(185),FNAG(270), 36/ 35
1830 CIRCLE(357,133), 30,LC,FNAG(122),FNAG(260), 30/ 28
1840 CIRCLE(357,128), 37,LC,FNAG(180),FNAG(260), 35/ 37
1850 CIRCLE(365,125), 55,LC,FNAG(155),FNAG(229), 34/ 55
1860 CIRCLE(365,125), 55,LC,FNAG(240),FNAG(260), 34/ 55
1870 LINE(314,112)-(319,103),LC
1880 LINE-(324, 92),LC
1890 '------------------------------------- hidari mimi
1900 CIRCLE(344, 80), 92,LC,FNAG(105),FNAG(147), 49/ 92
1910 LINE(267, 53)-(264, 57),LC
1920 LINE-(260, 64),LC:LINE-(256, 74),LC:LINE-(254, 78),LC
1930 LINE-(255, 80),LC:LINE-(261, 81),LC:LINE-(280, 83),LC
1940 LINE-(298, 84),LC
1950 LINE(306, 84)-(314, 84),LC
1960 CIRCLE(300, 82), 39,LC,FNAG(100),FNAG(175), 16/ 39
1970 CIRCLE(460, 55),115,LC,FNAG( 30),FNAG( 86), 39/115
1980 LINE(560, 36)-(568, 41),LC
1990 LINE-(573, 45),LC:LINE-(580, 51),LC:LINE-(584, 55),LC
2000 LINE-(583, 57),LC:LINE-(575, 60),LC:LINE-(563, 64),LC
2010 LINE-(551, 67),LC:LINE-(540, 69),LC:LINE-(521, 72),LC
2020 CIRCLE(530, 58), 49,LC,FNAG(358),FNAG(116), 11/ 49
2030 CIRCLE(400,  0),100,LC,FNAG(180),FNAG(250), 16/100
2040 CIRCLE(400,  0),114,LC,FNAG(180),FNAG(250), 17/114
2050 CIRCLE(522, 16), 59,LC,FNAG( 15),FNAG( 45), 24/ 59
2060 '------------------------------------- kami ushiro
2070 CIRCLE(380, 64),103,LC,FNAG(105),FNAG(155), 51/103
2080 CIRCLE(324, 78), 54,LC,FNAG(187),FNAG(227), 38/ 54
2090 CIRCLE(324, 78), 48,LC,FNAG(187),FNAG(222), 44/ 48
2100 CIRCLE(318, 73), 38,LC,FNAG(197),FNAG(258), 35/ 38
2110 CIRCLE(318, 73), 39,LC,FNAG(198),FNAG(243), 39/ 21
2120 CIRCLE(360, 75), 58,LC,FNAG(200),FNAG(227), 30/ 58
2130 CIRCLE(420, 75),144,LC,FNAG( 50),FNAG(130), 71/144
2140 CIRCLE(440, 56), 99,LC,FNAG(326),FNAG(346), 57/ 99
2150 CIRCLE(440, 56), 99,LC,FNAG(306),FNAG(313), 57/ 99
2160 '------------------------------------- kao rinkaku
2170 CIRCLE(382, 46),136,LC,FNAG(278),FNAG(305), 79/136
2180 LINE(332, 76)-(345, 97),LC
2190 LINE(347,101)-(350,106),LC
2200 LINE-(354,109),LC:LINE-(360,112),LC:LINE-(374,117),LC
2210 LINE-(400,124),LC
2220 '------------------------------------- kamimatome
2230 CIRCLE(476, 10),  4,LC,FNAG(  0),FNAG(170),  4/  4
2240 CIRCLE(489, 12),  4,LC,FNAG(340),FNAG(180),  3/  4
2250 CIRCLE(500, 16),  5,LC,FNAG(330),FNAG(150),  3/  5
2260 CIRCLE(513, 23),  9,LC,FNAG( 15),FNAG(130),  4/  9
2270 CIRCLE(471,  9),  4,LC,FNAG( 60),FNAG(160),  4/  4
2280 CIRCLE(476, 11), 12,LC,FNAG( 30),FNAG( 90),  5/ 12
2290 CIRCLE(489, 14),  9,LC,FNAG(  0),FNAG(135),  5/  9
2300 CIRCLE(502, 18),  9,LC,FNAG(  0),FNAG( 90),  5/  9
2310 CIRCLE(506, 32), 44,LC,FNAG(  5),FNAG(110), 25/ 44
2320 '------------------------------------- ribbon hidari
2330 LINE(561, 65)-(575, 67),LC
2340 LINE-(581, 67),LC:LINE-(584, 66),LC:LINE-(586, 64),LC
2350 LINE-(587, 62),LC:LINE-(584, 60),LC:LINE-(579, 59),LC
2360 LINE(574, 61)-(580, 62),LC
2370 LINE-(583, 62),LC
2380 LINE(557, 66)-(570, 74),LC
2390 LINE-(582, 82),LC:LINE-(592, 89),LC:LINE-(601, 96),LC
2400 LINE-(612,105),LC:LINE-(615,109),LC:LINE-(614,112),LC
2410 LINE-(609,115),LC:LINE-(608,116),LC:LINE-(609,117),LC
2420 LINE-(615,118),LC:LINE-(618,119),LC:LINE-(621,121),LC
2430 LINE-(622,124),LC:LINE-(621,126),LC:LINE-(617,128),LC
2440 LINE-(613,129),LC:LINE-(607,129),LC:LINE-(596,128),LC
2450 LINE-(585,126),LC:LINE-(578,125),LC:LINE-(576,125),LC
2460 LINE-(561,131),LC:LINE-(563,106),LC:LINE-(561, 95),LC
2470 LINE-(557, 82),LC:LINE-(554, 75),LC
2480 LINE(543, 68)-(563,105),LC
2490 LINE(552, 67)-(565, 79),LC
2500 LINE-(573, 89),LC:LINE-(579, 97),LC:LINE-(584,106),LC
2510 LINE-(588,117),LC:LINE-(594,114),LC:LINE-(602,111),LC
2520 LINE-(606,110),LC:LINE-(612,109),LC:LINE-(615,109),LC
2530 LINE(546, 73)-(551, 95),LC
2540 LINE-(551,106),LC:LINE-(549,118),LC:LINE-(547,122),LC
2550 LINE-(544,125),LC:LINE-(540,127),LC:LINE-(535,129),LC
2560 LINE-(529,129),LC:LINE-(523,128),LC:LINE-(516,124),LC
2570 LINE-(511,122),LC:LINE-(508,122),LC
2580 CIRCLE(516, 82), 38,LC,FNAG(292),FNAG( 21), 38/ 29
2590 LINE(528,116)-(531,118),LC
2600 LINE-(537,120),LC:LINE-(541,121),LC:LINE-(544,123),LC
2610 LINE-(544,125),LC
2620 CIRCLE(514, 73), 33,LC,FNAG(282),FNAG(  5), 33/ 22
2630 CIRCLE(506, 73), 28,LC,FNAG(304),FNAG(352), 27/ 28
2640 CIRCLE(618,158),152,LC,FNAG(136),FNAG(158), 79/152
2650 LINE(478,127)-(483,125),LC
2660 LINE-(487,124),LC:LINE-(490,124),LC:LINE-(493,125),LC
2670 LINE-(495,128),LC
2680 LINE(501,129)-(506,128),LC
2690 LINE-(513,123),LC
2700 LINE(505,125)-(506,128),LC
2710 '------------------------------------- ribbon migi
2720 LINE(367,115)-(386,134),LC
2730 LINE-(389,132),LC:LINE-(392,131),LC:LINE-(396,130),LC
2740 LINE(361,112)-(368,121),LC
2750 LINE-(372,127),LC:LINE-(376,134),LC:LINE-(371,133),LC
2760 LINE-(366,133),LC
2770 LINE(329,132)-(340,130),LC
2780 LINE-(347,129),LC:LINE-(349,130),LC:LINE-(348,131),LC
2790 LINE-(341,133),LC:LINE-(339,134),LC:LINE-(338,135),LC
2800 LINE-(339,136),LC:LINE-(343,137),LC:LINE-(349,136),LC
2810 LINE-(355,134),LC:LINE-(359,133),LC:LINE-(361,133),LC
2820 CIRCLE(367,106), 32,LC,FNAG(188),FNAG(230), 32/ 28
2830 LINE(316, 95)-(315,109),LC
2840 LINE(338,134)-(338,131),LC
2850 '------------------------------------- hidari me matsuge
2860 CIRCLE(436, 79), 26,LC,FNAG( 90),FNAG(140), 14/ 26
2870 CIRCLE(436, 79), 27,LC,FNAG(330),FNAG( 90), 14/ 27
2880 CIRCLE(436, 79), 31,LC,FNAG( 90),FNAG(135), 16/ 31
2890 CIRCLE(436, 79), 34,LC,FNAG(342),FNAG( 90), 16/ 34
2900 LINE(459, 87)-(463, 85),LC
2910 LINE-(467, 82),LC:LINE-(468, 85),LC
2920 LINE(414, 72)-(417, 67),LC
2930 PAINT(466, 78),LC,LC
2940 '------------------------------------- hidari me
2950 CIRCLE(438, 79), 18,LC,         ,         , 13/ 18
2960 CIRCLE(438, 79),  8,LC,         ,         ,  6/  8
2970 PAINT(438, 79),LC,LC
2980 CIRCLE(451, 92), 27,LC,FNAG( 80),FNAG(160), 15/ 27
2990 PAINT(436, 70),LC,LC
3000 '------------------------------------- migi me matsuge
3010 CIRCLE(361, 80), 17,LC,FNAG( 45),FNAG(180), 10/ 17
3020 CIRCLE(361, 80), 17,LC,FNAG(180),FNAG(225), 13/ 17
3030 CIRCLE(361, 80), 22,LC,FNAG( 57),FNAG(180), 12/ 22
3040 CIRCLE(361, 80), 22,LC,FNAG(180),FNAG(234), 11/ 22
3050 LINE(372, 72)-(370, 69),LC
3060 PAINT(342, 80),LC,LC
3070 '------------------------------------- migi me
3080 LINE(370, 71)-(363, 71),LC
3090 LINE-(367, 72),LC:LINE-(370, 74),LC:LINE-(373, 78),LC
3100 LINE-(375, 84),LC:LINE-(375, 88),LC:LINE-(373, 91),LC
3110 LINE-(371, 93),LC:LINE-(367, 94),LC:LINE-(362, 94),LC
3120 LINE-(357, 92),LC:LINE-(353, 88),LC:LINE-(351, 82),LC
3130 LINE-(351, 76),LC:LINE-(353, 73),LC:LINE-(357, 71),LC
3140 LINE-(360, 71),LC
3150 LINE(355, 90)-(357, 88),LC
3160 LINE-(361, 86),LC:LINE-(363, 88),LC:LINE-(366, 88),LC
3170 LINE-(368, 86),LC:LINE-(368, 82),LC:LINE-(374, 81),LC
3180 PAINT(362, 80),LC,LC
3190 '------------------------------------- kuchi
3200 CIRCLE(402,104), 15,LC,FNAG(177),FNAG(  2), 10/ 15
3210 CIRCLE(401,107), 23,LC,FNAG( 47),FNAG(130),  5/ 23
3220 '------------------------------------- hana
3230 LINE(381, 95)-(383, 96),LC
3240 '------------------------------------- kubi
3250 LINE(404,124)-(404,126),LC
3260 LINE(453,114)-(453,117),LC
3270 '------------------------------------- kata
3280 CIRCLE(440,137), 60,LC,FNAG( 85),FNAG(136), 13/ 60
3290 LINE(396,129)-(396,139),LC
3300 LINE-(391,141),LC:LINE-(390,143),LC:LINE-(380,146),LC
3310 LINE-(356,150),LC:LINE-(336,153),LC
3320 LINE(457,131)-(457,135),LC
3330 LINE(446,140)-(458,135),LC
3340 LINE-(463,133),LC:LINE-(473,131),LC:LINE-(483,130),LC
3350 LINE-(493,130),LC
3360 LINE(498,131)-(508,133),LC
3370 LINE-(516,136),LC:LINE-(525,140),LC:LINE-(532,144),LC
3380 '------------------------------------- migi ude
3390 LINE(331,154)-(327,155),LC
3400 LINE-(322,157),LC:LINE-(317,159),LC:LINE-(314,162),LC
3410 LINE-(310,167),LC:LINE-(301,182),LC
3420 LINE(302,182)-(291,183),LC
3430 LINE-(287,184),LC:LINE-(283,186),LC:LINE-(278,190),LC
3440 LINE(282,186)-(276,188),LC
3450 LINE-(272,191),LC:LINE-(265,194),LC:LINE-(262,196),LC
3460 LINE-(261,199),LC
3470 '------------------------------------- hidari kata
3480 LINE(477,155)-(453,164),LC
3490 LINE-(448,170),LC
3500 LINE(466,163)-(479,166),LC
3510 LINE-(493,174),LC:LINE-(482,176),LC:LINE-(476,181),LC
3520 '------------------------------------- hidari ude moko
3530 LINE(508,199)-(504,196),LC
3540 LINE-(502,192),LC
3550 LINE(521,199)-(511,197),LC
3560 LINE-(506,195),LC:LINE-(501,191),LC:LINE-(497,186),LC
3570 LINE-(493,178),LC:LINE-(493,173),LC:LINE-(495,171),LC
3580 LINE-(498,169),LC
3590 LINE(507,175)-(504,172),LC
3600 LINE-(499,170),LC:LINE-(497,167),LC:LINE-(497,163),LC
3610 LINE-(500,160),LC
3620 LINE(504,163)-(500,160),LC
3630 LINE-(500,157),LC:LINE-(503,155),LC:LINE-(509,153),LC
3640 LINE-(518,152),LC:LINE-(528,152),LC:LINE-(536,153),LC
3650 LINE-(543,155),LC:LINE-(548,158),LC
3660 LINE(515,152)-(521,148),LC
3670 LINE-(528,145),LC:LINE-(537,143),LC:LINE-(553,142),LC
3680 LINE-(567,142),LC:LINE-(574,143),LC:LINE-(581,145),LC
3690 LINE(565,142)-(575,141),LC
3700 LINE-(584,141),LC:LINE-(593,142),LC:LINE-(600,144),LC
3710 LINE-(604,146),LC:LINE-(607,148),LC:LINE-(609,152),LC
3720 LINE-(607,156),LC
3730 LINE(609,151)-(613,153),LC
3740 LINE-(615,155),LC:LINE-(616,158),LC
3750 LINE(539,199)-(531,194),LC
3760 LINE-(530,185),LC:LINE-(531,180),LC:LINE-(535,175),LC
3770 LINE-(535,172),LC:LINE-(540,167),LC:LINE-(540,166),LC
3780 LINE-(549,159),LC:LINE-(552,159),LC:LINE-(558,157),LC
3790 LINE-(561,155),LC:LINE-(567,155),LC:LINE-(570,154),LC
3800 LINE-(578,153),LC:LINE-(586,154),LC:LINE-(612,157),LC
3810 LINE-(617,159),LC:LINE-(620,162),LC
3820 LINE(551,199)-(551,197),LC
3830 LINE-(558,183),LC:LINE-(566,170),LC:LINE-(570,166),LC
3840 LINE-(573,164),LC:LINE-(588,160),LC:LINE-(604,158),LC
3850 LINE-(610,158),LC
3860 '------------------------------------- hidari ude line
3870 LINE(540,199)-(541,195),LC
3880 LINE-(548,177),LC:LINE-(552,170),LC:LINE-(556,165),LC
3890 LINE-(562,162),LC:LINE-(567,159),LC:LINE-(576,157),LC
3900 LINE-(584,156),LC:LINE-(593,155),LC
3910 LINE(543,199)-(547,190),LC
3920 LINE-(551,180),LC:LINE-(554,174),LC:LINE-(558,169),LC
3930 LINE-(563,165),LC:LINE-(569,162),LC:LINE-(575,160),LC
3940 LINE-(586,158),LC:LINE-(602,156),LC
3950 '------------------------------------- hidari ude
3960 LINE(570,166)-(585,164),LC
3970 LINE-(605,161),LC:LINE-(613,161),LC:LINE-(618,162),LC
3980 LINE-(622,163),LC
3990 LINE(590,160)-(600,162),LC
4000 LINE(582,175)-(585,172),LC
4010 LINE-(588,170),LC:LINE-(597,166),LC:LINE-(605,164),LC
4020 LINE-(630,162),LC:LINE-(639,162),LC
4030 '------------------------------------- kiiro fuchi
4040 CIRCLE(378,137), 32,LC,FNAG(280),FNAG(330), 20/ 32
4050 LINE(408,126)-(408,139),LC
4060 LINE-(405,140),LC:LINE-(405,142),LC:LINE-(403,143),LC
4070 LINE-(403,144),LC:LINE-(405,144),LC:LINE-(407,146),LC
4080 LINE(384,157)-(373,167),LC
4090 LINE-(353,178),LC:LINE-(349,181),LC:LINE-(347,184),LC
4100 LINE-(346,187),LC:LINE-(345,193),LC:LINE-(346,197),LC
4110 LINE-(348,199),LC
4120 CIRCLE(378,137), 36,LC,FNAG(282),FNAG(345), 22/ 36
4130 LINE(440,127)-(428,127),LC
4140 LINE-(414,128),LC:LINE-(413,129),LC:LINE-(413,140),LC
4150 LINE-(410,141),LC:LINE-(408,142),LC:LINE-(412,142),LC
4160 LINE(386,159)-(379,165),LC
4170 LINE(396,132)-(404,130),LC
4180 LINE-(404,139),LC:LINE-(401,141),LC:LINE-(401,143),LC
4190 LINE-(398,143),LC:LINE-(394,144),LC:LINE-(389,146),LC
4200 LINE-(385,147),LC:LINE-(380,149),LC:LINE-(375,152),LC
4210 LINE-(374,154),LC:LINE-(375,157),LC:LINE-(378,158),LC
4220 LINE-(369,167),LC:LINE-(359,172),LC:LINE-(352,176),LC
4230 LINE-(348,179),LC:LINE-(344,183),LC:LINE-(342,186),LC
4240 LINE-(341,192),LC:LINE-(342,196),LC:LINE-(345,199),LC
4250 LINE(386,156)-(383,156),LC
4260 LINE-(380,155),LC:LINE-(380,153),LC:LINE-(381,151),LC
4270 LINE-(384,149),LC:LINE-(387,148),LC:LINE-(392,147),LC
4280 LINE-(396,145),LC:LINE-(400,144),LC:LINE-(402,144),LC
4290 '------------------------------------- fuku munamoto
4300 CIRCLE(460,199),170,LC,FNAG(135),FNAG(170), 46/170
4310 LINE(335,168)-(341,165),LC
4320 LINE-(345,162),LC:LINE-(358,150),LC
4330 LINE(292,192)-(292,194),LC
4340 LINE-(293,197),LC:LINE-(295,199),LC
4350 LINE(438,141)-(430,151),LC
4360 LINE-(428,154),LC:LINE-(428,156),LC:LINE-(436,177),LC
4370 LINE(445,137)-(457,135),LC
4380 LINE(388,162)-(371,169),LC
4390 '------------------------------------- hidar mune line
4400 CIRCLE(396,188), 47,LC,FNAG( 20),FNAG( 90), 19/ 47
4410 CIRCLE(396,188), 50,LC,FNAG( 90),FNAG(135), 19/ 50
4420 CIRCLE(383,192), 56,LC,FNAG( 20),FNAG( 90), 20/ 56
4430 CIRCLE(390,192), 45,LC,FNAG( 90),FNAG(162), 20/ 45
4440 LINE(441,181)-(450,189),LC
4450 LINE-(458,190),LC:LINE-(463,191),LC:LINE-(481,198),LC
4460 LINE(436,186)-(428,184),LC
4470 LINE-(418,182),LC:LINE-(409,181),LC:LINE-(393,180),LC
4480 LINE-(378,189),LC:LINE-(377,199),LC
4490 LINE(387,199)-(388,191),LC
4500 LINE-(398,184),LC:LINE-(403,184),LC:LINE-(416,185),LC
4510 LINE-(423,186),LC:LINE-(432,188),LC:LINE-(438,190),LC
4520 LINE-(442,192),LC:LINE-(449,192),LC:LINE-(456,193),LC
4530 LINE-(466,196),LC
4540 LINE(470,198)-(475,199),LC
4550 LINE(468,193)-(465,197),LC
4560 LINE-(462,199),LC
4570 LINE(471,194)-(470,197),LC
4580 LINE-(468,199),LC
4590 LINE(476,196)-(480,195),LC
4600 LINE-(484,193),LC
4610 '------------------------------------- migi mune line
4620 CIRCLE(317,192), 43,LC,FNAG( 45),FNAG( 90), 13/ 43
4630 LINE(317,179)-(313,179),LC
4640 LINE-(306,180),LC
4650 CIRCLE(312,192), 32,LC,FNAG( 45),FNAG(110), 10/ 32
4660 CIRCLE(355,190), 21,LC,FNAG(165),FNAG(209), 18/ 21
4670 LINE(293,194)-(298,192),LC
4680 LINE-(318,199),LC
4690 LINE(294,198)-(298,197),LC
4700 LINE-(306,199),LC
4710 '------------------------------------- hada
4720 LINE(335,159)-(335,164),LC
4730 LINE-(333,167),LC:LINE-(330,170),LC
4740 LINE(447,175)-(446,182),LC
4750 LINE-(445,185),LC
4760 LINE(494,181)-(491,183),LC
4770 LINE-(481,199),LC
4780 '------------------------------------- sakotsu
4790 LINE(399,148)-(402,146),LC
4800 LINE-(406,145),LC
4810 LINE(393,149)-(390,148),LC
4820 '
4830 '    paint
4840 '
4850 '------------------------------------- kami
4860 PAINT(384, 22),PINK$,LC 'maegami1
4870 PAINT(400, 74),PINK$,LC 'maegami2
4880 PAINT(413, 64),PINK$,LC 'maegami3
4890 PAINT(297,  4),PINK$,LC 'antena1
4900 PAINT(342, 14),PINK$,LC 'antena2
4910 PAINT(356, 15),PINK$,LC 'antena3
4920 PAINT(334, 13),PINK$,LC 'antena4
4930 PAINT(274, 86),PINK$,LC 'migi1
4940 PAINT(289, 86),PINK$,LC 'migi2
4950 PAINT(316, 90),PINK$,LC 'migi3
4960 PAINT(282,101),PINK$,LC 'migi4
4970 PAINT(283,102),PINK$,LC 'migi5
4980 PAINT(284,103),PINK$,LC 'migi6
4990 PAINT(361,131),PINK$,LC 'migi7
5000 PAINT(338, 87),PINK$,LC 'migi8
5010 PAINT(336, 84),PINK$,LC 'migi9
5020 PAINT(343, 95),PINK$,LC 'migi10
5030 PAINT(331, 87),PINK$,LC 'migi sukima
5040 PAINT(332, 89),PINK$,LC 'migi sukima
5050 PAINT(333, 91),PINK$,LC 'migi sukima
5060 PAINT(334, 92),PINK$,LC 'migi sukima
5070 PAINT(335, 93),PINK$,LC 'migi sukima
5080 PAINT(336, 94),PINK$,LC 'migi sukima
5090 PAINT(337, 95),PINK$,LC 'migi sukima
5100 PAINT(338, 96),PINK$,LC 'migi sukima
5110 PAINT(331, 82),PINK$,LC 'migi s1
5120 PAINT(345, 98),PINK$,LC 'migi s1
5130 PAINT(348,100),PINK$,LC 'migi s1
5140 PAINT(346, 99),PINK$,LC 'migi s1
5150 PAINT(361,131),PINK$,LC 'migi s4
5160 PAINT(323,113),PINK$,LC 'migi side1
5170 PAINT(326,148),PINK$,LC 'migi side2
5180 PAINT(342,159),PINK$,LC 'migi side3
5190 PAINT(485, 91),PINK$,LC 'hidari side1
5200 PAINT(410,150),PINK$,LC 'hidari side2
5210 PAINT(425,146),PINK$,LC 'hidari side5
5220 PAINT(489,135),PINK$,LC 'hidari side6
5230 PAINT(464, 93),PINK$,LC 'hidari side7
5240 PAINT(461, 94),PINK$,LC 'hidari side8
5250 PAINT(428,144),PINK$,LC 'hidari side10
5260 PAINT(468, 37),PINK$,LC 'hidari side11
5270 PAINT(469, 38),PINK$,LC 'hidari side12
5280 PAINT(470, 39),PINK$,LC 'hidari side13
5290 PAINT(426,145),PINK$,LC 'hidari side14
5300 PAINT(430,142),PINK$,LC 'hidari side14
5310 PAINT(527, 75),PINK$,LC 'ushiro1
5320 PAINT(505, 95),PINK$,LC 'ushiro2
5330 PAINT(455,114),PINK$,LC 'ushiro3
5340 '------------------------------------- mimi
5350 PAINT(510, 30),PINK$,LC
5360 PAINT(281, 64),PINK$,LC
5370 '------------------------------------- ribbon hidari
5380 PAINT(572, 64),    2,LC
5390 PAINT(588, 98),    2,LC
5400 PAINT(571, 98),    2,LC
5410 PAINT(545,100),    2,LC
5420 PAINT(545, 73),    2,LC
5430 PAINT(537, 90),    2,LC
5440 PAINT(508,124),    2,LC
5450 PAINT(496,116),    2,LC
5460 PAINT(526, 95),    2,LC
5470 PAINT(504,127),    2,LC
5480 PAINT(481,125),    2,LC
5490 '------------------------------------- ribbon migi
5500 PAINT(389,126),    2,LC
5510 PAINT(359,122),    2,LC
5520 PAINT(346,123),    2,LC
5530 PAINT(335,123),    2,LC
5540 PAINT(317,103),    2,LC
5550 PAINT(318, 98),    2,LC
5560 PAINT(342,131),    2,LC
5570 PAINT(369,116),    2,LC
5580 '------------------------------------- hada
5590 SL=0:GOSUB *SHIROME.LINE
5600 '
5610 PAINT(396, 86),HADA$,LC
5620 PAINT(438,121),HADA$,LC
5630 PAINT(464,145),HADA$,LC
5640 PAINT(323,166),HADA$,LC
5650 PAINT(346,159),HADA$,LC
5660 PAINT(349,154),HADA$,LC
5670 PAINT(388,153),HADA$,LC
5680 PAINT(335, 80),HADA$,LC
5690 PAINT(336, 81),HADA$,LC
5700 PAINT(338, 75),HADA$,LC
5710 PAINT(386, 52),HADA$,LC
5720 PAINT(412, 62),HADA$,LC
5730 PAINT(410, 61),HADA$,LC
5740 PAINT(408, 60),HADA$,LC
5750 PAINT(406, 59),HADA$,LC
5760 PAINT(405, 58),HADA$,LC
5770 PAINT(435, 55),HADA$,LC
5780 PAINT(340,156),HADA$,LC
5790 PAINT(454,136),HADA$,LC
5800 SL=7:GOSUB *SHIROME.LINE
5810 '------------------------------------- kuchi
5820 PAINT(399,107),    2,LC
5830 '------------------------------------- mayu
5840 CIRCLE(368, 75), 43,LC,FNAG( 90),FNAG(150), 19/ 43
5850 CIRCLE(425, 74), 60,LC,FNAG( 45),FNAG(110), 22/ 60
5860 '------------------------------------- me
5870 PAINT(364, 90),EYEP$,LC
5880 PAINT(438, 87),EYEP$,LC
5890 '------------------------------------- me highlight
5900 CIRCLE(355, 78),5,7,,,3/5
5910 PAINT(355, 78),7,7
5920 CIRCLE(371, 89),3,7,,,2/3
5930 PAINT(371, 89),7,7
5940 CIRCLE(428, 73),6,7,,,4/6
5950 PAINT(428, 73),7,7
5960 CIRCLE(447, 87),4,7,,,2/4
5970 PAINT(447, 87),7,7
5980 '------------------------------------- fuku pink
5990 PAINT(360,160),    3,LC
6000 PAINT(308,179),    3,LC
6010 PAINT(406,162),    3,LC
6020 PAINT(363,173),    3,LC
6030 PAINT(381,164),    3,LC
6040 PAINT(428,142),    3,LC
6050 PAINT(437,141),    3,LC
6060 PAINT(453,134),    3,LC
6070 PAINT(447,136),    3,LC
6080 PAINT(541,176),    3,LC
6090 PAINT(557,177),    3,LC
6100 PAINT(426,143),    3,LC
6110 PAINT(417,132),    3,LC
6120 PAINT(412,146),    3,LC
6130 PAINT(411,147),    3,LC
6140 PAINT(410,148),    3,LC
6150 PAINT(409,149),    3,LC
6160 PAINT(408,150),    3,LC
6170 PAINT(407,151),    3,LC
6180 PAINT(406,152),    3,LC
6190 '------------------------------------- sode uchigawa
6200 PAINT(607,159),    2,LC
6210 '------------------------------------- fuku yellow
6220 PAINT(404,128),    6,LC
6230 PAINT(403,141),    6,LC
6240 PAINT(397,144),    6,LC
6250 PAINT(393,145),    6,LC
6260 PAINT(388,147),    6,LC
6270 PAINT(384,148),    6,LC
6280 PAINT(382,149),    6,LC
6290 PAINT(380,150),    6,LC
6300 PAINT(391,146),    6,LC
6310 PAINT(410,128),    6,LC
6320 PAINT(384,158),    6,LC
6330 PAINT(374,167),    6,LC
6340 PAINT(367,169),    6,LC
6350 PAINT(365,170),    6,LC
6360 PAINT(363,171),    6,LC
6370 '------------------------------------- red line
6380 PAINT(297,195),    2,LC
6390 PAINT(327,182),    2,LC
6400 PAINT(344,190),    2,LC
6410 PAINT(390,171),    2,LC
6420 PAINT(348,184),    2,LC
6430 PAINT(468,197),    2,LC
6440 PAINT(475,198),    2,LC
6450 PAINT(481,196),    2,LC
6460 PAINT(545,189),    2,LC
6470 PAINT(483,194),    2,LC
6480 PAINT(350,181),    2,LC
6490 '------------------------------------- kuchi shita
6500 LINE(388,107)-(390,105),LC
6510 LINE-(393,103),LC:LINE-(396,102),LC
6520 '------------------------------------- fuku shiwa
6530 LINE(291,193)-(288,195),LC
6540 LINE-(285,198),LC:LINE-(285,199),LC
6550 LINE(283,195)-(287,193),LC
6560 LINE-(292,191),LC
6570 LINE(433,195)-(430,197),LC
6580 LINE-(426,199),LC:LINE-(423,199),LC
6590 LINE(441,194)-(437,197),LC
6600 LINE-(433,199),LC:LINE-(430,199),LC
6610 LINE(510,187)-(514,190),LC
6620 LINE-(523,192),LC
6630 LINE(515,188)-(522,189),LC
6640 LINE-(525,190),LC:LINE-(529,193),LC
6650 LINE(514,178)-(520,180),LC
6660 LINE-(531,180),LC
6670 LINE(525,150)-(534,151),LC
6680 LINE-(541,153),LC:LINE-(547,156),LC
6690 LINE(568,153)-(564,152),LC
6700 LINE-(560,147),LC:LINE-(567,148),LC:LINE-(570,150),LC
6710 LINE(585,149)-(587,152),LC
6720 LINE-(586,154),LC
6730 CIRCLE(616,195), 39,LC,FNAG(115),FNAG(180), 31/ 39
6740 '------------------------------------- haikei
6750 SAGYOCHU=TRUE:GOSUB *HAIKEI.LINE
6760 PAINT(100, 60),SKY1$,0:PAINT(608, 60),SKY1$,0
6770 '
6780 PAINT(100,100),SKY2$,0:PAINT(367,117),SKY2$,0
6790 PAINT(499,104),SKY2$,0:PAINT(556,104),SKY2$,0
6800 PAINT(526, 87),SKY2$,0:PAINT(367,117),SKY2$,0
6810 PAINT(624,100),SKY2$,0:PAINT(312, 94),SKY2$,0
6820 '
6830 PAINT(100,140),SKY3$,0:PAINT(353,141),SKY3$,0
6840 PAINT(470,127),SKY3$,0:PAINT(543,134),SKY3$,0
6850 '
6860 PAINT(100,180),    5,0:PAINT(489,194),    5,0
6870 PAINT(622,161),    5,0
6880 SAGYOCHU=FALSE:GOSUB *HAIKEI.LINE
6890 '------------------------------------- logo D
6900 LINE(  8, 77)-( 39,104),1,B
6910 PAINT( 10, 78),6,1
6920 LINE( 11, 79)-( 11,102),1
6930 LINE-( 30,102),1:LINE-( 34,101),1:LINE-( 36, 99),1
6940 LINE-( 36, 82),1:LINE-( 34, 80),1:LINE-( 31, 79),1
6950 LINE-( 11, 79),1
6960 LINE( 21, 84)-( 21, 98),1
6970 LINE-( 24, 98),1:LINE-( 26, 97),1:LINE-( 26, 85),1
6980 LINE-( 24, 84),1:LINE-( 21, 84),1
6990 PAINT( 16, 88),1,1
7000 LINE( 11, 95)-( 12, 98),6,BF
7010 LINE( 19, 79)-( 26, 79),6,BF
7020 '------------------------------------- logo O
7030 LINE( 39, 78)-( 70, 79),1
7040 LINE-( 65,103),1:LINE-( 39,102),1
7050 PAINT( 48, 85),6,1
7060 LINE( 39, 89)-( 42, 83),1
7070 LINE-( 45, 81),1:LINE-( 48, 80),1:LINE-( 60, 81),1
7080 LINE-( 65, 83),1:LINE-( 66, 86),1:LINE-( 63, 97),1
7090 LINE-( 61, 99),1:LINE-( 56,101),1:LINE-( 47,101),1
7100 LINE-( 42, 99),1:LINE-( 40, 96),1:LINE-( 39, 92),1
7110 LINE( 52, 83)-( 50, 97),1
7120 LINE-( 51, 98),1:LINE-( 54, 97),1:LINE-( 56, 84),1
7130 LINE-( 55, 83),1:LINE-( 52, 83),1
7140 PAINT( 48, 88),1,1
7150 '------------------------------------- logo G
7160 LINE( 70, 78)-(101, 79),1
7170 LINE-( 97,104),1:LINE-( 65,103),1
7180 PAINT( 81, 92),6,1
7190 LINE( 96, 91)-( 85, 91),1
7200 LINE-( 85, 95),1:LINE-( 87, 95),1:LINE-( 86, 98),1
7210 LINE-( 84, 99),1:LINE-( 83, 99),1:LINE-( 81, 98),1
7220 LINE-( 83, 84),1:LINE-( 87, 84),1:LINE-( 87, 88),1
7230 LINE-( 97, 88),1:LINE-( 97, 84),1:LINE-( 96, 82),1
7240 LINE-( 92, 80),1:LINE-( 80, 80),1:LINE-( 76, 81),1
7250 LINE-( 73, 83),1:LINE-( 71, 98),1:LINE-( 73,101),1
7260 LINE-( 94,102),1:LINE-( 96, 91),1
7270 PAINT( 75, 89),1,1
7280 '------------------------------------- logo D
7290 LINE(106, 77)-(104,103),1
7300 LINE-(137,104),1:LINE-(139, 78),1:LINE-(106, 77),1
7310 PAINT(114, 88),1,1
7320 LINE(110, 80)-(108,101),7
7330 LINE-(129,102),7:LINE-(134,100),7:LINE-(135, 83),7
7340 LINE-(132, 81),7:LINE-(110, 80),7
7350 LINE(120, 84)-(119, 99),7
7360 LINE-(122, 99),7:LINE-(124, 98),7:LINE-(125, 85),7
7370 LINE-(124, 84),7:LINE-(120, 84),7
7380 PAINT(112, 90),7,7
7390 '------------------------------------- logo A
7400 LINE(139, 79)-(159, 79),1
7410 LINE-(159, 76),1:LINE-(195, 76),1:LINE-(195,104),1
7420 LINE-(169,104),1
7430 LINE(169, 90)-(169,105),1
7440 LINE-(137,105),1
7450 PAINT(160, 90),6,1
7460 LINE(139,103)-(144, 81),1
7470 LINE-(158, 81),1:LINE-(165,103),1:LINE-(155,103),1
7480 LINE-(154, 99),1:LINE-(151, 99),1:LINE-(150,103),1
7490 LINE-(139,103),1
7500 LINE(150, 96)-(151, 90),1
7510 LINE-(152, 90),1:LINE-(154, 96),1:LINE-(151, 96),1
7520 PAINT(145, 90),1,1
7530 '------------------------------------- logo Y
7540 LINE(173,101)-(173, 91),1
7550 LINE-(163, 78),1:LINE-(172, 78),1:LINE-(177, 85),1
7560 LINE-(181, 78),1:LINE-(191, 78),1:LINE-(182, 91),1
7570 LINE-(182,101),1:LINE-(173,101),1
7580 PAINT(177, 88),1,1
7590 '------------------------------------- logo S
7600 LINE(197, 75)-(232,102),1,B
7610 PAINT(200, 80),6,1
7620 CIRCLE(212, 83), 13, 1,FNAG(  0),FNAG(180),  6/ 13
7630 CIRCLE(214, 94), 15, 1,FNAG(180),FNAG(270),  6/ 15
7640 LINE(199, 83)-(200, 86),1
7650 LINE-(203, 88),1:LINE-(209, 90),1:LINE-(213, 92),1
7660 LINE-(215, 94),1:LINE-(215, 95),1:LINE-(214, 96),1
7670 LINE-(212, 96),1:LINE-(210, 95),1:LINE-(210, 92),1
7680 LINE-(199, 92),1:LINE-(199, 95),1
7690 LINE(225, 84)-(225, 85),1
7700 LINE-(215, 85),1:LINE-(215, 83),1:LINE-(213, 82),1
7710 LINE-(211, 84),1:LINE-(210, 83),1:LINE-(210, 84),1
7720 LINE-(211, 85),1:LINE-(213, 86),1:LINE-(220, 88),1
7730 LINE-(224, 90),1:LINE-(226, 93),1:LINE-(226, 95),1
7740 LINE-(225, 98),1:LINE-(223, 99),1:LINE-(218,100),1
7750 LINE-(215,100),1
7760 PAINT(220, 98),1,1
7770 LINE(223, 79)-(225, 82),6,BF
7780 RETURN
7790 '
7800 *SHIROME.LINE
7810 LINE(350, 89)-(356, 93),SL
7820 LINE-(360, 94),SL
7830 LINE(443, 92)-(447, 92),SL
7840 LINE-(455, 89),SL:LINE-(460, 86),SL
7850 LINE(419, 69)-(418, 76),SL
7860 LINE-(418, 82),SL:LINE-(419, 85),SL:LINE-(422, 88),SL
7870 LINE-(427, 91),SL:LINE-(430, 92),SL:LINE-(433, 92),SL
7880 LINE(373, 73)-(376, 79),SL
7890 LINE-(377, 86),SL:LINE-(376, 90),SL:LINE-(374, 93),SL
7900 LINE-(372, 94),SL:LINE-(370, 94),SL
7910 RETURN
7920 '
7930 *HAIKEI.LINE
7940 HL1=0:HL2=0
7950 IF SAGYOCHU=FALSE THEN HL1=7:HL2=5
7960 LINE(  0, 40)-(288, 40),HL1:LINE(568, 40)-(639, 40),HL1
7970 LINE(  0, 80)-(254, 80),HL1:LINE(531, 80)-(532, 80),HL1
7980 LINE(580, 80)-(639, 80),HL1
7990 LINE(  0,120)-(310,120),HL2:LINE(368,120)-(371,120),HL2
8000 LINE(476,120)-(484,120),HL2
8010 LINE(549,120)-(561,120),HL2:LINE(621,120)-(639,120),HL2
8020 LINE(  0,160)-(315,160),HL2:LINE(619,160)-(639,160),HL2
8030 RETURN