Inhaltsverzeichnis
Werbung
TEl L
7
COMMODORE 16
COMMODORE 16 - DIE MUSIKMASCHINE
********************************
Das letzte Programm ist etwas länger. Es zeigt den COMMODORE 16
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,"DIE GROSSE MUSIKMASCHINE"
10 VOL 7
20 DO
30 GET A$, IF A$="" THEN 30
zwischen den Anführungszeichen
k e i n e n
Zwischenraum!
35 A=ASC(A$),
36 N=
A -
48
IF A<49 OR A>57 THEN 50
40 SOUND 1, N(N), 4
45 GSHAPE N$, 150, 8* (6+(9-N», 4
46 FOR Z=l 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 DRAW 1, 100, Y TO 200, Y
1030 NEXT Y
1040 A$="FEDCHAGFE"
1050 FOR X=l 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+I0, X+6, RIGHT$ (STR$ (10-X), 1)
1080 NEXT X
1090 FOR X=l TO 8, FOR Y=11 TO 16, DRAW 1, X, y, NEXT Y, X
1100 Y=l, 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
