Inhaltsverzeichnis
Werbung
TEl L
7
COMMODORE 16
Das klingt natürlich alles recht kompliziert und ausschließlich
für Programmierprofis
machbar.
In
Wirklichkeit
ist
nur
ein
wenig
Experimentierfreude notwendig, wobei unterschiedliche Werte
eingesetzt
werden und man beobachtet, was dabei herauskommt. Geräusche zu erzeugen
ist eine Herausforderung, bei der versucht wird,
die
richtigen
Werte
für einen gewünschten Effekt zu finden.
WIR MACHEN MUSIK
****************
Auch wenn Sie (noch) nicht alles verstehen, was in allen diesen
Programmen abläuft,
so
tippen
Sie
die
Programme
dennoch
ein
und
beobachten ihre·Wirkung.
Das folgende Programm simuliert über die
Tasten
<1>
bis
<8>
eine Klaviertastatur.
5 SCNCLR
7 PRINT"SPIELEN SIE MIT DEN TASTEN 1 .. 8!"
8 PRINT"ENDE:LEERTASTE"
10 FOR X=l TO 8: READ N(X): NEXT X
20 VOL 7
30 DO
40 GET A$: IF A$="" THEN 40
50 A=ASC(A$): IF A<49 OR A>56 THEN 90
60 N=A-48
70 SOUND 1, N(N), 5
80 COLOR 0, N, 3
90 LOOP UNTIL A=32
100 VOL 0: COLOR 4, 2, 7
110 DATA 169, 262, 345, 383, 453, 516, 571, 596
Spielen Sie mit den Tasten <1> bis <8>
die
Noten.
Mit
jeder
anderen
Note
wechselt
auch
die
Bildschirm-Randfarbe.
Wollen
Sie
beenden, so genügt ein Druck auf die LEER-Taste.
114
Werbung
Inhaltsverzeichnis
