10ONERRORGOTO3550 20MODE1:VDU23;8202;0;0;0; 30Z=0 40*FX9 50VDU19,1,1,0,0,0 60VDU19,2,7,0,0,0 70VDU19,3,4,0,0,0 80*L. S.Asterix 3000 90ENVELOPE1,3,0,0,0,0,0,0,126,-1,0,-2 ,100,0 100ENVELOPE2,1,0,0,0,0,0,0,126,-1,0,-2 ,100,0 110ENVELOPE3,2,1,-2,0,0,0,0,127,-4,-3, -3,126,90 120REM" ====================== 130pitch%=49:RESTORE380 140REPEAT 150READC,P,T 160Z=(Z+1)MOD4 170V=C:IFP=1V=0 180IFP>1ANDC=3P=P-pitch% 190IFC=3ANDV<>0SOUNDC,3,P,T:GOTO220 200IFP=-9GOTO220 210IFP<0SOUND&101,0,-P,T:SOUND&100,1,3 ,T:SOUND0,0,0,0ELSESOUNDC,V,P,T 220UNTILC<-3 230PROCend 240*FX21,0 250G$=INKEY$(300):GOTO890 260REM" ============ 270DEFPROCend 280FORT=1TO8 290Z=(Z+1)MOD4 300IFZ=3 GOTO320 310FORU=1TO190:NEXT 320NEXT 330FORT=1TO190:NEXT 340FORE=1TO3000:NEXT 350ENDPROC 360REM" ============ 370REM" ====================== 380DATA&101,1,7,&102,1,7 390DATA3,167,4,3,171,3 400DATA1,53,12 410DATA2,1,4,2,81,2,2,101,4,2,117,2 420DATA3,179,6,3,179,6 430DATA1,69,12 440DATA2,1,4,2,93,2,2,105,4,2,129,2 450DATA3,179,6,3,179,6 460DATA1,61,12 470DATA2,1,4,2,89,2,2,101,4,2,121,2 480DATA3,187,6,3,179,12 490REM" ===================== 500DATA1,33,12 510DATA2,1,4,2,81,2,2,97,4,2,117,2 520DATA3,167,4,3,171,2 530DATA1,53,12 540DATA2,1,4,2,81,2,2,101,4,2,117,2 550DATA3,179,4,3,179,3,3,179,3,3,179,2 560DATA1,69,12 570DATA2,1,4,2,93,2,2,105,4,2,129,2 580DATA3,191,4,3,191,3,3,191,3,3,191,2 590DATA1,61,12 600DATA2,1,4,2,89,2,2,101,4,2,121,2 610DATA3,179,18 620DATA1,33,12 630DATA2,1,4,2,81,2,2,97,4,2,117,2 640REM" ==================== 650DATA3,179,6 660DATA1,53,12 670DATA2,1,4,2,81,2,2,101,4,2,117,2 680DATA3,199,4,3,199,2,3,179,6 690DATA1,33,12 700DATA2,1,4,2,93,2,2,101,4,2,117,2 710DATA3,191,6,3,187,4,3,187,2 720DATA1,25,12 730DATA2,1,4,2,89,2,2,101,4,2,121,2 740DATA3,179,6,3,171,6,3,199,9 750DATA1,53,24 760DATA2,1,2,2,85,2,2,101,2,2,121,18 770REM" ========---- 780DATA3,1,13,3,179,2 790DATA1,53,12 800DATA2,1,4,2,81,2,2,101,4,2,117,2 810DATA3,167,4,3,167,3,3,179,5 820DATA1,33,12 830DATA2,1,4,2,81,2,2,97,4,2,117,2 840DATA3,159,6,3,179,6,3,151,2 850DATA1,53,18 860DATA2,1,4,2,81,2,2,101,4,2,117,2,2, 149,12 870DATA1,-144,24 880DATA-9,-9,-9 890ENVELOPE1,3,0,0,0,0,0,0,126,-2,-1,- 2,126,100 900ENVELOPE2,1,0,0,0,0,0,0,126,-1,0,-2 ,100,0 910ENVELOPE3,2,1,-2,0,0,0,0,127,-4,-3, -3,126,90 920RESTORE1090 930REPEAT 940READC,P,T 950Z=(Z+1)MOD4 960T=T*1.5 970V=C:IFP=1V=0 980IFP>1ANDC=3P=P-50 990IFC=3ANDV<>0SOUNDC,3,P,T:GOTO1030 1000IFP=-9GOTO1030 1010IFC=1P=P+91:P=-P 1020IFP<0SOUND1,0,-P,T:SOUND0,1,3,T:ELS ESOUNDC,V,P,T 1030UNTILC<-3 1040REM" ============ 1050PROCend 1060*FX21,0 1080REM" ====================== 1090DATA&101,1,1,&102,1,1 1100DATA1,33,4 1110DATA2,97,4 1120DATA3,1,12 1130DATA1,41,4 1140DATA2,101,4 1150DATA3,152,4 1160DATA1,49,4 1170DATA2,109,4 1180DATA3,152,4 1190DATA1,53,8 1200DATA2,1,2 1210DATA3,139,2 1220DATA1,33,8 1230DATA2,101,2 1240DATA3,131,4 1250DATA1,53,8 1260DATA2,69,2 1270DATA3,115,2 1280DATA1,33,8 1290DATA2,81,4 1300DATA3,119,2 1310DATA1,53,8 1320DATA2,101,2 1330DATA3,131,2 1340DATA1,33,8 1350DATA2,69,4 1360DATA3,139,2 1370DATA1,53,4 1380DATA2,1,2 1390DATA3,131,2 1400DATA2,101,2 1410DATA3,151,2 1420DATA2,69,2 1430DATA3,139,2 1440DATA2,81,4 1450DATA3,131,2 1460DATA2,101,2 1470DATA3,119,2 1480DATA2,69,4 1490DATA3,103,4 1500DATA2,1,2 1510DATA3,131,4 1520DATA2,101,2 1530DATA3,139,4 1540DATA2,69,2 1550DATA3,131,4 1560DATA2,81,4 1570DATA3,151,4 1580DATA2,101,2 1590DATA3,1,12 1600DATA2,69,4 1610DATA2,101,4 1620REM" SECOND BIT========== 1630DATA1,33,4 1640DATA2,97,4 1650DATA1,41,4 1660DATA2,101,4 1670DATA1,49,4 1680DATA2,109,4 1690DATA1,53,8 1700DATA2,1,2 1710DATA3,131,2 1720DATA1,33,8 1730DATA3,139,2 1740DATA2,101,2 1750DATA3,131,2 1760DATA1,53,8 1770DATA3,151,4 1780DATA2,69,2 1790DATA3,159,2 1800DATA1,33,4 1810DATA3,151,2 1820DATA2,81,4 1830DATA3,139,2 1840DATA1,57,4 1850DATA3,151,4 1860DATA2,101,2 1870DATA3,1,12 1880DATA1,61,8 1890DATA3,159,2 1900DATA2,69,4 1910DATA3,159,6 1920DATA1,41,8 1930DATA3,167,4 1940DATA2,1,2 1950DATA3,159,4 1960DATA1,61,8 1970DATA2,101,2 1980DATA2,69,2 1990DATA2,81,4 2000DATA2,101,2 2010DATA1,41,8 2020DATA2,105,4 2030DATA1,33,20 2040DATA2,1,2 2050DATA2,109,2 2060DATA2,77,2 2070DATA3,167,4 2080DATA2,101,4 2090DATA3,159,4 2100DATA2,109,2 2110DATA2,77,4 2120DATA2,1,2 2130DATA2,109,2 2140DATA2,77,2 2150DATA2,101,4 2160DATA2,109,2 2170DATA2,77,4 2180DATA3,1,10 2190DATA2,129,4 2200DATA3,159,2 2210DATA2,121,4 2220DATA3,187,2 2230DATA2,117,4 2240DATA3,195,2 2250DATA2,109,4 2260DATA3,207,2 2270DATA2,101,2 2280DATA3,215,2 2290DATA2,97,2 2300DATA3,207,2 2310REM" ==3RD BIT 2320DATA3,195,2 2330REM:DATA1,1,12 2340DATA3,187,2 2350DATA2,1,4 2360DATA3,179,2 2370DATA1,33,4 2380DATA3,187,4 2390DATA2,101,4 2400DATA3,179,8 2410DATA1,41,4 2420DATA2,109,4 2430DATA1,49,4 2440REM" ==4THBIT 2450DATA1,53,8 2460DATA2,1,2 2470DATA3,131,2 2480DATA1,33,8 2490DATA3,139,2 2500DATA2,101,2 2510DATA3,151,2 2520DATA1,53,8 2530DATA3,131,2 2540DATA2,69,2 2550DATA3,139,2 2560DATA1,33,8 2570DATA3,151,2 2580DATA2,81,4 2590DATA3,131,2 2600DATA1,25,8 2610DATA3,139,2 2620DATA2,101,2 2630DATA3,151,2 2640DATA1,53,8 2650DATA3,151,2 2660DATA2,69,4 2670DATA3,131,2 2680DATA1,25,8 2690DATA3,163,2 2700DATA2,1,2 2710DATA3,151,2 2720DATA1,53,8 2730DATA3,131,2 2740DATA2,101,2 2750DATA3,163,2 2760DATA2,69,2 2770DATA3,131,2 2780DATA2,93,4 2790DATA3,139,2 2800DATA2,101,2 2810DATA3,151,2 2820DATA2,69,4 2830DATA3,131,2 2840DATA2,1,2 2850DATA3,139,4 2860DATA2,101,2 2870DATA3,151,2 2880DATA2,73,2 2890DATA3,131,2 2900DATA2,89,4 2910DATA3,139,2 2920DATA2,101,2 2930DATA3,151,2 2940DATA2,73,4 2950DATA3,151,2 2960DATA2,1,2 2970DATA3,151,2 2980DATA2,101,2 2990DATA3,163,2 3000DATA2,73,2 3010DATA3,163,2 3020DATA2,85,4 3030DATA3,131,2 3040DATA2,101,2 3050DATA3,139,2 3060DATA2,73,4 3070REM" ==LAST BIT PART 1 3080DATA3,151,6 3090DATA1,53,8 3100DATA3,159,6 3110DATA2,1,2 3120DATA3,163,4 3130DATA1,49,4 3140DATA3,167,4 3150DATA2,101,2 3160DATA3,179,2 3170DATA1,45,4 3180DATA3,183,2 3190DATA2,69,2 3200DATA1,41,8 3210DATA2,81,2 3220DATA1,21,8 3230DATA2,1,2 3240DATA1,61,8 3250DATA2,97,6 3260DATA1,33,8 3270DATA2,1,2 3280DATA1,53,8 3290DATA2,105,2 3300DATA2,69,2 3310DATA2,81,4 3320DATA2,105,2 3330DATA3,187,8 3340DATA2,69,4 3350DATA3,199,2 3360DATA2,1,2 3370DATA3,187,2 3380DATA2,109,2 3390DATA3,179,2 3400DATA2,77,2 3410DATA3,167,2 3420DATA2,101,2 3430DATA3,179,2 3440DATA2,1,2 3450DATA3,187,2 3460DATA2,109,2 3470DATA3,179,2 3480DATA2,61,4 3490DATA3,195,4 3500DATA2,101,4 3510DATA3,199,4 3520DATA&201,53,10,&202,81,10,&203,150, 10 3530DATA-9,-9,-9 3540: 3550REPORT:PRINT" @ ";ERL:END 3560IFERR=17THENPRINT"Program quit.":CH AIN"Ast2" 3570REPORT:PRINT;" at line ";ERL:CHAIN" Ast2"