100 REM ***** YUNO *****
110 REM       2011/11/19
115 REM     Ayaori Tohno
117 REM     (C) Ume Aoki
120 SCREEN 3,2,2
130 COLOR ,2,1:CLS
140 REM -------KAMI1
150 COLOR 3
160 LINE(123,90)-( 89, 98)
170 LINE-(101, 91)
180 LINE-(116, 83)
190 LINE-(135, 75)
200 LINE-(147, 71)
210 LINE-(159, 69)
220 LINE-(173, 68)
230 LINE-(189, 69)
240 LINE-(207, 72)
250 LINE-(220, 76)
260 LINE-(229, 81)
270 LINE-(238, 89)
280 LINE-(246, 99)
290 LINE-(253,109)
300 LINE-(255,115)
310 REM -------KAMI2
320 LINE(104, 94)-( 82,124)
330 LINE-(101,114)
340 LINE-( 97,129)
350 LINE-( 78,144)
360 LINE-( 98,143)
370 LINE-( 99,156)
380 LINE-(106,150)
390 REM -------KAMI3
400 LINE(123, 96)-(122,107)
410 LINE-(122,114)
420 LINE-(123,126)
430 LINE-(128,117)
440 LINE-(132,110)
450 LINE-(141, 99)
455 REM -------KAMI4
460 LINE(144,82)-(140,111)
470 LINE-(147,102)
480 LINE-(154, 94)
490 LINE-(164, 84)
495 REM -------KAMI5
496 LINE(162, 87)-(164, 84)
500 LINE-(168, 95)
510 LINE-(172,105)
520 LINE-(178,117)
530 LINE-(189, 81)
540 REM -------KAMI6
550 LINE(187, 89)-(202,114)
560 LINE-(207, 81)
570 REM -------KAMI7
580 LINE(207, 88)-(225,127)
590 REM -------KAMI8
600 LINE(232,110)-(225,128)
610 LINE-(221,138)
620 LINE-(214,151)
630 LINE-(231,149)
640 LINE-(237,160)
650 LINE-(243,151)
660 LINE-(254,155)
670 LINE-(255,148)
680 REM -------HOHO
690 LINE(121,108)-(115,117)
700 LINE-(110,126)
710 LINE-(108,132)
720 LINE-(107,139)
730 LINE-(107,149)
740 LINE-(109,154)
750 LINE-(111,156)
760 LINE-(115,158)
770 LINE-(122,159)
780 LINE-(201,159)
790 LINE-(212,158)
800 LINE-(220,157)
810 LINE-(225,155)
820 LINE-(228,153)
830 LINE-(231,150)
840 REM -------HIDARIME
850 LINE(201,102)-(211,135),3,BF
860 REM -------MIGIME
870 LINE(136,102)-(132,133)
880 LINE-(141,133)
890 LINE-(144,102)
900 LINE-(136,102)
902 PAINT(137,119),3,3
904 PAINT(142,105),3,3
906 PSET(140,103),3
910 REM -------KUCHI
920 LINE(156,140)-(179,140)
930 LINE-(179,147)
940 LINE-(178,150)
950 LINE-(175,152)
960 LINE-(171,153)
970 LINE-(165,153)
980 LINE-(160,152)
990 LINE-(157,149)
1000 LINE-(156,145)
1010 LINE-(156,140)
1020 PAINT(166,146),4,3
1030 REM -------MIGITE
1040 COLOR 3
1050 LINE(148,159)-(110,170)
1060 LINE-(113,185)
1070 LINE-(146,175)
1080 LINE(116,168)-(119,183)
1090 LINE(109,173)-(103,174)
1100 LINE-(102,176)
1110 LINE-(102,179)
1120 LINE-(104,181)
1130 LINE-(111,183)
1140 REM -------HIDARITE
1150 LINE(199,160)-(232,170)
1160 LINE-(228,186)
1170 LINE-(217,184)
1180 LINE-(206,180)
1190 LINE-(197,176)
1200 LINE-(190,171)
1210 LINE(224,168)-(220,184)
1220 LINE(232,172)-(240,174)
1230 LINE-(240,176)
1240 LINE-(238,179)
1250 LINE-(235,181)
1260 LINE-(228,181)
1270 REM -------SEIFUKU
1280 LINE(148,159)-(147,167)
1290 LINE-(146,176)
1300 LINE-(145,191)
1310 LINE(190,159)-(190,174)
1320 LINE-(193,191)
1330 LINE(146,173)-(190,173)
1340 LINE(154,159)-(155,173)
1350 LINE(182,159)-(181,173)
1360 PAINT(150,167),4,3
1370 PAINT(185,166),4,3
1380 PAINT(167,189),4,3
1390 COLOR 3
1400 LINE(152,173)-(151,191)
1410 LINE(186,173)-(188,191)
1420 LINE(154,177)-(158,181),3,BF
1430 LINE(180,177)-(184,181),3,BF
1440 REM -------ERI
1450 LINE(154,159)-(161,167)
1460 LINE-(168,159)
1470 LINE-(174,167)
1480 LINE-(181,160)
1490 REM -------RIBBON
1500 LINE(161,165)-(175,170),3,BF
1510 LINE(166,170)-(160,186)
1520 LINE(168,170)-(162,186)
1530 LINE(168,170)-(174,186)
1540 LINE(170,170)-(176,186)
1590 REM -------KAMIPAINT
1600 PAINT(174,77),4,3
1605 PSET( 94, 96),3
1610 REM -------BATTEN R
1620 COLOR 3
1630 LINE(104,116)-(110,126)
1640 LINE(104,117)-(110,127)
1650 LINE(104,118)-(110,128)
1651 LINE(104,119)-(110,129)
1652 LINE(104,120)-(110,130)
1660 LINE( 98,135)-(110,124)
1670 LINE(100,135)-(108,125)
1680 LINE(102,135)-(108,126)
1700 REM -------BATTEN L
1710 LINE(248,112)-(232,139)
1720 LINE(250,112)-(234,139)
1730 LINE(252,112)-(236,139)
1740 LINE(254,112)-(238,139)
1750 LINE(238,111)-(255,138)
1760 LINE(236,111)-(254,138)
1770 LINE(234,111)-(252,138)
1780 LINE(232,111)-(250,138)
1840 REM -------HOHOSEN
1850 COLOR 4
1860 LINE(117,134)-(112,140)
1870 LINE(121,135)-(114,144)
1880 LINE(125,137)-(120,141)
1890 LINE(211,137)-(205,145)
1900 LINE(216,137)-(210,145)
1910 REM -------FUKIDASHI
1920 COLOR 3
1930 LINE(  0, 94)-(  5, 97)
1940 LINE-( 12, 99)
1950 LINE-( 30, 99)
1960 LINE-( 41, 98)
1970 LINE-( 50, 96)
1980 LINE-( 55, 94)
1990 LINE-( 74,104)
2000 LINE-( 66, 87)
2010 LINE-( 75, 85)
2020 LINE-( 81, 82)
2030 LINE-( 87, 77)
2040 LINE-( 91, 71)
2050 LINE-( 94, 62)
2060 LINE-( 96, 49)
2070 LINE-( 95, 37)
2080 LINE-( 92, 26)
2090 LINE-( 88, 18)
2100 LINE-( 82, 11)
2110 LINE-( 76,  5)
2120 LINE-( 68,  0)
2130 REM -------HAIKEI
2140 PAINT(100,  0),1,3
2150 PAINT(250,191),1,3
2160 REM -------PAPICOM
2170 COLOR 4
2180 LOCATE 1,2:PRINT"‚± ‚Ï"
2190 LOCATE 1,4:PRINT"‚ñ ‚Ò" 
2200 REM -------HITANYKEY
2210 A$=INKEY$
2220 IF A$="" THEN 2210
2230 END