1 REM A K K O R D E O N  (2)
2 REM VON HERMANN HUCK
3 REM 7987 WEINGARTEN
4 REM LAURASTR.34
6 A=54272:B=54273:REM FUER TONHOEHE
7 C=54279:D=54280:REM FUER TONHOEHE
8 E=54286:F=54287:REM FUER TONHOEHE
10 POKE54277,1*16+15:REM ANSCHL.ABSCHW.
20 POKE54284,1*16+15:REM ANSCHL.ABSCHW.
30 POKE54291,1*16+15:REM ANSCHL.ABSCHW.
40 POKE54278,15*16+8:REM HALT.AUSKL.
50 POKE54285,15*16+8:REM HALT.AUSKL.
60 POKE54292,15*16+8:REM HALT.AUSKL.
70 POKE54296,15:REM LAUTST.
71 TL=255 :REM TASTENVERH.LOW  GRUNDEIN.
72 TH=0   :REM TASTENVERH.HIGH GRUNDMIN.
74 WB=33  :REM WELLENFORM BASS GRUNDEIN.
76 WA=33  :REM WELLENFORM AKK. GRUNDEIN.
77 POKE54274,TL:POKE54275,TH
78 POKE54281,TL:POKE54282,TH
79 POKE54288,TL:POKE54289,TH
80 GETT$:IFT$=""THEN80
90 X=ASC(T$)
100 IFX<=58THEN200
110 IFX>=65THEN250
120 GOTO80
200 IFX>=44ANDX<=50THEN300
210 IFX>=51THEN320
215 IFX=32THEN5200
220 GOTO80
250 IFX<=90ANDX>=78THEN360
260 IFX<=77THEN340
270 GOTO80
300 X=X-43
310 ONXGOTO2150,80,2210,2250,1750,610,710
320 X=X-50
330 ONXGOTO1210,1310,1410,1510,1610,1650,1710,1550
340 X=X-64
350 ONXGOTO1150,2010,1910,950,910,850,650,750,1310,1250,1350,1450,2110
360 X=X-77
370 ONXGOTO2050,1410,1510,1110,810,1050,610,1210,1950,1010,1850,710,1810
610 POKEA,91 :POKEB,4
620 POKEC,90 :POKED,4
630 POKEE,89 :POKEF,4 :REM C
640 GOTO5000
650 POKEA,103:POKEB,17
660 POKEC,237:POKED,21
670 POKEE,20 :POKEF,26:REM C-DUR
680 GOTO5100
710 POKEA,134:POKEB,6
720 POKEC,133:POKED,6
730 POKEE,132:POKEF,6 :REM G
740 GOTO5000
750 POKEA,109:POKEB,16
760 POKEC,137:POKED,19
770 POKEE,20 :POKEF,26:REM G-DUR
780 GOTO5100
810 POKEA,208:POKEB,5
820 POKEC,207:POKED,5
830 POKEE,206:POKEF,5 :REM F
840 GOTO5000
850 POKEA,103:POKEB,17
860 POKEC,59 :POKED,23
870 POKEE,69 :POKEF,29:REM F-DUR
880 GOTO5100
910 POKEA,194:POKEB,7
920 POKEC,193:POKED,7
930 POKEE,192:POKEF,7 :REM B
940 GOTO5000
950 POKEA,137:POKEB,19
960 POKEC,59 :POKED,23
970 POKEE,3  :POKEF,31:REM B-DUR
980 GOTO5100
1010 POKEA,46 :POKEB,5
1020 POKEC,45 :POKED,5
1030 POKEE,44 :POKEF,5 :REM ES
1040 GOTO5000
1050 POKEA,129:POKEB,15
1060 POKEC,178:POKED,20
1070 POKEE,20 :POKEF,26:REM ES-DUR
1080 GOTO5100
1110 POKEA,233:POKEB,6
1120 POKEC,232:POKED,6
1130 POKEE,231:POKEF,6 :REM AS
1140 GOTO5000
1150 POKEA,103:POKEB,17
1160 POKEC,178:POKED,20
1170 POKEE,160:POKEF,27:REM AS-DUR
1180 GOTO5100
1210 POKEA,227:POKEB,4
1220 POKEC,226:POKED,4
1230 POKEE,225:POKEF,4 :REM D
1240 GOTO5000
1250 POKEA,162:POKEB,14
1260 POKEC,137:POKED,19
1270 POKEE,157:POKEF,24:REM D-DUR
1280 GOTO5100
1310 POKEA,82 :POKEB,7
1320 POKEC,81 :POKED,7
1330 POKEE,80 :POKEF,7 :REM A
1340 GOTO5000
1350 POKEA,162:POKEB,14
1360 POKEC,112:POKED,18
1370 POKEE,237:POKEF,21:REM A-DUR
1380 GOTO5100
1410 POKEA,124:POKEB,5
1420 POKEC,123:POKED,5
1430 POKEE,122:POKEF,5 :REM E
1440 GOTO5000
1450 POKEA,208:POKEB,13
1460 POKEC,109:POKED,16
1470 POKEE,237:POKEF,21:REM E-DUR
1480 GOTO5100
1510 POKEA,56 :POKEB,8
1520 POKEC,55 :POKED,8
1530 POKEE,54 :POKEF,8 :REM H
1540 GOTO5000
1550 POKEA,78 :POKEB,12
1560 POKEC,109:POKED,16
1570 POKEE,178:POKEF,20:REM H-DUR
1580 GOTO5100
1610 POKEA,40 :POKEB,6
1620 POKEC,39 :POKED,6
1630 POKEE,38 :POKEF,6 :REM FIS
1640 GOTO5000
1650 POKEA,157:POKEB,4
1660 POKEC,156:POKED,4
1670 POKEE,155:POKEF,4 :REM CIS
1680 GOTO5000
1710 POKEA,233:POKEB,6
1720 POKEC,232:POKED,6
1730 POKEE,231:POKEF,6 :REM GIS
1740 GOTO5000
1750 POKEA,46 :POKEB,5
1760 POKEC,45 :POKED,5
1770 POKEE,44 :POKEF,5 :REM DIS
1780 GOTO5000
1810 POKEA,109:POKEB,16
1820 POKEC,178:POKED,20
1830 POKEE,160:POKEF,27:REM AS-MOLL
1840 GOTO5100
1850 POKEA,129:POKEB,15
1860 POKEC,178:POKED,20
1870 POKEE,157:POKEF,24:REM ES-MOLL
1880 GOTO5100
1910 POKEA,112:POKEB,18
1930 POKEE,3  :POKEF,31:REM B -MOLL
1940 GOTO5100
1950 POKEA,103:POKEB,17
1960 POKEC,59 :POKED,23
1970 POKEE,160:POKEF,27:REM F -MOLL
1980 GOTO5100
2010 POKEA,103:POKEB,17
2020 POKEC,178:POKED,20
2030 POKEE,20 :POKEF,26:REM C -MOLL
2040 GOTO5100
2050 POKEA,129:POKEB,15
2060 POKEC,137:POKED,19
2070 POKEE,20 :POKEF,26:REM G -MOLL
2080 GOTO5100
2110 POKEA,162:POKEB,14
2120 POKEC,137:POKED,19
2130 POKEE,59 :POKEF,23:REM D -MOLL
2140 GOTO5100
2150 POKEA,162:POKEB,14
2160 POKEC,103:POKED,17
2170 POKEE,237:POKEF,21:REM A -MOLL
2180 GOTO5100
2210 POKEA,10 :POKEB,13
2220 POKEC,109:POKED,16
2230 POKEE,237:POKEF,21:REM E -MOLL
2240 GOTO5100
2250 POKEA,78 :POKEB,12
2260 POKEC,109:POKED,16
2270 POKEE,137:POKEF,19:REM H -MOLL
2280 GOTO5100
5000 REM BASS AUSLOESEN
5010 POKE54276,WB
5020 POKE54283,WB
5030 POKE54290,WB:REM EINSCHALTEN
5040 FORI=1TO100:NEXT:REM KLANGDAUER
5050 POKE54276,WB-1
5060 POKE54283,WB-1
5070 POKE54290,WB-1:REM AUSSCHALTEN
5080 GOTO80
5100 REM AKKORD AUSLOESEN
5110 POKE54276,WA
5120 POKE54283,WA
5130 POKE54290,WA:REM EINSCHALTEN
5140 FORI=1TO100:NEXT:REM KLANGDAUER
5150 POKE54276,WA-1
5160 POKE54283,WA-1
5170 POKE54290,WA-1:REM AUSSCHALTEN
5180 GOTO80
5200 GETT$:IFT$=""THEN5200
5210 IFT$="1"THENWB=33:GOTO80
5220 IFT$="2"THENWB=65:GOTO80
5230 IFT$="3"THENWB=17:GOTO80
5240 IFT$="4"THENWB=129:GOTO80
5250 IFT$="5"THENWA=33 :GOTO80
5260 IFT$="6"THENWA=65 :GOTO80
5270 IFT$="7"THENWA=17 :GOTO80
5280 IFT$="8"THENWA=129:GOTO80
5290 IFT$="9"THENTL=255:TH=0:GOTO77
5300 IFT$="0"THENTL=0  :TH=8:GOTO77
5305 IFT$="*"THEN71
5310 GOTO5200