0ON ERROR CHAIN":2.!MAG"
1CLS
80DIMMUS$(3),E(3),N(3):TEMP=1:TU=0:W=
5.5:KEY=0.5:VOL=126
90FORT%=0TO3:SOUNDT%,0,2,1:NEXT
100ENVELOPE1,1,0,0,0,0,0,0,127,-3,-5,-
2,VOL,0
110ENVELOPE2,2,0,0,0,0,0,0,127,0,-2,-3
,VOL,0
120ENVELOPE3,1,0,0,0,0,0,0,80,-2,0,-1,
VOL-16,0
130ENVELOPE4,4,1,-1,0,1,1,0,127,-20,-1
0,-3,VOL-16,0
140ENVELOPE5,6,1,-1,0,1,1,0,127,0,-1,-
3,VOL-46,0
150ENVELOPE6,1,0,0,0,0,0,0,127,-5,-5,-
2,VOL-16,0
160ENVELOPE7,4,-48,1,-1,1,1,1,127,-1,-
2,-3,VOL-16,0
170ENVELOPE8,6,48,1,-1,1,1,1,127,0,-1,
-3,VOL-46,0
180ENVELOPE9,4,-1,0,0,100,0,0,0,0,0,0,
0,0
190ENVELOPE10,4,0,0,0,0,0,0,127,0,0,-2
,VOL,0
200ENVELOPE11,2,0,0,0,0,0,0,100,0,0,-1
,VOL-36,0
210ENVELOPE12,3,0,0,0,0,0,0,127,-6,-1,
-2,VOL-6,0
220P$="00771238:;<=5>?694@4BC@AMNOPQRS
T4BC@VVWXWYGHIJKLZ[½#4BC@#4BC@$$]"
230FORJ%=1TOLENP$:D%=ASC(MID$(P$,J%,1)
)-&30
240IFD%=-13TU=TU+12:GOTO 290
250IFD%=-12TU=TU-12:GOTO 290
260REL%=D%*50+430
280RESTORE REL%:PROCP(D%)
290NEXT
300FORT=0TO62:PRINT:FORW=1TO75:NEXT:NE
XT
310CLS:OSCLI("DRIVE2"):CHAIN"!MAG"
320DEFPROCP(D%):FORX%=0TO3:READE(X%):N
EXT
330FORX%=0TO3:READMUS$(X%):NEXT:FORL%=
1TOLENMUS$(1):T=TIME+W
340FORG%=1TO3
350P=4*ASC(MID$(MUS$(G%),L%,1)):B%=G%
OR &200:B%=B%OR-&1000*(P=128):P=P+(KEY*4
)-91*(G%=1ANDE(G%)=0):ENV=E(G%)
360SOUNDB%,ENV,P+TU,TEMP
370Q%=Q%+1:IFQ%MOD3=0 THENPROCCH:Q%=1
380NEXT
390IFMUS$(0)=""SOUND-&1000*(MID$(MUS$(
1),L%,1)=" "),E(0),3,TEMP ELSE P=ASC(MID
$(MUS$(0),L%,1))-&30:SOUND-&1000*(P=-16)
,E(0),P,1
400REPEATUNTILTIME-T>W:NEXT
410ENDPROC
420::::TUNE DATA FOLLOWS:::::::::::
430DATA1,0,0,0
440DATA""
450DATA"I U UI R S I U UI S S SR
"
460DATA"
"
470DATA"
"
480DATA1,0,5,0
490DATA""
500DATA"L X XL U V L X XL V V VU
"
510DATA"XXXXXXXXXXXXXXXXXXXXXXXXXXX
"
520DATA"
"
530DATA1,0,5,0
540DATA""
550DATA"N Z ZN W X N Z ZN X X XW
"
560DATA"ZZZZZZZZZZZZZZZZZZZZZZZZZZZ
"
570DATA"
"
580DATA1,0,5,0
590DATA""
600DATA"P ½ ½P Y Z P ½ ½P Z Z "
610DATA"½½½½½½½½½½½½½½½½½½½½½½½½½½½ "
620DATA" "
630DATA1,0,4,7
640DATA""
650DATA"I U UI R S N Z ZN X X XW
"
660DATA"U U U S U R PN Z
"
670DATA"U S R
"
680DATA1,0,4,0
690DATA""
700DATA"A AHMA J K A AHMA J J JK
"
710DATA"T V T V T W V T T
"
720DATA"
"
730DATA1,0,4,0
740DATA""
750DATA"A AHMA J K A AHMA R P
"
760DATA"]YW W Y Y ] Y ] W
"
770DATA"
"
780DATA1,0,6,0
790DATA""
800DATA"I U UI R S I U UI S S SR
"
810DATA"U U U U U U U U
"
820DATA"
"
830DATA1,0,4,0
840DATA""
850DATA"ZY "
860DATA"R "
870DATA" "
880DATA1,0,7,0
890DATA""
900DATA"A A A AA A A A E F G H
"
910DATA"MMMMMMMMMMMMMMMMQQQQRRRRSSSSTT
TT"
920DATA"
"
930DATA1,0,4,0
940DATA""
950DATA"I U UI R S I U UI S S SR
"
960DATA"P R P R S R P
"
970DATA"
"
980DATA1,0,4,0
990DATA""
1000DATA"I U UI R S I U UI S S SR
"
1010DATA"P R M P R P S R P
"
1020DATA"
"
1030DATA1,0,4,0
1040DATA""
1050DATA"I U UI R S I U UI S S SR
"
1060DATA"P R P P R P S R P U U
U "
1070DATA"
"
1080DATA1,0,4,0
1090DATA""
1100DATA"I U UI R S I U UI S S SR
"
1110DATA"Y U S U S U Y U S UUUUUUUU
U "
1120DATA"
"
1130DATA1,0,4,0
1140DATA""
1150DATA"A AHMA J K A AHMA J J JK
"
1160DATA"T V Q T V T W V T
"
1170DATA"
"
1180DATA1,0,4,0
1190DATA""
1200DATA"A AHMA J K A AHMA J J JK
"
1210DATA"T V T V W T V V T Y Y
"
1220DATA"
"
1230DATA1,0,4,7
1240DATA""
1250DATA"I U UI R S N Z ZN X X XW
"
1260DATA"Y S S S U U
"
1270DATA"U S R
"
1280DATA1,0,1,0
1290DATA""
1300DATA"I I III "
1310DATA"I I III "
1320DATA" "
1330DATA1,0,4,7
1340DATA""
1350DATA"I U UI R S N Z ZN X X XW
"
1360DATA"Y S S S U U Z
"
1370DATA"U S R
"
1380DATA1,0,4,7
1390DATA""
1400DATA"I U UI R S N Z ZN X X XW
"
1410DATA"Y S S U R PN Z
"
1420DATA"U S R
"
1430DATA2,0,5,0
1440DATA""
1450DATA"I I I I I I D "
1460DATA"aaaaaaaaaaaaaaaaaaaaaaaaaaaa"
1470DATA" "
1480DATA2,0,5,2
1490DATA""
1500DATA"I I I I I I D "
1510DATA"aaaaaaaaaaaaaaaaaaaaaaaaaaaa"
1520DATA" GS P P S UUU "
1530DATA2,0,5,2
1540DATA""
1550DATA"I I I I I I D "
1560DATA"aaaaaaaaaaaaaaaaaaaaaaaaaaa "
1570DATA" GS P P N UUUUUUUUU"
1580DATA10,9,0,0
1590DATA""
1600DATA"a "
1610DATA" "
1620DATA" "
1630DATA1,0,4,6
1640DATA""
1650DATA"I U UI R S N Z ZN X X XW
"
1660DATA"U U U S U R PN Z
"
1670DATA" aaeea ``cc` a N S R L I N
"
1680DATA1,0,4,6
1690DATA""
1700DATA"I U UI R S N Z ZN X X XW
"
1710DATA"Y S S S U U Z
"
1720DATA" aaeea ``cc` a N S R L I N
"
1730DATA1,0,4,6
1740DATA""
1750DATA"I U UI R S N Z ZN X X XW
"
1760DATA"Y S S U R PN Z
"
1770DATA" aaeea ``cc` a S R S R
"
1780DATA1,0,4,6
1790DATA""
1800DATA"I U UI R S N "
1810DATA"Y S S S U U "
1820DATA" aaeea ``cc` a "
1830DATA1,0,12,1
1840DATA""
1850DATA" Z ZN X X XW I I I I
I I I I "
1860DATA"
U"
1870DATA"N S R L I L I I IIL I I IIL I
I L I N I L I"
1880DATA1,0,4,0
1890DATA""
1900DATA"I U UI R S I U UI S S SR
"
1910DATA"P R P R S R P
M "
1920DATA"
"
1930DATA1,0,4,0
1940DATA""
1950DATA"I U UI R S I U UI S S SR
"
1960DATA"P R P R S R P
P "
1970DATA"
"
1980DATA1,0,4,0
1990DATA""
2000DATA"I U UI R S I U UI S S SR
"
2010DATA"P R P R S R P U
"
2020DATA"
"
2030DATA1,0,4,0
2040DATA""
2050DATA"I U UI R S I U UI S S SR
"
2060DATA"Y U U U Y U UUUUUUUU
U "
2070DATA"
"
2080DATA1,0,4,0
2090DATA""
2100DATA"A AHMA J K A AHMA J J JK
"
2110DATA"T V T V W V T
T "
2120DATA"
"
2130DATA1,0,4,0
2140DATA""
2150DATA"A AHMA J K A AHMA J J JK
"
2160DATA"T T V T V T W W V T
T "
2170DATA"
"
2180DATA1,0,4,0
2190DATA""
2200DATA"A AHMA J K A AHMA J J JK
"
2210DATA"T V T V W V T Y Y
"
2220DATA"
"
2230DATA1,0,4,0
2240DATA""
2250DATA"A AHMA J K A AHMA R P
"
2260DATA"]YW W Y Y Y ] Y ] W
"
2270DATA"
"
2280DATA1,0,0,0
2290DATA""
2300DATA"I U UI R S N Z ZN X X XW
"
2310DATA"
"
2320DATA"
"
2330DATA2,0,5,7
2340DATA""
2350DATA"I I I I I I D
D "
2360DATA"UUUUUUUUSSSSSSSSRRRRRRRRPPPPPP
PP"
2370DATA"U
"
2380DATA2,0,5,7
2390DATA""
2400DATA"I "
2410DATA"UUU"
2420DATA"U "
2430DATA2,0,5,4
2440DATA""
2450DATA" I I I I I D D "
2460DATA"UUUUUSSSSSSSSRRRRRRRRPPPPPPPP"
2470DATA"U` ½ ½ Z aaa "
2480DATA2,0,5,4
2490DATA""
2500DATA" I I I I I D D "
2510DATA"UUUUUSSSSSSSSRRRRRRRRPPPPPPPP"
2520DATA"U` ½ ½ Z aaaaaaaa"
2530DATA1,0,12,6
2540DATA""
2550DATA" I I I I I I I I
I I I I I I I I "
2560DATA"UU SSS
"
2570DATA"
G S G S "
2580DATA1,0,4,6
2590DATA""
2600DATA"I I I I I I I I
I I I I "
2610DATA"SSSSSSSSSSSSPPPPRRRRRRRRRRR
PPPPPPPPPPPP "
2620DATA"G S G S
G S G S "
2630DATA1,0,4,0
2640DATA""
2650DATA"I U J V K W L X "
2660DATA" P U Z "
2670DATA" "
2680DATA1,0,4,4
2690DATA""
2700DATA"O "
2710DATA"MMMO "
2720DATA"MMMO "
2730DEFPROCCH
2740VDU31,3,2,((C%+3) MOD 7)+145
2750VDU31,3,3,((C%+2) MOD 7)+145
2760VDU31,3,4,((C%+1) MOD 7)+145
2770VDU31,3,5,(C% MOD 7)+145
2780C%=C%+1
2790ENDPROC