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