1000 '**************************
1010 '**  Yukari(YuYu-Shiki)  **
1020 '**           2013/05/25 **
1030 '**           PC-8001mk2 **
1040 '**       by AyaoriThono **
1050 '**************************
1060 WIDTH 80,25:CONSOLE 0,25,0,1
1070 CMD SCREEN 3,0,6:CMD CLS 3
1080 CMD VIEW(60,0)-(259,199)
1090 '----- shitaji -----
1100 CMD LINE(0,0)-(199,199),3,BF
1110 '----- hada iro -----
1120 FOR I=0 TO 199 STEP 2
1130   CMD LINE(I,0)-(199,199-I),1
1140   CMD LINE(0,I)-(199-I,199),1
1150 NEXT
1160 '----- sen -----
1170 CMD LINE(102,0)-(93,5),0
1180 CMD LINE-(86,11),0
1190 CMD LINE-(79,18),0
1200 CMD LINE-(72,26),0
1210 CMD LINE-(66,35),0
1220 CMD LINE-(63,42),0
1230 CMD LINE(89,14)-(83,20),0
1240 CMD LINE-(78,27),0
1250 CMD LINE-(74,35),0
1260 CMD LINE-(69,47),0
1270 CMD LINE-(66,58),0
1280 CMD LINE(89,13)-(79,21),0
1290 CMD LINE-(69,31),0
1300 CMD LINE(76,37)-(72,46),0
1310 CMD LINE-(70,53),0
1320 CMD LINE-(70,60),0
1330 CMD LINE-(77,62),0
1340 CMD LINE-(83,65),0
1350 CMD LINE-(85,61),0
1360 CMD LINE-(85,66),0
1370 CMD LINE-(87,67),0
1380 CMD LINE-(76,82),0
1390 CMD LINE-(64,98),0
1400 CMD LINE-(53,114),0
1410 CMD LINE-(44,129),0
1420 CMD LINE-(39,140),0
1430 CMD LINE-(34,153),0
1440 CMD LINE-(30,169),0
1450 CMD LINE-(28,187),0
1460 CMD LINE-(29,199),0
1470 CMD LINE(73,42)-(69,50),0
1480 CMD LINE(84,84)-(77,96),0
1490 CMD LINE-(70,108),0
1500 CMD LINE-(64,120),0
1510 CMD LINE-(58,134),0
1520 CMD LINE-(54,145),0
1530 CMD LINE-(51,159),0
1540 CMD LINE-(48,175),0
1550 CMD LINE-(48,199),0
1560 CMD LINE(66,114)-(57,127),0
1570 CMD LINE-(50,139),0
1580 CMD LINE-(42,154),0
1590 CMD LINE-(36,167),0
1600 CMD LINE-(32,179),0
1610 CMD LINE-(31,188),0
1620 CMD LINE-(31,199),0
1630 CMD LINE(82,123)-(73,138),0
1640 CMD LINE-(66,152),0
1650 CMD LINE-(60,165),0
1660 CMD LINE-(56,178),0
1670 CMD LINE(82,123)-(75,141),0
1680 CMD LINE-(69,153),0
1690 CMD LINE-(59,174),0
1700 CMD LINE(48,176)-(44,188),0
1710 CMD LINE-(42,199),0
1720 CMD LINE(48,191)-(45,199),0
1730 CMD LINE(100,53)-(101,83),0
1740 CMD LINE-(99,92),0
1750 CMD LINE-(99,96),0
1760 CMD LINE-(100,100),0
1770 CMD LINE-(106,107),0
1780 CMD LINE-(116,116),0
1790 CMD LINE-(125,122),0
1800 CMD LINE-(135,128),0
1810 CMD LINE-(146,132),0
1820 CMD LINE-(149,132),0
1830 CMD LINE-(165,128),0
1840 CMD LINE-(177,123),0
1850 CMD LINE-(189,117),0
1860 CMD LINE(111,26)-(106,37),0
1870 CMD LINE-(104,45),0
1880 CMD LINE-(103,51),0
1890 CMD LINE-(100,53),0
1900 CMD LINE(110,41)-(111,26),0
1910 CMD LINE(110,38)-(114,26),0
1920 CMD LINE-(118,17),0
1930 CMD LINE-(121,12),0
1940 CMD LINE-(118,24),0
1950 CMD LINE-(117,36),0
1960 CMD LINE(129,29)-(134,19),0
1970 CMD LINE-(139,11),0
1980 CMD LINE-(145,4),0
1990 CMD LINE-(142,19),0
2000 CMD LINE-(141,33),0
2010 CMD LINE-(146,11),0
2020 CMD LINE-(150,0),0
2030 CMD LINE(152,0)-(153,11),0
2040 CMD LINE-(156,23),0
2050 CMD LINE-(158,30),0
2060 CMD LINE-(159,0),0
2070 CMD LINE(163,0)-(168,13),0
2080 CMD LINE-(170,20),0
2090 CMD LINE-(172,31),0
2100 CMD LINE-(172,22),0
2110 CMD LINE-(171,8),0
2120 CMD LINE-(175,21),0
2130 CMD LINE-(178,33),0
2140 CMD LINE(195,46)-(198,37),0
2150 CMD LINE-(199,33),0
2160 CMD LINE(199,90)-(193,108),0
2170 CMD LINE-(186,124),0
2180 CMD LINE-(181,134),0
2190 CMD LINE-(176,142),0
2200 CMD LINE-(170,151),0
2210 CMD LINE-(158,168),0
2220 CMD LINE-(152,177),0
2230 CMD LINE-(152,168),0
2240 CMD LINE-(153,160),0
2250 CMD LINE-(157,149),0
2260 CMD LINE-(164,133),0
2270 CMD LINE-(173,118),0
2280 CMD LINE-(181,106),0
2290 CMD LINE-(191,94),0
2300 CMD LINE-(199,87),0
2310 CMD LINE(199,81)-(192,89),0
2320 CMD LINE-(183,101),0
2330 CMD LINE-(175,114),0
2340 CMD LINE(160,140)-(154,154),0
2350 CMD LINE-(149,168),0
2360 CMD LINE-(145,182),0
2370 CMD LINE-(145,186),0
2380 CMD LINE-(137,199),0
2390 CMD LINE(150,199)-(164,181),0
2400 CMD LINE-(177,166),0
2410 CMD LINE-(170,183),0
2420 CMD LINE-(167,194),0
2430 CMD LINE-(165,199),0
2440 CMD LINE(169,199)-(179,174),0
2450 CMD LINE-(188,156),0
2460 CMD LINE-(199,161),0
2470 CMD LINE(133,127)-(132,148),0
2480 CMD LINE-(130,159),0
2490 CMD LINE(170,126)-(167,149),0
2500 CMD LINE(168,139)-(170,139),0
2510 CMD LINE-(174,144),0
2520 CMD LINE(169,144)-(164,153),0
2530 CMD LINE-(152,169),0
2540 CMD LINE(132,145)-(127,152),0
2550 CMD LINE-(123,162),0
2560 CMD LINE-(118,179),0
2570 CMD LINE-(116,184),0
2580 CMD LINE-(116,199),0
2590 CMD LINE(132,138)-(128,138),0
2600 CMD LINE-(120,142),0
2610 CMD LINE-(106,144),0
2620 CMD LINE-(92,147),0
2630 CMD LINE-(90,150),0
2640 CMD LINE-(86,150),0
2650 CMD LINE-(81,152),0
2660 CMD LINE-(77,156),0
2670 CMD LINE-(75,163),0
2680 CMD LINE-(75,181),0
2690 CMD LINE(76,157)-(69,163),0
2700 CMD LINE-(61,172),0
2710 CMD LINE-(55,179),0
2720 CMD LINE-(53,185),0
2730 CMD LINE-(51,199),0
2740 CMD LINE(43,191)-(31,198),0
2750 CMD LINE(122,165)-(130,172),0
2760 CMD LINE(137,173)-(148,172),0
2770 CMD LINE(118,180)-(125,178),0
2780 CMD LINE-(127,178),0
2790 CMD LINE-(137,187),0
2800 CMD LINE(146,176)-(128,199),0
2810 CMD LINE(95,146)-(96,162),0
2820 CMD LINE-(99,176),0
2830 CMD LINE-(103,187),0
2840 CMD LINE-(109,199),0
2850 CMD LINE(91,149)-(93,165),0
2860 CMD LINE-(96,177),0
2870 CMD LINE-(99,186),0
2880 CMD LINE-(103,196),0
2890 CMD LINE-(105,199),0
2900 CMD LINE(94,172)-(92,199),0
2910 CMD LINE(84,184)-(80,199),0
2920 CMD LINE(52,192)-(59,199),0
2930 CMD LINE(199,166)-(177,180),0
2940 CMD LINE(169,184)-(157,191),0
2950 CMD LINE(199,170)-(181,181),0
2960 CMD LINE-(176,184),0
2970 CMD LINE(168,189)-(153,197),0
2980 CMD LINE(104,51)-(108,45),0
2990 CMD LINE-(119,35),0
3000 CMD LINE-(127,29),0
3010 CMD LINE-(130,29),0
3020 CMD LINE-(137,37),0
3030 CMD LINE-(132,40),0
3040 CMD LINE-(131,64),0
3050 CMD LINE-(128,75),0
3060 CMD LINE-(117,77),0
3070 CMD LINE-(117,54),0
3080 CMD LINE-(120,44),0
3090 CMD LINE-(123,38),0
3100 CMD LINE-(113,47),0
3110 CMD LINE-(107,54),0
3120 CMD LINE-(104,51),0
3130 CMD LINE(169,38)-(180,33),0
3140 CMD LINE-(186,33),0
3150 CMD LINE-(195,46),0
3160 CMD LINE-(199,54),0
3170 CMD LINE-(199,66),0
3180 CMD LINE-(192,53),0
3190 CMD LINE-(191,67),0
3200 CMD LINE-(188,77),0
3210 CMD LINE-(184,85),0
3220 CMD LINE-(171,81),0
3230 CMD LINE-(172,67),0
3240 CMD LINE-(175,55),0
3250 CMD LINE-(178,47),0
3260 CMD LINE-(181,43),0
3270 CMD LINE-(185,40),0
3280 CMD LINE-(183,38),0
3290 CMD LINE-(182,38),0
3300 CMD LINE-(172,42),0
3310 CMD LINE-(169,38),0
3320 CMD LINE(141,83)-(141,84),0
3330 CMD LINE(137,110)-(154,112),0
3340 CMD LINE-(154,119),0
3350 CMD LINE-(153,122),0
3360 CMD LINE-(150,125),0
3370 CMD LINE-(148,126),0
3380 CMD LINE-(144,126),0
3390 CMD LINE-(141,125),0
3400 CMD LINE-(138,122),0
3410 CMD LINE-(137,118),0
3420 CMD LINE-(137,110),0
3430 CMD LINE(117,66)-(121,61),0
3440 CMD LINE-(122,67),0
3450 CMD LINE-(124,69),0
3460 CMD LINE-(126,69),0
3470 CMD LINE-(130,66),0
3480 CMD LINE(172,71)-(176,67),0
3490 CMD LINE-(176,72),0
3500 CMD LINE-(177,75),0
3510 CMD LINE-(178,76),0
3520 CMD LINE-(180,76),0
3530 CMD LINE-(182,74),0
3540 CMD LINE-(185,70),0
3550 CMD LINE-(186,70),0
3560 CMD LINE-(187,76),0
3570 CMD LINE(167,192)-(162,199),0
3580 '----- kami paint -----
3590 CMD PAINT(100, 20),0,0
3600 CMD PAINT(156,  6),0,0
3610 CMD PAINT(185,  6),0,0
3620 CMD PAINT(197, 87),0,0
3630 CMD PAINT(190,137),0,0
3640 CMD PAINT(174,130),0,0
3650 CMD PAINT(147,190),0,0
3660 CMD PSET( 76, 23),0
3670 CMD PSET( 75, 24),0
3680 CMD PSET( 74, 25),0
3690 CMD PSET( 73, 26),0
3700 CMD PSET( 72, 27),0
3710 CMD PAINT( 72, 42),0,0
3720 CMD PAINT( 71, 44),0,0
3730 CMD PAINT( 70, 46),0,0
3740 CMD PSET(188, 96),0
3750 CMD PAINT(186, 98),0,0
3760 CMD PSET(185,100),0
3770 CMD PSET(184,101),0
3780 CMD PSET(183,102),0
3790 CMD PSET(182,104),0
3800 CMD PAINT(152,162),0,0
3810 CMD PSET( 61,171),0
3820 CMD PAINT( 46,188),0,0
3830 '----- me -----
3840 CMD PAINT(127, 35),0,0
3850 CMD PAINT(182, 50),0,0
3860 CMD PAINT(121, 71),2,0
3870 CMD PAINT(182, 80),2,0
3880 '----- eri -----
3890 CMD PAINT(108,156),2,0
3900 CMD PAINT(169,148),2,0
3910 CMD PAINT(137,192),2,0
3920 CMD PAINT(190,165),2,0
3930 CMD PAINT(167,183),2,0
3940 CMD PSET(175,169),2
3950 CMD PSET(159,197),2
3960 CMD PSET(159,189),2
3970 '----- fuku -----
3980 FOR C=2 TO 3
3990  CMD PAINT( 93,150),C,0
4000  CMD PAINT( 95,185),C,0
4010  CMD PAINT( 82,167),C,0
4020  CMD PAINT( 53,198),C,0
4030  CMD PAINT( 46,198),C,0
4040  CMD PAINT( 37,197),C,0
4050  CMD PAINT(161,191),C,0
4060  CMD PAINT(182,179),C,0
4070  CMD PAINT(191,187),C,0
4080  CMD PAINT(159,197),C,0
4090  CMD PAINT(164,198),C,0
4100  CMD PAINT(125,187),C,0
4110 NEXT
4120 CMD PSET(176,183),3
4130 CMD PSET(169,185),3
4140 CMD PSET(153,196),3
4150 CMD PSET(166,195),3
4160 CMD PSET( 76,158),3
4170 '----- kuchi -----
4180 CMD PAINT(145,118),2,0
4190 CMD PAINT(145,118),1,0
4200 '----- haikei -----
4210 CMD PAINT( 10, 10),2,0
4220 CMD PAINT( 44,166),2,0
4230 CMD PAINT( 69,149),2,0
4240 CMD PSET( 86, 16),2
4250 CMD PSET( 85, 17),2
4260 CMD PSET( 84, 18),2
4270 CMD PSET( 83, 19),2
4280 CMD PSET( 71, 48),2
4290 CMD PAINT( 64,118),2,0
4300 CMD PSET( 65,117),2
4310 CMD PSET( 66,115),2
4320 CMD PAINT( 78,131),2,0
4330 CMD PSET( 79,129),2
4340 CMD PAINT( 59,171),2,0
4350 CMD PAINT( 58,174),2,0
4360 '----- shiage sen -----
4370 CMD LINE(79,77)-(54,100),0
4380 CMD LINE-(36,118),0
4390 CMD LINE-(26,131),0
4400 CMD LINE-(22,139),0
4410 CMD LINE-(19,149),0
4420 CMD LINE-(19,159),0
4430 CMD LINE-(21,167),0
4440 CMD LINE-(25,173),0
4450 CMD LINE-(32,180),0
4460 CMD LINE-(44,187),0
4470 CMD LINE(193,153)-(186,174),0
4480 CMD LINE-(181,187),0
4490 CMD LINE-(176,199),0
4500 '----- highlight -----
4510 CMD CIRCLE(120, 49), 5,3,,,5/3
4520 CMD PAINT(120, 49),3,3
4530 CMD CIRCLE(178, 53), 4,3,,, 4/3
4540 CMD PAINT(178, 53),3,3
4550 CMD CIRCLE(119, 72),2,3
4560 CMD PAINT(119, 72),3,3
4570 CMD CIRCLE(173, 76),2,3
4580 CMD PAINT(173, 76),3,3
4590 CMD CIRCLE(128, 51),1,3
4600 CMD PSET(128, 51),3
4610 CMD CIRCLE(185, 56),1,3
4620 CMD PSET(185, 56),3
4630 '
4640 FOR T=0 TO 4000:NEXT
4650 GOTO 1100
4660 END