10 REM ***** K-ON GAME? *****
20 REM PC-6001
30 REM 32K  PAGE 2
40 REM             2011/12/03
50 REM           Ayaori Tohno
60 REM **********************
70 DIM YI(2),SR$(1)
80 YI(0)=4:YI(1)=6:YI(2)=2
90 SR$(0)="123だよあずにゃん!"
100 SR$(1)="たまたまです。"
110 SCREEN 3,2,2:COLOR ,2,1
120 CLS
130 REM ******* K
140 COLOR 3
150 LINE( 8, 2)-(11,14),3,BF
160 LINE(16, 2)-(19, 4),3,BF
170 LINE(14, 4)-(17, 6),3,BF
180 LINE(12, 6)-(15,10),3,BF
190 LINE(14,10)-(17,12),3,BF
200 LINE(16,12)-(19,14),3,BF
210 REM ******* -
220 LINE(22, 9)-(25,11),3,BF
230 REM ******* O
240 LINE(28, 4)-(39,12),3,BF
250 LINE(30, 3)-(37,13),3,BF
260 LINE(32, 2)-(35,14),3,BF
270 LINE(32, 6)-(35,10),2,BF
280 REM ******* N
290 LINE(42, 2)-(45,14),3,BF
300 LINE(50, 2)-(53,14),3,BF
310 LINE(46, 4)-(47,10),3,BF
320 LINE(48, 6)-(49,12),3,BF
330 REM ******* !
340 LINE(56, 2)-(59,10),3,BF
350 LINE(56,12)-(59,14),3,BF
360 REM ******* ごせんふ
370 LINE(64, 4)-(253, 4)
380 LINE(64, 6)-(253, 6)
390 LINE(64, 8)-(253, 8)
400 LINE(64,10)-(253,10)
410 LINE(64,12)-(253,12)
420 REM ******* おんぷ
430 I=0
440 FOR OX=66 TO 246 STEP 10
450  OY=YI(I):GOSUB 4590
460  I=I+1
470  IF I>2 THEN I=0
480 NEXT
490 REM ******* ロゴ け
500 LINE(186,26)-(189,32),4,BF
510 LINE(188,32)-(193,34),4,BF
520 LINE(188,35)-(191,36),4,BF
530 LINE(196,24)-(199,39),4,BF
540 LINE(194,27)-(201,29),4,BF
550 REM ******* ロゴ い
560 LINE(202,33)-(205,39),4,BF
570 LINE(206,36)-(207,37),4,BF
580 LINE(210,32)-(213,38),4,BF
590 REM ******* ロゴ お
600 LINE(218,24)-(221,39),4,BF
610 LINE(216,26)-(223,28),4,BF
620 LINE(216,32)-(223,38),4,BF
630 LINE(222,31)-(225,34),4,BF
640 LINE(226,32)-(227,34),4,BF
650 LINE(226,34)-(229,38),4,BF
660 LINE(224,38)-(227,39),4,BF
670 LINE(226,25)-(229,30),4,BF
680 LINE(218,34)-(219,36),2,BF
690 REM ******* ロゴ ん
700 LINE(232,34)-(235,39),4,BF
710 LINE(234,28)-(237,36),4,BF
720 LINE(238,34)-(239,38),4,BF
730 LINE(240,36)-(241,39),4,BF
740 LINE(242,37)-(243,39),4,BF
750 LINE(244,36)-(245,39),4,BF
760 LINE(246,35)-(247,37),4,BF
770 REM ******* ロゴ !
780 LINE(252,24)-(255,34),4,BF
790 LINE(250,36)-(253,39),4,BF
800 REM ****** コマンド
810 COLOR 1
820 LOCATE 12, 4:PRINT"みる";
830 LOCATE 12, 6:PRINT"さがす";
840 LOCATE 12, 8:PRINT"はなす";
850 LOCATE 12,10:PRINT"セーブ";
860 LOCATE 12,12:PRINT"ロード";
870 REM --- ゆい&あずにゃん ---
880 REM ******* わく
890 LINE(8,16)-(183,159),2,BF
900 LINE(8,16)-(183,159),3,B
910 REM ******* まえがみ
920 COLOR 3
930 LINE(117, 39)-(117, 54)
940 LINE-(118, 62)
950 LINE-(120, 68)
960 LINE-(124, 75)
970 LINE-(122, 63)
980 LINE-(121, 48)
990 LINE-(123, 58)
1000 LINE-(126, 65)
1010 LINE-(130, 71)
1020 LINE-(135, 75)
1030 LINE-(134, 63)
1040 LINE-(134, 52)
1050 LINE-(133, 45)
1060 LINE-(131, 39)
1070 LINE(135, 53)-(137, 60)
1080 LINE-(140, 65)
1090 LINE-(146, 71)
1100 LINE-(152, 78)
1110 LINE-(156, 83)
1120 LINE-(159, 78)
1130 LINE-(161, 71)
1140 LINE-(161, 63)
1150 LINE-(160, 55)
1160 LINE-(157, 49)
1170 LINE-(154, 45)
1180 LINE(143, 42)-(147, 47)
1190 LINE-(151, 54)
1200 LINE-(153, 60)
1210 LINE-(155, 71)
1220 LINE-(156, 83)
1230 LINE(139, 50)-(140, 56)
1240 LINE-(142, 63)
1250 LINE-(144, 67)
1260 LINE-(148, 74)
1270 LINE(106, 46)-(104, 52)
1280 LINE-(102, 59)
1290 LINE-(100, 67)
1300 LINE-( 99, 75)
1310 LINE-( 98, 90)
1320 LINE-( 99,105)
1330 LINE-(101,118)
1340 LINE( 97, 42)-( 94, 48)
1350 LINE-( 91, 56)
1360 LINE-( 89, 65)
1370 LINE-( 88, 78)
1380 LINE-( 88, 93)
1390 LINE-( 89,102)
1400 LINE-( 90,106)
1410 LINE-( 92,110)
1420 LINE-( 95,113)
1430 LINE-( 99,116)
1440 LINE(116, 49)-(112, 55)
1450 LINE-(106, 66)
1460 LINE-(101, 76)
1470 LINE-( 98, 85)
1480 LINE(153, 79)-(152, 94)
1490 LINE-(153,105)
1500 LINE-(154,115)
1510 LINE-(155,117)
1520 LINE-(156,117)
1530 LINE-(157,114)
1540 LINE-(160,103)
1550 LINE-(162, 89)
1560 LINE-(163, 75)
1570 LINE-(163, 63)
1580 REM ******* かみ うしろ
1590 LINE( 87, 73)-( 87, 60)
1600 LINE-( 88, 52)
1610 LINE-( 90, 46)
1620 LINE-( 93, 41)
1630 LINE-( 97, 36)
1640 LINE-(103, 31)
1650 LINE-(110, 27)
1660 LINE-(118, 24)
1670 LINE-(125, 23)
1680 LINE-(135, 22)
1690 LINE-(144, 23)
1700 LINE-(151, 25)
1710 LINE-(157, 28)
1720 LINE-(163, 33)
1730 LINE-(168, 39)
1740 LINE-(171, 44)
1750 LINE-(174, 52)
1760 LINE-(176, 62)
1770 LINE-(177, 77)
1780 LINE-(177, 87)
1790 LINE-(178, 93)
1800 LINE-(179, 96)
1810 LINE-(181, 99)
1820 LINE(176, 88)-(174, 96)
1830 LINE-(171,104)
1840 LINE-(168,109)
1850 LINE-(165,112)
1860 LINE(170, 82)-(169, 94)
1870 LINE-(168, 99)
1880 LINE-(166,104)
1890 LINE-(163,109)
1900 LINE-(160,112)
1910 LINE-(157,114)
1920 LINE(169, 92)-(167,105)
1930 LINE-(165,110)
1940 LINE( 98,101)-(101,108)
1950 LINE-(107,116)
1960 LINE-(106,110)
1970 LINE-(109,113)
1980 LINE-(113,116)
1990 REM ******* かお りんかく
2000 LINE( 99, 81)-(103, 98)
2010 LINE-(105,101)
2020 LINE-(110,105)
2030 LINE-(118,109)
2040 LINE-(125,111)
2050 LINE-(129,111)
2060 LINE-(137,109)
2070 LINE-(143,106)
2080 LINE-(148,102)
2090 LINE-(151, 99)
2100 REM ******* みぎて
2110 LINE( 87,159)-( 83,155)
2120 LINE-( 80,151)
2130 LINE-( 79,145)
2140 LINE-( 79,136)
2150 LINE-( 80,134)
2160 LINE-( 88,128)
2170 LINE-( 91,128)
2180 LINE-( 98,131)
2190 LINE-( 99,134)
2200 LINE( 84,137)-( 96,134)
2210 LINE-(100,135)
2220 LINE-(101,138)
2230 LINE( 87,143)-(100,139)
2240 LINE-(102,140)
2250 LINE-(103,144)
2260 LINE( 91,148)-(100,145)
2270 LINE-(103,146)
2280 LINE-(104,149)
2290 LINE-(103,153)
2300 LINE-(101,155)
2310 LINE-( 99,155)
2320 LINE( 99,151)-( 96,152)
2330 LINE-( 99,155)
2340 LINE-(100,158)
2350 LINE-(100,159)
2360 LINE( 99,133)-(101,132)
2370 LINE-(104,132)
2380 LINE-(106,134)
2390 LINE-(106,140)
2400 LINE-(105,143)
2410 LINE-(103,144)
2420 LINE(106,140)-(106,150)
2430 LINE-(105,156)
2440 LINE-(104,159)
2450 REM ******* ひだりて
2460 LINE(176,159)-(181,145)
2470 LINE-(181,139)
2480 LINE-(180,135)
2490 LINE-(176,130)
2500 LINE-(172,127)
2510 LINE-(169,127)
2520 LINE-(165,128)
2530 LINE-(162,130)
2540 LINE-(162,132)
2550 LINE(174,135)-(164,132)
2560 LINE-(161,132)
2570 LINE-(160,134)
2580 LINE-(160,136)
2590 LINE(172,141)-(161,138)
2600 LINE-(159,139)
2610 LINE-(158,142)
2620 LINE-(159,144)
2630 LINE(169,145)-(158,143)
2640 LINE-(156,146)
2650 LINE-(157,149)
2660 LINE-(159,151)
2670 LINE-(162,152)
2680 LINE(159,148)-(162,149)
2690 LINE-(162,155)
2700 LINE-(163,159)
2710 LINE(162,129)-(157,130)
2720 LINE-(155,134)
2730 LINE-(155,138)
2740 LINE-(156,141)
2750 REM ******* リボン
2760 LINE(130,120)-(134,127),3,B
2770 LINE(130,121)-(125,123)
2780 LINE-(119,127)
2790 LINE-(114,131)
2800 LINE-(120,139)
2810 LINE-(124,135)
2820 LINE-(128,130)
2830 LINE-(130,126)
2840 LINE(132,126)-(127,157)
2850 LINE-(123,156)
2860 LINE-(128,130)
2870 LINE(134,126)-(136,155)
2880 LINE-(140,154)
2890 LINE-(136,131)
2900 LINE(134,121)-(140,124)
2910 LINE-(147,129)
2920 LINE-(148,132)
2930 LINE-(141,138)
2940 LINE-(134,127)
2950 LINE(130,124)-(120,133)
2960 LINE(134,124)-(143,133)
2970 REM ******* シャツ
2980 LINE(124,111)-(126,114)
2990 LINE-(130,117)
3000 LINE-(132,120)
3010 LINE-(134,117)
3020 LINE-(137,116)
3030 LINE-(140,113)
3040 LINE-(142,110)
3050 LINE-(142,107)
3060 LINE(144,106)-(145,112)
3070 LINE-(145,119)
3080 LINE-(143,127)
3090 LINE(121,111)-(121,117)
3100 LINE-(122,123)
3110 REM ******* うわぎ
3120 LINE(120,111)-(104,122)
3130 LINE-( 95,130)
3140 LINE(145,106)-(152,110)
3150 LINE(157,114)-(177,126)
3160 LINE-(179,133)
3170 LINE(181,147)-(183,159)
3180 LINE(123,136)-(125,146)
3190 LINE(127,152)-(130,159)
3200 LINE-(134,152)
3210 LINE(139,142)-(141,137)
3220 PAINT(108,127),3,3
3230 PAINT(152,124),3,3
3240 REM ******* かみ ぬる
3250 PAINT(126, 35),4,3
3260 PAINT(156, 95),4,3
3270 PAINT(148,106),4,3
3280 PAINT(104,106),4,3
3290 PAINT( 88, 56),4,3
3300 PAINT(100, 71),4,3
3310 PAINT(154, 77),4,3
3320 PAINT(168,102),4,3
3330 PAINT(166,108),4,3
3340 PSET(158,112),4
3350 PSET(122, 69),4
3360 PSET(142, 65),4
3370 REM ******* め
3380 COLOR 3
3390 LINE(110, 78)-(115, 81),3,BF
3400 LINE(106, 79)-(109, 81),3,BF
3410 LINE(104, 80)-(107, 82),3,BF
3420 LINE(104, 83)-(105, 83),3,BF
3430 LINE(134, 78)-(141, 81),3,BF
3440 LINE(142, 79)-(145, 82),3,BF
3450 LINE(146, 81)-(147, 83),3,BF
3460 REM ******* まゆ
3470 LINE(101, 67)-(106, 64)
3480 LINE-(111, 63)
3490 LINE-(115, 63)
3500 LINE(132, 63)-(138, 63)
3510 LINE-(144, 64)
3520 LINE-(148, 67)
3530 REM ******* くち
3540 LINE(125,101)-(121, 97)
3550 LINE-(120, 95)
3560 LINE-(121, 94)
3570 LINE-(129, 94)
3580 LINE-(131, 96)
3590 LINE-(130, 99)
3600 LINE-(128,101)
3610 LINE-(127,102)
3620 LINE-(125,101)
3630 PAINT(125, 96),4,3
3640 PSET(126,102),2
3650 REM ******* ほおせん
3660 COLOR 4
3670 LINE(106, 89)-(104, 92)
3680 LINE(110, 89)-(108, 92)
3690 LINE(142, 89)-(140, 92)
3700 LINE(146, 89)-(144, 92)
3710 REM ******* ヘアピン
3720 LINE(104, 57)-(108, 58),2,BF
3730 LINE(102, 63)-(106, 63),2
3740 LINE(102, 64)-(104, 64),2
3750 REM ******* あせ
3760 COLOR 3
3770 LINE( 20, 26)-( 13, 59)
3780 LINE-( 14, 66)
3790 LINE-( 17, 70)
3800 LINE-( 22, 72)
3810 LINE-( 27, 72)
3820 LINE-( 30, 71)
3830 LINE-( 33, 68)
3840 LINE-( 34, 64)
3850 LINE-( 34, 58)
3860 LINE-( 31, 49)
3870 LINE-( 20, 26)
3880 REM ******* あずさ かみ
3890 LINE( 42, 16)-( 47, 22)
3900 LINE-( 54, 33)
3910 LINE-( 59, 43)
3920 LINE-( 62, 54)
3930 LINE-( 64, 66)
3940 LINE-( 63, 78)
3950 LINE-( 61, 89)
3960 LINE-( 58, 96)
3970 LINE-( 56,100)
3980 LINE( 57, 64)-( 58, 80)
3990 LINE-( 57, 95)
4000 LINE( 57, 77)-( 55, 89)
4010 LINE-( 53, 96)
4020 LINE-( 50,103)
4030 LINE-( 46,109)
4040 LINE( 22,135)-( 17,148)
4050 LINE-( 13,156)
4060 LINE-( 10,159)
4070 REM ******* おさげ
4080 LINE( 33, 66)-( 36, 70)
4090 LINE-( 40, 80)
4100 LINE-( 44,100)
4110 LINE-( 48,130)
4120 LINE-( 51,159)
4130 LINE( 26, 72)-( 24, 82)
4140 LINE-( 23,113)
4150 LINE-( 23,159)
4160 LINE( 23,135)-( 27, 84)
4170 LINE-( 30, 86)
4180 LINE-( 32, 86)
4190 LINE-( 35, 83)
4200 LINE-( 39,100)
4210 LINE-( 49,151)
4220 REM ******* あずさ はだ
4230 LINE( 22, 154)-( 19,158)
4240 LINE-( 16,159)
4250 REM ******* あずさ しあげ
4260 PAINT( 42, 43),3,3
4270 PAINT( 32,132),3,3
4280 LINE( 41, 61)-( 42, 92),2
4290 REM ******* きらきら
4300 COLOR 3
4310 LINE( 92, 24)-( 96, 24)
4320 LINE( 94, 21)-( 94, 27)
4330 LINE( 72, 36)-( 76, 36)
4340 LINE( 74, 33)-( 74, 39)
4350 LINE( 72, 70)-( 76, 70)
4360 LINE( 74, 67)-( 74, 73)
4370 LINE(172, 30)-(176, 30)
4380 LINE(174, 27)-(174, 33)
4390 LINE( 82,120)-( 86,120)
4400 LINE( 84,117)-( 84,123)
4410 REM ******* せりふ
4420 FOR I=0 TO 1
4430 C$="ゆい:":CY=14
4440 IF I=1 THEN C$="あずさ:":CY=15
4450 L=LEN(SR$(I))
4460 COLOR 4:LOCATE 0,CY:PRINT C$;
4470 COLOR 3
4480 FOR J=1 TO L
4490 PRINT MID$(SR$(I),J,1);
4500 FOR T=0 TO 75:NEXT
4510 NEXT J,I
4520 REM ******* もういちど
4530 A$=INKEY$
4540 IF A$="" THEN 4530
4550 GOTO 110
4560 END
4570 REM --- SUB ROUTINE ---
4580 REM おんぷをかく
4590 LINE(OX+4,OY+0)-(OX+5,OY+6),3,BF
4600 LINE(OX+0,OY+6)-(OX+3,OY+8),3,BF
4610 RETURN