10 REM *** YOSHINOYA SENSEI ***
20 REM               2011/11/26
30 REM             Ayaori Tohno
40 REM ************************
50 SCREEN 3,2,2:COLOR ,2,1
60 CLS
70 REM ******* KAMI01
80 COLOR 3
90 LINE( 87, 59)-( 80, 66)
100 LINE-( 74, 71)
110 LINE-( 84, 59)
120 LINE-( 90, 50)
130 LINE-( 97, 41)
140 LINE-(104, 33)
150 LINE-(112, 26)
160 LINE-(121, 20)
170 LINE-(133, 14)
180 LINE-(147, 10)
190 LINE-(162,  8)
200 LINE-(176,  8)
210 LINE-(188, 10)
220 LINE-(200, 14)
230 LINE-(211, 20)
240 LINE-(219, 27)
250 LINE-(226, 34)
260 LINE-(233, 43)
270 REM ******* KAMI02
280 LINE( 87, 59)-( 84, 66)
290 LINE-( 82, 73)
300 LINE-( 80, 84)
310 LINE-( 79, 95)
320 REM ******* KAMI03
330 LINE(102, 49)-( 97, 59)
340 LINE-( 93, 70)
350 LINE-( 91, 80)
360 LINE-( 89,100)
370 LINE-( 86, 98)
380 LINE-( 84, 95)
390 LINE-( 79, 95)
400 REM ******* KAMI04
410 LINE( 89, 96)-( 92,100)
420 LINE-( 96,107)
430 REM ******* KAMI05
440 LINE( 96, 75)-( 96, 95)
450 LINE-( 97,112)
460 REM ******* KAMI06
470 LINE(112, 53)-(110, 62)
480 LINE-(108, 76)
490 LINE-(107, 89)
500 LINE-(108,109)
510 LINE-( 97,112)
520 REM ******* KAMI07
530 LINE(127, 47)-(124, 53)
540 LINE-(121, 62)
550 LINE-(119, 72)
560 LINE-(118, 85)
570 LINE-(118, 99)
580 LINE-(113,100)
590 LINE-(109,103)
600 LINE-(108,106)
610 REM ******* KAMI08
620 LINE(124, 51)-(122, 64)
630 LINE-(121, 78)
640 LINE-(122, 95)
650 LINE-(127, 91)
660 LINE-(130, 90)
670 LINE-(136, 89)
680 LINE-(139, 88)
690 LINE-(140,86)
700 REM ******* KAMI09
710 LINE(146, 47)-(144, 57)
720 LINE-(142, 73)
730 LINE-(141, 90)
740 REM ******* KAMI10
750 LINE(146, 47)-(148, 58)
760 LINE-(151,69)
770 LINE-(155, 80)
780 LINE-(158, 86)
790 REM ******* KAMI11
800 LINE(150, 49)-(152, 59)
810 LINE-(155, 69)
820 LINE-(159, 78)
830 LINE-(163, 85)
840 REM ******* KAMI12
850 LINE(165, 41)-(171, 48)
860 LINE-(176, 55)
870 LINE-(179, 60)
880 LINE-(183, 69)
890 LINE-(186, 78)
900 LINE-(187, 81)
910 REM ******* KAMI13
920 LINE(172, 51)-(176, 60)
930 LINE-(178, 66)
940 LINE-(180, 74)
950 LINE-(181, 81)
960 LINE-(174, 82)
970 LINE-(166, 82)
980 LINE-(164, 83)
990 LINE-(162, 84)
1000 REM ******* KAMI14
1010 LINE(182, 39)-(187, 44)
1020 LINE-(192, 52)
1030 LINE-(196, 61)
1040 LINE-(198, 67)
1050 LINE-(200, 76)
1060 LINE-(201, 81)
1070 LINE-(198, 80)
1080 LINE-(195, 81)
1090 LINE-(192, 79)
1100 LINE-(187, 81)
1110 REM ***** KAMI15
1120 LINE(193, 40)-(199, 47)
1130 LINE-(203, 53)
1140 LINE-(208, 61)
1150 LINE-(212, 69)
1160 LINE-(215, 77)
1170 LINE-(218, 87)
1180 REM ******* KAMI16
1190 LINE(189, 47)-(195, 55)
1200 LINE-(199, 62)
1210 LINE-(203, 71)
1220 LINE-(206, 81)
1230 LINE-(212, 82)
1240 LINE-(210, 74)
1250 LINE-(207, 65)
1260 LINE-(203, 55)
1270 REM ******* KAMI17
1280 LINE(208, 40)-(214, 46)
1290 LINE-(219, 53)
1300 LINE-(224, 62)
1310 LINE-(228, 72)
1320 LINE-(230, 80)
1330 LINE-(231, 88)
1340 LINE-(225, 86)
1350 LINE-(218, 87)
1360 REM ******* KAMIYUI1
1370 LINE(216, 49)-(221, 51)
1380 LINE-(226, 52)
1390 LINE-(230, 51)
1400 LINE-(232, 49)
1410 LINE-(233, 46)
1420 LINE-(232, 41)
1430 REM ******* KAMIYUI2
1440 LINE(228, 38)-(233, 38)
1450 LINE-(236, 40)
1460 LINE-(237, 43)
1470 LINE-(237, 53)
1480 REM ******* KAMIYUI3
1490 LINE(237, 48)-(240, 52)
1500 LINE-(241, 56)
1510 LINE-(240, 59)
1520 LINE-(236, 63)
1530 LINE-(232, 65)
1540 LINE-(228, 65)
1550 LINE-(224, 64)
1560 REM ******* KAMIYUI4
1570 LINE(226, 68)-(230, 71)
1580 LINE-(234, 73)
1590 LINE-(238, 73)
1600 LINE-(241, 71)
1610 LINE-(243, 67)
1620 LINE-(243, 60)
1630 LINE-(241, 56)
1640 REM ******* KAMIUSHIRO1
1650 LINE(243, 64)-(246, 78)
1660 LINE-(248, 94)
1670 LINE-(250,126)
1680 LINE-(252,150)
1690 LINE-(255,177)
1700 REM ******* KAMIUSHIRO2
1710 LINE( 99,110)-( 99,120)
1720 LINE-( 98,130)
1730 LINE-( 95,142)
1740 LINE-( 91,155)
1750 LINE-( 86,171)
1760 LINE-( 83,183)
1770 LINE-( 82,191)
1780 REM ******* KAMI SIDE L
1790 LINE(222, 85)-(218,114)
1800 LINE-(214,137)
1810 LINE-(211,151)
1820 LINE-(208,163)
1830 LINE(218,127)-(215,144)
1840 LINE-(213,155)
1850 LINE-(210,165)
1860 LINE(234,80)-(236,123)
1870 LINE-(236,150)
1880 LINE-(235,168)
1890 LINE-(229,164)
1900 LINE-(225,163)
1910 LINE-(220,164)
1920 LINE-(216,162)
1930 LINE-(214,162)
1940 LINE-(210,163)
1950 LINE(228, 99)-(227,127)
1960 LINE-(225,145)
1970 LINE-(223,157)
1980 LINE-(222,164)
1990 REM ******* KAO RINKAKU
2000 LINE(112, 99)-(122,128)
2010 LINE-(125,133)
2020 LINE-(129,137)
2030 LINE-(134,140)
2040 LINE-(142,143)
2050 LINE-(156,146)
2060 LINE-(169,147)
2070 LINE-(174,147)
2080 LINE-(184,145)
2090 LINE-(192,142)
2100 LINE-(202,137)
2110 LINE-(209,132)
2120 LINE-(215,127)
2130 REM ******* KAMI SIDE R
2140 LINE(111,100)-(110,120)
2150 LINE-(108,134)
2160 LINE-(105,144)
2170 LINE-(102,154)
2180 LINE-(100,165)
2190 LINE-(100,172)
2200 LINE(106,148)-(103,171)
2210 LINE-(108,168)
2220 LINE-(116,166)
2230 LINE-(125,167)
2240 LINE-(127,161)
2250 LINE-(129,152)
2260 LINE-(130,144)
2270 LINE-(130,138)
2280 LINE(119,129)-(118,140)
2290 LINE-(116,154)
2300 LINE-(114,167)
2310 LINE(120,142)-(119,158)
2320 LINE-(118,167)
2330 REM ******* MIGIME
2340 LINE(124,108)-(128,104)
2350 LINE-(132,101)
2360 LINE-(136, 99)
2370 LINE-(142, 97)
2380 LINE-(145, 97)
2390 LINE-(145,102)
2400 LINE-(138,103)
2410 LINE-(134,105)
2420 LINE-(130,108)
2430 LINE-(127,111)
2440 LINE-(124,108)
2450 PAINT(140,100),3,3
2460 REM ******* HIDARIME
2470 LINE(187, 91)-(198, 91)
2480 LINE-(205, 93)
2490 LINE-(210, 96)
2500 LINE-(211, 97)
2510 LINE-(210,100)
2520 LINE-(204, 97)
2530 LINE-(195, 95)
2540 LINE-(187, 96)
2550 LINE-(187, 91)
2560 PAINT(192,92),3,3
2570 REM ******* HANA
2580 LINE(167,114)-(169,116)
2590 REM ******* KUCHI
2600 LINE(165,128)-(169,130)
2610 LINE-(172,130)
2620 LINE-(175,129)
2630 LINE-(178,127)
2640 REM ******* HOPPE
2650 COLOR 4
2660 LINE(126,127)-(131,121)
2670 LINE(131,127)-(137,120)
2680 LINE(205,114)-(211,109)
2690 LINE(211,115)-(216,110)
2700 REM ******* FUKU KUBI
2710 COLOR 3
2720 LINE(152,154)-(161,154)
2730 LINE-(166,156)
2740 LINE-(177,160)
2750 LINE(170,157)-(179,156)
2760 LINE-(186,154)
2770 LINE-(190,151)
2780 LINE(157,149)-(150,151)
2790 LINE-(148,153)
2800 LINE-(148,165)
2810 LINE(147,159)-(144,162)
2820 LINE-(143,165)
2830 LINE-(145,168)
2840 LINE-(151,172)
2850 LINE-(160,176)
2860 LINE-(170,178)
2870 LINE-(180,178)
2880 LINE-(188,176)
2890 LINE-(194,173)
2900 LINE-(200,168)
2910 LINE-(203,163)
2920 LINE-(199,160)
2930 LINE-(195,156)
2940 LINE(184,147)-(192,148)
2950 LINE-(195,150)
2960 LINE-(195,159)
2970 LINE-(190,164)
2980 LINE-(186,168)
2990 REM ******* FUKU
3000 LINE(141,163)-(133,163)
3010 LINE-(126,163)
3020 LINE(109,168)-( 90,191)
3030 LINE(120,181)-(115,191)
3040 LINE(202,163)-(216,170)
3050 LINE-(227,174)
3060 LINE-(235,178)
3070 LINE-(241,183)
3080 LINE-(245,188)
3090 LINE-(247,191)
3100 REM ******* KUBI
3110 LINE(158,147)-(158,154)
3120 LINE(183,145)-(183,155)
3130 REM ******* KAMI SHIAGE
3140 PAINT(153, 28),1,3
3150 PAINT(229, 57),1,3
3160 PAINT(235, 68),1,3
3170 PAINT(240, 82),1,3
3180 PAINT(203,148),1,3
3190 PAINT(137,152),1,3
3200 PAINT(111,142),1,3
3210 PAINT(103,130),1,3
3220 PAINT(203,148),1,3
3230 COLOR 3
3240 LINE(235,113)-(238,136)
3250 LINE-(241,154)
3260 LINE-(244,168)
3270 LINE-(247,178)
3280 LINE-(250,186)
3290 LINE-(253,191)
3300 LINE(225,163)-(228,175)
3310 LINE(206,135)-(207,166)
3320 LINE(200,138)-(200,161)
3330 LINE(142,143)-(142,161)
3340 LINE(135,141)-(134,152)
3350 LINE-(133,162)
3360 LINE( 98,131)-( 94,158)
3370 LINE-( 92,174)
3380 LINE-( 91,190)
3390 PAINT(118,148),1,3
3400 PAINT(117,163),1,3
3410 PAINT(105,150),1,3
3420 PAINT(103,163),1,3
3430 PAINT(218, 51),1,3
3440 PAINT(212,148),1,3
3450 PAINT(210,157),1,3
3460 PAINT(208,164),1,3
3470 PSET(104,171),3
3480 REM ******* FUKU PAINT
3490 PAINT(168,168),4,3
3500 PAINT(168,187),4,3
3510 REM ******* MAYU
3520 COLOR 3
3530 LINE(115, 89)-(120, 85)
3540 LINE-(127, 81)
3550 LINE-(134, 78)
3560 LINE-(143, 76)
3570 LINE(183, 71)-(191, 71)
3580 LINE-(200, 72)
3590 LINE-(207, 74)
3600 LINE-(213, 77)
3610 REM ******* KOYUBI
3620 LINE( 14,156)-( 27,147)
3630 LINE-( 31,147)
3640 LINE-( 34,150)
3650 LINE-( 39,157)
3660 LINE-( 39,160)
3670 LINE-( 34,164)
3680 LINE( 29,155)-( 32,159)
3690 LINE( 30,158)-( 26,161)
3700 LINE-( 31,163)
3710 LINE-( 35,166)
3720 LINE-( 40,172)
3730 LINE-( 44,180)
3740 LINE-( 46,187)
3750 LINE-( 46,192)
3760 REM ******* KUSURIYUBI
3770 LINE( 38,156)-( 40,152)
3780 LINE-( 40,149)
3790 LINE-( 29,140)
3800 LINE-( 26,140)
3810 LINE-( 22,142)
3820 LINE-( 10,154)
3830 LINE-(  9,158)
3840 LINE-( 10,164)
3850 LINE-( 13,171)
3860 LINE-( 27,191)
3870 REM ******* NAKAYUBI
3880 LINE( 11,151)-( 21,137)
3890 LINE-( 24,136)
3900 LINE-( 37,138)
3910 LINE-( 38,140)
3920 LINE-( 38,147)
3930 REM *******HITOSASHIYUBI
3940 LINE( 24,136)-( 34,126)
3950 LINE-( 37,125)
3960 LINE-( 39,127)
3970 LINE-( 39,129)
3980 LINE-( 35,138)
3990 REM ******* OYAYUBI
4000 LINE( 38,128)-( 41,131)
4010 LINE-( 43,136)
4020 LINE-( 44,143)
4030 LINE-( 44,152)
4040 LINE-( 45,158)
4050 LINE-( 48,167)
4060 LINE-( 49,174)
4070 LINE-( 49,185)
4080 LINE-( 50,191)
4090 REM ******* N
4100 COLOR 4
4110 LINE( 58,123)-( 47, 80)
4120 LINE-( 58, 84)
4130 LINE-( 50, 92)
4140 LINE( 54,107)-( 25, 89)
4150 LINE-( 19,100)
4160 LINE-( 58,123)
4170 LINE( 26,105)-( 32,126)
4180 LINE( 30,121)-( 40,124)
4190 LINE-( 39,125)
4200 PAINT( 50, 83),4,4
4210 PAINT( 33,100),4,4
4220 LINE( 32,123)-( 35,123)
4230 LINE( 34,124)-( 39,124)
4240 PSET( 34,125)
4250 PSET( 38,125)
4260 REM ******* LOGO N
4270 LINE( 22, 30)-( 27,  6)
4280 LINE-( 31, 11)
4290 LINE-( 25, 13)
4300 LINE( 23, 23)-( 10,  7)
4310 LINE-(  5, 12)
4320 LINE-( 22, 31)
4330 PAINT( 13, 16),4,4
4340 LINE(  9,  6)-(  5, 30)
4350 LINE-( 10, 28)
4360 LINE-(  7, 25)
4370 PAINT( 28, 10),4,4
4380 PAINT(  6, 26),4,4
4390 REM ******* LOGO E
4400 LINE( 36,  6)-( 32, 30)
4410 LINE( 41,  6)-( 38, 30)
4420 LINE( 32,  6)-( 52,  6)
4430 LINE-( 51, 11)
4440 LINE-( 47,  6)
4450 LINE( 29, 30)-( 49, 30)
4460 LINE-( 50, 26)
4470 LINE-( 45, 30)
4480 PAINT( 37, 13),4,4
4490 LINE( 30, 18)-( 43, 18)
4500 LINE-( 47, 15)
4510 LINE-( 46, 22)
4520 LINE-( 43, 18)
4530 PAINT( 50,  7),4,4
4540 PSET( 44, 18)
4550 REM ******* LOGO C
4560 LINE( 78, 13)-( 73,  6)
4570 LINE-( 68,  7)
4580 LINE-( 64,  9)
4590 LINE-( 61, 12)
4600 LINE-( 58, 17)
4610 LINE-( 57, 23)
4620 LINE-( 58, 27)
4630 LINE-( 60, 29)
4640 LINE-( 64, 30)
4650 LINE-( 70, 30)
4660 LINE-( 74, 29)
4670 LINE-( 77, 27)
4680 LINE-( 77, 20)
4690 LINE-( 72, 23)
4700 LINE-( 69, 24)
4710 LINE-( 65, 24)
4720 LINE-( 62, 22)
4730 LINE-( 61, 19)
4740 LINE-( 62, 15)
4750 LINE-( 65, 11)
4760 LINE-( 68,  9)
4770 LINE-( 71,  8)
4780 LINE-( 75, 14)
4790 LINE-( 78, 13)
4800 PAINT( 62, 25),4,4
4810 PAINT( 60, 15),4,4
4820 PSET( 62, 12)
4830 PSET( 64, 10)
4840 PSET( 66,  9)
4850 PSET( 68,  8)
4860 PAINT( 72,  8),4,4
4870 PAINT( 74, 10),4,4
4880 REM ******* HITANYKEY
4890 A$=INKEY$
4900 IF A$="" THEN 4890
4910 END