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
"