home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh62b.d64 / akkordeon (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.