Run Magazine ReRun 1985 Winter/rerun-1985-winter.d64/songfest

Commodore BASIC | 2022-09-20 | 12KB | 328 lines

1 rem:songfest copyright 1984 by joe kaczynski
30 clr:s=54272:forl=stos+24:pokel,0:next
31 dimh%(2,1450),l%(2,1450),c%(2,1450),d(3),r(3),v(3),fq(11):z=0
34 fora=0to11:readfq(a):next
40 poke53281,0:poke53280,2:print"[147][154]                                      [146]"
41 print"          welcome to songfest         [146]"
42 print"[154]                                      [146]"
43 print"menu[146]"
44 print"r[154]= read [150]preprogrammed song from disk"
45 print"p= play song once"
46 print"c= continuous [150]play    spacebar [150]to end[146]"
47 print"i= input notes of your own song"
48 print"a= add [150]notes to song"
49 print"m= modify [153]waveform, a/d, s/r"
50 print"s= sound [150]change during playback"
51 print"e= error correction [153]after input"
52 print"k= [153]keyboard synthesizer"
53 print"q= quit and exit program"
54 geta$:ifa$=""then54
55 gosub80
56 ifa$="r"then gosub625:ifva%=3then265:goto40
57 ifa$="p"then70
58 ifa$="c"then70
59 ifa$="i"then100
60 ifa$="a"thenz=2:i=im:d=im:goto110
61 ifa$="m"thenz=1:gosub100:goto40
62 ifa$="s"thengosub900:goto40
63 ifa$="e"thenz=3:goto750
64 ifa$=chr$(81)thenend
65 ifa$="k"thenprint"[147]":goto1065
66 goto40
70 ifim<>0then265
71 goto40
80 ifa$<>"r"anda$<>"i"anda$<>"p"thenreturn
81 ifa$="p"andim=0thenreturn
82 print"[147]":print"[153]note[146]":print"all the christmas carols use 3 voices."
83 print"i suggest using the 3 voice option when"
84 print"loading these songs from disk."
85 print"you have the option of using any number"
86 print"of voices that you desire for your own"
87 print"creations."
88 print"these options are valid for inputting "
89 print"notes, loading from or writing to disk,"
90 print"when adding notes to your song creation"
91 print", and playback of any songs including"
92 print"the ones in the program listing."
93 print"[153]how many voices would you like?[146]"
94 input"                        (1,2,or 3)";va%
95 ifva%>3orva%<1thenprint"please reenter (1 2 or 3)[146]":goto93
96 vb%=va%-1:return
100 fork=0tovb%
101 print"[147]parameters for voice"k"are now:w/f-"v(k)",   a/d-"d(k)",s/r-"r(k)
102 print"[153]enter new parameters for voice #"k":"
103 input"[153]w/f(17,33,65)";v(k)
104 ifv(k)=65theninput"hi pulse(0-15)";hp(k):input"lo pulse(0-255)";lp(k)
105 input"[150]a/d(0to255)";d(k)
106 input"s/r(0to255)";r(k)
108 ifz=1thennext:z=0:return
109 next
110 fork=0tovb%:ifz=2theni=d:goto112
111 i=0:d=0
112 print"[147]record measure #[160](closest to note,only)"
113 print"before going to next voice or for note  error correction[146]"
114 print"[153]voice #"k"    [150]enter notes"
115 print"[153]enter 0,0,0 to go to next voice"
119 ifz=3thenz=0:goto40
120 gosub800
121 ifk=2andi=imthend=im
122 ifnm=0andk<>0andi<>imthenprint"[147][150]error in entry.  redo last series"
123 ifnm=0andk<>0andi<>imtheni=d:im=d:fort=1to2000:next:goto110
124 ifnm=0then250
135 b=i/16
140 wa=v(k):ifnm<0thennm=-nm:wa=1
150 dr%=nm/128:oc%=(nm-128*dr%)/16
160 nt=nm-128*dr%-16*oc%
170 fr=fq(nt)
180 if oc%=7then200
190 forj=6tooc%step-1:fr=fr/2:next
200 hf%=fr/256:lf%=fr-hf%*256
210 ifdr%=1thenh%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa:i=i+1:c=i/16
211 ifdr%=1thenprint"[145][153]meas."b"[153]to"c:goto119
220 forj=1todr%-1:h%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa:i=i+1:next
230 h%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa-1
240 i=i+1:c=i/16:print"[145][153]meas."b"[153]to"c:goto119
250 ifk=0thenim=i
260 next:z=0:goto40
265 rem song words
270 ifns$="silent night"then299
271 rem ifns$="noel"thengosub350:return
272 rem ifns$="bethlehem"then375
273 ifns$="housetop"then400
274 ifns$="adeste fideles"then425
275 ifns$="joy to the world"then450
276 rem ifns$="manger"then475
277 rem ifns$="herald angels"then310
278 ifns$="midnight clear"then325
280 ifim<>0then495
299 print"[147][150]s[151]i[152]l[153]e[154]n[155]t [155]n[154]i[153]g[152]h[150]t"
300 print"silent night, holy night":print"all is calm, all is bright"
302 print"round yon virgin, mother and child"
303 print"holy infant so tender and mild"
304 print"sleep in heavenly peace":print"sleep in heavenly peace"
306 goto500
310 print"[147][150]ha[153]r[154]k [155]th[156]e [158]her[159]al[155]d [154]a[153]n[152]g[151]e[150]l[153]s [151]s[153]i[150]n[153]g"
311 print"hark the herald angels sing":print"glory to the new born king"
312 print"peace on earth and mercy mild":print"god and sinner reconciled"
313 print"joyful all ye nations rise":print"join the triumph of the skies"
314 print"with angelic hosts proclaim":print"christ is born in bethlehem"
315 print"hark the herald angels sing":print"glory to the new born king"
316 goto500
325 print"[147][150]i[151]t [152]c[153]a[154]m[155]e u[159]p[156]on t[158]h[155]e [153]m[152]i[151]d[150]n[158]igh[156]t c[159]l[156]ear"
326 print"it came upon a midnight clear":print"that glorious song of old"
327 print"from angels bending near the earth"
328 print"to touch their harps of gold"
329 print"peace on the earth, good will to men"
330 print"from heaven's all gracious king"
331 print"the world in solemn stillness lays"
332 print"to hear the angels sing"
335 goto500
350 print"[147][150]n[153]o[150]e[153]l"
351 print"the first noel,the angels did say"
352 print"was to certain poor shepherds in        fields where they lay"
354 print"in fields where they":print"lay keeping their sheep"
356 print"on a cold winters night":print"that was so deep"
358 print"[153]chorus"
359 print"noel, noel, noel, noel":print"born is the king of israel"
361 print"[150]repeat chorus"
362 goto500
375 print"[147][150]o[151] [152]l[153]i[154]t[155]t[149]l[129]e [150]t[151]o[152]w[153]n[154] o[154]f [153]b[152]e[151]t[150]h[149]l[129]e[153]h[150]e[151]m"
376 print"o little town of bethlehem how still    we see thee lie"
377 print"above thy deep and dreamless sleep      the silent stars go by"
378 print"yet in thy dark streets shineth         the everlasting light"
379 print"the hopes and fears of all the years    are met in thee tonight"
380 goto500
400 print"[147][155]u[154]p [153]o[152]n [151]t[150]h[149]e [150]h[153]o[129]u[149]s[155]e[154]t[150]o[153]p"
401 print"up on the housetop the reindeer pause"
402 print"out jumps good old santa claus"
403 print"down through the chimney with lots of   toys"
404 print"all for the little ones christmas       joys"
405 print"[153]chorus"
406 print"ho,ho,ho, who wouldn't go":print"ho,ho,ho, who wouldn't go"
407 print"up on the housetop, click,click,click"
409 print"down through the chimney with           the good saint nick"
410 goto500
425 print"[147][129]a[153]d[150]e[151]s[152]t[153]e [154]f[155]i[154]d[153]e[152]l[151]e[150]s"
426 print"o come all ye faithful":print"joyful and triumphant"
428 print"o come ye, o come ye to bethlehem"
429 print"come and behold him":print"born the king of angels"
431 print"[153]chorus"
432 print"o come let us adore him":print"o come let us adore him"
434 print"o come let us adore him":print"christ the lord"
436 goto500
450 print"[147][129]j[150]o[151]y [152]t[153]o [154]t[155]h[153]e [150]w[151]o[152]r[153]l[150]d"
451 print"joy to the world,the lord has come"
452 print"let earth receive her king"
453 print"let every heart,prepare him room"
454 print"and heaven and nature sing":print"and heaven and nature sing"
456 print"and heaven,and heaven,and nature sing"
457 goto500
475 print"[147][129]a[150]w[151]a[152]y [153]i[154]n [155]a [154]m[153]a[152]n[151]g[150]e[153]r"
476 print"away in a manger,no crib for a bed"
477 print"the little lord jesus":print"laid down his sweet head"
479 print"the stars in the sky":print"looked down where he lay"
481 print"the little lord jesus":print"asleep on the hay"
483 print"the cattle are lowing":print"the poor baby wakes