![]() ![]() MZ-800 course Chapter 6 |
6. Musical applications |
In the last part of this chapter we shall show you yet another couple
of musical pieces. One of the programs is from SCCE and two of them
are from the book Alles ueber den MZ-800 from BGG. 10 Anniversary song 20 A program from L.J. Roetman 30 Rutgerskamp 20 40 3853 ES Ermelo 50 Tel. 03417-58678 60 70 This program runs on all 80 normal Basic favors 90 100 MUSIC INIT:TEMPO 7 110 IF I=0 THEN INIT "CRT:M1":PAL 2,1:PAL 1,6:ELSE 210 120 DIM X$(4,7):DIM A(2) 130 GOSUB "IN" 140 BOX 8,8,312,88,2 150 BOX 25,50,160,70,2 160 SYMBOL 22,16,"ANNIVERSARY",3,3 170 SYMBOL 190,50,"SONG",3,3 180 SYMBOL [1]32,53,"Al Jolson",1,1 190 SYMBOL [1]32,61,"Saul Chaplin",1,1 200 SYMBOL [1]32,76,"Based on a theme by Icanovici",1,1 210 RESTORE 690:GOSUB 550 220 Y=116 230 SYMBOL 12,184,"LJR 6-1988",1,1 240 FOR I=0 TO 2 250 GET X$:IF X$="" THEN 250 260 IF X$="E" THEN CLS:END 270 IF X$="1" THEN A(I)=1:SYMBOL 12,Y,"Soprano",1,1 280 IF X$="2" THEN A(I)=2:SYMBOL 12,Y,"Alto",1,1 290 IF X$="3" THEN A(I)=3:SYMBOL 12,Y,"Tenor",1,1 300 IF X$="4" THEN A(I)=5:SYMBOL 12,Y,"Bass",1,1 310 IF X$="5" THEN RESTORE 700:I=2 320 Y=Y+16 :NEXT I 330 WAIT 1000:GOSUB 550 340 MUSIC X$(A(0),0);X$(A(1),0);X$(A(2),0) 350 MUSIC X$(A(0),1);X$(A(1),1);X$(A(2),1) 360 WAIT 5000 :GOSUB 550 370 MUSIC X$(A(0),0);X$(A(1),0);X$(A(2),0) 380 MUSIC X$(A(0),7);X$(A(1),7);X$(A(2),7) 390 WAIT 5000:GOSUB 550 400 MUSIC X$(A(0),2);X$(A(1),2);X$(A(2),2) 410 MUSIC X$(A(0),3);X$(A(1),3);X$(A(2),3) 420 MUSIC X$(A(0),4);X$(A(1),4);X$(A(2),4) 430 MUSIC X$(A(0),5);X$(A(1),5);X$(A(2),5) 440 WAIT 2000:GOSUB 550 450 MUSIC X$(A(0),0);X$(A(1),0);X$(A(2),0) 460 MUSIC X$(A(0),1);X$(A(1),1);X$(A(2),1) 470 WAIT 5000:GOSUB 550 480 MUSIC X$(A(0),0);X$(A(1),0);X$(A(2),0) 490 MUSIC X$(A(0),6);X$(A(1),6);X$(A(2),6) 500 WAIT 7000 510 FOR I=0 TO 2:A(I)=0:NEXT I 520 GOTO 210 530 540 LABEL "TEXT" 550 BOX 8,100,312,192,2 560 READ X$ 570 SYMBOL 8,107,X$,11,11 580 BOX 110,100,312,192,2 590 Y=110 600 FOR I=0 TO 10 610 READ X$:IF X$="@" THEN I=10:GOTO 620:ELSE SYMBOL 118,Y,X$,1,1:Y=Y+8 620 NEXT I 630 RETURN 640 LABEL "IN" 650 RESTORE 770:FOR J=1 TO 4 660 FOR I=0 TO 7 670 READ X$(J,I):NEXT I,J 680 RETURN 690 DATA,Choice from 3 voices max,,1 Soprano,2 Alto,3 Tenor,4 Bass,,5 Start melody,,E End,@ 700 DATA 1,Oh! how we danced,in the night,we were wed;,,We vowed our true love, though a word wasn't said,@ 710 DATA 2,The world was in bloom,there were stars in the,skies,,except for the few, that were therein your eyes,@ 720 DATA R,Dear as I held you,so close in my arms,Angels were singing,a hymn to your charms, murmuring,low; My darling,,I LOVE YOU so,@ 730 DATA 3,The night seemed to fade,into blossoming dawn,,The sun shone a-new,but the dance, lingered on,@ 740 DATA 4,Could we but relive,that sweet moment,sublime,,Wed find that our love, is unaltered by time,@ 750 760 DATA Soprano 770 DATA 03-B8 -B5R0#D5R0E5R0 #F8 #F5R0#D5R0-B5R0 G8 G5R0#F5R0E5R0 B8B7R0 780 DATA B5 +C8 +C5R0B5R0A5R0 B8 B5R0A5R0G5R0 #F8 #F5R0G5R0#F5R0 E8 E7R0-B5R0 790 DATA +E5R0+E5R0+E5R0 +E5R0+E5R0+E5R0+E5R0+D6R0+#C3R0 +D8R0 800 DATA +C5R0+C5R0+C5R0 +C5R0+C5R0+C5R0+C5R0B6R0A3R0 B7R0B5R0 810 DATA A5R0A5R0A5R0 A5R0A5R0A5R0 A5R0G5R0#F5R0 E7R0+E5R0 820 DATA +C5R0A5R0#F5R0 G7R1#F5R0 E8 E5R-BR0 830 DATA B5 +C8 +C5R0B5R0A5R0 B8 B5R0A5R0G5R0 #F8 #F5R0G5R0#F5R0 E8 E8 840 DATA B5 +C8 +C5R0B5R0A5R0 B8 B5R0A5R0G5R0 #F8 #F5R0G5R0#F5R0 E8 E7R5 850 860 DATA Alto 870 DATA -B8 -B5R0-B5R0-B5R0 -B8 -B5R0-B5R0-B5R0 E8 E5R0-B5R0-B5R0 E8E7R0 880 DATA E5 E8 E5R0E5R0E5R0 E8 E5R0E5R0E5R0 -B8 -B5R0E5R0-B5R0 -B8 -B7R0-B5R0 890 DATA G5R0G5R0G5R0 #F5R0G5R0A5R0 G5R0G6R0G3R0 G8R0 900 DATA G5R0G5R0G5R0 #F5R0G5R0A5R0 G5R0G6R0G3R0 G7R0G5R0 910 DATA E5R0E5R0E5R0 #D5R0E5R0#F5R0#F5R0E5R0#D5R0 E7R0G5R0 920 DATA E5R0E5R0E5R0 E5R0#C5R0#D5R0E8 E5R-BR0 930 DATA E5 E8 E5R0E5R0E5R0 E8 E5R0E5R0E5R0 -B8 -B5R0E5R0-B5R0 -B8 -B8 940 DATA E5 E8 E5R0E5R0E5R0 E8 E5R0E5R0E5R0 -B8 -B5R0E5R0-B5R0 -B8 -B7R5 950 960 DATA Tenor 970 DATA -A8 -A5R0-A5R0-A5R0 -A8 -A5R0-A5R0-A5R0 -B8 -B5R0-A5R0-G5R0 -B8-B7R0 980 DATA -B5 C8 C5R0C5R0C5R0 -B8 -B5R0C5R0-B5R0 -A8 -A5R0-#A5R0-A5R0 -G8-G7R0-G5R0 990 DATA C5R0C5R0C5R0 C5R0C5R0C5R0 C5R0-B6R0-#A3R0 -B8R0 1000 DATA E5R0E5R0E5R0 D5R0D5R0D5R0 E5R0D6R0#C3R0 D7R0D5R0 1010 DATA C5R0C5R0C5R0 -B5R0-B5R0-B5R0C5R0-B5R0-A5R0 -G7R0-B5R0 1020 DATA -A5R0-#F5R0-A5R0 -B5R0-#A5R0-A5R0 -G8-G5R-GR0 1030 DATA -B5 C8 C5R0C5R0C5R0-B8-B5R0C5R0 -B5R0 -A8 -A5R0-#A5R0-A5R0 -G8-G8 1040 DATA -B5 C8 C5R0C5R0C5R0-B8-B5R0C5R0 -B5R0 -A8 -A5R0-#A5R0-A5R0 -G8-G7R5 1050 1060 DATA Bass 1070 DATA O1 #D8 D5R0-B5R0#C5R0 #D8 D5R0-B5R0#D5R0 E8 E5R0E5R0E5R0 G8G5R0 1080 DATA G8 A8 A5R0G5R0#F5R0 G8 G5R0#F5R0E5R0 #D8 D5R0#C5R0#D5R0 E8 E7R0E5R0 1090 DATA A5R0A5R0A5R0 D5R0E5R0#F5R0 G5R0G6R0#G3R0 G8R0 1100 DATA A5R0A5R0A5R0 D5R0E5R0#F5R0 G5R0G6R0G3R0 G7R0G5R0 1110 DATA #F5R0#F5R0#F5R0 -B5R0#C5R0#D5R0 E5R0E5R0E5R0 E7R0E5R0 1120 DATA -A5R0C5R0C5R0 -B7R1-B5R0 E8E5RER0 1130 DATA G5 A8 A5R0G5R0#F5R0 G8 G5R0#F5R0E5R0 #D8 D5R0#C5R0#D5R0 E8 E8 1140 DATA G5 A8 A5R0G5R0#F5R0 G8 G5R0#F5R0E5R0 #D8 D5R0#C5R0#D5R0 E8 E7R5
The next melody is part of the Bolero. This program is, like the one after this one, from the book Alles ueber den MZ-800 from BGG. 10 TEMPO 5 20 DIM M$(3,10) 30 FOR J=1 TO 3 40 FOR I=1 TO 9 50 READ M$(J,I) 60 NEXT I,J:FOR I=1 TO 10 70 MUSIC M$(1,I);"O2"+M$(2,I);M$(3,I) 80 NEXT I 90 DATA 03V15S0M10 100 DATA +C5B1+C+D+CBA+C3+C1A+C5B1+C 110 DATA A1GEFG6R1FEDEFGAG6 120 DATA A1BAGFEDEDC5C1DM6E3FM10 130 DATA D5M20G9R4M10+D6+C1BAB+C+D+CB4 140 DATA +C1BA+C1BAF4M5F1FF3A+C1ABD 150 DATA F3F1FF3AM10B1GAF 160 DATA D3D1CD6M5D1DD3FM10A1FGED3D1C 170 DATA D6D1CD3E1FM15G7M10R1FEDC9 180 REM ----------------------------- 190 DATA V10S0M10 200 DATA E5D1CDCDFE3G1FE5D1C 210 DATA F1ECDE6R1FEGCDEFE6 220 DATA F1DECDGBGBG5C1GM6A3GM10 230 DATA B5M20E9R4M10B6G1GFDEGEG4 240 DATA E1GFEGFA4M5D1DA3FE1FGG 250 DATA A3A1AC3FM10G1GFA 260 DATA G3F1EB6M5D1FG3AM10C1GECB3G1E 270 DATA B6G1ED3G1FM15E7M10R1DGGG9 280 REM -------------------------------- 290 DATA 01V11S0M5 300 DATA C3C1C0CC3C1C0CC3CCE1E0EE3E1E0E 310 DATA C3C1C0CC3C1C0CC3CCC1C0CC3C1C0CG1G0GG1G0G 320 DATA C3C1C0CC3CCC1C0CG3G1G0GG1G0G 330 DATA C3C1C0CC3C1C0CG3GGG1C0CC3C1C0CC3C1C0C3C1C0CC3C1C0CC3C1C0C 340 DATA G3G1G0GG3G1G0GC3CCC1C0C 350 DATA C3C1C0CC3CCC1C0C 360 DATA G3C1E0EE3E1E0GG3GCG1C0CC3C1C0C 370 DATA G3G1G0GG3G1G0GG3GCG1C0CC3C1C0CC3C1C0CC3C1C0CC1C0C
The next melody is also from the book Alles ueber den MZ-800 from BGG. 10 TEMPO 6 20 FOR JT=1 TO 2 30 FOR I=1 TO 10 40 READ A$,B$,C$ 50 MUSIC A$;B$;C$ 60 NEXT I 70 RESTORE "ENTRY" 80 NEXT JT 90 END 100 DATA O3V15S0M10 110 DATA O2V13S0M10 120 DATA O2V11S0M10 130 140 DATA R9 150 DATA D5E3#FA#F1EM4D3E 160 DATA R9 170 180 DATA R9 190 DATA #F#FEEDR6 200 DATA R6 210 LABEL "ENTRY" 220 230 DATA M10#F3AA5M20A7 240 DATA M6#F5M13A7M4+#C0+D2A3 250 DATA M6D5M20#F6M4R5 260 270 DATA M10#F3AA5M20A7 280 DATA M6D5M20#F7M4R5 290 DATA M6#F5M13A7M4+#C0+D2A3 300 310 DATA M10R3BAABBAA 320 DATA R3M10B3A5M4B3RAA 330 DATA V15-D5-D-D-D 340 350 DATA #F3ABGM18A7M10 360 DATA #F3ABGAM10D1E#F5 370 DATA -D-D-D-DV13 380 390 DATA R3#FAA#FAAA 400 DATA M5R3DM15#F5M10R3#F3AA 410 DATA M5R3M15#F5M10R3D#F#F 420 430 DATA B3B1+#C+D3EA7 440 DATA R5M20D5D7M10 450 DATA R5M20-B5-A7M10 460 470 DATA R3+DA#FEBBB 480 DATA M3R2+D5M10R0R3M20E7M10 490 DATA M3R1A5M10R4M20B7M10 500 510 DATA +D3A1#FE5M14#F7M10 520 DATA +D3R5#G0A2+D3+B+A+#F1+E 530 DATA A3R3R7 540 550 DATA R9 560 DATA O3M10D5E3#F3M4A3M10#F1ED3M4E3 570 DATA R9 580 590 DATA R8+D5 600 DATA M3#F3#FEEDR3+A5 610 DATA M4+D3+DAA#FR3+#F5
This little melody is perfect when you want to have a melody when you die in a game. MUSIC "T6O1D6R0D5R0D2R0D6F6E5D3R0D5C3D5";"T6O2S6M100D6R0D5R0D2R0D6F6E5D3R0D5C3D5"
The last melody is the famous French Can Can melody. This program only uses one chord. 10 MUSIC "T7O4C9D5F5E5D5G7G7G5A5E5F5" 20 MUSIC "D7R0D7D5F5E5D5C7R0C9" 30 MUSIC "D5F5E5D5G7R0G7R0G5A5E5F5" 40 MUSIC "R0D7R0D7R0D5F5E5D5C5G5D5E5C9" 50 MUSIC "C9D5F5E5D5G7G7G5A5E5F5" 60 MUSIC "D7D7D5F5E5D5C5+C5B5A5G5F5E5D5" 70 MUSIC "C9D5F5E5D5G7G7G5A5E5F5" 80 MUSIC "D7D7D5F5E5D5C5G5D5E5C9" 90 MUSIC WAIT:CLS:END |