6.4 Some pieces of music

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.


Program 1: anniversary song.

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,,We’d 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

Program 2: anniversary song

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

Program 3: Another nice melody from BGG

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

Program 4: Nice ending music

This little melody is perfect when you want to have a melody when you die in a game.

MUSIC "T6O1D6R0D5R0D2R0D6F6E5D3R0D5C3D5";"T6O2S6M100D6R0D5R0D2R0D6F6E5D3R0D5C3D5"

Program 5: Well known French melody

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

Previous page
Next page
Contents