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 NR=Y*200
120 HI=INT(NR/256):LO=NR-(HI*256)
121 REM ZUORDNUNG FREQ.IN NOTENLISTE
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