home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 December / 64er_Magazin_84-12_1984_Markt__Technik_de.d64 / ahlborn_synthesi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  230 lines
  1. 1 rem -------  c-64 synthesizer  -------
  2. 2 rem   von martin ahlborn     4/5 1984
  3. 3 rem       hohe feldstrasse 1
  4. 4 rem       3418 uslar 2
  5. 5 rem
  6. 10 print"[147]"spc(12)"bitte warten"
  7. 20 aa=12288:ea=12339:gosub700
  8. 30 aa=12352:ea=12403:gosub700
  9. 40 aa=12465:ea=12520:gosub700
  10. 50 aa=12800:ea=13788:gosub700
  11. 88 :
  12. 90 rem ************************
  13. 92 rem *notentabelle erstellen*
  14. 94 rem ************************
  15. 96 :
  16. 100 deffn rd(a)=int(a)-((a-int(a))>=.5): rem auf ganze zahl runden
  17. 110 tn=67284:rem parameter fuer h-7
  18. 120 forz=95to0step-1
  19. 130 tn=tn/2^(1/12)
  20. 140 tn=fn rd(tn)
  21. 150 hb%=tn/256
  22. 160 lb%=tn-hb%*256
  23. 170 poke12032+2*z,lb%
  24. 180 poke12032+2*z+1,hb%
  25. 190 next
  26. 290 :
  27. 300 ifps<>15145then350
  28. 320 goto1000
  29. 350 print"falsche daten !":end
  30. 688 :
  31. 690 rem **************
  32. 692 rem *poke-routine*
  33. 694 rem **************
  34. 696 :
  35. 700 forpc=aatoea
  36. 710 readhx$
  37. 720 h=asc(hx$)-48:h=h+(h>9)*7
  38. 730 l=asc(right$(hx$,1))-48:l=l+(l>9)*7
  39. 740 pokepc,16*h+l
  40. 750 ps=ps+h+l :rem pruefsumme
  41. 760 next:return
  42. 980 :
  43. 990 rem ***************
  44. 992 rem *text & grafik*
  45. 994 rem ***************
  46. 996 :
  47. 1000 printchr$(142)"[147][156]********  c-64 synthesizer  ********"
  48. 1010 print"    [221]    [221]   [221]    [221] [146]   max [183]"
  49. 1020 print"    [221]    [221]   [221]    [221]  "
  50. 1030 print"    [221]    [221]   [221]    [221]r[146] pegel  "
  51. 1040 print"  [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]e "
  52. 1050 print" q[221]w[221]e[221]r[221]t[221]y[221]u[221]i[221]o[221]p[221]@[221]*[221]^[221]=[221]t[146]   min [162]"
  53. 1060 print"[152]tasten    parameter    0123456789abcdef";
  54. 1070 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  55. 1080 print"[129] f1  f2    anschlag     [204][204][204][204][204][204][146]          ";
  56. 1090 print" f3  f4    abschwellen  [204][146]               ";
  57. 1100 print"[154] f5  f6    halten       [204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][146]";
  58. 1110 print"[158] f7  f8    ausklingen   [204][204][204][204][204][204][204][146]         ";
  59. 1120 print"[144] 'n' 'm'   tastverh.    [204][204][204][204][204][204][146]          ";
  60. 1130 print"[153]  'z'      wellenform   dreieck   "
  61. 1140 print"[156]  crsr     oktaven      c-4[156] bis c-6"
  62. 1150 print"[155]  'c'      filter       hoch band tief"
  63. 1160 print"[144] '[' ']'   filterfreq.  [204][204][204][204][204][204][204][146]         ";
  64. 1170 print"[146] '<' '>'   resonanz     [204][204][204][204][204][204][204][146]         ";
  65. 1180 print"[146]  '?'      'wah-wah'    aus"
  66. 1190 print" run/stop  ende"
  67. 1200 print"[151](c) 1984      martin ahlborn 3418 uslar[145]"
  68. 1300 :
  69. 1305 rem ************
  70. 1310 ::::::sys12800::
  71. 1320 rem ************
  72. 1480 :
  73. 1490 rem **********
  74. 1492 rem *tabellen*
  75. 1494 rem **********
  76. 1496 :
  77. 1500 data10,40,18,50,20,40,28,50
  78. 1510 data30,40,38,50,48,50,50,40
  79. 1520 data58,50,60,40,68,50,70,40
  80. 1530 data78,50,88,50,90,40,98,50
  81. 1540 dataa0,40,a8,50,b8,50,c0,40
  82. 1550 datac8,50,d0,40,d8,50,e0,40
  83. 1560 datae8,50,f8,50
  84. 1590 :
  85. 1600 data7f,01,7f,40,7f,08,fd,02
  86. 1610 datafd,01,fd,40,fb,02,fb,01
  87. 1620 datafb,40,fb,08,f7,02,f7,01
  88. 1630 dataf7,40,ef,02,ef,01,ef,40
  89. 1640 dataef,08,df,02,df,40,df,08
  90. 1650 databf,02,bf,01,bf,40,bf,08
  91. 1660 databf,20,fe,02
  92. 1690 :
  93. 1700 data28,12,01,15,13,03,08,05
  94. 1710 data0e,29,12,05,03,08,14,05
  95. 1720 data03,0b,20,20,13,01,05,07
  96. 1730 data05,1a,01,08,0e,20,04,12
  97. 1740 data05,09,05,03,0b,20,20,20
  98. 1750 data28,12,09,0e,07,29,20,20
  99. 1760 data20,20,05,09,0e,01,15,13
  100. 1980 :
  101. 1990 rem **********
  102. 1992 rem *programm*
  103. 1994 rem **********
  104. 1996 :
  105. 2000 datad8,a9,00,a2,7e,9d,80,03
  106. 2010 dataca,10,fa,a9,ff,a2,24,9d
  107. 2020 datac1,03,ca,ca,ca,d0,f8,8d
  108. 2030 data81,03,a2,03,a0,00,8c,20
  109. 2040 datad0,8c,21,d0,8c,e9,07,8c
  110. 2050 dataf4,07,8c,2a,d0,a9,0e,8d
  111. 2060 datafb,07,a2,08,8e,10,d0,ca
  112. 2070 data8e,27,d0,8e,28,d0,8e,29
  113. 2080 datad0,8e,17,d0,a9,60,85,fa
  114. 2090 data8d,f2,07,8d,f1,07,8d,16
  115. 2100 datad4,8d,17,d4,a9,34,8d,f3
  116. 2110 data07,a9,02,8d,15,d4,a9,2f
  117. 2120 data85,fb,a9,80,8d,8a,02,8d
  118. 2130 data02,d4,8d,09,d4,8d,10,d4
  119. 2140 dataa2,10,8e,ee,07,a9,39,8d
  120. 2150 data06,d0,ca,8e,f8,07,8e,f9
  121. 2160 data07,8e,fa,07,8e,18,d4,8e
  122. 2170 dataef,07,a9,05,8d,e8,07,8d
  123. 2180 dataec,07,a9,0f,8d,ea,07,a9
  124. 2190 data06,8d,eb,07,20,54,34,ac
  125. 2200 dataee,07,8c,04,d4,8c,0b,d4
  126. 2210 data8c,12,d4,a9,08,8d,15,d0
  127. 2220 data10,0b,aa,a9,cc,9d,a8,05
  128. 2230 dataa9,20,9d,a9,05,ad,1c,d4
  129. 2240 dataac,f4,07,f0,03,8d,16,d4
  130. 2250 data4a,4a,4a,85,02,38,a9,64
  131. 2260 datae5,02,8d,07,d0,a6,cb,e0
  132. 2270 data40,f0,c4,78,a0,00,ba,86
  133. 2280 data02,b9,40,30,8d,00,dc,ad
  134. 2290 data01,dc,39,41,30,d0,03,4c
  135. 2300 data11,34,c8,c8,c0,34,d0,e9
  136. 2310 databa,e4,02,f0,03,4c,87,34
  137. 2320 data58,20,3e,f1,c9,03,d0,03
  138. 2330 data4c,c3,35,c9,43,d0,03,4c
  139. 2340 data55,35,c9,3b,d0,05,a2,00
  140. 2350 data4c,a5,33,c9,3a,d0,05,a2
  141. 2360 data00,4c,bc,33,c9,2e,d0,05
  142. 2370 dataa2,01,4c,a5,33,c9,2c,d0
  143. 2380 data05,a2,01,4c,bc,33,c9,2f
  144. 2390 datad0,03,4c,30,34,c9,1d,d0
  145. 2400 data03,4c,e7,33,c9,11,d0,03
  146. 2410 data4c,f7,33,c9,5a,d0,03,4c
  147. 2420 dataf3,34,c9,4d,d0,04,a2,04
  148. 2430 data10,1b,c9,4e,d0,04,a2,04
  149. 2440 data10,27,c9,85,90,04,c9,8d
  150. 2450 data90,03,4c,bd,32,38,e9,85
  151. 2460 datac9,04,b0,11,aa,bd,e8,07
  152. 2470 datac9,0f,f0,ee,38,69,00,9d
  153. 2480 datae8,07,4c,97,33,38,e9,04
  154. 2490 dataaa,bd,e8,07,d0,03,4c,bd
  155. 2500 data32,38,e9,01,9d,e8,07,48
  156. 2510 data20,54,34,68,18,69,28,ca
  157. 2520 data10,fa,4c,b2,32,bd,f1,07
  158. 2530 data29,f0,c9,f0,f0,36,bd,f1
  159. 2540 data07,18,69,10,9d,f1,07,9d
  160. 2550 data16,d4,d0,13,bd,f1,07,29
  161. 2560 dataf0,f0,21,bd,f1,07,38,e9
  162. 2570 data10,9d,f1,07,9d,16,d4,4a
  163. 2580 data4a,4a,4a,ca,d0,03,18,69
  164. 2590 data28,aa,a9,cc,9d,10,07,a9
  165. 2600 data20,9d,11,07,4c,bd,32,a5
  166. 2610 datafa,c9,90,f0,21,18,69,18
  167. 2620 data85,fa,ee,f3,07,d0,0c,a5
  168. 2630 datafa,f0,13,38,e9,18,85,fa
  169. 2640 datace,f3,07,ae,f3,07,8e,c2
  170. 2650 data06,e8,e8,8e,ca,06,4c,bd
  171. 2660 data32,ba,8a,18,69,0c,c5,02
  172. 2670 datad0,03,4c,f2,32,b9,00,30
  173. 2680 data48,b9,01,30,48,b1,fa,48
  174. 2690 datac8,b1,fa,48,88,4c,f2,32
  175. 2700 dataad,f4,07,a0,02,49,01,8d
  176. 2710 dataf4,07,f0,0c,b9,e3,30,99
  177. 2720 data60,07,88,10,f7,4c,bd,32
  178. 2730 datab9,e6,30,99,60,07,88,10
  179. 2740 dataf7,4c,bd,32,ad,e8,07,0a
  180. 2750 data0a,0a,0a,0d,e9,07,8d,05
  181. 2760 datad4,8d,0c,d4,8d,13,d4,ad
  182. 2770 dataea,07,0a,0a,0a,0a,0d,eb
  183. 2780 data07,8d,06,d4,8d,0d,d4,8d
  184. 2790 data14,d4,ad,ec,07,8d,03,d4
  185. 2800 data8d,0a,d4,8d,11,d4,60,ad
  186. 2810 dataf4,07,d0,06,ad,f1,07,8d
  187. 2820 data16,d4,68,8d,0f,d4,68,8d
  188. 2830 data0e,d4,ac,ee,07,c8,8c,12
  189. 2840 datad4,68,8d,01,d0,68,8d,00
  190. 2850 datad0,a9,09,8d,15,d0,ba,e4
  191. 2860 data02,f0,3d,68,8d,08,d4,68
  192. 2870 data8d,07,d4,ac,ee,07,c8,8c
  193. 2880 data0b,d4,68,8d,03,d0,68,8d
  194. 2890 data02,d0,a9,0b,8d,15,d0,ba
  195. 2900 datae4,02,f0,1c,68,8d,01,d4
  196. 2910 data68,8d,00,d4,ac,ee,07,c8
  197. 2920 data8c,04,d4,68,8d,05,d0,68
  198. 2930 data8d,04,d0,a9,0f,8d,15,d0
  199. 2940 data4c,00,33,a2,a6,86,fc,a2
  200. 2950 data30,86,fd,ad,ee,07,29,04
  201. 2960 dataf0,09,a9,10,8d,ee,07,85
  202. 2970 data02,10,2f,ad,ee,07,29,70
  203. 2980 datad0,0d,a9,d8,85,fc,a9,14
  204. 2990 data8d,ee,07,a0,0a,10,2b,ad
  205. 3000 dataee,07,0a,8d,ee,07,85,02
  206. 3010 datac9,40,f0,04,a9,00,f0,02
  207. 3020 dataa9,0a,a2,27,9d,58,da,ca
  208. 3030 data10,fa,a5,fc,18,69,0a,85
  209. 3040 datafc,a5,02,0a,85,02,90,f2
  210. 3050 dataa0,0a,b1,fc,99,97,06,88
  211. 3060 datad0,f8,4c,bd,32,a2,0d,bd
  212. 3070 datae8,06,29,7f,9d,e8,06,ca
  213. 3080 data10,f5,ae,ef,07,e0,0f,d0
  214. 3090 data03,20,ab,35,e0,7f,d0,05
  215. 3100 data20,ab,35,a2,ff,8a,18,69
  216. 3110 data10,8d,ef,07,8d,18,d4,0a
  217. 3120 data85,02,a2,06,86,fd,a2,e8
  218. 3130 data86,fc,a2,03,a5,02,0a,85
  219. 3140 data02,90,0b,a0,03,b1,fc,09
  220. 3150 data80,91,fc,88,10,f7,a5,fc
  221. 3160 data18,69,05,85,fc,ca,d0,e4
  222. 3170 data4c,bd,32,ad,f2,07,49,07
  223. 3180 data8d,f2,07,8d,17,d4,a0,6e
  224. 3190 datab9,f8,da,49,0e,99,f8,da
  225. 3200 data88,10,f5,60,4d,41,52,54
  226. 3210 data49,4e,20,41,48,4c,42,4f
  227. 3220 data52,4e,20,33,34,31,38,20
  228. 3230 data55,53,4c,41,52
  229. 4000 ende
  230.