5 PRINT CHR$(147):REM CLEAR SCREEN
10 SI=54272:REM SID ADRESSE
20 FL=SI   :REM ADRESSE FREQ.LOW-BYTE
30 FH=SI+1 :REM ADRESSE FREQ.HIGH-BYTE
40 L=SI+24 :REM ADRESSE LAUTSTAERKE
50 W=SI+4  :REM ADRESSE WELLENFORM
60 A=SI+5  :REM ADRESSE ANSCHLAG
70 H=SI+6  :REM ADRESSE HALTEN
80 V=0     :REM ANFANGSWERT LAUTSTAERKE
90 S=0     :REM ANFANGSWERT WELLENFORM
100 Y=PEEK(54298):REM EINLESEN PADDEL Y
110 D=Y/2.71     :REM 0...255->0...94,.
120 NR=INT(D)    :REM 0...255->0...94.0
121 REM ZUORDNUNG FREQ.IN NOTENLISTE
130 IF NR=0 THEN HI=1:LO=22
131 IF NR=1 THEN HI=1:LO=39
132 IF NR=2 THEN HI=1:LO=57
133 IF NR=3 THEN HI=1:LO=75
134 IF NR=4 THEN HI=1:LO=95
135 IF NR=5 THEN HI=1:LO=116
136 IF NR=6 THEN HI=1:LO=138
137 IF NR=7 THEN HI=1:LO=161
138 IF NR=8 THEN HI=1:LO=186
139 IF NR=9 THEN HI=1:LO=212
140 IF NR=10 THEN HI=1:LO=240
141 IF NR=11 THEN HI=2:LO=14
142 IF NR=12 THEN HI=2:LO=45
143 IF NR=13 THEN HI=2:LO=78
144 IF NR=14 THEN HI=2:LO=113
145 IF NR=15 THEN HI=2:LO=150
146 IF NR=16 THEN HI=2:LO=190
147 IF NR=17 THEN HI=2:LO=231
148 IF NR=18 THEN HI=3:LO=20
149 IF NR=19 THEN HI=3:LO=66
150 IF NR=20 THEN HI=3:LO=116
151 IF NR=21 THEN HI=3:LO=169
152 IF NR=22 THEN HI=3:LO=224
153 IF NR=23 THEN HI=4:LO=27
154 IF NR=24 THEN HI=4:LO=90
155 IF NR=25 THEN HI=4:LO=156
156 IF NR=26 THEN HI=4:LO=226
157 IF NR=27 THEN HI=5:LO=45
158 IF NR=28 THEN HI=5:LO=123
159 IF NR=29 THEN HI=5:LO=207
160 IF NR=30 THEN HI=6:LO=39
161 IF NR=31 THEN HI=6:LO=133
162 IF NR=32 THEN HI=6:LO=232
163 IF NR=33 THEN HI=7:LO=81
164 IF NR=34 THEN HI=7:LO=193
165 IF NR=35 THEN HI=8:LO=55
166 IF NR=36 THEN HI=8:LO=180
167 IF NR=37 THEN HI=9:LO=56
168 IF NR=38 THEN HI=9:LO=196
169 IF NR=39 THEN HI=10:LO=89
170 IF NR=40 THEN HI=10:LO=247
171 IF NR=41 THEN HI=11:LO=158
172 IF NR=42 THEN HI=12:LO=87
173 IF NR=43 THEN HI=13:LO=10
174 IF NR=44 THEN HI=13:LO=208
175 IF NR=45 THEN HI=14:LO=162
176 IF NR=46 THEN HI=15:LO=129
177 IF NR=47 THEN HI=16:LO=109
178 IF NR=48 THEN HI=17:LO=103
179 IF NR=49 THEN HI=18:LO=112
180 IF NR=50 THEN HI=19:LO=137
181 IF NR=51 THEN HI=20:LO=178
182 IF NR=52 THEN HI=21:LO=237
183 IF NR=53 THEN HI=23:LO=59
184 IF NR=54 THEN HI=24:LO=157
185 IF NR=55 THEN HI=26:LO=20
186 IF NR=56 THEN HI=27:LO=160
187 IF NR=57 THEN HI=29:LO=69
188 IF NR=58 THEN HI=31:LO=3
189 IF NR=59 THEN HI=32:LO=219
190 IF NR=60 THEN HI=34:LO=207
191 IF NR=61 THEN HI=36:LO=225
192 IF NR=62 THEN HI=39:LO=18
193 IF NR=63 THEN HI=41:LO=101
194 IF NR=64 THEN HI=43:LO=219
195 IF NR=65 THEN HI=46:LO=118
196 IF NR=66 THEN HI=49:LO=58
197 IF NR=67 THEN HI=52:LO=39
198 IF NR=68 THEN HI=55:LO=65
199 IF NR=69 THEN HI=58:LO=138
200 IF NR=70 THEN HI=62:LO=5
201 IF NR=71 THEN HI=65:LO=181
202 IF NR=72 THEN HI=69:LO=157
203 IF NR=73 THEN HI=73:LO=193
204 IF NR=74 THEN HI=78:LO=36
205 IF NR=75 THEN HI=82:LO=201
206 IF NR=76 THEN HI=87:LO=182
207 IF NR=77 THEN HI=92:LO=237
208 IF NR=78 THEN HI=98:LO=115
209 IF NR=79 THEN HI=104:LO=78
210 IF NR=80 THEN HI=110:LO=130
211 IF NR=81 THEN HI=117:LO=20
212 IF NR=82 THEN HI=124:LO=10
213 IF NR=83 THEN HI=131:LO=106
214 IF NR=84 THEN HI=139:LO=59
215 IF NR=85 THEN HI=147:LO=130
216 IF NR=86 THEN HI=156:LO=72
217 IF NR=87 THEN HI=165:LO=147
218 IF NR=88 THEN HI=175:LO=107
219 IF NR=89 THEN HI=185:LO=218
220 IF NR=90 THEN HI=196:LO=231
221 IF NR=91 THEN HI=208:LO=156
222 IF NR=92 THEN HI=221:LO=4
223 IF NR=93 THEN HI=234:LO=40
224 IF NR=94 THEN HI=248:LO=20
225 REM ENDE NOTENLISTE
230 GET A$   :REM TASTENDRUCK?
231 IF A$="+" THEN V=V+1:REM LAUTER
232 IF A$="-" THEN V=V-1:REM LEISER
233 IF V<0 THEN V=0     :REM VMIN=0
234 IF V>15 THEN V=15   :REM VMAX=15
235 IF A$="E" THEN S=17 :REM TON EIN
236 IF A$="A" THEN S=0  :REM TON AUS
240 PRINT V,NR,HI,LO
260 POKE L,V:REM LAUTSTAERKE
270 POKE A,O*16+5:REM ANSCHLAG+ABSHWEL.
280 POKE H,15*16+0:REM HALTEN+AUSKLING.
290 POKE FH,HI:POKE FL,LO:REM FREQUENZ
291 POKE SI+23,240:REM RESONANZ
300 POKE W,S:REM WELLENFORM
310 GOTO 100