100 REM ******************
110 REM     CURE HAPPY
120 REM PC-6001 32K PAGE 2
130 REM ******************
140 SCREEN 3,2,2:COLOR ,1,2
150 CLS
160 LINE(97,108)-(93,103),4
170 LINE-(93,96),4
180 LINE-(96,92),4
190 LINE-(100,91),4
200 LINE-(104,92),4
210 LINE-(108,95),4
220 LINE-(111,98),4
230 LINE-(113,104),4
240 LINE-(113,107),4
250 LINE-(107,113),4
260 LINE-(105,112),4
270 LINE-(103,113),4
280 LINE(97,108)-(92,103),4
290 LINE-(91,98),4
300 LINE-(91,95),4
310 LINE-(93,91),4
320 LINE-(96,90),4
330 LINE-(101,90),4
340 PAINT(92,95),4,4
350 PAINT(92,93),4,4
360 PAINT(94,92),4,4
370 PAINT(96,91),4,4
380 LINE(96,99)-(98,103),4
390 LINE-(102,108),4
400 LINE-(106,112),4
410 LINE(97,100)-(100,101),4
420 LINE-(102,101),4
430 LINE-(102,95),4
440 LINE-(100,92),4
450 LINE-(98,92),4
460 PAINT(108,103),4,4
470 LINE(137,81)-(140,76),4
480 LINE-(144,73),4
490 LINE-(148,71),4
500 LINE-(157,70),4
510 LINE(137,81)-(138,75),4
520 LINE-(140,72),4
530 LINE-(144,69),4
540 LINE-(149,68),4
550 LINE-(155,69),4
560 PAINT(144,70),4,4
570 PAINT(140,74),4,4
580 LINE(120,102)-(120,103),4
590 LINE(125,112)-(135,122),4
600 LINE-(140,124),4
610 LINE-(142,124),4
620 LINE-(145,123),4
630 LINE-(147,120),4
640 LINE-(147,112),4
650 LINE-(143,105),4
660 LINE-(141,102),4
670 LINE-(133,105),4
680 LINE-(127,109),4
690 LINE-(125,111),4
700 LINE(80,64)-(80,76),4
710 LINE-(83,87),4
720 LINE-(89,99),4
730 LINE-(87,85),4
740 LINE-(87,73),4
750 LINE(87,57)-(87,68),4
760 LINE-(91,79),4
770 LINE-(97,89),4
780 LINE-(94,79),4
790 LINE-(94,68),4
800 LINE-(95,60),4
810 LINE(96,52)-(96,64),4
820 LINE-(99,73),4
830 LINE-(102,81),4
840 LINE-(108,89),4
850 LINE-(114,95),4
860 LINE-(115,96),4
870 LINE-(114,89),4
880 LINE-(114,80),4
890 LINE-(116,69),4
900 LINE-(118,59),4
910 LINE-(119,52),4
920 LINE-(119,49),4
930 LINE-(116,38),4
940 LINE(120,53)-(123,85),4
950 LINE-(126,76),4
960 LINE-(129,67),4
970 LINE-(130,55),4
980 LINE-(129,42),4
990 LINE-(134,55),4
1000 LINE-(137,70),4
1010 LINE-(137,57),4
1020 LINE-(135,45),4
1030 LINE-(132,35),4
1040 LINE-(127,26),4
1050 LINE(134,40)-(143,51),4
1060 LINE-(151,63),4
1070 LINE-(157,76),4
1080 LINE-(163,93),4
1090 LINE-(166,118),4
1100 LINE-(164,142),4
1110 LINE-(163,144),4
1120 LINE(145,32)-(152,44),4
1130 LINE-(159,59),4
1140 LINE-(166,77),4
1150 LINE-(169,91),4
1160 LINE-(170,106),4
1170 LINE-(169,123),4
1180 LINE-(167,133),4
1190 LINE-(165,140),4
1200 LINE(84,91)-(86,110),4
1210 LINE-(90,127),4
1220 LINE-(94,138),4
1230 LINE-(99,148),4
1240 LINE-(104,156),4
1250 LINE(75,105)-(79,122),4
1260 LINE-(84,134),4
1270 LINE-(89,142),4
1280 LINE-(95,149),4
1290 LINE-(102,155),4
1300 LINE(70,90)-(69,72),4
1310 LINE-(69,64),4
1320 LINE-(71,54),4
1330 LINE-(75,43),4
1340 LINE-(81,36),4
1350 LINE-(87,31),4
1360 LINE-(97,26),4
1370 LINE-(105,24),4
1380 LINE-(116,20),4
1390 LINE-(125,20),4
1400 LINE-(136,22),4
1410 LINE-(145,25),4
1420 LINE-(153,29),4
1430 LINE(86,100)-(94,110),4
1440 LINE-(104,122),4
1450 LINE-(109,125),4
1460 LINE-(122,129),4
1470 LINE-(149,130),4
1480 LINE-(155,124),4
1490 LINE-(160,117),4
1500 LINE-(164,108),4
1510 LINE(162,64)-(165,60),4
1520 LINE-(168,60),4
1530 LINE-(171,63),4
1540 LINE-(174,68),4
1550 LINE-(175,74),4
1560 LINE-(175,81),4
1570 LINE-(174,89),4
1580 LINE-(172,92),4
1590 LINE-(170,94),4
1600 LINE(9,18)-(11,19),4
1610 LINE-(28,37),4
1620 LINE-(41,47),4
1630 LINE-(58,59),4
1640 LINE-(68,69),4
1650 LINE(58,69)-(55,68),4
1660 LINE-(53,68),4
1670 LINE-(51,70),4
1680 LINE-(51,71),4
1690 LINE-(53,74),4
1700 LINE-(59,78),4
1710 LINE-(66,81),4
1720 LINE-(68,81),4
1730 LINE(8,18)-(7,19),4
1740 LINE-(7,23),4
1750 LINE-(10,29),4
1760 LINE-(15,37),4
1770 LINE-(22,43),4
1780 LINE-(18,42),4
1790 LINE-(17,43),4
1800 LINE-(17,45),4
1810 LINE-(19,48),4
1820 LINE-(26,54),4
1830 LINE-(32,58),4
1840 LINE-(38,60),4
1850 LINE(33,59)-(34,61),4
1860 LINE-(37,65),4
1870 LINE-(44,69),4
1880 LINE-(50,70),4
1890 LINE(167,0)-(160,11),4
1900 LINE-(157,18),4
1910 LINE-(154,27),4
1920 LINE-(153,35),4
1930 LINE-(153,40),4
1940 LINE-(155,45),4
1950 LINE-(158,48),4
1960 LINE-(162,48),4
1970 LINE-(165,46),4
1980 LINE-(168,42),4
1990 LINE-(170,38),4
2000 LINE-(170,32),4
2010 LINE-(168,29),4
2020 LINE-(165,29),4
2030 LINE-(162,30),4
2040 LINE-(160,32),4
2050 LINE(174,9)-(178,7),4
2060 LINE-(180,7),4
2070 LINE-(182,9),4
2080 LINE-(182,13),4
2090 LINE-(181,17),4
2100 LINE-(176,23),4
2110 LINE-(170,29),4
2120 LINE(180,6)-(186,0),4
2130 LINE(68,66)-(57,49),4
2140 LINE-(45,35),4
2150 LINE-(42,32),4
2160 LINE-(40,32),4
2170 LINE-(32,38),4
2180 LINE(22,52)-(17,64),4
2190 LINE-(13,77),4
2200 LINE-(12,101),4
2210 LINE(35,41)-(39,39),4
2220 LINE-(42,39),4
2230 LINE-(48,43),4
2240 LINE-(62,57),4
2250 LINE(25,55)-(19,67),4
2260 LINE-(13,86),4
2270 LINE(53,54)-(53,49),4
2280 LINE(54,44)-(57,34),4
2290 LINE-(63,21),4
2300 LINE-(70,12),4
2310 LINE-(77,6),4
2320 LINE-(85,1),4
2330 LINE-(89,0),4
2340 LINE(149,26)-(145,11),4
2350 LINE-(144,0),4
2360 LINE(148,20)-(147,0),4
2370 LINE(183,15)-(190,27),4
2380 LINE-(196,41),4
2390 LINE-(200,51),4
2400 LINE(171,32)-(178,35),4
2410 LINE-(183,39),4
2420 LINE-(188,44),4
2430 LINE-(191,48),4
2440 LINE(71,52)-(69,45),4
2450 LINE-(69,39),4
2460 LINE-(71,35),4
2470 LINE-(75,34),4
2480 LINE-(73,28),4
2490 LINE-(73,26),4
2500 LINE-(75,23),4
2510 LINE-(78,21),4
2520 LINE-(82,21),4
2530 LINE-(83,14),4
2540 LINE-(86,9),4
2550 LINE-(89,6),4
2560 LINE-(93,4),4
2570 LINE-(97,4),4
2580 LINE-(101,6),4
2590 LINE-(105,9),4
2600 LINE-(108,7),4
2610 LINE-(112,7),4
2620 LINE-(117,9),4
2630 LINE-(125,9),4
2640 LINE-(133,16),4
2650 LINE-(139,18),4
2660 LINE-(147,23),4
2670 LINE(86,19)-(86,15),4
2680 LINE-(87,12),4
2690 LINE-(90,9),4
2700 LINE-(93,8),4
2710 LINE-(95,8),4
2720 LINE-(98,11),4
2730 LINE-(99,14),4
2740 LINE-(99,17),4
2750 LINE-(97,20),4
2760 LINE-(94,22),4
2770 LINE-(90,22),4
2780 LINE-(87,20),4
2790 LINE(87,110)-(92,115),4
2800 LINE-(98,119),4
2810 LINE-(101,120),4
2820 LINE(135,130)-(136,143),4
2830 LINE(161,116)-(161,139),4
2840 LINE(119,138)-(122,138),4
2850 LINE-(128,140),4
2860 LINE-(135,143),4
2870 LINE(141,146)-(150,149),4
2880 LINE(162,129)-(164,128),4
2890 LINE(170,125)-(174,122),4
2900 LINE(136,135)-(151,139),4
2910 LINE-(153,139),4
2920 LINE-(157,136),4
2930 LINE-(160,133),4
2940 LINE(137,142)-(151,146),4
2950 LINE-(155,146),4
2960 LINE-(158,143),4
2970 LINE(96,135)-(96,131),4
2980 LINE-(99,128),4
2990 LINE-(104,128),4
3000 LINE-(107,130),4
3010 LINE-(107,134),4
3020 LINE-(105,137),4
3030 LINE-(104,138),4
3040 LINE-(100,138),4
3050 LINE-(97,136),4
3060 LINE(108,130)-(111,130),4
3070 LINE-(114,132),4
3080 LINE-(114,135),4
3090 LINE-(112,137),4
3100 LINE-(109,137),4
3110 LINE-(108,135),4
3120 LINE(95,134)-(94,134),4
3130 LINE(92,131)-(96,127),4
3140 LINE-(99,125),4
3150 LINE-(103,125),4
3160 LINE-(105,126),4
3170 LINE-(105,127),4
3180 LINE(115,136)-(120,140),4
3190 LINE-(125,146),4
3200 LINE-(129,153),4
3210 LINE(130,191)-(129,185),4
3220 LINE-(119,176),4
3230 LINE-(111,165),4
3240 LINE-(110,162),4
3250 LINE-(111,159),4
3260 LINE-(123,155),4
3270 LINE-(138,153),4
3280 LINE-(145,153),4
3290 LINE-(149,155),4
3300 LINE-(154,160),4
3310 LINE(125,145)-(131,146),4
3320 LINE-(136,149),4
3330 LINE-(139,151),4
3340 LINE-(140,152),4
3350 LINE(152,175)-(152,166),4
3360 LINE-(154,161),4
3370 LINE-(158,157),4
3380 LINE-(163,154),4
3390 LINE-(169,154),4
3400 LINE-(172,154),4
3410 LINE-(177,156),4
3420 LINE-(181,159),4
3430 LINE-(184,164),4
3440 LINE-(185,168),4
3450 LINE-(185,172),4
3460 LINE-(184,177),4
3470 LINE-(181,182),4
3480 LINE-(177,185),4
3490 LINE-(173,186),4
3500 LINE-(167,186),4
3510 LINE-(165,186),4
3520 LINE-(160,184),4
3530 LINE-(156,181),4
3540 LINE-(153,177),4
3550 LINE-(153,176),4
3560 LINE(149,154)-(149,151),4
3570 LINE-(153,151),4
3580 LINE-(155,149),4
3590 LINE-(160,149),4
3600 LINE-(165,145),4
3610 LINE-(168,153),4
3620 LINE(168,149)-(172,146),4
3630 LINE-(174,146),4
3640 LINE-(174,147),4
3650 LINE-(179,147),4
3660 LINE-(180,150),4
3670 LINE-(182,153),4
3680 LINE-(178,156),4
3690 LINE(164,187)-(162,191),4
3700 LINE(184,178)-(197,182),4
3710 LINE-(192,186),4
3720 LINE-(188,191),4
3730 LINE(169,189)-(169,187),4
3740 LINE(184,185)-(181,183),4
3750 LINE(180,147)-(186,142),4
3760 LINE-(194,137),4
3770 LINE-(202,135),4
3780 LINE-(204,135),4
3790 LINE-(209,137),4
3800 LINE-(209,141),4
3810 LINE-(204,155),4
3820 LINE-(209,166),4
3830 LINE-(210,170),4
3840 LINE-(210,180),4
3850 LINE-(208,191),4
3860 LINE(192,187)-(197,191),4
3870 LINE(174,111)-(174,106),4
3880 LINE-(177,103),4
3890 LINE-(179,102),4
3900 LINE-(182,102),4
3910 LINE-(186,105),4
3920 LINE-(187,106),4
3930 LINE-(187,111),4
3940 LINE-(185,114),4
3950 LINE-(183,115),4
3960 LINE-(180,115),4
3970 LINE-(177,114),4
3980 LINE-(175,112),4
3990 LINE(175,113)-(174,114),4
4000 LINE-(173,116),4
4010 LINE-(173,118),4
4020 LINE-(174,120),4
4030 LINE-(178,120),4
4040 LINE-(180,118),4
4050 LINE-(180,116),4
4060 LINE(175,121)-(176,146),4
4070 LINE(174,127)-(171,146),4
4080 LINE(180,146)-(181,132),4
4090 LINE-(186,140),4
4100 LINE(192,137)-(192,126),4
4110 LINE-(199,133),4
4120 LINE-(201,131),4
4130 LINE-(201,125),4
4140 LINE-(199,117),4
4150 LINE-(196,113),4
4160 LINE-(201,112),4
4170 LINE-(205,109),4
4180 LINE-(206,107),4
4190 LINE-(196,104),4
4200 LINE-(202,97),4
4210 LINE-(206,91),4
4220 LINE-(206,90),4
4230 LINE-(205,89),4
4240 LINE-(203,89),4
4250 LINE-(197,93),4
4260 LINE-(193,95),4
4270 LINE-(196,83),4
4280 LINE-(198,70),4
4290 LINE-(196,68),4
4300 LINE-(195,68),4
4310 LINE-(189,84),4
4320 LINE-(188,55),4
4330 LINE-(186,53),4
4340 LINE-(186,72),4
4350 LINE-(184,69),4
4360 LINE-(178,101),4
4370 LINE(178,95)-(174,90),4
4380 LINE(175,87)-(180,87),4
4390 LINE(198,75)-(209,79),4
4400 LINE-(207,88),4
4410 LINE-(209,91),4
4420 LINE-(210,104),4
4430 LINE-(214,100),4
4440 LINE-(220,112),4
4450 LINE-(216,115),4
4460 LINE-(216,121),4
4470 LINE-(222,128),4
4480 LINE-(222,131),4
4490 LINE-(215,143),4
4500 LINE-(206,156),4
4510 LINE(197,68)-(202,44),4
4520 LINE-(214,0),4
4530 LINE(198,43)-(204,34),4
4540 LINE(218,107)-(222,82),4
4550 LINE-(228,48),4
4560 LINE-(236,18),4
4570 LINE-(242,0),4
4580 LINE(223,82)-(224,82),4
4590 LINE-(227,85),4
4600 LINE-(228,92),4
4610 LINE-(234,99),4
4620 LINE-(234,105),4
4630 LINE-(231,111),4
4640 LINE-(233,113),4
4650 LINE-(233,115),4
4660 LINE-(226,122),4
4670 LINE-(227,133),4
4680 LINE-(224,137),4
4690 LINE-(219,138),4
4700 LINE(224,81)-(243,64),4
4710 LINE-(245,62),4
4720 LINE-(245,78),4
4730 LINE-(247,91),4
4740 LINE-(251,100),4
4750 LINE-(255,108),4
4760 LINE(230,43)-(232,54),4
4770 LINE-(239,47),4
4780 LINE-(245,45),4
4790 LINE-(249,45),4
4800 LINE-(250,47),4
4810 LINE-(248,56),4
4820 LINE-(255,49),4
4830 LINE(234,28)-(236,33),4
4840 LINE-(236,49),4
4850 LINE(236,37)-(241,33),4
4860 LINE-(246,31),4
4870 LINE-(248,31),4
4880 LINE-(250,33),4
4890 LINE-(251,38),4
4900 LINE-(251,46),4
4910 LINE(251,41)-(255,37),4
4920 LINE(84,136)-(78,135),4
4930 LINE-(62,128),4
4940 LINE-(59,128),4
4950 LINE-(58,129),4
4960 LINE-(58,131),4
4970 LINE-(62,135),4
4980 LINE-(67,139),4
4990 LINE(78,140)-(52,140),4
5000 LINE-(53,142),4
5010 LINE-(57,145),4
5020 LINE-(63,147),4
5030 LINE-(70,149),4
5040 LINE(80,144)-(63,155),4
5050 LINE-(70,155),4
5060 LINE-(75,153),4
5070 LINE-(72,158),4
5080 LINE-(73,159),4
5090 LINE-(83,155),4
5100 LINE-(72,171),4
5110 LINE-(72,173),4
5120 LINE-(73,174),4
5130 LINE-(75,174),4
5140 LINE-(83,170),4
5150 LINE-(90,165),4
5160 LINE(93,159)-(88,171),4
5170 LINE-(88,173),4
5180 LINE-(90,173),4
5190 LINE-(93,171),4
5200 LINE-(100,163),4
5210 LINE-(101,162),4
5220 LINE(102,157)-(102,164),4
5230 LINE-(104,171),4
5240 LINE-(106,171),4
5250 LINE-(109,168),4
5260 LINE-(110,166),4
5270 LINE(56,145)-(47,145),4
5280 LINE-(47,151),4
5290 LINE-(49,158),4
5300 LINE-(53,162),4
5310 LINE-(54,162),4
5320 LINE-(59,161),4
5330 LINE-(59,164),4
5340 LINE-(55,167),4
5350 LINE-(55,169),4
5360 LINE-(60,175),4
5370 LINE-(66,179),4
5380 LINE-(70,179),4
5390 LINE-(76,176),4
5400 LINE-(74,181),4
5410 LINE-(74,182),4
5420 LINE-(75,183),4
5430 LINE-(80,183),4
5440 LINE-(82,188),4
5450 LINE-(85,190),4
5460 LINE-(91,190),4
5470 LINE-(98,186),4
5480 LINE-(102,185),4
5490 LINE-(100,190),4
5500 LINE-(102,191),4
5510 LINE(123,181)-(123,184),4
5520 LINE-(119,189),4
5530 LINE-(115,191),4
5540 LINE(106,178)-(106,172),4
5550 LINE(102,176)-(102,171),4
5560 LINE(83,175)-(83,171),4
5570 LINE(23,102)-(47,80),4
5580 LINE-(58,80),4
5590 LINE-(59,83),4
5600 LINE-(59,86),4
5610 LINE-(50,95),4
5620 LINE-(46,95),4
5630 LINE-(45,95),4
5640 LINE(50,85)-(44,93),4
5650 LINE-(44,96),4
5660 LINE-(39,101),4
5670 LINE-(32,106),4
5680 LINE(60,84)-(61,84),4
5690 LINE-(65,87),4
5700 LINE-(65,89),4
5710 LINE-(59,95),4
5720 LINE(66,89)-(69,89),4
5730 LINE-(71,93),4
5740 LINE-(66,99),4
5750 LINE(72,93)-(75,93),4
5760 LINE-(77,96),4
5770 LINE-(77,98),4
5780 LINE-(73,102),4
5790 LINE(63,107)-(56,102),4
5800 LINE-(55,99),4
5810 LINE-(55,97),4
5820 LINE-(57,96),4
5830 LINE-(58,96),4
5840 LINE-(74,103),4
5850 LINE-(74,107),4
5860 LINE-(66,112),4
5870 LINE-(41,120),4
5880 LINE(37,110)-(42,107),4
5890 LINE-(52,106),4
5900 LINE-(59,105),4
5910 LINE(49,96)-(49,98),4
5920 LINE-(54,98),4
5930 LINE(23,103)-(23,104),4
5940 LINE-(24,109),4
5950 LINE-(28,114),4
5960 LINE-(31,117),4
5970 LINE-(35,119),4
5980 LINE-(40,120),4
5990 LINE(22,102)-(18,105),4
6000 LINE-(17,106),4
6010 LINE-(11,106),4
6020 LINE-(12,114),4
6030 LINE-(15,122),4
6040 LINE-(25,118),4
6050 LINE-(23,127),4
6060 LINE-(36,129),4
6070 LINE-(39,129),4
6080 LINE-(41,123),4
6090 LINE-(42,121),4
6100 LINE(11,116)-(0,132),4
6110 LINE(31,129)-(20,146),4
6120 LINE-(14,161),4
6130 LINE-(11,167),4
6140 LINE-(7,172),4
6150 LINE-(2,177),4
6160 LINE-(0,178),4
6170 LINE(3,129)-(3,133),4
6180 LINE-(5,139),4
6190 LINE-(8,142),4
6200 LINE-(13,145),4
6210 LINE-(20,145),4
6220 LINE(17,156)-(36,156),4
6230 LINE-(43,154),4
6240 LINE-(47,153),4
6250 LINE(0,185)-(21,185),4
6260 LINE-(42,182),4
6270 LINE-(62,177),4
6280 LINE(70,110)-(70,113),4
6290 LINE-(73,117),4
6300 LINE-(76,120),4
6310 LINE-(78,122),4
6320 LINE(70,114)-(67,114),4
6330 LINE-(61,116),4
6340 LINE-(61,124),4
6350 LINE-(53,126),4
6360 LINE-(52,129),4
6370 LINE-(54,134),4
6380 LINE-(40,129),4
6390 LINE(42,124)-(45,127),4
6400 LINE-(47,130),4
6410 LINE(4,124)-(0,123),4
6420 LINE(8,119)-(0,118),4
6430 LINE(53,75)-(53,79),4
6440 LINE(158,143)-(161,138),4
6450 LINE(154,177)-(158,167),4
6460 LINE-(164,161),4
6470 LINE-(172,165),4
6480 LINE-(176,161),4
6490 LINE-(184,166),4
6500 PAINT(168,173),4,4
6510 LINE(130,117)-(130,107),4
6520 PAINT(128,112),4,4
6530 REM --- kami paint
6540 PAINT( 90,40),3,4
6550 PAINT(170, 51),3,4
6560 PAINT(154, 46),3,4
6570 PAINT( 66, 31),3,4
6580 PAINT( 54, 54),3,4
6590 PAINT( 64, 62),3,4
6600 PAINT( 66, 65),3,4
6610 PAINT( 54, 78),3,4
6620 PAINT( 64, 83),3,4
6630 PAINT( 72,111),3,4
6640 PAINT( 66,122),3,4
6650 PAINT( 94,120),3,4
6660 PAINT( 88,113),3,4
6670 PAINT( 40, 35),3,4
6680 PAINT( 48, 41),3,4
6690 PAINT( 22, 54),3,4
6700 PAINT( 20, 58),3,4
6710 PAINT( 18, 62),3,4
6720 PAINT( 16, 68),3,4
6730 PAINT( 14, 74),3,4
6740 PAINT(  0,121),3,4
6750 PAINT( 58,184),3,4
6760 PAINT(162,119),3,4
6770 PAINT(170,119),3,4
6780 PAINT(174, 96),3,4
6790 PAINT( 76,118),3,4
6800 PAINT( 98,150),3,4
6810 PAINT(100,152),3,4
6820 PAINT( 86, 92),3,4
6830 PAINT(230, 64),3,4
6840 PAINT(150,  3),3,4
6850 PAINT(146, 10),3,4
6860 PAINT(200, 42),3,4
6870 PAINT(202, 39),3,4
6880 PAINT(134, 51),3,4
6890 REM --- other pink
6900 PAINT( 90, 14),3,4
6910 PAINT( 20,111),3,4
6920 PAINT(100,132),3,4
6930 PAINT(110,133),3,4
6940 PAINT(146,141),3,4
6950 PAINT(136,136),3,4
6960 PAINT(131,150),3,4
6970 PAINT(127,162),3,4
6980 PAINT(192,157),3,4
6990 PAINT(180,108),3,4
7000 PAINT(176,118),3,4
7010 REM --- shiage
7020 LINE(83,84)-(103,85),4
7030 LINE(128,68)-(143,53),4
7040 LINE(146,68)-(147,65),4
7050 LINE(162,181)-(165,181),1
7060 LINE-(168,177),1
7070 LINE-(172,169),1
7080 LINE(161,177)-(164,177),1
7090 LINE-(169,168),1
7100 LINE-(164,168),1
7110 LINE-(164,172),1
7120 LINE(168,180)-(170,180),1
7130 LINE-(176,174),1
7140 LINE-(178,169),1
7150 LINE-(178,164),1
7160 LINE-(175,162),1
7170 LINE-(171,166),1
7180 LINE-(166,163),1
7190 LINE-(162,163),1
7200 LINE-(159,167),1
7210 LINE-(159,170),1
7220 LINE-(164,176),1
7230 LINE(173,167)-(174,166),1
7240 LINE-(175,166),1
7250 LINE-(175,171),1
7260 LINE-(170,177),1
7270 REM --- mimi
7280 LINE(170, 82)-(170, 75),4
7290 LINE-(166, 71),4
7300 LINE-(166, 68),4
7310 LINE-(168, 65),4
7320 LINE-(170, 65),4
7330 REM --- highlight
7340 LINE( 90, 12)-( 92, 14),1,BF
7350 LINE(100,130)-(102,132),1,BF
7360 LINE(180,105)-(182,107),1,BF
7370 REM --- heart
7380 COLOR 3
7390 LOCATE  1, 0:PRINT CHR$(129);
7400 LOCATE 14,14:PRINT CHR$(129);
7410 LOCATE 15,12:PRINT CHR$(129);
7420 LOCATE  2, 1:PRINT CHR$(129);
7430 REM --- HIT ANY KEY
7440 A$=INKEY$
7450 IF A$="" THEN 7440
7460 END