home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 July
/
64er_Magazin_93-07_1993_Markt__Technik_de_Side_A.d64
/
listing1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
39 lines
0 s=54272:pokes+24,15 :rem volle lautstaerke
1 pokes+5,0:pokes+6,255 :rem adsr poken
8 goto50 :rem zur hauptschleife
9 :
10 rem ** vibrato init **
11 :
12 : d=50 :rem verzoegerung (delay)
13 : l=5 :rem schwingweite (level)
14 : g=20 :rem geschw. (speed)
15 : h=3500 :rem tonhoehe
16 :
17 ri=1:za=int(l/2) :rem startrichtung und startzaehler setzen
18 w=d:t=1 :rem wartezeit auf delay setzen und ton neu anschlagen (t=1)
19 return
29 :
30 rem ** virbato effekt **
31 :
32 w=w-1 :rem wartezeit vermindern
33 if w>0 then return :rem noch laenger warten: return, sonst delay-zeit vorbei
34 za=za+1 : rem zaehler erhoehen
36 if za=l then ri=-ri:za=0 :rem ist zaehler gleich level ? nein -> weiter
37 rem ja -> richtung wechseln und zaehler loeschen
38 h=h+ri*g :rem je nach richtung g addieren oder subtrahieren
40 return
41 :
42 rem ** sid poken **
43 :
44 if t=1 thent=0:pokes+4,33:fori=1to10:next:pokes+4,32:rem ton neu anschlagen?
45 rem ja -> sid poken und anforderung loeschen. nein -> weiter
46 pokes,hand255:pokes+1,h/256 : rem tonhoehe h in sid poken
48 return
49 :
50 rem ** hauptschleife **
51 :
52 geta$:ifa$=" "thengosub10 :rem ton mit space neu starten
54 gosub 32 :rem vibrato aufrufen
56 gosub 44 :rem sid-register poken
58 goto 52 :rem hauptschleife ende