0ON ERROR PROCend
8VDU23;8202;0;0;0;:PROCvaribles:PROC
envelopes:PROCfade`envelopes
9PROCp(4000)
11P$="0123456767896:4567675;;45<<456=
":PROCmusic
20PROCend
30DEFPROCp(t):FORY=1TOt:NEXT:ENDPROC
40DEFPROCvaribles:v=0:D=0:N=1:I=0:K=8
:T%=40:IFINKEY(-256)=253T%=T%+28
41FORC=0TO3:SOUNDC,0,0,1:NEXTC:DIMm$(
4),e$(4),S(3):ONERRORPROCend
42ENDPROC
56DEFPROCwhile`fade:FORU=1TO7:PROCfad
e2(2880,10):NEXT:ENDPROC
60DEFPROCmusic:FORJ=1TOLENP$:D%=ASCMI
D$(P$,J,1)-&30:R%=D%*80+400:RESTORE R%:P
ROCplay:NEXT:ENDPROC
70DEFPROCplay:FORX=0TO3:READm$(X):NEX
T:FORX=0TO3:READe$(X):NEXT:a=LENm$(0):b=
LENm$(1):c=LENm$(2):d=LENm$(3):IF b>a TH
EN len=b ELSE len=a
71IF c>len THEN len=c
72IF d>len THEN len=d
75FORL=1TOlen
100FORV=1TO3:P=4*ASCMID$(m$(V),L,1):IF
P<0 P=128
110E$=MID$(e$(V),L,1):IFE$=" "OR E$=""
S(V)=S(V):GOTO130
120S(V)=ASC(E$)-&40
130G%=V OR &200:G%=G% OR -&1000*(P=128
):P=P+K:SOUNDG%,S(V),P,1:NEXT
140P=ASCMID$(m$(0),L,1)-&30:IF P<0 P=-
16
145E$=MID$(e$(0),L,1):IF E$=" "OR E$="
"THEN D=D:GOTO 160
150D=ASC(E$)-&40
160SOUND-&1000*(P=-16),D,P,1
170FORB=1TOT%:NEXTB:NEXT:ENDPROC
200DEFPROCfade(QQ,F%):v=v+F%:RESTORE Q
Q:PROCfade`envelopes:PROCplay:ENDPROC
210DEFPROCfade2(QQ,F%):v=v+F%:RESTORE
QQ:PROCfade`envelopes2:PROCplay:ENDPROC
400DATA"6 6 6 6 6 6 6 6
"
410DATA""
420DATA""
430DATA""
440DATA"A"
450DATA""
460DATA""
470DATA""
480DATA"5 4 6 4 6 4 6 4 5
44"
490DATA""
500DATA""
510DATA""
520DATA"D B A B A B A B"
530DATA""
540DATA""
550DATA""
560DATA"6 444 446 444 446 444 446 444
44"
570DATA""
580DATA""
590DATA""
600DATA"A C B C A C B C A C B C A C B
C "
610DATA""
620DATA""
630DATA""
640DATA"6 444 446 444 446 444 4 5 44 5
66"
650DATA""
660DATA""
670DATA""
680DATA"A C B C A C B C A C B B
"
690DATA""
700DATA""
710DATA""
720DATA"4 4 446 444 446 444 446 444
44"
730DATA""
740DATA""
750DATA"F F F RRF F F RRF F F RRF F F
RR"
760DATA"D B C A C B C A C B C A C B
C "
770DATA""
780DATA""
790DATA"E"
800DATA"6 444 446 444 446 444 4 4 545
66"
810DATA""
820DATA""
830DATA"F F F RRF F F RRF F F RRF F F
RR"
840DATA"A C B C A C B C A C B"
850DATA""
860DATA""
870DATA"E"
880DATA"4 4 446 444 446 444 446 444
44"
890DATA"Y W V T R T V R"
900DATA"^ ^ ^ ^ ^ ^ Y Y [ [ Y Y ^ ^ ^
^ "
910DATA"F F F RRF F F RRF F F RRF F F
RR"
920DATA"D B C A C B C A C B C A C B
C "
930DATA"F"
940DATA"G"
950DATA"E"
960DATA"6 444 446 444 446 444 446 4 44
55"
970DATA"T V W T V T R Q R"
980DATA"Y Y Y Y ^ ^ W W ^ ^ Y Y ^ ^ ^
^ "
990DATA"F F F RRF F F RRF F F RRF F F
RR"
1000DATA"A C B C A C B C A C B C A B
"
1010DATA"F"
1020DATA"G"
1030DATA"E"
1040DATA"4 4 446 444 446 444 446 444
44"
1050DATA"T V W T V W Y T"
1060DATA"Y Y Y Y Y Y Y Y ^ ^ ^ ^ ^ ^ Y
Y "
1070DATA"A A A MMA A A MMF F F RRF F F
MM"
1080DATA"D B C A C B C A C B C A C B
C "
1090DATA"F"
1100DATA"G"
1110DATA"E"
1120DATA"6 444 446 444 446 444 446 444
45"
1130DATA"V X Y [ ] ^ ] [ Y"
1140DATA"^ ^ Y Y [ [ [ [ Y Y £ £ Y Y Y
Y "
1150DATA"F F F RRF F F RRA A A MMA A A
MM"
1160DATA"A C B C A C B C A C B C A C B"
1170DATA"F"
1180DATA"G"
1190DATA"E"
1200DATA"6 444 446 444 446 444 456 4455
66"
1210DATA"[ [ [ [ Y W V T R"
1220DATA"W W W W ^ ^ W W ^ ^ Y Y ^"
1230DATA"? ? ? KK? ? ? KKA A A MMF"
1240DATA"A C B C A C B C A C B D B"
1250DATA"F"
1260DATA"G"
1270DATA"E"
1280DATA"4 444 4 4 4
4 "
1290DATA"Y Y Y Y
R "
1300DATA"Q Q Q Q
J "
1310DATA"A A A MMA A A MMA A A MMA A A
FF"
1320DATA"D B D B D
B "
1330DATA"H"
1340DATA"H"
1350DATA"E"
1360DATA"4 6 556 6 55 6444 6 5 56 64 5
65"
1370DATA"Y Y Y Y
R"
1380DATA"Q Q Q Q
J "
1390DATA"A A A MMA A A MMA A A MMA A A
FF"
1400DATA"D K B D K B D K"
1410DATA"H"
1420DATA"H"
1430DATA"E"
1440DATA"6 444 446 444 446 444 454"
1450DATA"[ [ [ [ Y W V T R"
1460DATA"W W W W ^ ^ W W ^ ^ Y Y ^"
1470DATA"? ? ? KK? ? ? KKA A A MMF"
1480DATA"A C B C A C B C A C B D"
1490DATA"F"
1500DATA"G"
1510DATA"E
"
5550DEFPROCend:OSCLI("DRIVE2"):CHAIN"!M
AG"
6000DEFPROCtitle:ENDPROC
6050DEFPROCenvelopes:ENVELOPE3,1,0,0,0,
0,0,0,127,-15,-16,-17,100,0:ENVELOPE4,5,
0,0,0,0,0,0,127,-8,-7,-6,120,80:ENVELOPE
5,2,0,0,0,0,0,0,127,-20,-6,-4,120,60:ENV
ELOPE6,3,0,0,0,0,0,0,120,-16,-8,-4,120,1
00:ENVELOPE7,3,0,0,0,0,0,0,126,-20,-5,-3
,90,20
6060ENVELOPE12,3,0,0,0,0,0,0,126,0,-80,
-4,120,70:ENVELOPE13,2,0,0,0,0,0,0,127,-
1,-2,-4,114,14:ENVELOPE14,4,1,-1,1,1,2,1
,127,0,-2,-2,110,100:ENVELOPE15,2,0,0,0,
0,0,0,127,-1,-2,-4,100,30:ENVELOPE16,2,0
,0,0,0,0,0,126,-10,-50,1,126,10:ENDPROC
6070DEFPROCfade`envelopes:ENVELOPE1,1,0
,0,0,0,0,0,127,-30,-25,-1,126-v,20:ENVEL
OPE2,3,0,0,0,0,0,0,127,0,-15,-10,120-v,4
0-(v/2):ENVELOPE11,3,0,0,0,0,0,0,127,0,-
20,-8,126-v,40-(v/2):ENVELOPE8,7,0,0,0,0
,0,0,127,127,-20,-20,126-v,0
6080ENVELOPE9,2,0,0,0,0,0,0,127,-13,-12
,-11,80-v,70-v:ENVELOPE10,131,0,0,1,0,0,
1,127,-40,-10,-6,126-v,0:ENDPROC
6090DEFPROCfade`envelopes2:ENVELOPE1,1,
0,0,0,0,0,0,127,-30,-25,-1,126-v,20:ENVE
LOPE2,3,0,0,0,0,0,0,127,0,-15,-10,120-v,
40-(v/2):ENVELOPE 3,1,0,0,0,0,0,0,127,-1
5,-16,-17,100-v,0
6095ENVELOPE12,3,0,0,0,0,0,0,126,0,-80,
-4,120-v,70-v:ENVELOPE13,2,0,0,0,0,0,0,1
27,-1,-2,-4,114-v,14:ENDPROC
6100DEFPROChouse`envelopes:K=-24:ENVELO
PE1,1,0,0,0,0,0,0,127,0,-30,-4,122,10:EN
VELOPE2,1,0,0,0,0,0,0,127,0,-20,-5,122,3
0:ENVELOPE3,1,0,0,0,0,0,0,90,-30,-5,-6,1
00,0:ENVELOPE4,5,0,0,0,0,0,0,126,-3,-6,-
9,120,100:ENVELOPE5,2,0,0,0,0,0,0,126,-1
0,-60,-5,126,0
6110ENVELOPE6,130,1,0,-1,1,0,1,127,-20,
-5,-8,126,100:ENVELOPE7,3,0,0,0,0,0,0,12
7,0,-15,-5,126,100:ENVELOPE 8,131,-1,-1,
-1,40,20,10,126,-12,-6,-3,126,100:ENDPRO
C