5 CLS:LOCATE 10,5:PRINT "Hunny Or Sweets" 10 PRINT:PRINT " WAIT PLEASE.." 15 CONSOLE 0,20,0,0:SOUND 7,170:SOUND 9,16:SOUND 12,80:SOUND 13,14 20 AD=&HC000 30 READ A$ 40 IF A$="@" THEN 170 50 POKE AD,VAL("&H"+A$) 60 AD=AD+1 70 GOTO 30 170 SOUND 7,120:POKE &HFAEB,&H00 180 POKE &HFAEC,&HC0 200 SCREEN3,2,2:A=USR(0):END 1000 DATA 01,E0,00,21,A7,C4,11,00,ED,ED,B0,01,60,03,21,87,C5,11,60,EE 1010 DATA ED,B0,3E,01,32,F3,ED,3E,0C,CD,75,10,3E,05,32,0E,D0,CD,75,C2 1020 DATA CD,21,C3,3A,02,D0,5F,3A,03,D0,57,3E,00,32,05,D0,3E,00,32,07 1030 DATA D0,3E,00,32,0C,D0,3E,00,32,06,D0,3E,00,32,08,D0,3E,00,32,0D 1040 DATA D0,3E,08,D5,CD,1F,C4,D1,CD,4F,C4,3E,00,77,CD,BC,0F,28,19,FE 1050 DATA 1C,CA,BB,C0,FE,1D,CA,E6,C0,FE,1E,CA,11,C1,FE,1F,CA,3C,C1,FE 1060 DATA 20,CA,C1,C2,3E,01,CD,A6,1C,CB,5F,C2,BB,C0,CB,57,C2,E6,C0,CB 1070 DATA 47,C2,11,C1,CB,4F,C2,3C,C1,CB,6F,C2,C1,C2,3E,02,CD,A6,1C,CB 1080 DATA 5F,C2,BB,C0,CB,57,C2,E6,C0,CB,47,C2,11,C1,CB,4F,C2,3C,C1,CB 1090 DATA 6F,C2,C1,C2,C3,5E,C0,3A,02,D0,5F,3A,03,D0,57,7B,C6,01,32,05 1100 DATA D0,C6,01,32,07,D0,C6,01,32,0C,D0,7A,D6,00,32,06,D0,D6,00,32 1110 DATA 08,D0,D6,00,32,0D,D0,C3,67,C1,3A,02,D0,5F,3A,03,D0,57,7B,D6 1120 DATA 01,32,05,D0,D6,01,32,07,D0,D6,01,32,0C,D0,7A,C6,00,32,06,D0 1130 DATA C6,00,32,08,D0,D6,00,32,0D,D0,C3,67,C1,3A,02,D0,5F,3A,03,D0 1140 DATA 57,7A,D6,01,32,06,D0,D6,01,32,08,D0,D6,01,32,0D,D0,7B,C6,00 1150 DATA 32,05,D0,C6,00,32,07,D0,C6,00,32,0C,D0,C3,67,C1,3A,02,D0,5F 1160 DATA 3A,03,D0,57,7A,C6,01,32,06,D0,C6,01,32,08,D0,C6,01,32,0D,D0 1170 DATA 7B,D6,00,32,05,D0,D6,00,32,07,D0,D6,00,32,0C,D0,C3,67,C1,3A 1180 DATA 05,D0,5F,3A,06,D0,57,CD,4F,C4,7E,32,09,D0,3A,07,D0,5F,3A,08 1190 DATA D0,57,CD,4F,C4,7E,32,0A,D0,3A,02,D0,5F,3A,03,D0,57,3E,00,D5 1200 DATA CD,1F,C4,D1,C3,A6,C1,3A,02,D0,5F,3A,03,D0,57,3E,08,D5,CD,1F 1210 DATA C4,D1,3A,09,D0,FE,00,C2,D6,C1,3A,05,D0,5F,3A,06,D0,57,3E,08 1220 DATA D5,CD,1F,C4,D1,3A,05,D0,32,02,D0,3A,06,D0,32,03,D0,3A,0E,D0 1230 DATA 3D,32,0E,D0,CD,75,C2,C3,5E,C0,3A,09,D0,FE,01,C2,F0,C1,3A,02 1240 DATA D0,5F,3A,03,D0,57,3E,08,D5,CD,1F,C4,D1,C3,5E,C0,FE,02,CA,11 1250 DATA C2,FE,03,CA,1F,C2,FE,04,CA,2D,C2,FE,05,CA,3B,C2,FE,06,CA,49 1260 DATA C2,FE,07,CA,B8,C3,C3,5E,C0,3A,0E,D0,C6,05,32,0E,D0,CD,75,C2 1270 DATA C3,57,C2,3A,0E,D0,C6,04,32,0E,D0,CD,75,C2,C3,57,C2,3A,0E,D0 1280 DATA C6,03,32,0E,D0,CD,75,C2,C3,57,C2,3A,0E,D0,C6,02,32,0E,D0,CD 1290 DATA 75,C2,C3,57,C2,3A,0E,D0,C6,01,32,0E,D0,CD,75,C2,C3,57,C2,3A 1300 DATA 05,D0,5F,3A,06,D0,57,3E,08,D5,CD,1F,C4,D1,3A,05,D0,32,02,D0 1310 DATA 3A,06,D0,32,03,D0,C3,5E,C0,D5,16,0C,1E,00,06,0D,3E,00,D5,CD 1320 DATA 1F,C4,D1,1C,10,F6,D1,3A,0E,D0,FE,00,CA,C1,C2,3E,0B,CD,75,10 1330 DATA 3A,0E,D0,47,26,00,2E,14,CD,6D,11,24,2E,14,CD,6D,11,3E,81,CD 1340 DATA 75,10,10,F3,C9,21,00,EA,06,8F,7E,FE,02,CA,BE,C2,23,10,F7,3E 1350 DATA 01,C9,3E,00,C9,CD,76,C4,1E,02,16,04,06,07,1C,3E,00,CD,1F,C4 1360 DATA 10,F8,1E,02,16,05,06,07,1C,3E,00,CD,1F,C4,10,F8,1E,02,16,06 1370 DATA 06,07,1C,3E,00,CD,1F,C4,10,F8,26,08,2E,08,CD,6D,11,21,6F,CD 1380 DATA 06,06,7E,CD,75,10,23,10,F9,26,06,2E,0A,CD,6D,11,21,65,CD,06 1390 DATA 0A,7E,CD,75,10,23,10,F9,CD,58,10,CD,BC,0F,FE,20,20,F9,C3,1B 1400 DATA C0,3A,F3,ED,FE,01,CA,4C,C3,FE,02,CA,52,C3,FE,03,CA,58,C3,FE 1410 DATA 04,CA,5E,C3,FE,05,CA,64,C3,FE,06,CA,6A,C3,FE,07,CA,70,C3,FE 1420 DATA 08,CA,76,C3,21,E7,C8,C3,7C,C3,21,76,C9,C3,7C,C3,21,05,CA,C3 1430 DATA 7C,C3,21,94,CA,C3,7C,C3,21,23,CB,C3,7C,C3,21,B2,CB,C3,7C,C3 1440 DATA 21,41,CC,C3,7C,C3,21,D0,CC,C3,7C,C3,16,01,1E,00,DD,21,00,EA 1450 DATA DD,E5,C5,E5,D5,F5,7E,7E,FE,08,20,08,7B,32,02,D0,7A,32,03,D0 1460 DATA DD,77,00,CD,1F,C4,F1,D1,E1,C1,DD,E1,23,DD,23,1C,3E,0D,BB,28 1470 DATA 02,18,D5,14,3E,0C,BA,C8,1E,00,18,CC,CD,76,C4,1E,02,16,04,06 1480 DATA 07,1C,3E,00,CD,1F,C4,10,F8,1E,02,16,05,06,07,1C,3E,00,CD,1F 1490 DATA C4,10,F8,1E,02,16,06,06,07,1C,3E,00,CD,1F,C4,10,F8,26,08,2E 1500 DATA 08,CD,6D,11,21,5F,CD,06,06,7E,CD,75,10,23,10,F9,26,06,2E,0A 1510 DATA CD,6D,11,21,65,CD,06,0A,7E,CD,75,10,23,10,F9,CD,58,10,CD,BC 1520 DATA 0F,FE,20,20,F9,3A,F3,ED,3C,32,F3,ED,C3,1B,C0,F5,E5,D5,C5,CD 1530 DATA 4F,C4,77,F5,3E,00,06,03,83,10,FD,5F,3E,00,06,10,82,10,FD,3D 1540 DATA 3D,57,F1,3C,32,F0,ED,7B,32,F1,ED,7A,32,F2,ED,CD,00,ED,C1,D1 1550 DATA E1,F1,C9,F5,C5,D5,21,00,EA,D5,15,5A,16,00,06,0D,19,10,FD,D1 1560 DATA 16,00,19,D1,C1,F1,C9,E3,F5,7E,23,A7,28,05,CD,75,10,18,F6,F1 1570 DATA E3,C9,F5,C5,D5,3E,00,1E,25,CD,C5,1B,3E,01,1E,00,CD,C5,1B,3E 1580 DATA 0B,1E,01,CD,C5,1B,3E,0C,1E,1F,CD,C5,1B,3E,08,1E,10,CD,C5,1B 1590 DATA 3E,0D,1E,00,CD,C5,1B,D1,C1,F1,C9,DD,21,00,EE,3A,F0,ED,47,C5 1600 DATA 01,60,00,DD,09,C1,10,F7,06,00,0E,10,C5,CD,B0,ED,DD,7E,00,77 1610 DATA DD,23,CD,C6,ED,DD,7E,00,77,DD,23,3A,F2,ED,3C,32,F2,ED,C1,0D 1620 DATA 79,FE,00,20,DF,06,10,3A,F2,ED,3D,32,F2,ED,10,F7,06,00,0E,10 1630 DATA 3A,F1,ED,3C,32,F1,ED,C5,CD,B0,ED,DD,7E,00,77,DD,23,CD,C6,ED 1640 DATA DD,7E,00,77,DD,23,3A,F2,ED,3C,32,F2,ED,C1,0D,79,FE,00,20,DF 1650 DATA 06,10,3A,F2,ED,3D,32,F2,ED,10,F7,06,00,0E,10,3A,F1,ED,3C,32 1660 DATA F1,ED,C5,CD,B0,ED,DD,7E,00,77,DD,23,CD,C6,ED,DD,7E,00,77,DD 1670 DATA 23,3A,F2,ED,3C,32,F2,ED,C1,0D,79,FE,00,20,DF,06,10,3A,F2,ED 1680 DATA 3D,32,F2,ED,10,F7,C9,3A,F2,ED,5F,26,28,44,16,00,62,6A,19,10 1690 DATA FD,3A,F1,ED,16,00,5F,19,C9,3A,F2,ED,5F,26,28,44,16,00,62,6A 1700 DATA 19,10,FD,3A,F1,ED,16,00,5F,19,11,00,20,19,C9,00,00,00,00,00 1710 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 1720 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 1730 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 1740 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 1750 DATA 00,00,00,00,00,00,00,00,00,00,00,E0,DF,E0,DF,E0,DF,E0,DC,E0 1760 DATA DC,E0,D3,C0,CF,00,BF,00,BF,C0,CF,E0,D3,E0,DC,E0,DC,E0,DF,E0 1770 DATA DF,E0,DD,00,EB,00,FF,3C,3C,BE,7D,BE,7D,BE,7D,BE,7D,BE,7D,BE 1780 DATA 7D,BE,7D,BE,7D,BE,7D,BE,7D,3C,3C,00,FF,00,EB,0B,F7,0B,F7,0B 1790 DATA F7,0B,37,0B,37,0B,C7,03,F3,00,FC,00,FC,03,FB,0B,E7,0B,B7,0B 1800 DATA B7,0B,F7,0B,F7,0B,F7,00,00,00,00,00,00,03,03,03,03,03,03,0F 1810 DATA 0F,0F,0F,3F,3F,2A,00,2A,00,2A,00,3F,3F,3F,3F,2A,00,2A,00,00 1820 DATA 00,3C,00,FF,00,FF,00,FF,C3,FF,FF,FF,FF,FF,FF,FF,FF,AA,00,AA 1830 DATA 00,AA,00,FF,FF,FF,FF,AA,00,AA,00,00,00,00,00,00,00,00,00,C0 1840 DATA C0,F0,F0,F0,F0,F0,F0,FC,FC,A8,00,A8,00,A8,00,FC,FC,FC,FC,A8 1850 DATA 00,A8,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,FF,FF,FF 1860 DATA FF,FF,FF,FF,FF,FF,FF,3F,3F,3F,3F,0F,05,00,00,00,00,00,00,00 1870 DATA 00,00,00,00,00,02,03,0A,0F,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF 1880 DATA FD,FC,F4,F0,50,00,00,00,00,02,03,0A,0F,28,3C,A0,F0,80,C0,00 1890 DATA 00,FF,FF,C3,43,C3,43,CC,4C,F0,F0,00,00,00,00,00,00,00,00,03 1900 DATA 00,0F,00,02,02,03,03,03,01,3F,3F,3F,3F,3F,3F,15,3F,15,2A,05 1910 DATA 0A,05,0A,01,02,00,00,00,00,00,00,CF,0F,FF,0F,BF,BC,FF,F0,FF 1920 DATA FC,FF,7F,FF,D5,FF,FF,55,FF,55,AA,55,AA,55,AA,55,AA,54,A8,54 1930 DATA A8,00,00,08,0C,08,0C,C8,0C,F8,0C,C8,0C,20,30,F0,F0,F0,F0,50 1940 DATA F0,50,A0,40,80,40,80,00,00,00,00,00,00,00,00,00,00,00,00,00 1950 DATA 00,00,00,00,00,06,0A,06,0A,05,0A,06,0B,01,02,01,02,01,02,01 1960 DATA 02,00,00,00,00,00,00,00,00,00,00,00,00,00,00,02,03,99,AE,A5 1970 DATA BB,9A,EA,5A,AA,55,AA,55,EB,55,AA,55,AE,55,BA,55,AA,00,00,02 1980 DATA 03,08,0C,20,30,80,C0,00,00,50,A0,50,A0,50,E0,50,A0,40,80,40 1990 DATA 80,40,80,40,80,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 2000 DATA 00,00,00,03,03,0F,0F,0A,0F,0A,00,02,00,02,00,00,00,00,00,00 2010 DATA 00,00,00,00,00,FC,FC,3F,3F,3F,3F,FF,FF,FF,FF,FF,FF,FF,FF,AA 2020 DATA FF,AA,00,AA,00,AA,00,AA,00,AA,00,AA,00,00,00,00,00,00,00,00 2030 DATA 00,00,00,C0,C0,C0,C0,F0,F0,F0,F0,A0,F0,A0,00,80,00,80,00,00 2040 DATA 00,00,00,00,00,00,00,1A,1A,6B,6B,AE,AE,AA,AA,AA,A0,68,40,2B 2050 DATA 03,18,20,16,18,45,4A,15,2A,65,89,A5,05,45,45,12,20,0A,00,AA 2060 DATA AA,AA,AA,AA,AA,AA,A0,AA,00,28,00,2B,03,28,00,AA,00,55,69,55 2070 DATA 69,55,55,55,55,55,55,86,08,86,04,A0,A0,A8,A8,AA,AA,AA,0A,AA 2080 DATA 0A,28,00,29,01,24,04,80,00,50,A0,55,A9,59,62,5A,50,50,50,81 2090 DATA 01,A4,04,10,10,4A,4F,2A,3F,AA,FC,AA,C0,A8,00,AB,03,28,00,0A 2100 DATA 00,54,68,15,29,1A,22,2A,02,56,6A,16,28,0A,00,AA,FF,AA,FF,AA 2110 DATA FF,AA,00,AA,00,28,00,2B,03,28,00,AA,00,AA,00,FF,00,96,BE,55 2120 DATA FF,96,BE,AA,EA,BE,00,90,D0,B8,FC,EE,EF,BA,33,AA,00,2A,00,2A 2130 DATA 00,28,00,A0,00,54,68,D5,29,B8,80,BA,80,B0,80,B1,01,A4,04,01 2140 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,07,00,00,00,00,03,00 2150 DATA 00,00,00,06,01,01,00,01,01,01,01,00,01,00,01,01,00,01,01,00 2160 DATA 01,06,00,01,00,01,06,00,01,00,01,01,00,01,00,00,00,00,01,00 2170 DATA 00,01,06,01,01,03,01,00,00,01,06,00,00,00,01,00,01,01,00,00 2180 DATA 00,05,01,00,01,00,00,01,04,01,01,00,01,06,00,01,00,01,06,00 2190 DATA 01,00,01,01,06,01,01,01,01,05,01,01,01,01,00,01,01,00,00,00 2200 DATA 00,05,06,00,00,00,00,08,01,01,01,01,01,01,01,01,01,01,01,01 2210 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,00,00,00,03 2220 DATA 00,06,00,00,00,00,08,01,01,00,01,00,01,00,01,00,00,00,00,00 2230 DATA 01,01,03,01,00,01,00,01,01,01,01,00,00,01,01,00,01,00,01,00 2240 DATA 01,06,00,06,00,00,01,01,00,00,00,00,00,00,00,05,01,00,00,01 2250 DATA 01,00,01,00,01,05,01,00,00,01,05,05,01,01,00,01,00,01,00,01 2260 DATA 03,00,01,00,00,01,01,00,01,00,01,00,01,00,00,01,00,00,01,01 2270 DATA 07,00,00,00,05,00,00,00,00,05,00,01,01,01,01,01,01,01,01,01 2280 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,08 2290 DATA 00,00,00,05,00,00,00,00,03,00,01,01,00,00,01,01,01,01,01,01 2300 DATA 00,00,00,01,01,00,00,00,00,06,05,00,05,00,00,00,01,01,00,00 2310 DATA 00,00,00,00,00,00,00,00,00,01,01,00,00,00,01,01,01,01,00,06 2320 DATA 00,00,01,01,02,00,00,00,00,06,00,00,00,00,05,01,01,00,00,00 2330 DATA 06,00,00,00,00,00,00,00,01,01,06,06,01,01,01,01,01,01,00,00 2340 DATA 00,01,01,00,00,06,00,00,00,00,00,00,00,07,01,01,01,01,01,01 2350 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01 2360 DATA 01,01,08,00,00,00,00,03,00,00,00,00,04,01,01,00,00,00,00,00 2370 DATA 01,00,01,01,01,00,01,01,00,00,00,00,01,00,00,01,01,01,00,01 2380 DATA 01,00,00,06,01,00,00,00,01,01,01,00,01,01,00,00,01,01,01,01 2390 DATA 03,00,00,00,00,01,01,00,00,00,03,00,00,00,00,00,01,00,01,01 2400 DATA 00,00,00,00,01,01,01,01,03,01,00,01,01,04,00,00,00,00,01,01 2410 DATA 01,00,00,00,01,01,00,00,00,00,05,00,00,00,00,00,07,01,01,01 2420 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01 2430 DATA 01,01,01,01,01,08,00,00,00,00,06,06,06,00,00,00,01,01,00,01 2440 DATA 01,00,01,01,01,00,01,01,00,01,01,00,01,01,03,00,00,00,06,00 2450 DATA 01,02,01,01,00,00,00,00,00,01,01,00,01,01,00,01,01,00,01,01 2460 DATA 00,00,02,00,00,00,00,00,01,01,06,01,01,00,00,01,01,01,01,00 2470 DATA 05,01,01,06,01,01,03,00,00,00,00,00,00,00,01,01,06,00,00,00 2480 DATA 00,01,01,01,01,00,00,01,01,05,00,00,00,00,00,00,00,02,00,07 2490 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01 2500 DATA 01,01,01,01,01,01,01,01,00,00,00,00,00,00,00,00,00,00,00,01 2510 DATA 01,00,00,00,00,00,00,00,00,00,00,00,01,01,00,00,00,00,00,00 2520 DATA 00,00,00,00,00,01,01,00,00,00,00,00,00,00,00,00,00,00,01,01 2530 DATA 00,00,00,00,00,00,00,00,00,00,00,01,01,00,00,00,00,00,00,00 2540 DATA 00,00,00,00,01,01,00,00,00,00,00,00,00,00,00,00,00,01,01,00 2550 DATA 00,00,00,00,00,00,00,00,00,00,01,01,00,00,00,00,00,00,00,00 2560 DATA 00,00,00,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01 2570 DATA 01,01,01,01,01,01,01,01,01,01,01,00,00,00,00,00,00,00,00,00 2580 DATA 00,00,01,01,00,00,00,00,00,00,00,00,00,00,00,01,01,00,00,00 2590 DATA 00,00,00,00,00,00,00,00,01,01,00,00,00,00,00,00,00,00,00,00 2600 DATA 00,01,01,00,00,00,00,00,00,00,00,00,00,00,01,01,00,00,00,00 2610 DATA 00,00,00,00,00,00,00,01,01,00,00,00,00,00,00,00,00,00,00,00 2620 DATA 01,01,00,00,00,00,00,00,00,00,00,00,00,01,01,00,00,00,00,00 2630 DATA 00,00,00,00,00,00,01,01,01,01,01,01,01,01,01,01,01,01,01,01 2640 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,00,00,00,00,00,00 2650 DATA 00,00,00,00,00,01,01,00,00,00,00,00,00,00,00,00,00,00,01,01 2660 DATA 00,00,00,00,00,00,00,00,00,00,00,01,01,00,00,00,00,00,00,00 2670 DATA 00,00,00,00,01,01,00,00,00,00,00,00,00,00,00,00,00,01,01,00 2680 DATA 00,00,00,00,00,00,00,00,00,00,01,01,00,00,00,00,00,00,00,00 2690 DATA 00,00,00,01,01,00,00,00,00,00,00,00,00,00,00,00,01,01,00,00 2700 DATA 00,00,00,00,00,00,00,00,00,01,01,01,01,01,01,01,01,01,01,01 2710 DATA 01,01,01,43,4C,45,41,52,21,50,55,53,48,20,53,50,41,43,45,4D 2720 DATA 49,53,53,45,44,@