home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / akkordeon (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  208 lines
  1. 1 rem a k k o r d e o n  (2)
  2. 2 rem von hermann huck
  3. 3 rem 7987 weingarten
  4. 4 rem laurastr.34
  5. 6 a=54272:b=54273:rem fuer tonhoehe
  6. 7 c=54279:d=54280:rem fuer tonhoehe
  7. 8 e=54286:f=54287:rem fuer tonhoehe
  8. 10 poke54277,1*16+15:rem anschl.abschw.
  9. 20 poke54284,1*16+15:rem anschl.abschw.
  10. 30 poke54291,1*16+15:rem anschl.abschw.
  11. 40 poke54278,15*16+8:rem halt.auskl.
  12. 50 poke54285,15*16+8:rem halt.auskl.
  13. 60 poke54292,15*16+8:rem halt.auskl.
  14. 70 poke54296,15:rem lautst.
  15. 71 tl=255 :rem tastenverh.low  grundein.
  16. 72 th=0   :rem tastenverh.high grundmin.
  17. 74 wb=33  :rem wellenform bass grundein.
  18. 76 wa=33  :rem wellenform akk. grundein.
  19. 77 poke54274,tl:poke54275,th
  20. 78 poke54281,tl:poke54282,th
  21. 79 poke54288,tl:poke54289,th
  22. 80 gett$:ift$=""then80
  23. 90 x=asc(t$)
  24. 100 ifx<=58then200
  25. 110 ifx>=65then250
  26. 120 goto80
  27. 200 ifx>=44andx<=50then300
  28. 210 ifx>=51then320
  29. 215 ifx=32then5200
  30. 220 goto80
  31. 250 ifx<=90andx>=78then360
  32. 260 ifx<=77then340
  33. 270 goto80
  34. 300 x=x-43
  35. 310 onxgoto2150,80,2210,2250,1750,610,710
  36. 320 x=x-50
  37. 330 onxgoto1210,1310,1410,1510,1610,1650,1710,1550
  38. 340 x=x-64
  39. 350 onxgoto1150,2010,1910,950,910,850,650,750,1310,1250,1350,1450,2110
  40. 360 x=x-77
  41. 370 onxgoto2050,1410,1510,1110,810,1050,610,1210,1950,1010,1850,710,1810
  42. 610 pokea,91 :pokeb,4
  43. 620 pokec,90 :poked,4
  44. 630 pokee,89 :pokef,4 :rem c
  45. 640 goto5000
  46. 650 pokea,103:pokeb,17
  47. 660 pokec,237:poked,21
  48. 670 pokee,20 :pokef,26:rem c-dur
  49. 680 goto5100
  50. 710 pokea,134:pokeb,6
  51. 720 pokec,133:poked,6
  52. 730 pokee,132:pokef,6 :rem g
  53. 740 goto5000
  54. 750 pokea,109:pokeb,16
  55. 760 pokec,137:poked,19
  56. 770 pokee,20 :pokef,26:rem g-dur
  57. 780 goto5100
  58. 810 pokea,208:pokeb,5
  59. 820 pokec,207:poked,5
  60. 830 pokee,206:pokef,5 :rem f
  61. 840 goto5000
  62. 850 pokea,103:pokeb,17
  63. 860 pokec,59 :poked,23
  64. 870 pokee,69 :pokef,29:rem f-dur
  65. 880 goto5100
  66. 910 pokea,194:pokeb,7
  67. 920 pokec,193:poked,7
  68. 930 pokee,192:pokef,7 :rem b
  69. 940 goto5000
  70. 950 pokea,137:pokeb,19
  71. 960 pokec,59 :poked,23
  72. 970 pokee,3  :pokef,31:rem b-dur
  73. 980 goto5100
  74. 1010 pokea,46 :pokeb,5
  75. 1020 pokec,45 :poked,5
  76. 1030 pokee,44 :pokef,5 :rem es
  77. 1040 goto5000
  78. 1050 pokea,129:pokeb,15
  79. 1060 pokec,178:poked,20
  80. 1070 pokee,20 :pokef,26:rem es-dur
  81. 1080 goto5100
  82. 1110 pokea,233:pokeb,6
  83. 1120 pokec,232:poked,6
  84. 1130 pokee,231:pokef,6 :rem as
  85. 1140 goto5000
  86. 1150 pokea,103:pokeb,17
  87. 1160 pokec,178:poked,20
  88. 1170 pokee,160:pokef,27:rem as-dur
  89. 1180 goto5100
  90. 1210 pokea,227:pokeb,4
  91. 1220 pokec,226:poked,4
  92. 1230 pokee,225:pokef,4 :rem d
  93. 1240 goto5000
  94. 1250 pokea,162:pokeb,14
  95. 1260 pokec,137:poked,19
  96. 1270 pokee,157:pokef,24:rem d-dur
  97. 1280 goto5100
  98. 1310 pokea,82 :pokeb,7
  99. 1320 pokec,81 :poked,7
  100. 1330 pokee,80 :pokef,7 :rem a
  101. 1340 goto5000
  102. 1350 pokea,162:pokeb,14
  103. 1360 pokec,112:poked,18
  104. 1370 pokee,237:pokef,21:rem a-dur
  105. 1380 goto5100
  106. 1410 pokea,124:pokeb,5
  107. 1420 pokec,123:poked,5
  108. 1430 pokee,122:pokef,5 :rem e
  109. 1440 goto5000
  110. 1450 pokea,208:pokeb,13
  111. 1460 pokec,109:poked,16
  112. 1470 pokee,237:pokef,21:rem e-dur
  113. 1480 goto5100
  114. 1510 pokea,56 :pokeb,8
  115. 1520 pokec,55 :poked,8
  116. 1530 pokee,54 :pokef,8 :rem h
  117. 1540 goto5000
  118. 1550 pokea,78 :pokeb,12
  119. 1560 pokec,109:poked,16
  120. 1570 pokee,178:pokef,20:rem h-dur
  121. 1580 goto5100
  122. 1610 pokea,40 :pokeb,6
  123. 1620 pokec,39 :poked,6
  124. 1630 pokee,38 :pokef,6 :rem fis
  125. 1640 goto5000
  126. 1650 pokea,157:pokeb,4
  127. 1660 pokec,156:poked,4
  128. 1670 pokee,155:pokef,4 :rem cis
  129. 1680 goto5000
  130. 1710 pokea,233:pokeb,6
  131. 1720 pokec,232:poked,6
  132. 1730 pokee,231:pokef,6 :rem gis
  133. 1740 goto5000
  134. 1750 pokea,46 :pokeb,5
  135. 1760 pokec,45 :poked,5
  136. 1770 pokee,44 :pokef,5 :rem dis
  137. 1780 goto5000
  138. 1810 pokea,109:pokeb,16
  139. 1820 pokec,178:poked,20
  140. 1830 pokee,160:pokef,27:rem as-moll
  141. 1840 goto5100
  142. 1850 pokea,129:pokeb,15
  143. 1860 pokec,178:poked,20
  144. 1870 pokee,157:pokef,24:rem es-moll
  145. 1880 goto5100
  146. 1910 pokea,112:pokeb,18
  147. 1930 pokee,3  :pokef,31:rem b -moll
  148. 1940 goto5100
  149. 1950 pokea,103:pokeb,17
  150. 1960 pokec,59 :poked,23
  151. 1970 pokee,160:pokef,27:rem f -moll
  152. 1980 goto5100
  153. 2010 pokea,103:pokeb,17
  154. 2020 pokec,178:poked,20
  155. 2030 pokee,20 :pokef,26:rem c -moll
  156. 2040 goto5100
  157. 2050 pokea,129:pokeb,15
  158. 2060 pokec,137:poked,19
  159. 2070 pokee,20 :pokef,26:rem g -moll
  160. 2080 goto5100
  161. 2110 pokea,162:pokeb,14
  162. 2120 pokec,137:poked,19
  163. 2130 pokee,59 :pokef,23:rem d -moll
  164. 2140 goto5100
  165. 2150 pokea,162:pokeb,14
  166. 2160 pokec,103:poked,17
  167. 2170 pokee,237:pokef,21:rem a -moll
  168. 2180 goto5100
  169. 2210 pokea,10 :pokeb,13
  170. 2220 pokec,109:poked,16
  171. 2230 pokee,237:pokef,21:rem e -moll
  172. 2240 goto5100
  173. 2250 pokea,78 :pokeb,12
  174. 2260 pokec,109:poked,16
  175. 2270 pokee,137:pokef,19:rem h -moll
  176. 2280 goto5100
  177. 5000 rem bass ausloesen
  178. 5010 poke54276,wb
  179. 5020 poke54283,wb
  180. 5030 poke54290,wb:rem einschalten
  181. 5040 fori=1to100:next:rem klangdauer
  182. 5050 poke54276,wb-1
  183. 5060 poke54283,wb-1
  184. 5070 poke54290,wb-1:rem ausschalten
  185. 5080 goto80
  186. 5100 rem akkord ausloesen
  187. 5110 poke54276,wa
  188. 5120 poke54283,wa
  189. 5130 poke54290,wa:rem einschalten
  190. 5140 fori=1to100:next:rem klangdauer
  191. 5150 poke54276,wa-1
  192. 5160 poke54283,wa-1
  193. 5170 poke54290,wa-1:rem ausschalten
  194. 5180 goto80
  195. 5200 gett$:ift$=""then5200
  196. 5210 ift$="1"thenwb=33:goto80
  197. 5220 ift$="2"thenwb=65:goto80
  198. 5230 ift$="3"thenwb=17:goto80
  199. 5240 ift$="4"thenwb=129:goto80
  200. 5250 ift$="5"thenwa=33 :goto80
  201. 5260 ift$="6"thenwa=65 :goto80
  202. 5270 ift$="7"thenwa=17 :goto80
  203. 5280 ift$="8"thenwa=129:goto80
  204. 5290 ift$="9"thentl=255:th=0:goto77
  205. 5300 ift$="0"thentl=0  :th=8:goto77
  206. 5305 ift$="*"then71
  207. 5310 goto5200
  208.