10REM Music from Poland 20REM by M.Bobrowski 5'94 30: 40DEFFNS="MusPol" 50MODE7:HIMEM=&6000 60VDU23;8202;0;0;0; 70DIM ch%(3),e%(2),note%(2):ON ERROR IF ERR=17 AND INKEY(-1) MODE7:END ELSE R EPORT:PRINT" at line ";ERL:END 80ENVELOPE1,5,0,0,0,0,0,0,120,-5,-2,- 20,120,80 90ENVELOPE2,1,0,0,0,0,0,0,125,-2,-1,- 2,90,60 100ENVELOPE3,2,0,0,0,0,0,0,120,-1,0,-2 ,100,75 110PROCtitle 120FOR Y%=21 TO 22:PRINTTAB(9,Y%)CHR$1 41CHR$129CHR$157CHR$131"Press 0 - 9 "CH R$156:NEXT 130REPEAT 140REPEAT 150F%=0 160*FX21 170B%=VAL(GET$) 180UNTILB%>-1 AND B%<10 190IF B%=9 F%=1:FOR B%=1 TO 8 200IF B%=1 A$="Chime" 210IF B%=2 A$="Cuckoo" 220IF B%=3 A$="Karlik" 230IF B%=4 A$="Krakowi" 240IF B%=5 A$="Kujawia" 250IF B%=6 A$="Mazurka" 260IF B%=7 A$="Oberek" 270IF B%=8 A$="Polonai" 280IF B%<>0 PRINTTAB(15,B%+6)CHR$62:OS CLI"LO."+A$+" 6000":PROCset`up:PROCplay: PRINTTAB(15,B%+6)CHR$134 290IF F%=1 NEXT 300UNTIL B%=0 310MODE7:*DIR $ 320END 330: 340DEFPROCset`up 350ch%(0)=&6000:A%=&6000 360FORL%=1 TO 3 370REPEAT A%=A%+1:UNTIL?A%=&FF 380A%=A%+2:ch%(L%)=A% 390NEXT 400ENDPROC 410: 420DEFPROCplay 430FORC%=0TO2:note%(C%)=0:e%(C%)=0:NEX T 440REPEAT 450IF ADVAL(-6)>0 PROCsound(0) 460IF ADVAL(-7)>0 PROCsound(1) 470IF ADVAL(-8)>0 PROCsound(2) 480UNTIL e%(0) AND e%(1) AND e%(2) 490ENDPROC 500: 510DEFPROCsound(C%) 520P%=ch%(C%)?(note%(C%)*2):D%=ch%(C%) ?(note%(C%)*2+1) 530IF P%=255 e%(C%)=TRUE:ENDPROC 540IF P%=0 E%=0 ELSE E%=C%+1 550SOUND C%+1,E%,P%,D% 560note%(C%)=note%(C%)+1 570ENDPROC 580: 590DEF PROCtitle 600FOR Y%=2 TO 3:PRINTTAB(6,Y%)CHR$141 CHR$129CHR$157CHR$131"Music from Poland "CHR$156:NEXT 610PRINT'''TAB(12)" 1. Chime"TAB(12)" 2. Cuckoo"TAB(12)" 3. Karlik"TAB(12)" 4. Krakowiak"TAB(12)" 5. Kujawiak"TAB(12)" 6. Mazurka"TAB(12)" 7. Oberek"TAB(12)" 8. Polonaise"TAB(12)" 9. All"''TAB(12)" 0. End" 620ENDPROC