Commodore 64 Bedienungshandbuch Seite 155

100 REM ELEKTRONISCHES KLAVIER
110 PRINT"{CLEAR} {REVERSE ON} {RIGHT} {RIGHT} {221} {RIGHT} {RIGHT} {RIGHT}
{221} {RIGHT} {RIGHT} {221} {RIGHT} {RIGHT} {RIGHT} {221} "
120 PRINT" {REVERSE ON} {RIGHT} {RIGHT} {221} {RIGHT} {RIGHT} {RIGHT} {221}
{RIGHT} {RIGHT} {221} {RIGHT} {RIGHT} {RIGHT} {221} "
130 PRINT" {REVERSE ON} {RIGHT} {RIGHT} {221} {RIGHT} {RIGHT} {RIGHT} {221}
{RIGHT} {RIGHT} {221} {RIGHT} {RIGHT} {RIGHT} {221} "
140 PRINT" {REVERSE ON} {221} {221} {221} {221} {221} {221} {221} {221} {221}
{221} {221} {221} {221} {221} "
150 PRINT" {REVERSE
ON}Q{221}W{221}E{221}R{221}T{221}Y{221}U{221}I{221}O{221}P{221}@{221}*{221}^{
221};{221}="
160 PRINT"{DOWN} 'LEERTASTE':{SPACE*5}PEDAL"
170 PRINT"{DOWN}'F1','F3','F5','F7': OKTAVE"
180 PRINT"{DOWN}'F2','F4','F6','F8': WELLENFORM"
190 PRINT" {DOWN}GEDULD, ICH MUSS RECHNEN!"
200 SI=13*4096+1024:DIMF(26):DIMK(255)
210 FORI=0TO28:POKESI+I,0:NEXT
220 F1=7939:FORI=1TO26:F(27-I)=F1*5.8+30:F1=F1/2^(1/12):NEXT
230 K$="1Q2W3ER5T6Y7UI9O0P@-*\^{HOME};=":REM BENUETZTE TASTEN
240 FORI=1TOLEN(K$):K(ASC(MID$(K$,I)))=I:NEXT
250 PRINT"{UP}{SPACE*31}"
260 AN=0:AB=0:HA=15:AU=9:HH=HA*16+AU:AS=AN*16+AB:WF=16:M=1:OK=4:HB=256:Z=0
270 FORI=0TO2:POKESI+5+I*7,AS:POKESI+6+I*7,HT
280 POKESI+2+I*7,4000AND255:POKESI+3+I*7,4000/256:NEXT
290 POKESI+24,15+16+64 :POKESI+23,7:REM FILTER ENTFERNEN
300 GETA$:IFA$=""THEN300
310 FR=F(K(ASC(A$)))/M:FL=SI+V*7:W=FL+4:IFFR=ZTHEN420
320 POKEFL+6,Z
330 POKEFL+5,Z:REM HUELLKURVE AUSSCHALTEN
340 POKEW,8:POKEW,0:REM RESET
350 POKEFL,FR-HB*INT(FR/HB):REM FREQ LO
360 POKEFL+1,FR/HB:REM FREQ HI
370 POKEFL+6,HH:REM HALTEN
380 POKEW,WF+1:FORI=1TO50*AN:NEXT
390 POKEW,WF:REM AUS
400 IFP=1THENV=V+1:IFV=3THENV=0
410 GOTO300
415 REM FUNKTIONSTASTENABFRAGE
420 IFA$="{F1}"THENM=1:OK=4:GOTO300
430 IFA$="{F3}"THENM=2:OK=3:GOTO300
440 IFA$="{F5}"THENM=4:OK=2:GOTO300
450 IFA$="{F7}"THENM=8:OK=1:GOTO300
460 IFA$="{F2}"THENWF=16:GOTO300
470 IFA$="{F4}"THENWF=32:GOTO300
480 IFA$="{F6}"THENWF=64:GOTO300
490 IFA$="{F8}"THENWF=128:GOTO300
500 IFA$=" "THENP=1-P:HH=(HHANDNOT2)OR(NOTHHAND2):GOTO300
510 IFA$="{CLEAR}"THEN210
520 GOTO300
147