10 REM Christmas Carols from Poland
   20 REM by M.Bobrowski 11'91
   30 :
   40 MODE4:VDU23,1,0;0;0;0;19,0,4;0;19,1,3;0;:LOMEM=TOP+&2100:H%=TOP+&100
   50 *L.SPXM 5800
   60 DIM P$(15),E$(15),ch%(3),e%(2),note%(2),K%(15),B%(15)
   70 FORI%=0TO&FC STEP4:I%!&8C0=I%!(TOP):NEXT:REM envelopes
   80 PROCpl:VDU28,6,29,33,25
   90 FORI%=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" -";
  100 PROCset_up(H%):VDU19,0,B%(I%);0;19,1,K%(I%);0;:PROCplay:H%=ch%(3):XX=INKEY(400):*FX15
  110 NEXT
  120 CLS:PRINTTAB(16)","'TAB(7)"Weso„ych Swit!"''TAB(7)"Merry Christmas!";:XX=INKEY(400)
  130 MODE7
  140 END
  150 :
  160 DEFPROCset_up(N%)
  170 ch%(0)=N%:FOR J%=1 TO 3
  180 REPEAT N%=N%+1:UNTIL?N%=&FF
  190 N%=N%+2:ch%(J%)=N%
  200 NEXT
  210 ENDPROC
  220 :
  230 DEFPROCplay
  240 FORC%=0TO2:note%(C%)=0:e%(C%)=0:NEXT
  250 REPEAT
  260 IF ADVAL(-6)>0 PROCsound(0)
  270 IF ADVAL(-7)>0 PROCsound(1)
  280 IF ADVAL(-8)>0 PROCsound(2)
  290 UNTIL e%(0) AND e%(1) AND e%(2)
  300 ENDPROC
  310 :
  320 DEFPROCsound(C%)
  330 P%=ch%(C%)?(note%(C%)*2):D%=ch%(C%)?(note%(C%)*2+1)
  340 IF P%=255 e%(C%)=TRUE:ENDPROC
  350 IF P%=0 E%=0 ELSE E%=I%+1
  360 SOUND C%+1,E%,P%,D%
  370 note%(C%)=note%(C%)+1
  380 ENDPROC
  390 :
  400 DEFPROCpl:VDU23,129,0;1596;26174;1854;23,130,2072;26172;26208;60;23,131,0;26172;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;124;23,136,24;3198;12312;126;
  410 VDU23,137,2072;3198;12312;126;:ENDPROC
  420 :
  430 DATA 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 little stable"
  440 DATA 4,6,"Lulajˆe, Jezuniu","Lullaby for little Jesus",0,3,"Dzisiaj w Betlejem","Today at Bethlehem",0,5,"Gdy ‡liczna Panna","When beautiful Virgin",1,3,"Gdy siƒ Chrystus rodzi","When Christ is born"
  450 DATA 4,7,"Hej, w dzie… narodzenia","Hey, on Christmas Day",4,6,"Jezus malusie…ki","Little Jesus",2,7,"W ˆ„obie leˆy","He is lying in the crib",0,6,"Anio„ pasterzom m†wi„","Angel said it to shepherds"
  460 DATA 0,2,"Do szopy, hej, pasterze","Shepherds! Go to the barn!",0,3,"Trzej kr†lowie","Three Kings",1,7,"Nowy Rok bieˆy","New Year is coming",4,3,"Cicha noc, ‡wiƒta noc","Silent Night, Holly Night"