home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 11 / Tiger_Disk_011_19xx_Tiger-Crew-Disk_de_Side_B.d64 / soundmaker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  54 lines
  1. 1 poke53281,1:poke646,0
  2. 2 print"[147]       ***soundmaker fuer c 64***":print""
  3. 3 print"mit diesem programm kannst du toene er- stellen und auf disk saven."
  4. 4 print"es zeigt dir alle parameter, die du be- noetigst und spielt den ton."
  5. 5 print"nach der frage 'change' (aendern) oder  'save' kannst du entscheiden:"
  6. 6 print"waehlst du 'save', wirst du nach der     startzeile  und dem  zeilensprung
  7. 7 [153]"gefragt. dann loescht sich das programm.du kannst den ton jetzt mit"
  8. 8 [153]"beliebigem namen auf disk speichern.":[153]""
  9. 9 [153]"        ** taste druecken **":[151]198,0:[146]198,1:
  10. 10 s[178]54272:[129]e[178]s[164]s[170]24:[151]e,0:[130]
  11. 15 [153]"loadon":[141]200
  12. 20 [133]"attack rate:0-15";at:[133]"decay rate:0-15";de:ad[178]16[172]at[170]de:[151]s[170]5,ad
  13. 25 [133]"sustainclosevolume:1-15";su:[133]"release rate:0-15";rl:j[178]16[172]su[170]rl
  14. 30 [151]s[170]6,j:[133]"overall volume:1-15";v:[151]s[170]24,v
  15. 32 [133]"waveform:17/33/129 ";w:[151]s[170]4,w
  16. 33 [133]"sustain length(1/10th secs.)";le:le[178]le[172]100
  17. 34 [133]"release length(1/10th secs.)";dl:dl[178]dl[172]100
  18. 35 [133]"high byte";h:[133]"low byte";l:[151]s[170]1,h:[151]s,l
  19. 40 [129]t[178]1[164]le:[130]t
  20. 42 [151]s[170]4,(w[171]1)
  21. 43 [129]t[178]1[164]dl:[130]
  22. 50 [129]e[178]s[164]s[170]24:[151]e,0:[130]
  23. 60 [153]"change or save?wait c or s"
  24. 65 [161]a$:[139]a$[178]""[167][137]65:[139]a$[179][177]c[167][137]65:[139]a$[179][177]s[167][137]65
  25. 70 [139]a$[178]"c"[167][153]"                ":[137]20
  26. 80 [143] [208][210][201][206][212][160][208][210][207][199][210][193][205]
  27. 85 [133]"loadstarting line";sl:[133]"increment";in
  28. 86 [153]"load"
  29. 88 [153]"new"
  30. 89 [153]sl;"s=54272:fore=stos+24:pokee,0:next":sl[178]sl[170]in
  31. 90 [153]sl;"pokes+24,";v;":pokes+5,";ad;":pokes+6,";j:sl[178]sl[170]in
  32. 120 [153]sl;"pokes+4,";w;":pokes+1,";h;":pokes,";l:sl[178]sl[170]in
  33. 140 [153]sl;"fort=1to";le;":next";":pokes+4,";(w[171]1);"cmd:fort=1to";dl;":next"
  34. 150 sl[178]sl[170]in:[153]sl;"fore=stos+24:pokee,0:next"
  35. 155 [153]"";:[129]r[178]631[164]644:[151]r,13:[130]
  36. 160 [151]198,13
  37. 165 [128]
  38. 200 [153]"sample data for pitch values"
  39. 205 [153]"pitch high byte/low byte  waveforms
  40. 210 print"   c       33      135     triangle=17
  41. 220 [153]"   c#      35      134     sawtooth=33
  42. 230 print"   d       37      162     noise=129
  43. 240 [153]"   d#      39      223
  44. 250 print"   e       42      62
  45. 260 [153]"   f       44      193
  46. 270 print"   f#      47      107
  47. 280 [153]"   g       50      60
  48. 290 print"   g#      53      57
  49. 300 [153]"   a       56      99
  50. 310 print"   a#      59      190
  51. 320 [153]"   b       63      75
  52. 330 print
  53. 340 return
  54.