home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 May / 1984-05.d64 / 2 (.txt) next >
Commodore BASIC  |  2022-09-20  |  5KB  |  146 lines
  1. 10 goto330
  2. 15 inputb,e:s=b*25+9758:f=9758+e*25+25:l=9
  3. 16 ifb<0ore>125orb>ethenprint"bad input":goto15
  4. 20 print"[147]":fori=stos+47step6
  5. 21 ifi>fthennext:l=3:print"qk="qk":qb="qb":goto35":goto35
  6. 25 printi;"data";:forj=0to5:printpeek(i+j)"[157],";:nextj:printchr$(20):nexti
  7. 30 print"qk="qk"[157]:qb="qb"[157]:s="s+48"[157]:f="f"[157]:l="l"[157]:goto20"
  8. 35 pokeqk,l:fork=1tol:pokeqb+k,13:nextk:print"":end
  9. 40 print"[147]":form=0to7:printm:nextm
  10. 45 pokeqk,8:fork=1to8:pokeqb+k,13:nextk:print"":end
  11. 50 a=peek(61)+256*peek(62)+3:poke786,int(a/256):poke785,a-256*peek(786)
  12. 55 iferthenpokea-2,0:pokea-1,0:poke45,peek(785):poke46,peek(786)
  13. 56 iferthenclr:qk=198:qb=630:goto15
  14. 60 rem voice display
  15. 65 print" voice#"v"[213][195][195][195][195][195][195][195][195][195][201] voice#"v:poke2,0
  16. 70 print" [213][195][195][195][195][195][195][195][195][203]frequency[202][195][195][195][195][195][195][195][195][195][201]
  17. 75 [153]" peekoctave       1 2 3 4 5 6 7 8peek
  18. 80 print" [194]                            [194]
  19. 85 [153]" peeknote c c d d e f f g g a a bpeek
  20. 90 print" [194]       #   #     #   #   #  [194]
  21. 95 [153]" mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)
  22. 100 print"          [213][195][195][195][195][195][195][195][195][201]
  23. 105 [153]" (NULL)lenlenlenlenlenlenlenlen(NULL)envelopemid$lenlenlenlenlenlenlenlenlenlenright$
  24. 110 print" [194]  attack    ++++++++++++++++[194]
  25. 115 [153]" peek  decay     ++++++++++++++++peek
  26. 120 print" [194]  sustain   ++++++++++++++++[194]
  27. 125 [153]" peek  release   ++++++++++++++++peek
  28. 130 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  29. 135 [153]" (NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  30. 140 print" [194] [186][205][186][205][186][205] [213][195][195][195][195][195][195][195][195][201]  [206][205][206][205][206][205]  [194]
  31. 145 [153]" peek        peekwaveformpeek          peek
  32. 150 print" [194] [207][204][207][204][207][204] [202][195][195][195][195][195][195][195][195][203]  ";
  33. 151 print"noise   [194]          [194]                            [194]"
  34. 155 print" [194]pulse width ++++++++++++++++[194]
  35. 160 [153]" mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)
  36. 165 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
  37. 170 [153]" peeksynchronization   use voice peek
  38. 175 print" [194]ring modulation      #"sr".  [194]
  39. 180 [153]" mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)";
  40. 185 [153]""
  41. 190 a[178](v[171]1)[172]7:s[178]s[170]a:[151]254,s[173]256:[151]253,s[171]256[172][194](254)
  42. 195 [158]vch
  43. 200 [137]455
  44. 205 [153]"load";:[151]2,255
  45. 210 [143] filter display
  46. 215 [153]"lenlenlenlenlenlenlenlenlenlenlenlenfilter settingslenlenlenlenlenlenlenlenlenlenlenlenlenwait"
  47. 220 [153]"(NULL)lenlenlenlenlenlenlenlenlenlenlenright$(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  48. 225 print"[194]filter type[194][194]cutoff frequency[194]
  49. 230 [153]"peek           peekpeek++++++++++++++++peek
  50. 235 print"[194] high pass [194][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  51. 240 [153]"peek           peek(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  52. 245 print"[194] band pass [194][194]voices  filtered[194]
  53. 250 [153]"peek           peekpeek 1   2   3   e  peek
  54. 255 print"[194] low  pass [194][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  55. 260 [153]"mid$lenlenlenlenlenlenlenlenlenlenlen(NULL)(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  56. 265 print"             [194]   resonance    [194]
  57. 270 [153]"             peek++++++++++++++++peek
  58. 275 print"             [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  59. 280 [153]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenwait";
  60. 285 [153]"             (NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  61. 290 print"             [194][160][160][160] [160]volume[160][160][160][160][160][194]
  62. 295 [153]"             peek++++++++++++++++peek
  63. 300 print"             [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
  64. 305 [153]"             (NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  65. 310 print"             [194]voice #3 output[146] [194]
  66. 315 [153]"             mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)
  67. 320 s=s+21:poke254,s/256:poke253,s-256*peek(254):sysfch:goto455
  68. 325 rem initialization
  69. 330 ss=9758:poke78,30:poke79,38:sn=0:vch=50360:fch=50405:poke53236,10
  70. 335 poke53248,24:poke53249,50:poke51,29:poke52,38:poke55,29:poke56,38
  71. 340 print"[147]"
  72. 345 print""tab(7)"welcome to sound sculptor"
  73. 350 forl=1to2000:next
  74. 355 print"[147]"
  75. 360 print""tab(15)"main menu[146]"
  76. 365 print""tab(14)"choose one:"
  77. 370 print""tab(7)"f1[146] design/review sounds"
  78. 375 print:printtab(7)"f3[146] load sound file "
  79. 380 geta$:ifa$<"[133]"ora$>"[134]"then380
  80. 385 onasc(a$)-132goto430,670
  81. 390 rem joystick speed
  82. 395 print"[147]   select a speed between 0 and 15."
  83. 400 print"    0 - slowest      15 - fastest"
  84. 405 inputps
  85. 410 ifps<0orps>15thenprint"number not acceptable":goto405
  86. 415 poke53236,16-ps:goto455
  87. 420 stop
  88. 425 rem sound design/review
  89. 430 print"[147]"
  90. 435 print" which sound do you wish to work on?"
  91. 440 print"  (number between 0 & 1250 please)
  92. 445 [133]sn
  93. 450 [139]sn[179]0[176]sn[177]1250[167][153]"number not acceptable":[137]445
  94. 455 [151]53269,0:[153]"loadsound #";sn"wait"[163]15)"choose one:"
  95. 460 s[178]ss[170]sn[172]25
  96. 465 [151]79,s[173]256:[151]78,s[171]256[172][194](79)
  97. 470 [153]:[153][163]8)"1wait - display voice #1"
  98. 475 [153]:[153][163]8)"2wait - display voice #2"
  99. 480 [153]:[153][163]8)"3wait - display voice #3"
  100. 485 [153]:[153][163]8)"4wait - display filter settings"
  101. 490 [153]:[153][163]8)"5wait - clear sound"
  102. 495 [153]:[153][163]8)"6wait - new sound number"
  103. 500 [153]:[153][163]8)"7wait - change joystick speed"
  104. 505 [153]:[153][163]8)"8wait - quit"
  105. 510 [161]c$:[139]c$[179]"1"[176]c$[177]"8"[167]510
  106. 515 [145][197](c$)[137]520,525,530,535,540,430 ,395,550
  107. 520 v[178]1:sr[178]3:[151]53269,1:[137]65
  108. 525 v[178]2:sr[178]1:[151]53269,1:[137]65
  109. 530 v[178]3:sr[178]2:[151]53269,1:[137]65
  110. 535 [151]53269,1:[137]205
  111. 540 [129]l[178]0[164]24:[151]s[170]l,0:[130]:[137]455
  112. 545 [143] quit
  113. 550 [153]"load"
  114. 555 [153] [163]14)"choose one:"
  115. 560 [153]:[153][163]6)"f1wait - save sound file"
  116. 565 [153]:[153][163]6)"f3wait - convert to data statements"
  117. 570 [153]:[153][163]6)"f5wait - end"
  118. 575 [161]a$:[139]a$[179]"input"[176]a$[177]"read"[167]575
  119. 580 [145][198](a$)[171]132[137]610 ,585,685
  120. 585 [153]"load"
  121. 590 [153]"  enter sounds you want to convert"
  122. 595 [153]"      (start,end)";
  123. 600 er[178]1:[137]50
  124. 605 [143] save sounds routine
  125. 610 [153]"load"
  126. 615 [153]"  enter sounds you wish to save"
  127. 620 [153]"      (start,end)";
  128. 625 [133]b,e:[139]b[179]0[176]e[177]1250[176]b[177]e[167][153]"bad input":[137]625
  129. 630 s[178]b[172]25[170]9758:f[178]9758[170]e[172]25[170]25
  130. 635 [151]79,s[173]256:[151]78,s[171]256[172][194](79):[151]254,f[173]256:[151]253,f[171]256[172][194](254)
  131. 640 [133]"what do you wish to name the file";nm$:[139]nm$[178]""[167]640
  132. 645 t[178][195](nm$):[151]2,t
  133. 650 [129]j[178]1[164]t:[151]50944[171]j[170]t,[198]([201](nm$,j)):[130]j
  134. 655 [158]50659
  135. 660 [158]50692
  136. 665 [153]:[153]nm$" file has been saved":[153]"thankyou":[128]
  137. 670 [143] load routine
  138. 671 [139][194](50660)[178]1[167] [153]"load":[151]2,0:[158]50659:[158]50682:[137]430
  139. 673 [133]"filename";nm$:t[178][195](nm$):[151]2,t:[139]t[178]0[167]673
  140. 674 [129] j[178]1[164]t:[151]50944[171]j[170]t,[198]([201](nm$,j)):[130]j
  141. 675 [158]50659:[158]50682
  142. 676 [139] st[178]66 [167][153]"file not found":[137]673
  143. 679 [137]430
  144. 680 [143] end
  145. 685 [153]"loadthank you":[128]
  146.