Inhaltsverzeichnis
Werbung
T E I L
7
COMMODORE 116
COMMODORE 116 - DIE MUSIKMASCHINE
*********************************
Das
letzte
Programm
ist
eh1as
länger.
Es
zeigt
den
COMMODORE 116 als die 'große' Musikmaschine. Jede
Taste
zwischen
<1>
bis <9>, die Sie drücken, erscheint auch als geschriebene Note
in
den
Notenzeilen.
116
5 GOSUB 1000
6 FOR
X~l
TO 9: READ N(X): NEXT X
8 CHAR 1, 8, 1,",DT'J;GRq;3SE MUSIK[\1ASI;:HTNE"
10 VOL 7
20 DO
30 GET
A,jp:
IF
A$~""
THEN 30
z.;w,i'schen den Anf,ührungszeichen
-'k, e
-i
n e- n
Zv1ischen'raum!
35
A~ASC(Al~):
36
N~
A -
48
IF A<49 OR A>57 THEN 50
40
45
46
SOUND 1, N(N), 4
GSHAPE N$, 150, 8* (6+(9-N)), 4
FOR
z~1
TO 50: NEXT Z
47 GSHAPE N$, 150, 8* (6+(9-N)), 4
50 LOOP UNTIL
A~32
55 VOL 0: GRAPHIC 0: SCNCLR
60 END
100 DATA 345, 383, 453, 516, 571, 596, 643, 685, 704
1000 GRAPHIC 1,1
1010 FOR
Y~60
TO 124 STEP 16
1020 DRA\'1 1, 100,
y
TO 200, Y
1030 NEXT Y
1040
A$~"FEDCJOAGFE"
1050 FOR
X~1
TO 9:
C~13
1060 IF
INT(X/2)~
X/2 THEN
C~14
1070 CHAR 1, C, X+6, MID$ (A$, X, 1), 0
1075 CHAR 1, C+lO, X+6, RIGHT$ (STR.$ (10-X), 1)
1080 NEXT X
1090 FOR
X~1
TO 8: FOR
Y~ll
TO 16: DRAW 1, X, Y: NEXT Y, X
1100
Y~1:
X~8:
DRAW 1, 8, 16 TO X, Y
1110 SSHAPE N$, 1, 1, 8, 16
1120 GSHAPE N$, 1, 1, 4
1130 RETURN
Werbung
Inhaltsverzeichnis
