THE
PAST
MASTER
CLUB
MUSIC BOOK.HTM
1 '' MUSIC.BAS by: NICK K VAN VLIET NOV/98 TRANSLATED OCT/99 û
'' IF YOU HAVE IMPROVED ON THESE PLEASE SEND THEM IN AND I WILL REVISE THESE
'' WITH YOUR NAME ON THEM!
'' O3=OCTAVE3: >=UP AN OCTAVE: >>=DOWN 2 OCTAVES
'' MN=NORMAL: MF=FOREGROUND: MB=BACKGROUND: ML=LEGATO: MS=STACCATO
'' T4= 4 QUARTER NOTES/SEC -255: P4=PAUSE -1/2/4/8/16/32/64
'' ABCDEFG: N6=NOTE 6 -84: L4=QUARTER NOTE
10 KEY OFF: KEY(1) ON: KEY(2) ON: KEY(3) ON: KEY(4) ON: KEY(5) ON: KEY(6) ON
20 KEY(7) ON: KEY(8) ON: KEY(9) ON: KEY(10) ON: KEY(11) ON: KEY(12) ON
30 ON KEY(1) GOSUB 100: ON KEY(2) GOSUB 160: ON KEY(3) GOSUB 210
40 ON KEY(4) GOSUB 310: ON KEY(5) GOSUB 380: ON KEY(6) GOSUB 430
50 ON KEY(7) GOSUB 480: ON KEY(8) GOSUB 540: ON KEY(9) GOSUB 590
60 ON KEY(10) GOSUB 650: ON KEY(11) GOSUB 710: ON KEY(12) GOSUB 940
70 CLS : GOTO 740
80 '' PIANO BOOKLET NOV/98
90 PRINT "TWINKLE, TWINKLE LITTLE STAR"
100 A$ = "O3C4C4G4G4 A4A4G2 F4F4E4E4 D4D4C2"
110 A$ = A$ + "G4G4F4F4 E4E4D2 F4G4F4F4 E4E4D2"
120 A$ = A$ + "C4C4G4G4 A4A4G2 F4G4E4E4 D4D4C2"
130 '' ENTIRE SONG
140 PLAY "MST140L4" + A$: RETURN: ' 4/4
150 PRINT "MARY HAD A LITTLE LAMB"
160 A$ = "O3E8.D16D8D8 E8E8E4 D8D8D4 E8G8G4"
170 A$ = A$ + "E8.D16C8D8 E8E8E8E8 D8D8E8D8 C4P4"
180 '' ENTIRE SONG
190 PLAY "MST180L3" + A$: RETURN: ' 2/4
200 PRINT "ROW, ROW, ROW YOUR BOAT"
210 A$ = "O3C44 C8.D16E4 E8.D16E8.F16 G2"
220 A$ = A$ + ">C8.C8.C8.
240 PLAY "MST122L3" + A$: RETURN: ' 2/4
250 PRINT "TWELVE MONTHS"
260 A$ = "O3G4.A8G4F4 E4F8F8G2 D4E4F2 E4F4G2"
270 A$ = A$ + "G4.A8G4F4 E4F4G2 D8D8D4G8G8G4 E4C4C2"
280 '' ENTIRE SONG
290 PLAY "MST120L4" + A$: RETURN: ' 4/4
300 PRINT "DID YOU EVER SEE A LASSIE?"
310 A$ = "O3C8E8 G4.A8G8F8 E4C4C4 D4
320 A$ = A$ + "G4.A8G8F8 E4C4C4 D4
330 A$ = A$ + "D4
340 A$ = A$ + "G4.A8G8F8 E4C4C4 D4
350 '' ENTIRE SONG
360 PLAY "MST140L6" + A$: RETURN: '3/4
370 PRINT "WHERE IS THUMB-KIN?"
380 A$ = "O3C4D4E4C4 C4D4E4C4 E4F4G2 E4F4G2"
390 A$ = A$ + "G8A8G8F8E4C4 G8A8G8F8E4C4 C4
400 '' ENTIRE SONG
410 PLAY "MFMST100L4" + A$: RETURN: ' 4/4
420 PRINT "LONDON BRIGE IS FALLING DOWN"
430 A$ = "O3G8.A16G8F8 E8F8G4 D8E8F4 E8F8G4"
440 A$ = A$ + "G8.A16G8F8 E8F8G4 D4G4 E8C4"
450 '' ENTIRE SONG
460 PLAY "MFMST100L3" + A$: RETURN: '2/4
470 PRINT "HAPPY BIRTHDAY"
480 A$ = "O2G4. A4.G4.>C4
500 A$ = A$ + "B4.A4.>F4 E4C4D4 C2."
510 '' ENTIRE SONG
520 PLAY "MST420L4" + A$: RETURN: '4/4
530 PRINT "TEN LITTLE INDIANS"
540 A$ = "O3C4C8C8C4C8C8 E4G8G8E4C4 D4D8D8D4D8D8
550 A$ = A$ + "C4C8C8C4C8C8 E4G8G8E4C4 G4F8F8E4D4 C2"
560 '' ENTIRE SONG
570 PLAY "MFMST420L4" + A$: RETURN: '4/4
580 PRINT "ROCKABY BABY"
590 A$ = "O3E8G8>E8.D4.C8.
630 PLAY "MST360L6" + A$: RETURN: '6/8
640 PRINT "THREE BLIND MICE"
650 A$ = "O3E4.D4. C4. E4.D4. C4."
660 A$ = A$ + "G4.F4F8 E4. G4.F4F8 E4.G8"
670 A$ = A$ + ">C4.C8.
700 LOCATE 2, 2: PRINT "MICHAEL, ROW THE BOAT ASHORE"
710 A$ = "O3C4E4 G4.E8G4A4 G2E4G4 A1 G2E4G4"
720 A$ = A$ + "G4.E8F4E4 D2C4D4 E2D2 MLC2C2MS"
730 PLAY "MFMST400L4" + A$: ' GOTO 940: 'RETURN :'4/4
732 PLAY "MSO3L16GL8E.L16EL12EE-E>L8C.O3L6GL8G.L16EL8F.L16FL8F.L16GL4A"'MARCH
GOTO 940: 'RETURN
740 'QUESTIONS
750 LOCATE 2, 2: COLOR 15
760 PRINT TAB(2); "PIANO BOOKLET": PRINT
770 PRINT TAB(2); "TWINKLE, TWINKLE LITTLE STAR.F1"
780 PRINT TAB(2); "MARY HAD A LITTLE LAMB.......F2"
790 PRINT TAB(2); "ROW, ROW, ROW YOUR BOAT......F3"
800 'PRINT TAB(2);"TWELVE MONTHS................F4"
810 PRINT TAB(2); "DID YOU EVER SEE A LASSIE?...F4"
820 PRINT TAB(2); "WHERE IS THUMB-KIN?..........F5"
830 PRINT TAB(2); "LONDON BRIDGES...............F6"
840 PRINT TAB(2); "HAPPY BIRTHDAY...............F7"
850 PRINT TAB(2); "TEN LITTLE INDIANS...........F8"
860 PRINT TAB(2); "ROCKABY BABY.................F9"
870 PRINT TAB(2); "THREE BLIND MICE.............F10"
880 PRINT TAB(2); "MICHAEL, ROW THE BOAT ASHORE.F11": PRINT
890 PRINT TAB(2); "EXIT.........................F12": PRINT
900 PRINT TAB(2); "ENTER SONG CHOICE WITH F-KEY: "
910 GOTO 750
950 '' CLS:SCREEN 0,0,0
960 CHAIN "GAME": RETURN
970 '' SYSTEM
980 '' SAVE"BOOK1
END
RETURN TO TOP
MENU
RETURN TO PMCHOME MENU
PRESIDENT PAGE