8-Bit Software Online Conversion

:0.$.KOLEDY - Listing

10REM Christmas Carols from Poland 20REM by M.Bobrowski 11'91 30: 40MODE4:VDU23,1,0;0;0;0;19,0,4;0;19,1 ,3;0;:LOMEM=TOP+&2100:H%=TOP+&100 50*L.SPXM 5800 60DIM P$(15),E$(15),ch%(3),e%(2),note %(2),K%(15),B%(15) 70FORI%=0TO&FC STEP4:I%!&8C0=I%!(TOP) :NEXT:REM envelopes 80PROCpl:VDU28,6,29,33,25 90FORI%=0TO15:CLS:READ B%(I%),K%(I%), P$(I%),E$(I%):PRINT TAB(14-LENP$(I%)/2)P $(I%)''TAB(14-LENE$(I%)/2)E$(I%)''TAB(11 )"- ";I%+1" -"; 100PROCset`up(H%):VDU19,0,B%(I%);0;19, 1,K%(I%);0;:PROCplay:H%=ch%(3):XX=INKEY( 400):*FX15 110NEXT 120CLS:PRINTTAB(16)","'TAB(7)"Weso ych Swi t!"''TAB(7)"Merry Christmas!";:XX=I NKEY(400) 130MODE7 140END 150: 160DEFPROCset`up(N%) 170ch%(0)=N%:FOR J%=1 TO 3 180REPEAT N%=N%+1:UNTIL?N%=&FF 190N%=N%+2:ch%(J%)=N% 200NEXT 210ENDPROC 220: 230DEFPROCplay 240FORC%=0TO2:note%(C%)=0:e%(C%)=0:NEX T 250REPEAT 260IF ADVAL(-6)>0 PROCsound(0) 270IF ADVAL(-7)>0 PROCsound(1) 280IF ADVAL(-8)>0 PROCsound(2) 290UNTIL e%(0) AND e%(1) AND e%(2) 300ENDPROC 310: 320DEFPROCsound(C%) 330P%=ch%(C%)?(note%(C%)*2):D%=ch%(C%) ?(note%(C%)*2+1) 340IF P%=255 e%(C%)=TRUE:ENDPROC 350IF P%=0 E%=0 ELSE E%=I%+1 360SOUND C%+1,E%,P%,D% 370note%(C%)=note%(C%)+1 380ENDPROC 390: 400DEFPROCpl:VDU23,129,0;1596;26174;18 54;23,130,2072;26172;26208;60;23,131,0;2 6172;24702;1852;23,132,6200;6172;6200;60 ;23,133,4120;26236;26214;102;23,134,2072 ;26172;26214;60;23,135,2072;24638;1596;1 24;23,136,24;3198;12312;126; 410VDU23,137,2072;3198;12312;126;:ENDP ROC 420: 430DATA 0,6,"W r d nocnej ciszy","In a still of the Night",4,7,"Przybie eli do Betlejem","They came to Bethlehem",1,3, "B g si rodzi","God is born",0,2,"P jd my wszyscy do stajenki","Let's go to a l ittle stable" 440DATA 4,6,"Lulaj e, Jezuniu","Lullab y for little Jesus",0,3,"Dzisiaj w Betle jem","Today at Bethlehem",0,5,"Gdy licz na Panna","When beautiful Virgin",1,3,"G dy si Chrystus rodzi","When Christ is b orn" 450DATA 4,7,"Hej, w dzie narodzenia", "Hey, on Christmas Day",4,6,"Jezus malus ie ki","Little Jesus",2,7,"W obie le y ","He is lying in the crib",0,6,"Anio p asterzom m wi ","Angel said it to shephe rds" 460DATA 0,2,"Do szopy, hej, pasterze", "Shepherds! Go to the barn!",0,3,"Trzej kr lowie","Three Kings",1,7,"Nowy Rok bi e y","New Year is coming",4,3,"Cicha noc , wi ta noc","Silent Night, Holly Night "