home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 March & April / rerun-1986-03-04.d64 / songfest 64 (.txt) < prev   
Encoding:
Commodore BASIC  |  1986-01-01  |  6.7 KB  |  219 lines
  1. 0 rem:musicom 64:copyright 1985 by joe kaczynski
  2. 5 clr:s=54272:forl=stos+24:pokel,0:next
  3. 10 dimh%(2,1450),l%(2,1450),c%(2,1450),d(3),r(3),v(3),fq(11):z=0
  4. 15 fora=0to11:readfq(a):next:poke53281,0
  5. 20 poke53280,2:print"[147][154]                                      [146]"
  6. 25 print"          welcome to songfest         [146]"
  7. 30 print"[154]                                      [146]"
  8. 35 print"menu[146]"
  9. 40 print"r[154]= read [150]preprogrammed song from disk"
  10. 45 print"p= play song once"
  11. 50 print"c= continuous [150]play    spacebar [150]to end[146]"
  12. 55 print"i= input notes of your own song"
  13. 60 print"a= add [150]notes to song"
  14. 65 print"m= modify [153]waveform, a/d, s/r"
  15. 70 print"s= sound [150]change during playback"
  16. 75 print"e= error correction [153]after input"
  17. 80 print"k= [153]keyboard synthesizer"
  18. 85 print"q= quit and exit program"
  19. 90 geta$:ifa$=""then90
  20. 95 gosub165
  21. 100 ifa$="r"thengosub525:ifva%=3then375:goto20
  22. 105 ifa$="p"then155
  23. 110 ifa$="c"then155
  24. 115 ifa$="i"then195
  25. 120 ifa$="a"thenz=2:i=im:d=im:goto240
  26. 125 ifa$="m"thenz=1:gosub195:goto20
  27. 130 ifa$="s"thengosub825:goto20
  28. 135 ifa$="e"thenz=3:goto645
  29. 140 ifa$=chr$(81)thenend
  30. 145 ifa$="k"thenprint"[147]":goto895
  31. 150 goto20
  32. 155 ifim<>0then375
  33. 160 goto20
  34. 165 ifa$<>"r"anda$<>"i"anda$<>"p"thenreturn
  35. 170 ifa$="p"andim=0thenreturn
  36. 175 print"[147][153]how many voices would you like?[146]"
  37. 180 input"                        (1,2,or 3)";va%
  38. 185 ifva%>3orva%<1thenprint"please reenter (1 2 or 3)[146]":goto175
  39. 190 vb%=va%-1:return
  40. 195 fork=0tovb%
  41. 200 print"[147]parameters for voice"k"are now:w/f-"v(k)", a/d-"d(k)",s/r-"r(k)
  42. 205 print"[153]enter new parameters for voice #"k":"
  43. 210 input"[153]w/f(17,33,65)";v(k)
  44. 215 ifv(k)=65theninput"hi pulse(0-15)";hp(k):input"lo pulse(0-255)";lp(k)
  45. 220 input"[150]a/d(0to255)";d(k)
  46. 225 input"s/r(0to255)";r(k)
  47. 230 ifz=1thennext:z=0:return
  48. 235 next
  49. 240 fork=0tovb%:ifz=2theni=d:goto250
  50. 245 i=0:d=0
  51. 250 print"[147]record measure #[160](closest to note,only)"
  52. 255 print"before going to next voice or for note  error correction[146]"
  53. 260 print"[153]voice #"k"    [150]enter notes"
  54. 265 print"[153]enter 0,0,0 to go to next voice"
  55. 270 ifz=3thenz=0:goto20
  56. 275 gosub710
  57. 280 ifk=2andi=imthend=im
  58. 285 ifnm=0andk<>0andi<>imthenprint"[147][150]error in entry.  redo last series"
  59. 290 ifnm=0andk<>0andi<>imtheni=d:im=d:fort=1to2000:next:goto240
  60. 295 ifnm=0then365
  61. 300 b=i/16
  62. 305 wa=v(k):ifnm<0thennm=-nm:wa=1
  63. 310 dr%=nm/128:oc%=(nm-128*dr%)/16
  64. 315 nt=nm-128*dr%-16*oc%
  65. 320 fr=fq(nt)
  66. 325 if oc%=7then335
  67. 330 forj=6tooc%step-1:fr=fr/2:next
  68. 335 hf%=fr/256:lf%=fr-hf%*256
  69. 340 ifdr%=1thenh%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa:i=i+1:c=i/16
  70. 345 ifdr%=1thenprint"[145][153]meas."b"[153]to"c:goto270
  71. 350 forj=1todr%-1:h%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa:i=i+1:next
  72. 355 h%(k,i)=hf%:l%(k,i)=lf%:c%(k,i)=wa-1
  73. 360 i=i+1:c=i/16:print"[145][153]meas."b"[153]to"c:goto270
  74. 365 ifk=0thenim=i
  75. 370 next:z=0:goto20
  76. 375 rem song words
  77. 380 ifim<>0then390
  78. 385 goto395
  79. 390 print"[147][153] now playing  ";ns$
  80. 395 pokes+18,0:pokes+4,0:pokes+11,0
  81. 400 onva%goto415,410,405
  82. 405 pokes+19,d(2):pokes+20,r(2):pokes+16,lp(2):pokes+17,hp(2)
  83. 410 pokes+12,d(1):pokes+13,r(1):pokes+9,lp(1):pokes+10,hp(1)
  84. 415 pokes+5,d(0):pokes+6,r(0):pokes+2,lp(0):pokes+3,hp(0)
  85. 420 pokes+24,15
  86. 425 a1$=""
  87. 430 fori=0toim
  88. 435 geta1$:ifa1$=" "thenpokes+24,0:goto20
  89. 440 onva%goto455,450,445
  90. 445 pokes+14,l%(2,i):pokes+15,h%(2,i):pokes+18,c%(2,i)
  91. 450 pokes+7,l%(1,i):pokes+8,h%(1,i):pokes+11,c%(1,i)
  92. 455 pokes,l%(0,i):pokes+1,h%(0,i):pokes+4,c%(0,i)
  93. 460 onva%goto465,470,475
  94. 465 forr=1to28:next
  95. 470 forr=1to28:next
  96. 475 next
  97. 480 ifa$="c"then155
  98. 485 pokes+24,0
  99. 490 print"[147][153]do you wish to write the song to disk?                  y/n "
  100. 495 geta$:ifa$=""then495
  101. 500 ifa$="y"thengosub585
  102. 505 goto20
  103. 510 data34334,36376,38539,40830
  104. 515 data43258,45830,48556,51443
  105. 520 data54502,57743,61176,64814
  106. 525 print"[147]":poke53280,4
  107. 530 print"[147] choose a song and enter the[153] name only [144] (without quotes)"
  108. 535 input"[153]name of song";ns$
  109. 540 x$=","
  110. 545 open2,8,2,"00:"+ns$+",s,r":ti$="000000"
  111. 550 print"[147][153] loading  ";ns$:print"please wait[146]"
  112. 555 input#2,im:ifim=0then580
  113. 560 fork=0tovb%:input#2,v(k),d(k),r(k),lp(k),hp(k):next
  114. 565 fori=1toim:fork=0tovb%:input#2,h%(k,i),l%(k,i),c%(k,i):next
  115. 570 print"[158]";ti$:next
  116. 575 ifim<>0thenclose2:return
  117. 580 print"[147][150]file not found [146]":close2:goto535
  118. 585 print"[147]":print"[153]insert disk into drive":print"enter s to save"
  119. 590 print"[150]enter n if you change your mind"
  120. 595 geta3$:ifa3$=""then595
  121. 600 ifa3$="n"then20
  122. 605 ifa3$="s"then615
  123. 610 goto595
  124. 615 x$=",":input"[147]name of song";ns$
  125. 620 open2,8,2,"00:"+ns$+",s,w
  126. 625 [153]"saving song to diskwait":[152]2,im
  127. 630 [129]k[178]0[164]vb%:[152]2,v(k)x$d(k)x$r(k)x$lp(k)x$hp(k):[130]
  128. 635 [129]i[178]1[164]im:[129]k[178]0[164]vb%:[152]2,h%(k,i)x$l%(k,i)x$c%(k,i):[130]:[130]
  129. 640 [160]2:[142]
  130. 645 [143] change note and octave
  131. 650 [153]"loadprintenter voice(0,1,or 2)";:[133]k
  132. 655 [139]k[177]2[167][153]"load                                          loadloadload":[137]650
  133. 660 [153]"loadprintenter measure # for note"
  134. 665 [153]"you wish to  change"
  135. 670 [133]"printenter this numberwait";e1
  136. 675 e2[178][181](e1):e[178]e2:[139]e[179]0[167]e[178]0
  137. 680 f[178](e1[171]e2)[172]16
  138. 685 i[178]16[172]e[170]f
  139. 690 [153]"loadprintenter new note, octave, and duration# "
  140. 695 [153]"do not wait defchange the duration #."
  141. 700 [133]np$,no,nd
  142. 705 [141]715:[137]305
  143. 710 [133]"defn,printo,contd";np$,no,nd
  144. 715 [139]np$[178]"0"[167]nm[178]0:[142]
  145. 720 [139]np$[178]"s"[167]nm[178][171]128[172]nd:[142]
  146. 725 [139]np$[178]"c"[167]np[178]0
  147. 730 [139]np$[178]"c#"[167]np[178]1
  148. 735 [139]np$[178]"d&"[167]np[178]1
  149. 740 [139]np$[178]"d"[167]np[178]2
  150. 745 [139]np$[178]"d#"[167]np[178]3
  151. 750 [139]np$[178]"e&"[167]np[178]3
  152. 755 [139]np$[178]"e"[167]np[178]4
  153. 760 [139]np$[178]"f"[167]np[178]5
  154. 765 [139]np$[178]"f#"[167]np[178]6
  155. 770 [139]np$[178]"g&"[167]np[178]6
  156. 775 [139]np$[178]"g"[167]np[178]7
  157. 780 [139]np$[178]"g#"[167]np[178]8
  158. 785 [139]np$[178]"a&"[167]np[178]8
  159. 790 [139]np$[178]"a"[167]np[178]9
  160. 795 [139]np$[178]"a#"[167]np[178]10
  161. 800 [139]np$[178]"b&"[167]np[178]10
  162. 805 [139]np$[178]"b"[167]np[178]11
  163. 810 [139]np$[178]"c&"[167]np[178]11
  164. 815 nm[178]128[172]nd[170]16[172]no[170]np
  165. 820 [142]
  166. 825 [153]"load"
  167. 830 [153]"printpress f1..f3..f5..f7"
  168. 835 [153]"for unusual harmonics"
  169. 840 [161] b$:[139]b$[178]""[167]840
  170. 845 [151]s[170]24,15
  171. 850 [139] b$[178]"input"[167][151]s[170]5,9:[151]s[170]6,90:[151]s[170]12,8:[151]s[170]13,9
  172. 855 [139]b$[178]"input"[167][151]s[170]19,6:[151]s[170]20,69:[137]425
  173. 860 [139]b$[178]"dim"[167][151]s[170]5,63:[151]s[170]6,240:[151]s[170]12,113:[151]s[170]13,53
  174. 865 [139]b$[178]"dim"[167][151]s[170]19,119:[151]s[170]20,7:[137]425
  175. 870 [139]b$[178]"read"[167][151]s[170]5,36:[151]s[170]6,197:[151]s[170]12,53:[151]s[170]13,53:[151]s[170]10,6
  176. 875 [139]b$[178]"read"[167][151]s[170]19,119:[151]s[170]20,7:[137]425
  177. 880 [139]b$[178]"let"[167][151]s[170]5,15:[151]s[170]6,240:[151]s[170]12,10:[151]s[170]13,167:[151]s[170]10,0
  178. 885 [139]b$[178]"let"[167][151]s[170]19,119:[151]s[170]20,240:[137]425
  179. 890 [142]
  180. 895 [156]:[151]53280,11:[153]"loadkeyboard functionwait"
  181. 900 [153]"printf1..f3..f5..f7..select octaves"
  182. 905 [153]"contf2..f4..f6..select waveforms."
  183. 910 [153]"print#f8..maintains a note till next note"
  184. 915 [153]"is played"
  185. 920 [153]"printpressing spacebar selects solo or"
  186. 925 [153]"polyphonic sound."
  187. 930 [153]"fornotes and corresponding key chart"
  188. 935 [153]"printnote..c c# d d# e f f# g g# a a# b c"
  189. 940 [153] "key...q 2  w 3  e r 5  t 6  y 7  u i "
  190. 945 [153]"printnotes cont. c# d d# e f f# g g# a"
  191. 950 [153]"keys  cont. 9  o 0  p @ -  * \  ^"
  192. 955 [153]"press  print z for main programwait"
  193. 960 s[178]54272:[134]x(26):[134]y(255):[129]i[178]0[164]28:[151]s[170]i,0:[130]
  194. 965 x1[178]7040:[129]i[178]1[164]26:x(27[171]i)[178]x1[172]5.8[170]30:x1[178]x1[173]2[174](1[173]12):[130]
  195. 970 y$[178]"q2w3er5t6y7ui9o0p@-*\^"
  196. 975 [129]i[178]1[164][195](y$):y([198]([202](y$,i)))[178]i:[130]
  197. 980 at[178]0:de[178]0:su[178]15:re[178]10:sr[178]su[172]16[170]re:ad[178]at[172]16[170]de:wv[178]16:w[178]0:m[178]1:oc[178]4:hb[178]256
  198. 985 z[178]0
  199. 990 [129]i[178]0[164]2:t[178]i[172]7:[151]s[170]5[170]t,ad:[151]s[170]6[170]t,sr
  200. 995 [151]s[170]2[170]t,4000[175]255:[151]s[170]3[170]t,4000[173]256:[130]:[151]s[170]24,15
  201. 1000 [161]d$:[139]d$[178]""[167]1000
  202. 1005 fr[178]y([198](d$)):[139]fr[178]z[167]1035
  203. 1010 fr[178]x(fr)[173]m:t[178]v[172]7:cr[178]s[170]t[170]4:[151]s[170]5[170]t,z:[151]s[170]6[170]t,z
  204. 1015 [151]cr,8:[151]cr,z:[151]s[170]t,fr[171]hb[172][181](fr[173]hb):[151]s[170]1[170]t,fr[173]hb
  205. 1020 [151]s[170]5[170]t,ad:[151]s[170]6[170]t,sr:[151]cr,wv[170]1:[129]i[178]1[164]50[172]at:[130]:[151]cr,wv
  206. 1025 [139]p[178]1[167]v[178]v[170]1:[139]v[178]3[167]v[178]0
  207. 1030 [137]1000
  208. 1035 [139]d$[178]"input"[167]m[178]1:oc[178]4:[137]1000
  209. 1040 [139]d$[178]"dim"[167]m[178]2:oc[178]3:[137]1000
  210. 1045 [139]d$[178]"read"[167]m[178]4:oc[178]2:[137]1000
  211. 1050 [139]d$[178]"let"[167]m[178]8:oc[178]1:[137]1000
  212. 1055 [139]d$[178]"goto"[167]w[178]0:wv[178]16:[137]1000
  213. 1060 [139]d$[178]"run"[167]w[178]1:wv[178]32:[137]1000
  214. 1065 [139]d$[178]"if"[167]w[178]2:wv[178]64:[137]1000
  215. 1070 [139]d$[178]"restore"[167]w[178]0:wv[178]17:[137]1000
  216. 1075 [139]d$[178]"z"[167][151]s[170]24,0:[138]5
  217. 1080 [139]d$[178]" "[167]p[178]1[171]p:[137]1000
  218. 1085 [137]1000
  219.