Music1 ZooLook$Tocc2 $SetMIDI$rag $Pugwash$PugW2 $MIDIon/$MIDIon $MIDI/tx$MIDI/pi$MIDI/gi$MASH $Hello $Equix5 $ColdTea$Close $Cheers $Chariot$Char2-R$BlkWht $AxelF $Arpegia$ArenaII$ALL-C $!YesMID$!Boot $ d1Av~MA@# pAhMnAP1 hAMbA1[ApC Pp NA~ B00PJAVLAJA6 A" LAP1$ A@LtA_r//bA4]A BA vers*16 '"I am version ";vers;". This music is for"'"version ";(Flag%240)/16;". There might be something"'"I cannot do." ?30:(37-title$)/2)141title$'(37-title$)/2)141title$' ! stm%(15):A=015:stm%(A): > (Flag% 3) I=1 (Flag% 3): A$:((38- A$)/2);A$': 7vol=15:Tempo%=255:Key%=0: Delay%=0 Del%(packets) TMUS$(packets,vpp),Y%(vpp),E(packets,vpp),N(vpp):V=126: Delay%=0 del(packets) I=0vpp:Y%(I)=38: EnvNum>0 EnvFlg%: EnvFlg%=1 A=1 EnvNum/13: B,C,D,E,F,G,H,I,J,K,L,M,N: A,B,C,D,E,F,G,H,I,J,K,L,M,N: EnvNum>0 A=1 EnvNum: B: ' I=0 packets: Delay%=0 del(I) \ Flag%4 X%=0vpp:E(I,X%)::X%=0vpp:MUS$(I,X%): X%=0vpp:E(I,X%),MUS$(I,X%):  :  Start Playing: J%=1(Combination$) !D%=(Combination$,J%,1))-&30 ! D%>=0 play(D%) comm(D%)  "20,23)"Thanks for listening.":Z=(200):*FX15 # "HELLO" ,: 6comm(D%) @ D%=-3 vol=(vol-1)16: J D%=-5 vol=(vol+1)16: T4 D%=-11 vol=Combination$,J%+1,1)-48:J%=J%+1: ^%"I don't know a '";(D%+48);"'." h rplay(D%) |) Delay%=0 del%=del(D%) del%=Delay% L%=1MUS$(D%,0) T%=+del%:V%=0vpp 7PP%=(MUS$(D%,V%),L%,1)):P%=4*PP%: PP%="." d~A PP%=-1 d~A MB1%=stm%(E(D%,V%)):(B1%&20) N%=(15-(B1%&3C)2)*vol/15 N%=(B1%&3C)4 B%=(B1% 3) &010 "Y%(V%)<>0 31,Y%(V%),11+V%,32 $ PP%=32 Y%(V%)<>0 B%,0,101,0  PP%=32 Y%(V%)=0:d~A (B1%&C0)<>&C0 d~A B%,N%,P%,Tempo% 9 PP%>64 PP%<104 31,PP%-64,11+V%,255:Y%(V%)=PP%-64  >T%:T%=+del%:  : &# Music notes (octaves -2 to 2) 0: C#D#EF#G#A#B -2 ABCDEFGHIJKL :: C#D#EF#G#A#B -1 MNOPQRSTUVWX D: C#D#EF#G#A#B 0 YZ[\]^_`abcd N: C#D#EF#G#A#B 1 efghijklmnop X< C#D#EF#G#A#BC# 2 qrstuvwxyz{|}~ b: l: v: :  Data format:  Title$,Combination$ * voices per packet,packets,Delay,Flag  16 stream bytes  Number of envelope bytes  If (Flag AND 3)<>0 THEN , (Flag AND 3) extra printing strings ) If number of envelope bytes<>0 THEN ' Envelope flag: (1=BBC, 2=Amstrad) - Envelope bytes number of envelope bytes  ::: Music data  packets repeats of: # If Delay=0 THEN local delay   If (Flag AND 4)=1 THEN  vpp stream numbers   vpp music strings * Else 4 vpp repeats of: > stream number H music string R \% "All Creatures Great and Small" f "01234501234612017389:" p 3,10,0,0,0 z) 0,-3,-2,0,-17,0,0,0,0,0,0,0,0,0,0,0 :  0:  13 J 1,"k.....l.n.k.i.g.s...r.p.o.......pqpnl.k.i..gf.d.b..............."  2,"" J 4," V.[.]._...V...X.[`_.].S.Z._.].\._.X.V.T.].U.].V.]`_][ZXVTSQONL" J 5," T....... " :  1:  13 J 1," _ ` ` b b d ` b _ ` ] _....... _ ` ` b b d ` b _ ` ] [VXZ[]_`" J 2," [V] ]V_ _V`V]V_ [V]VZV[....... [V] ]V_ _V`V]V_ [V]VZV " J 4,"J.........................JONLJHJ....................... " J 5,"J.J.J.J.J.J.J.J.J.J.J.J.J. J.J.J.J.J.J.J.J.J.J.J.J.C "  2:  13 $ 1,"b_`bdfgi" . 2," " 8 4," " B 5," " L: V 3: ` 13 j2 1,"kgiklnpqp.......mikmnprsr.......rkmoprsu" t 2,"" ~ 5,"" 2 4,"O.V.[...TX[YXVTSQ.V.]...VZ][ZXVTR.Z._..."  4:  13 : 1,"skpskpskpskpskpskpskpskpusrpnmkip. g. i. d. `. " : 2," lkiigffdb`_]][ZX" : 4,"[.[.[.[.[.[.[.[.[.[.[.[.[.[.[.[.[. " : 5,"X.X.X.X.W.W.W.W.V.V.V.V.U.U.U.U.V. " :  5:  13  1,"ZVXZ[]_`b_`bdfgi"  2,"]. "  4,"J. "   5,"H. " :  6: ( 13 2 1,"Z..............." < 2,"]..............." F 5,"" P 4,"J.QTSQONLJHGECBH" Z: d 7: n 13 x 1,"b_`bdfgi"  2,""  5,""  4,"J...T..." :  8:  13 J 1,"skpskpskpskpskpsuipuipuivjpvjpvjwzxwusrpnlkigfdbfigfdb`_][ZXVTSQ" J 2,"_._._._._._._._.[.[.[.[.[.[.[.[._. T. " J 4,"X.X.X.X.V.V.V.V.T.T.T.T.U.U.U.U.V. J. " J 5,"[.[.[.[.[.[.[.[.X.X.X.X.X.X.X.X.[. Q. " :  9:  13 B 1," _ ` ` b b d ` b _ ` ] _....... _ ` ` b b d ` b _ ` ] " B 2," [V_ _V_ _V`V]V_ [V]VZV[....... [V] ]V_ _V`V]V_ [V]VZV" B 4,"J.........................JONLJHJ......................." "B 5,"C.C.C.C.C.C.C.C.C.C.C.C.C. J.J.J.J.J.J.J.J.J.J.J.J." ,: 6 :: (10) @ 17 J* 1,"[...............V..............." T* 2,"S...T...S...Q...O..............." ^* 4,"J...L...J...H...J..............." h* 5,"C...........H...C..............." : Altered to conform to the G-GROG standard :  Set up screen: ( : =17 TcA )&F0C0,0,0,0: Piano 27 <Q%=0:23;8202;0;0;0; F(31,0,11, A=17 TbA 0,24);(38);0,23);::" at line ";;" ";: MUS$(3),E(3),N(3) 7:23;2,53;0;0;0:X$=255 (23;8202;0;0;0; 2 intro < graphic F D^A P*1,1,0,0,0,0,0,0,121,-10,-5,-2,120,120 Za=1 ds=2 n A$,B$,C$,D$ x! A$="" B$="" C$="" TbA A=1 16 # (A$,A,1))=32 1,0,0,s:tj@ ! A$,A,1)="'" 1,a,5,s:tj@ 1,a,(A$,A,1)),s # (B$,A,1))=32 2,0,0,s:dH@ ! B$,A,1)="'" 2,a,5,s:dH@ 2,a,(B$,A,1)),s # (C$,A,1))=32 3,0,0,s:df@ $ C$,A,1)="'" 3,a,5,s:df@ 3,a,(C$,A,1)),s ' (D$,A,1))=32 0,0,0,s:TNA  D$,A,1)="*" 0,a,6,s  D$,A,1)="." 0,a,5,s  D$,A,1)="@" 0,a,4,s   Dn@ " -2,0,0,0 ,:0,24);" Thanks for listening ";:A%=(300) 690,24);" Why not now get the game?";:A%=(300) @: J "Hello" T ^" " h" " r" " |"* * @@ @@ * * @@" " "," "," ","* @ * @ "," "," "," ","* @ * @ * @ **@ "," Q Q ! ! "," = = = = = = ","! ! ! ! ! ! ! ! ","* @ * @ " " Q Q e e "," = = = = = = ","! ! ! ! ! ! ! ! ","* @ * @ * @ ****","5 5 5 5 5 5 5 5 ","5 5 5 5! ! ! ! ","5 5 5 51 1 1 1 "," ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II" " ","5 5 5 5 5 5 5 5 ","5 5 5 5! ! ! ! ","5 5 5 51 1 1 1 "," ","5 5 5 5 = = = = ","% % % %%- - - - ","5 5 5 55I I I II"," ","5 5 5 5 5 5 5 5 ","5 5 5 5! ! ! ! ","5 5 5 51 1 1 1 " "* * ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II","* * @@@@","5 5 5 5 5 5 5 5 ","5 5 5 5! ! ! ! ","5 5 5 51 1 1 1 ","* * ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II" "* * * * * * @@@@","A A A A = = = = ","' ' ' ' ' ' ' ' ","5 5 5 5 ! ! ! ! ","* @ * @ ","5 5 5 5 = = = = ","' ' ' ' ' ' ' ' ","% % % % - - - - ","* @ * @ ","A A A A = = = = ","' ' ' ' ' ' ' ' ","5 5 5 5 ! ! ! ! " "* @ * @ ","5 5 5 5 = = = = ","' ' ' ' ' ' ' ' ","% % % % - - - - ","* @ * @ "," e mq m e ","A A A A = = = = ","5 5 5 5 ! ! ! ! ","* @ * @ "," y qe q e q m ","5 5 5 5 = = = = ","% % % % - - - - " "* @ * @ "," e mq m e ","A A A A = = = = ","5 5 5 5 ! ! ! ! ","* @ * @ ","yqeqeqm ","5 5 5 5 = = = = ","% % % % - - - - ","* @ * @ "," e mq m e ","A A A A = = = = ","5 5 5 5 ! ! ! ! " "* @ * @ "," y qe q e q m ","5 5 5 5 = = = = ","% % % % - - - - ","* @ * @ "," e mq m e ","A A A A = = = = ","5 5 5 5 ! ! ! ! ","* @ * @ "," yqeqeqm","% % % % ! ! ! ! ","5 5 5 5 " "* @ * @@@@","","A A A A = = = = ","5 5 5 5 ! ! ! ! ","* @ * @ ","","% % % % ! ! ! ! ","5 5 5 5 = = = = ","* @ * @ ","","A A A A = = = = ","5 5 5 5 ! ! ! ! " "* @ * @ ","","% % % % ! ! ! ! ","5 5 5 5 = = = = ","* @ * @@@@"," ","A A A A = = = = ","5 5 5 5 ! ! ! ! ","* @ * @ "," ","% % % % ! ! ! ! ","5 5 5 5 = = = = " "* @ * @@@@"," ","A A A A = = = = ","5 5 5 5 ! ! ! ! ","* @ * @ "," ","% % % % ! ! ! ! ","5 5 5 5 = = = = ","* @ * @@@@"," "," "," " "* @ * @@@@"," "," "," ","* @ * @@@@"," "," "," ","* @ * @@@@"," "," "," " "* @ * @@@@","' ' ' ' ' ' ' ' "," "," ","* @ * @@@@","' ' ' ' ' ' ' ' "," "," ","* @ * @@@@","' ' ' ' ' ' ' ' "," "," " "* @ * @@@@","' ' ' ' ' ' ' ' "," "," ","* @ * @@@@","' ' ' ' ' ' ' ' "," "," ","* @ * @ ","' ' ' ' ' ' ' ' "," "," " "* @ @@@@....","5AQe5AQe!1=Q!1=Q","A A A A = = = = ","5 5 5 5 ! ! ! ! ","* @ * @ ","%5AU%5AU-=I]-=I]","5 5 5 5 = = = = ","% % % % - - - - ","* @ * @ ","5AQe5AQe!1=Q!1=Q","A A A A = = = = ","5 5 5 5 ! ! ! ! " c"* @ * @ ","%5AU%5AU-=I]-=I]","5 5 5 5 = = = = ","% % % % - - - - ","* @ * @ " &"5AQe5AQe!1=Q!1=Q"," "," ","* * ","%5AU%5AU-=I]-=I]"," "," ","* * ","5AQe5AQe!1=Q!1=Q"," "," ","* * " 0"%5AU%5AU-=I]-=I]"," "," ","* * ..@@","5AQe5AQe!1=Q!1=Q"," e mq m e ","5 5 5 5 ! ! ! ! " :"* @ * @ ","%5AU%5AU-=I]-=I]"," y qe q e q m ","% % % % - - - - ","* @ * @ "," e mq m e ","5AQe5AQe!1=Q!1=Q","5 5 5 5 ! ! ! ! ","* @ * @ ","%5AU%5AU-=I]-=I]","yqeqeqm ","% % % % - - - - " D"* @ * @ ","5AQe5AQe!1=Q!1=Q","' ' ' ' ","eeeeeeeeeeeeeeee","* * @ * * @ ","%5AU%5AU-=I]-=I]","emqemqemqemqemqe","% % % % - - - - ","* * @ * * @ ","5AQe5AQe!1=Q!1=Q","' ' ' ' ","eeeeeeeeeeeeeeee" N"* * @ * * @ ","%5AU%5AU-=I]-=I]","emqemqeqyqe]QIA5","% % % % - - - - ","* * @ * * @ ","yqe]e]QIA5-5!","5 5 5 5 ! ! ! ! "," ","* @ * @ ","% % % % - - - - ","% % % % - - - - ","% % % % - - - - " X"* @ * @ ","yqe]e]QIA5-5!","5 5 5 5 ! ! ! ! ","yqe]e]QIA5-5!","* @ * @ ","% % % % - - - - ","% % % % - - - - ","% % % % - - - = ","* @ * @ ","yqe]eyqe]e","yqe]eyqe]e","yqe]eyqe]e" b"* * ","yqe]eyqe]e","yqe]eyqe]e","yqe]eyqe]e","* * @@@@","e e e e Q Q QAQA","yqe]e]QIA5-5!","5 5 5 5 ! ! ! ! ","* @ * @ "," ","U U U U ] ] ]Q]Q","% % % % - - - - " l"* @ * @ ","yqe]e]QIA5-5!","5 5 5 5 ! ! ! ! ","e e e e Q Q QAQA","* @ * @ "," ","U U U U ] ] ]Q]Q","% % % % - - - - ","* @ * @ ","QQQ U Q ] a "," ","Q Q Q Q " v"* * ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II"," ","5 5 5 5 5 5 . ","5 5 5 5! ! ! ! ","5 5 5 51 1 1 1 "," ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II" " " "5 5 5 5 5 5 5 5 ","5 5 5 5! ! ! ! ","5 5 5 51 1 1 1 "," ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II"," @@@@","!!!!!!!!!!!!!!!!","!!!!!!!!!!!!!!!!","!!!!!!!!!!!!!!!!","* * " "!!!!!!!!11111111","!!!!!!!!========","!!!!!!!!!!!!!!!!","* * ","5 ","' ","e ","* * ","e ","e ","e "," * " "","","",""  graphic 0",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"; ,"Mad Rabbit Systems & Laser Present" 0",,,,,,,,,,The music from,,,,,,,,,,,,,"; 0" |4 ||||| ||||||h|||||0 |4 x||||0"; :" j"X$" ````"X$"5``````""`````! j"X$" ``````"; E" j5"X$"5 /%"X$X$X$X$X$X$"j"X$" "X$"5 j5"X$"5 o} j"X$; L" "X$"5j"X$" "X$X$X$X$X$" "X$"5 j"X$" "X$"5 "X$"5j"X$" ~?"; N"j"X$" "X$"5"X$"5 "X$"5"X$"5 j"X$" "X$"5j"X$" "X$"5 _~"X$"!"; L""X$"uppz"X$"j5 "X$"5"X$"uppppj"X$" "X$"e"X$"uppz"X$" p|"X$X$"qp";  0"//////%% /%//////*/ /*//////%//////"; -"Realm of Spinosity And Imbroglio..."  0",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"; *-"Funksome Programming....Ben Horsley" 4-"Frajsome Programming...........Joel" >-"Scrolltext.............James Coates" H-"Soundtracker Module....Hugo Fiennes" R-"BBC Micro Music................Joel" \-"Testing........Cat with QEGS Econet" f-"Structuring.............Andy & Ding" p1",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"; z-"Game available from Procrastinet PD" 3 PRINT"PLEASE PRESSESCAPETO CONTINUE...." 5",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"; ,"VERSION 5.6,,,,,,,,,Ludlow6thFm" 0",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,";   intro   '''' ԩ"󣣣㳣󑝠굠𠠠굠󑝗굠ﵯﵠ"; "󣠠굠󑝗" %'141;" presents" %141;" presents"  A=(300)   '''''' 1"_ppppppppppppppppppppppppppppppppppppp0"; $+" A Mad Rabbit Software Frajjing" .0" A Mad Rabbit Software Frajjing" 83"`````````````````````````````````````!"; BA=(200):: A=17 TbA  :dtA 7:C%(11) &F0C0,0,37,0 (23;8202;0;0;0::F%= 2I%=011:C%(I%)=(7): <I%=011:J%=12 F128+C%(I%),141 P)" .]_> A R P E G I A T O R <_[." Z ::Z1%=0 dY%=-8:T%=:D%=13:K%=-4 n%1,1,0,0,0,0,0,0,25,-4,0,-4,100,0 x$2,1,0,0,0,0,0,0,20,-3,0,-3,80,0 (3,1,1,0,0,1,0,0,126,-20,-4,-2,126,0 '4,1,0,0,0,0,0,0,126,-8,0,-2,126,64 ;L$=" " N$="CCCCCCOCCCOCFFCC" V$="1111111111211111" )D$="30033000004000003003300000000000" L%=-71:L1%=-74:E%=1 Q%=1153::I%=1N$ @L%=0L$="H J M H O OJ O M MJ M M OM H FH F F E C F " N%=N$,I%,1) V%=V$,I%,1)-48 R%=D$,E%,1)-48 P%=L$,L%,1) P1%=L$,L1%,1) M%=&12:P%=32L%<1M%=&1012 "M1%=&13:P1%=32L1%<1M1%=&1013 "!L%=L%+1:L%>0 L%=1+(L%-1)L$ ,%L1%=L1%+1:L1%>0L1%=1+(L1%-1)L$ 6E%=1+E%D$:N%=N%+12 @ T%=T%+D%:P%=P%+24:P1%=P1%+24 J>T%:F%=>T%+200 T&0011,V%,4*N%+Y%,1 ^&1001,0,0,4 hM%,1,4*P%+Y%,1 r&1002,0,0,4 |R%&0010,R%,4,1 &1000,0,0,4 M1%,2,4*P1%+Y%,1 &1003,0,0,4 ? F% 30:X%=011:U%=C%((X%+Z1%)12):U%+128,10,13,U%+128: ?(&7C28+X%*80)=U%:NEXT Z1%=(Z1%+1)12 L%<>9:::dtA K%=K%+1:K%=2Y%=-16 K%=3Y%=-36 K%=4Y%=-8 K%=K%4:::  -2,0,0,0  "Hello"  :dtA 7:C%(11) &F0C0,0,37,0 (23;8202;0;0;0::F%= 2I%=011:C%(I%)=(7): <I%=011:J%=12 F128+C%(I%),141 P)" .]_> A R P E G I A T O R <_[." Z ::Z1%=0 dY%=-8:T%=:D%=13:K%=-4 n%1,1,0,  :tdA $7:23;8202;0;0;0;:&F0C0,0,15,0 %''7);"'Axel-F', the theme from" ( F=1 2 287,5+F);132;157;141;"Beverly Hills Cop ";156 < F)''"By Micro Kid and his brother !!!" P02,21);"Please wait while data is set up" Z X=256 d,1,1,0,0,0,1,1,1,126,-30,-10,-1,126,-126 n(2,1,0,0,0,1,1,1,60,-30,-1,-1,127,90 x+3,1,0,0,0,1,2,2,126,-50,-5,-5,126,-126 %4,4,2,-2,0,1,1,1,0,0,0,0,126,126 .5,1,0,0,0,1,0,0,127,-100,-100,-70,75,-126 .6,1,0,0,0,1,2,2,126,-100,-10,-10,126,-126 T=0  pause=0:T%= A(4,X) E=14 F=1256 bass=1 A(E,F)   2,21);(39)  intro  whoosh1 " bassbit , tune 6 tune @ chords J chords T tune ^ Ab_major h chords r whoosh2 | quietbit  tune  lasttune ending:Q=(200) -2,0,0,0:"HELLO" sound(C,V) D=3:C1=C: C=5 C1=1 O=6: C=3 O=3  bass=1 C1=1 O=2  C1=2 A(C1,V)>200 O=5 " A(C1,V)=-1 A(C1,V)=999 O=0 , A(C1,V)>1000 O=4:A(C1,V)=A(C1,V)-1000 P=A(C1,V)+T  P=4 C=4 P=5:TRB  P=5 C=4 O=1:P=4  C1=C 3  C1<>0 C1=C1 &10 W &# pause >T%:T%=+D*5:pause=0 0C1,O,P,D: W+C1 : C>3 pause= D N&play(S,F): S=65 bass=0 bass=1 X H=S F b G=14 lsound(G,H) v   121,121,121,999,133,133,133,121,999,121,141,141,121,121,113,113,121,121,121,999,149,149,149,121,999,121,153,153,149,149,133,133,121,121,149,149,169,169,121,113,999,113,101,101,129,129,121,121,121,121,121,121,121,121,121,121,121,121 121,121,121,121,121,999 :  999,999,149,999,149,999,149,161,999,161,999,161,157,999,157,999,999,999,149,999,149,999,149,161,999,161,157,999,149,999,999,999,999,999,133,999,133,999,133,999,133,141,999,141,999,999,999,999,999,999 = 149,999,149,999,149,999,141,149,999,149,999,999,999,999 d-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 d-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 ڄ161,149,141,133,133,141,141,149,161,161,149,149,141,141,133,133,161,149,141,133,133,141,141,149,161,161,149,149,141,141,133,133 161,153,141,133,133,141,141,153,161,161,153,153,141,141,133,133,161,153,141,133,133,141,141,153,161,161,153,153,141,141,133,133 *************************************************************************************************************************************************************************************************************************************** : 217,-1,217,-1,209,217,-1,217,-1,217,217,217,209,217,-1,-1,217,209,217,229,237,229,217,209,217,209,217,229,237,229,217,209,217,-1,217,-1,209,217,-1,217,-1,217,217,217,209,217,-1,-1,217,209,217,229,237,229,217,209  $217,209,217,229,237,229,217,209  217,999,137,999,137,999,137,129,999,129,999,129,121,999,121,999,999,999,137,999,137,999,137,129,999,129,121,999,137,999,999,999,999,999,121,999,121,999,121,999,121,129,999,129,999,999,999,999,999,999  = 137,999,137,999,137,999,129,137,999,137,999,999,999,999 *133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999,133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999 4133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999,133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999 >133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999,133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999 H133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999,133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999 R: \*************************************************************************************************************************************************************************************************************************************** f25,999,999,999,73,999,999,65,999,65,53,999,5,999,17,999,25,999,999,999,73,999,999,999,999,65,53,999,65,999,73,999,9,999,999,999,57,999,999,65,999,65,53,999,65,999,25,999,73,999,999,999,999,999,999,999,999,65,53,999,45,999,37,999 p: z25,999,999,999,73,999,999,65,999,65,53,999,5,999,17,999,25,999,999,999,73,999,999,999,999,65,53,999,65,999,73,999,9,999,999,999,57,999,999,65,999,65,53,999,65,999,25,999,73,999,999,999,999,999,999,999,999,65,53,999,45,999,37,999 37,999,999,999,85,999,999,77,999,77,65,999,77,999,85,999,25,999,999,999,73,999,999,999,999,73,999,73,999,73,65,73,77,999,999,999,29,999,999,999,999,77,999,77,999,77,73,77,65,999,999,999,17,999,999,999,999,57,65,999,77,999,65,999 37,999,999,999,85,999,999,77,999,77,65,999,77,999,85,999,25,999,999,999,73,999,999,999,999,73,999,73,999,73,65,73,77,999,999,999,29,999,999,999,999,77,999,77,999,77,73,77,65,999,999,999,17,999,999,999,999,57,65,999,77,999,65,999 :  drums (yippee!) Y 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,6,6,-1,4,-1,-1,-1 W 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 W 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 W 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 W 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 W 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 S 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,4,6,6,-1,5,-1,5,5,5,4,4 K 6,-1,-1,-1,4,4,-1,6,-1,6,6,-1,5,5,5,5,5,5,4,4,4,4,6,6,6,6,4,4,4,4,4,4 RDATA 6,-1,-1,-1,4,4,-1,6,-1,6,6,-1,5,5,4,4,6,-1,-1,5,4,4,6,6,-1,6,6,5,4,4,4,4 :  tune  W=&200 $play(1,64) . 8: B intro LW=0 V F=157 `sound(5,F) j t+W=&0:F=5864:sound(1,F):sound(4,F): ~)wait:W=0:F=157:&02,5,250,1: &202 sound(1,F):sound(4,F)  :W=&200  :  chords  W=&200 play(65,128)  wait  : Ab_major  W=&200 !play(129,192):play(129,192)  !play(193,256):play(193,256)  : (quietbit 2W=0 < F=132 Fsound(2,F) P Z d: n bassbit xW=0  F=164 sound(3,F) sound(4,F)   wait  W=&200  :  ending  W=&100  F=13 E=57 64 sound(2,E) sound(3,E) sound(4,E)  " , F=1 2 6sound(2,F) @sound(3,F) Jsound(4,F) T ^ h: rlasttune | W=&200 play(1,56)  :  wait  -5=15  :  whoosh1  wait  vol=0 F=58 64 sound(3,F) sound(2,F) sound(5,F) 0,vol,4,D: &300  vol=vol-1 & 0F=-8 -15 -1 :0,F,4,D*2 D N wait X b: l whoosh2 v wait  D=D*2 F=-8 -15 -1  0,F,4,D 1,F,121,D 2,F,101,D 3,F,113,D   D=D/2   :tdA $7:23;8202;0;0;0;:&F0C0,0,15,0 %''7);"'Axel-F', the theme from" ( F=1 2 287,5+F);132;157;141;"Beverly Hills Cop ";156 < F)''"By Micro Kid and his brother !!!" P02,21);"Please wait while data is set  > BlkWht 7: :=17 end D%=-1:screen (A%=P+2000 2"LOAD rag "+~A% <*1,2,0,0,0,1,2,3,100,1,255,254,126,126 Fplay(A%+64,64,6) Pplay(A%+256,256,12) Z dplay(A%+256,256,12) nD% xend : play(S%,B%,C%): A%:A%=S% T%=+C%: ?A% &11,1,?A%,4 A%?B% &12,1,A%?B%,4 %?(A%+B%+B%) &13,1,?(A%+B%+B%),4 >T%:T%=+C% A%=A%+1:A%>=S%+B%  : end -1,0,0,0 "Hello"  screen  ' " For your edification...." "' " For your edification...." , 61 ""; @1 ""; J1 ""; T1 ""; ^1 ""; h "" r " " |# " " " " "  ""  " " # " " # " "  ""  , " Screen designed with !ABZ Editor"   > BlkWht 7: :=17 end D%=-1:screen (A%=P+2000 2"LOAD rag "+~A% <*1,2,0,0,0,1,2,3,100,1,255,254,126,126 Fplay(A%+64,64,6) Pplay(A%+256,256,12) Z dplay(A%+256,/// /!/ 0!`5 xyz{`L 0x/// /!(Ll/L5L 0L/0Lk09999 Q0`9 9 9 9`) Q0fjfjJJxHChA@@X`Z9p`JJJIн9999y99z99{99|99~9999`Jx `eppqp)8080ȱpȱpL;3e89999H9q9ḧ́99 09 <0p :xeppq`999->Em9ͅ999Ά9999Lv089·99Ά99ي89͂99L]1)y `errsr)8181ȱrȱrL;4e89999H,:9hͥ99! 09 <0rB:yerrs`9999)9Ξ99) m9m9L29ί9L2999m9m9Ϋ9L29m9m9ά9L29m9m9έ9L29m9m9ή9L29)! 0Lt2 0Lt299̪9 <0999->Em9ͦ999Χ9999Lv089Ψ99Χ99ي89ͣ99L3)z `ettut)8383ȱtȱtL;4e89999Hc:9h99B 09 <0ty:zettu`9999)9ο99) m9m9L499L4999m9m99L49m9m99L49m9m99L49m9m99L49)B 0L(4 0L(4999 <0999->Em99999999Lv0899999ي8999L4){ `evvwv)8L58M5ȱvȱvL;4e89999H:9h99c 09 <0v:{evvw` 0 <1 1 42 _3 3 59999)999) m9m9LM69m9m99LM69m9m99LM69m9m99LM69m9m99LM69)c 0L5 0L5999 <0999->Em99999999Lv0899999ي8999L~6ȱp,|ep:qi$:|L61pqL0|| :$:L6)`L0&9ʈL09L0q9L0}} S:[:Lo7)`,:ʈL1&襅rsL1ȱr,}erS:si[:}Lm7L1,:L19L1~~ ::L7)`c:ʈLj3&襅tuLu3ȱt,~et:ui:~L7Ll3c:Lj39Lj3 ::LI8)`:ʈL5&襅vwL)5ȱv,ev:wi:LG8L5:L59L566-766637777~7v77a7o79777g7Q7778777 8877X8P8t8;8I88z8n8A8+87n9Z{!Bc"DS#ˣ}Y8©{eQ>, Ƚ~wpjd^YTOKGC?;852/,*'%;<=> $*06g>j>j> g>g>g>j>j>g>j>v>g>g>>j> j> g>j> j> g>j> j> j>j>g>g>:;t; |;v>g>j>n>s>s>s>D>|>D>|>g>g>g>g>;:BlkWht #4  > BlkWht 7: :=17 end D%=-1:screen (A%=P+2000 2"LOAD rag "+~A% <*1,2,0,0,0,1,2,3,1  NEW CHARIOT  :"FX15":tj@  7:'' (* (141);" * Chariots of Fire *" 2/ (141);" * Chariots of Fire *" < '' F :"FX15":tj@ P */Char2-R d *FX14 4 n *CODE 1 x (0)="E" "HELLO" *A%=136:X%=2: (&FFF4 &FF00)=0 tV@ Dx@ " Finished." T=::>T+300 *CODE 0 *FX13,4 "HELLO"  NEW CHARIOT  :"FX15":tj@  7:'' (* (141);" * Chariots of Fire *" 2/ (141);" * Chariots of Fire *" < '' F :"FX  :TPP "Grafix By Martin Newham n7:X$=255 0"x|||||||||||||||||||||||||||||||||||||t"; 64" "X$" "X$" "X$"/40_ "X$" "X$ 4" "X$"}~"X$" "X$"`4ez "X$" "X$ 1" "X$"j5"X$"_0 `` ,& "X$" _0 "X$ b:" "X$" "X$"h4~"X$"4"X$"~}h"X$"} "X$"x4h4_p"X$ =" "X$" "X$"j5"X$" "X$" `j5"X$" "X$"o0j5"X$"`"X$ *:" "X$" "X$"j5o"X$"%"X$" *"X$"? "X$"""}j5o|o" 0"+/////////////////////////////////////'"; . 3,9)"CHEERS! (DRAGON AID)" : 3,10)"CHEERS! (DRAGON AID)"  " ================"   & "Modem Mania III :0495-247775" $$ '"Cardiff Itec :0222-464725" . '"MGBBS :0443-733343" 8, '"Hackers Revenge :NOT YET COMPLETE" V*|====================| *| Cheers music | *| | *| by Micro Kid | *| | J*| Written for dragon | *| AID on Musictel | *|====================| v *| Sorry it took so long, >*| I had company (!)  *| Micro kid 20/7/86 j D=3 2'1,1,0,0,0,1,1,1,60,-4,-1,-1,126,60 '2,1,0,0,0,1,1,1,60,-4,-1,-1,120,60 (3,1,0,0,0,1,1,1,60,-10,-6,-4,110,60 ^ N(3,256)  & F=13 E=1256 N(F,E) R  T%=+300: &F0C0,0,1,0 play(1,8) ~play(2,8) >T%:T%=+300 &201,1,125,2 F&202,1,29,2 &203,1,45,2  >T%  -2,0,0,0  "Hello" r play(ST,FS) :F%=ST FS play3(F%)  f  .play3(P) SN=(P-1)*32:SN=SN+1  BN=SN ZO1=2:O2=2:O3=2 P1=N(1,SN): P1=-1 O1=0 "P2=N(2,SN): P2=-1 O2=0 P3=N(3,SN): P3=-1 O3=0 >T%:T%=+D*5 &201,O1,P1,D N&202,O2,P2,D &203,O3,P3,D  SN=SN+1 z SN=BN+32  *FX15 1 B    29,-1,-1,-1,45,57,77,93 n 85,-1,85,-1,-1,-1,-1,-1  29,-1,-1,-1,45,57,77,93 6 85,-1,85,-1,-1,-1,-1,-1 # 105,105,105,105,-1,-1,105,105 ! 113,-1,105,105,-1,-1,105,-1 b" 105,-1,105,125,-1,125,133,-1  -1,-1,-1,-1,-1,-1,-1,-1 *# 105,105,105,105,-1,-1,105,113  -1,-1,121,-1,113,105,-1,-1 " 105,-1,105,125,-1,125,133,-1 V -1,-1,-1,-1,-1,-1,-1,-1  -1,-1,105,-1,105,-1,85,-1  81,-1,81,-1,85,-1,93,-1  97,-1,-1,-1,-1,-1,97,-1  97,-1,85,-1,93,-1,97,-1 J! -1,-1,105,-1,105,-1,105,113  -1,-1,105,-1,97,-1,93,-1  97,-1,-1,85,77,-1,-1,-1 v -1,-1,-1,-1,-1,-1,-1,-1 -1,-1,-1,-1,105,-1,105,113 !> -1,-1,105,-1,97,-1,93,-1 ! 97,-1,-1,85,77,-1,-1,-1 " -1,-1,-1,-1,-1,-1,-1,-1 "j! 105,105,105,105,-1,93,-1,85 " -1,77,77,-1,-1,-1,-1,-1 #2! 105,105,105,105,-1,85,-1,77 # -1,-1,-1,-1,-1,-1,-1,-1 #! 105,105,105,105,-1,93,-1,85 $^ -1,77,77,-1,85,-1,-1,-1 $ 77,-1,77,-1,45,57,77,93 %& 85,-1,85,-1,9,-1,-1,-1 % -1,-1,-1,-1,9,-1,-1,-1 % 37,-1,37,-1,-1,-1,-1,-1 &R -1,-1,-1,-1,9,-1,-1,-1 & 37,-1,37,-1,-1,-1,-1,-1 ' -1,-1,-1,-1,57,-1,-1,-1 '~ -1,-1,-1,-1,57,-1,-1,-1 ' -1,-1,-1,-1,57,-1,-1,-1 (F -1,-1,-1,-1,57,-1,-1,-1 ( -1,-1,-1,-1,57,-1,-1,-1 ) -1,-1,-1,-1,57,-1,-1,-1 )r -1,-1,-1,-1,57,-1,-1,-1 ) -1,-1,-1,-1,57,-1,-1,-1 *: 65,-1,-1,-1,65,-1,-1,-1 * 65,-1,-1,-1,65,-1,-1,-1 + 65,-1,-1,-1,65,-1,-1,-1 +f 65,-1,-1,-1,65,-1,-1,-1 + -1,-1,-1,-1,45,-1,-1,-1 ,. -1,-1,-1,-1,45,-1,-1,-1 , -1,-1,-1,-1,29,-1,-1,-1 , 25,-1,-1,29,-1,-1,37,-1 -Z -1,-1,-1,-1,45,-1,-1,-1 - -1,-1,-1,-1,45,-1,-1,-1 ." -1,-1,-1,-1,29,-1,-1,-1 . 25,-1,-1,29,-1,-1,37,-1 . -1,-1,-1,-1,73,-1,-1,-1 /N -1,-1,-1,-1,65,-1,-1,-1 / -1,-1,-1,-1,73,-1,-1,-1 0 -1,-1,-1,-1,65,-1,-1,-1 0z -1,-1,-1,-1,73,-1,-1,-1 0 65,-1,-1,-1,57,-1,-1,-1 1B 45,-1,45,-1,-1,-1,-1,-1 1 57,-1,57,-1,-1,-1,-1,-1 2  -1,-1,-1,-1,57,-1,-1,-1 2n 57,-1,57,-1,-1,-1,-1,-1 2 -1,-1,-1,-1,57,-1,-1,-1 36 57,-1,57,-1,37,-1,-1,-1 3 29,-1,-1,-1,45,-1,-1,-1 3 9,-1,-1,-1,37,-1,-1,-1 4b 29,-1,-1,-1,45,-1,-1,-1 4 9,-1,-1,-1,37,-1,-1,-1 5* 29,-1,-1,-1,45,-1,-1,-1 5 57,-1,-1,-1,37,-1,-1,-1 5 29,-1,-1,-1,45,-1,-1,-1 6V 57,-1,-1,-1,37,-1,-1,-1 6 57,-1,45,-1,57,-1,45,-1 7 33,-1,45,-1,33,-1,45,-1 7 -1,-1,-1,-1,-1,-1,-1,-1 7 -1,-1,-1,-1,-1,-1,-1,-1 8J 29,-1,-1,-1,57,-1,-1,-1 8 21,-1,-1,-1,57,-1,-1,-1 9 17,-1,-1,-1,49,-1,-1,-1 9v 9,-1,-1,17,-1,-1,25,-1 9 29,-1,-1,-1,57,-1,-1,-1 :> 21,-1,-1,-1,57,-1,-1,-1 : 17,-1,-1,-1,49,-1,-1,-1 ; 9,-1,-1,17,-1,-1,25,-1 ;j 9,-1,-1,-1,9,-1,-1,-1 ; 17,-1,-1,-1,45,-1,-1,-1 <2 9,-1,-1,-1,9,-1,-1,-1 < 17,-1,-1,-1,45,-1,-1,-1 < 9,-1,-1,-1,9,-1,-1,-1 =^ 1,-1,-1,-1,9,-1,-1,-1 = 29,-1,29,-1,-1,-1,-1,-1 >& 29,-1,29,-1,-1,-1,-1,-1 > *| Raise as Much as you can > *| James  :TPP "Grafix By Martin Newham n7:X$=255 0"x|||||||||||||||||||||||||||||||||||||t"; 64" "X$" "X$" "X$"/40_ "X$" "X$ 4" "X$"}~"X$" "X$"`4ez "X$" "X$ 1" "X$"j5"X$"_0 : Altered to conform to the G-GROG standard :  Set up screen: ( TlA 27 <Q%=0:23;8202;0;0;0; F(31,0,12,&94,31,0,13,&92,31,0,14,&91 Pd''131" # b # # b # b # # b # b # # b # "131"CCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABBCCD"30 Z End of screen set-up d: n@vers=1: title$,Combination$,packets,vpp,Delay%,EnvNum,Flag% x(Flag%240)>vers*16 '"I am version ";vers;". This music is for"'"version ";(Flag%240)/16;". There might be something"'"I cannot do." ?30:(37-title$)/2)141title$'(37-title$)/2)141title$' ! stm%(15):A=015:stm%(A): > (Flag% 3) I=1 (Flag% 3): A$:((38- A$)/2);A$': 7vol=15:Tempo%=255:Key%=0: Delay%=0 Del%(packets) TMUS$(packets,vpp),Y%(vpp),E(packets,vpp),N(vpp):V=126: Delay%=0 del(packets) I=0vpp:Y%(I)=38: EnvNum>0 EnvFlg%: EnvFlg%=1 A=1 EnvNum/13: B,C,D,E,F,G,H,I,J,K,L,M,N: A,B,C,D,E,F,G,H,I,J,K,L,M,N: EnvNum>0 A=1 EnvNum: B: ( I=0 packets: Delay%=0 del%(I) \ Flag%4 X%=0vpp:E(I,X%)::X%=0vpp:MUS$(I,X%): X%=0vpp:E(I,X%),MUS$(I,X%):  :  Start Playing: J%=1(Combination$) !D%=(Combination$,J%,1))-&30 ! D%>=0 play(D%) comm(D%)  :*FX15 ",0,23)"Thanks for listening.":Z=(200) , "Hello" 6comm(D%) @ D%=-3 vol=(vol-1)16: J D%=-5 vol=(vol+1)16: T4 D%=-11 vol=Combination$,J%+1,1)-48:J%=J%+1: ^%"I don't know a '";(D%+48);"'." h rplay(D%) |- Delay%=0 del%=del(packet) del%=Delay% L%=1MUS$(D%,1) T%=+del%:V%=1vpp 7PP%=(MUS$(D%,V%),L%,1)):P%=4*PP%: PP%="." djA "Y%(V%)<>0 31,Y%(V%),11+V%,32 ( PP%=32 Y%(V%)<>0 V%&10,0,101,0  PP%=32 Y%(V%)=0:djA 4B%=V% &10:B%=B%-&1000*(P%=128):P%=P%+(Key%*4) )N%=stm%(E(D%,V%)): N%<0 N%=N%/15*vol B%,N%,P%,Tempo% 9 PP%>64 PP%<104 31,PP%-64,11+V%,255:Y%(V%)=PP%-64   d~A MUS$(D%,0)=""&10-&1000*(MUS$(D%,1),L%,1)=" "),E(D%,0),3,Tempo% P%=(MUS$(D%,0),L%,1))-&30:&10-&1000*(P%=-16),E(D%,0),P%,1 >T%:T%=+del%:  : # Music notes (octaves -2 to 2) &: C#D#EF#G#A#B -2 ABCDEFGHIJKL 0: C#D#EF#G#A#B -1 MNOPQRSTUVWX :: C#D#EF#G#A#B 0 YZ[\]^_`abcd D: C#D#EF#G#A#B 1 efghijklmnop N< C#D#EF#G#A#BC# 2 qrstuvwxyz{|}~ X: b: l: v:  Data format:  Title$,Combination$ * packets,voices per packet,Delay,Flag  16 stream bytes  Number of envelope bytes  If (Flag AND 3)<>0 THEN , (Flag AND 3) extra printing strings ) If number of envelope bytes<>0 THEN ' Envelope flag: (1=BBC, 2=Amstrad) - Envelope bytes number of envelope bytes  ::: Music data  packets repeats of: # If Delay=0 THEN local delay  If (Flag AND 4)=1 THEN   vpp stream numbers  vpp music strings  Else * vpp repeats of: 4 stream number > music string H R "Close to the Edit" \7 "91012323854=>7D3<854=>7:;>>@@6C?E91D3:;:;ABFGFG" f 23,3,13,117,6 pE -15,-15,-15,-15,-15,-15,-15,-15,-15,-15,-15,-15,-15,-15,-15,-15 zD "by The Art of Noise","Originally arranged by Laurence Fenn"  1 & 3,-1,1,0,2,2,0,120,-2,-2,-2,96,0 & 1,0,0,0,0,0,0,100,0,0,-1,106,126 ) 2,0,48,-48,5,1,1,110,-1,-2,-3,126,0 % 2,0,0,0,0,0,0,80,60,0,-2,86,106 ' 1,0,0,0,0,0,0,126,-10,-6,-1,126,0 * 3,0,-1,0,16,12,120,126,-3,0,-1,126,0 ( 1,0,0,0,0,0,0,126,-20,-10,-4,126,0 # 1,0,0,0,0,0,0,90,0,-1,-1,96,0 % 1,0,0,0,0,0,0,70,-1,-1,-1,116,0  0,5,4,4 "" '"@LDLGLI J I GED@@LDLGLI J IIGED@" '" X S O " '" U P L " &:::::::::::::::::::::::::::::::::: $ 0,5,5,5 ."" 8'"EQIJLEN O NELJI@EEIJLEN O NELJIG" B'" " L'" " V&:::::::::::::::::::::::::::::::::: ` 7,5,4,4 j'"6 4 6 6 4 6 6 4 6 6 64 6 " t'"@LDLGLI J I GED@@LDLGLI J IIGED@" ~'" X S O " '" U P L " &::::::::::::::::::::::::::::::::::  7,5,5,5 '"6 4 6 6 4 6 6 4 6 6 64 6 " '"EQIJLEN O NELJI@EEIJLEN O NELJIG" '" " '" " &::::::::::::::::::::::::::::::::::  7,2,3,5 '"6 4 6 6 4 6 6 4 6 6 64 6 " '"L L LL J I G L J I G " '" X X X X " '" "  &::::::::::::::::::::::::::::::::::  7,2,3,1 '"6 4 6 6 4 6 6 4 6 6 64 6 " ('"J J L " 2'" V V X X " <'" Q Q ] " F&:::::::::::::::::::::::::::::::::: P 7,2,2,2 ZG"6 4 6 6 4 6 6 4 6 6 64 6 6 4 6 6 4 6 6 4 6 6 64 6 " dG"@L L L GED@ L L L GED@ L J E EGED@ L L L " nG" X S X VVVV " xG" [ V [ ZZZZ LNOQ" &::::::::::::::::::::::::::::::::::  7,2,5,2 G"6 6 6 6 6 6 6 6 6 6 6 6 6 6 446 446 " G"@@@@@@@@@@@@@@@@GGGGGGGGGGGGGGGGHHHHHHHHHHHHHHHHJJJJJJJJJJJJJJJJ" G" QSL QSLQSUX[ QSL QSLQSUX[ QSL QSLQSUX[ QSL QSLQSUX[ " G" " &::::::::::::::::::::::::::::::::::  7,2,3,5 '"6 4 6 6 4 6 6 4 6 6 64 6 " '"L L LL J I G L " '" X X X X " '" " &::::::::::::::::::::::::::::::::::  0,5,4,4 "" '"@LDLGLI J I GED@@LDLGLI J IIGED@" "'" " ,'" " 6&:::::::::::::::::::::::::::::::::: @ 7,5,8,4 J'"6 4 6 6 4 6 6 4 6 6 64 6 " T'"@LDLGLI J I GED@@LDLGLI J IIGED@" ^'"khd_\XSPL khd_\XSPL " h'" " r$:::::::::::::::::::::::::::::::: | 7,5,8,4 '"6 4 6 6 4 6 6 4 6 6 64 6 " '"EQIJLEN O NELJI@EEIJLEN O NELJIG" '"mida]XUQL " '" " $::::::::::::::::::::::::::::::::  7,9,9,2 H"6 4 6 6 4 6 6 4 6 6 64 6 6 4 6 6 4 6 6 4 6 6 64 6 6" H"X X X X W W W W V V V V W W W W X" H"Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z" H" L" %:::::::::::::::::::::::::::::::::  7,2,3,1 3"6 4 6 6 4 6 6 4 6 6 64 6 6 4 6 4444" 3"J J L " 3" V V X X " 3" Q E Q E Q E ] " &$:::::::::::::::::::::::::::::::: 0 3,3,3,3 : "5 " D " " N " " X " " b$:::::::::::::::::::::::::::::::: l 7,2,2,2 vG"6 4 6 6 4 6 6 4 6 6 64 6 6 4 6 6 4 6 6 4 6 6 64 6 " G"@L L L GED@ L L L GED@ L J E EGED@ L L L " G"SSSSSSSS O ZZZ VVVVVVVVVV LNOSQQQQQQQQQQSSQQQQOOOOOOOOO " G"SSSSSSSS O VVV SSSSSSSSSS LNOSQQQQQQQQQQOONNNNLLLLLLLLL " $::::::::::::::::::::::::::::::::  7,2,2,2 G"5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 " G"@L L L GED@ L L L GED@ L J E EGED@ L L L " G" X S X VVVV " G" [ V [ ZZZZ " &::::::::::::::::::::::::::::::::::  5,0,8,4 "" '"@LDLGLI J I GED@@LDLGLI J IIGED@" '"khd_\XSPL khd_\XSPL "  '" " $::::::::::::::::::::::::::::::::  5,0,8,4 *"" 4'"EQIJLEN O NELJI@EEIJLEN O NELJIG" >'"mida]XUQL " H'" " R#::::::::::::::::::::::::::::::: \ 7,2,2,2 fG"6 4 6 6 4 6 6 4 6 6 64 6 6 4 6 6 4 6 6 4 6 6 64 6 " pG"@L L L GED@ L L L GED@ L J E EGED@ L L L " zG" X S X VVVV " G"SSSSSSSS O VVV SSSSSSSSSS LNOSQQQQQQQQQQOONNNNLLLLLLLLL LNOQ" &::::::::::::::::::::::::::::::::::  7,5,0,0 '"6 4 6 6 4 6 6 4 6 6 64 6 " '"@LDLGLI J I GED@@LDLGLI J IIGED@" '" X S O " '" U P L " &::::::::::::::::::::::::::::::::::  7,2,0,0 G"6 6 6 6 6 6 6 6 6 6 6 6 6 6 446 446 " G"@@@@@@@@@@@@@@@@GGGGGGGGGGGGGGGGHHHHHHHHHHHHHHHHJJJJJJJJJJJJJJJJ" G" QSL QSLQSUX[ QSL QSLQSUX[ QSL QSLQSUX[ QSL QSLQSUX[ " G" " &::::::::::::::::::::::::::::::::::  5,0,0,0 "" $'"@LDLGLI J I GED@@LDLGLI J IIGED@" .'"khd_\XSPL khd_\XSPL " 8'" " B#::::::::::::::::::::::::::::::: L 5,0,0,0 V"" `'"EQIJLEN O NELJI@EEIJLEN O NELJIG" j'"mida]XUQL " t'" " ~#::::::::::::::::::::::::::::::: Cheers #  :TPP "Grafix By Martin Newham n7:X$=255 7:DL=15:G%=-1  23;8202;0;0;0; (A$="COLD TEA" 22132,157,141,129:9)157131" "A$" "132157 <2132,157,141,129:9)157131" "A$" "132157 F@10,3)141"Devised by R.Cope."'10)141"Devised by R.Cope." P%7)133"From the original work:" Z.4,7)130"'Cold Tea' by Andrew Robinson." dd''131" b # b # # b # b # # b # b # # b "131"ABBCCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABB"30 i.0,12);&84'&86;&9D'&82'&86;&9D'&81 n)I%=0:1,1,0,0,0,4,4,4,40,0,0,-3,128,1 x%2,1,0,0,0,2,2,1,120,0,0,-2,128,1 tV@ A$:I%=I%+1:tL@ Q%=(I%-2)/3-1  112211221134=54>6789:>;9:< 00000000001111100000000001 R$,RT$  ** VOICE 1 ** "0GGSSNNQQGGSSNNQQ" ("0@@LLGGJJBBNNIILLCCOOJJOOEEQQLLQQ" ("0JJVVJJVVJJVVJJVVEEQQEEQQEEQQEEQQ" "0CCOOCCOOEEQQEEQQ" ("0JJVVJJVVJJVVJJVVEEQQEEQQEEQQEEQQ" "0FFFFFFFFFFFFFFFF" "0EEEEEEEEEEEEEEEE" "0DDDDDDDDDDDDDDDD" ""0CCCCCCCCCCCCCCCC" ,"0BBBBBBBBBBBBBBBB" 6"0EEEEEEEEEEEEEEEE" @"0GGGGGGGGGGGGGGGG" J"0JJVVJJVVJJVVJJVV" T"0GGGGGGGGGGGGGGGG" ^ ** VOICE 2 ** h"0VNVNUNUVNVVNUNUN" r("1GCGLCGJCIBGIGBFBGCGNCGLCI@GIG@E@" |("1NNJEEBEJNNOONLJJLLIEE@EILLNNLJII" "1GCGJOJGCIEILJJII" ("1NNJEEBEJNNOONLJJQLIEE@EILLNNLJII" "0VNVNUNUVNVVNUNUN" "0VNVNUNUVNVVNUNUN" "0VPVPUPUVPVVPUPUP" "0VOVOUOUVOVVOUOUO" "0BNSUZUSNBNRUZURN" "1JEJEIEIJEJJEIEIE" "1GJNSNJGGGGGGGGGG" "1NNJEEBEJNNJJEEBB" "0VNVNUNUVNVVNUNUN"  ** VOICE 3 ** "0ZNZNXNXZNZZNXNXN" ("1GCGLCGJCIBGIGBFBGCGNCGLCI@GIG@E@" ("1NNNJJEBEJJOONLJJLLLIIE@ELLNNLJII" "1GGCGJOJGCIEILLJI" &("1NNNJJEBEJJOONLJJQQLIIE@ELLNNLJII" 0"0ZNZNXNXZNZZNXNXN" :"0ZNZNXNXZNZZNXNXN" D"0ZPZPXPXZPZZPXPXP" N"0ZOZOXOXZOZZOXOXO" X"0BBBGINIGBBBFINIF" b"1LELELELLELLELELE" l"1JNSVSNJJJJJJJJJJ" v"1NNNJJEBEJJNNEEBB" "0ZNZNXNXZNZZNXNXN" A$(Q%,2),OCT%(2),Y%(2) I=02:Y%(I)=&7FFF: I%=02:J%=0Q% A$(J%,I%)::  TQ=+DL 0,22);::tDC  &F0C0,0,3,0 B%=1(R$) V%=1-(RT$,B%,1)="1") R%=R$,B%)-49  I%=02 OCT%(I%)=48*A$(R%,I%): I=2A$(R%,0) >=TQ:TQ=+DL  J=02:Y%(J),16-J*2);156;  W$=A$(R%,J),I,1) +Y%(J)=W$-60:Y%(J),16-J*2);157;156; *J+1,V%,OCT%(J)+4*W$,1 4 :: >R=1500:  -2,0,0,0:"HELLO" 7:DL=15:G%=-1  23;8202;0;0;0; (A$="COLD TEA" 22132,157,141,129:9)157131" "A$" "132157 <2132,157,141,129:9)157131" "A$" "132157 F@10,3)141"Devised by R.Cope."'10)141"Devised by R.Cope." P  "Equinoxe No. Cinq" TITLE$="EQUINOXE PART 5" " :df@ (7 223;8202;0;0;0; < title =*3,6);"Written by Jean-Michel Jarre" A=0 FTempo%=1:Key%=0:Delay%=17 P"MUS$(3),Y%(3),E(3),N(3):V=126 Q(31,0,12,&94,31,0,13,&92,31,0,14,&91 RTEMP=1:DEL=1 SI=13:Y%(I)=38: Ud''131" # b # # b # b # # b # b # # b # "131"CCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABBCCD"30 Z*1,10,0,0,0,0,0,0,120,-10,0,-28,120,56 d02,1,0,0,0,0,0,0,120/1,0/1,0/1,-120/80,120,0 n(3,1,0,0,0,0,0,0,100,60,0,-1,100,126 x&4,1,0,0,0,0,0,0,127,0,0,0,127,127 (5,1,0,0,0,0,0,0,126,-12,-6,-2,126,0 +6,3,0,-1,0,16,12,120,126,-3,0,-1,126,0 )7,1,0,0,0,0,0,0,110,-20,-10,-4,110,0 =Combination$="000000012123123456571212345657121233888888" J%=1(Combination$) !D%=(Combination$,J%,1))-&30 REL%=D%*60+420  REL%:P(D%)  &"Thanks for listening.":Z=(200) "HELLO"  P(D%) PRINT"Parcel ";D% X%=03:E(X%): X%=03:MUS$(X%): PRINT"Start of MUS$:" L%=1MUS$(1) ,T%=+Delay% 6 V%=13 @#PP%=(MUS$(V%),L%,1)):P%=4*PP% JB%=V% &200 TB%=B%-&1000*(P%=128) ^P%=P%+(Key%*4) hB%,E(V%),P%,Tempo% i31,Y%(V%),11+V%,32 k9 PP%>64 PP%<106 31,PP%-64,11+V%,255:Y%(V%)=PP%-64 r |oMUS$(0)=""-&1000*(MUS$(1),L%,1)=" "),E(0),3,Tempo% P%=(MUS$(0),L%,1))-&30:-&1000*(P%=-16),E(0),P%,1  >T%:   $ Music notes (octaves -2 to 2) ; C#D#EF#G#A#B -2 ABCDEFGHIJKL ; C#D#EF#G#A#B -1 MNOPQRSTUVWX ; C#D#EF#G#A#B 0 YZ[\]^_`abcd ; C#D#EF#G#A#B 1 efghijklmnop ; C#D#EF#G#A#B 2 qrstuvwxyz{|  ENVELOPE NUMBERS (410..)  1,1,-15,-15  " 4 4 4 4 "  " HT HHTH HT HHTH"  " "  " " :  1,1,2,3 ( " 4 4 4 4 4 4 4 4 " ( " HT HHTH HT FFRF FR FFRF FR FFRF" ( " [Y [Y [Y XX VVVVVVVVVVVVVVVV " ( "[Y [Y [Y XX VVVVVVVVVVVVV " :  1,1,2,3 &( " 4 4 4 4 4 4 4 4 " 0( " FR FFRF FR MMYM MY MMYM MY MMYM" :( " YX YX YX VV TTTTTTTTTTTTTTTT " D( "YX YX YX VV TTTTTTTTTTTTT " N: X 1,1,2,3 b@ " 4 4 4 4 4 4 4 4 4 4 4 4 4 4 " l@ " MY MMYM MY MMYM HT HHTH HT HHTH HT MMYM MY MMYM MY MMYM" v@ " QQ RR TT VV TT XX X XVV TT RR RR TT RR QQQQQQQQQQQQ " @ "QQ RR TT VV TT XX X XVV TT RR RR TT RR QQQQQQQQQ " :  1,1,4,4 $ " 4 4 4 4 4 4 4 " $ "MMY MYMYMMY MYMYMMY MYMYMMY " $ " cc bb ``` ^` cc bb ` YYY " $ "cc bb ``` ^` cc bb ` YYY Y " :  1,1,4,4 $ " 4 4 4 4 4 4 4 " $ "MMY MYMYMMY MYMYMMY MYMYMMY " $ " cc bb ``` ^` cc bb ```` " $ "cc bb ``` ^` cc bb ```` " :  1,1,4,4 8 " 4 4 4 4 4 4 4 4 4 4 4 4 "  8 "FFR FRFRFFR FRFRFFR FRFRFFR FRFRFFR FRFRFFR FRFR" *8 " cc bb ee cc gg ee bbbbb cc bb ee cc gg ee bb `" 48 "cc bb ee cc gg ee bbbbb cc bb ee cc gg ee bb `` " >: H 1,1,-15,-15 R " 4 " \ "MYMY" f " " p " " z:  1,1,-15,5  " 4 4 4 4 "  " MY MMYM MY MMYM"  " EE HH FF EEEE "  "YeYeYYeYYeYeYYeY"  "HELLO3" title ; (34-TITLE$)/2)141TITLE$'(34-TITLE$)/2)141TITLE$ '" Arranged by G. Heslington." 1,6)(26)   "Equinoxe No. Cinq" TITLE$="EQUINOXE PART 5" " :df@ (7 223;8202;0;0;0; < title =*3,6);"Written by Jean-Michel Jarre" A=0 FTempo%=1:Key%=0:Delay%=17 P"MUS$(3),Y%(3),E( ( pn$(40),name$(40),title$(40):*FX15 *K.10OLD|MRUN|M  *EXEC ( TXA 2.N$="Music":A%=0:Y%=0:E%=0:fs%=(&FFDA)&FF <-2,0,0,0:7: (-1) Z%=0 Fc 131141 N$" programs"' 131141 N$" programs"' 129" _____________________________________" P/132157"Press ESCAPE to return to LOGO" Z dCI%=0:: name$(I%),title$(I%):I%=I%+1:name$(I%-1)="*":max=I%-2 nQ I%=0 max:129;(65+I%);130;name$(I%);28);134;"(";title$(I%),8);")": xH:"Press the LETTER of your program"'"Or@for a random demo:"; <: Z%=&A00 A=64+(max+1) Z%=&A01 A=W%+1 A= &DF " A=64 Z%=&A00+0*(-)+0*(10) ! A>0 A<=max Z%=&A01:A=A+64  Z%=&A00 A=W% A=0  Z%=&A01 W%=max-65 Z%=0 A>64 A<66+max:W%=A 129,A:A=A-65 A:141;131;name$(A)" loading"'141;131;name$(A)" loading"; ' fs%=4 title$(A),7) title$(A)  ] Chariots of Fire,Chariot,All Creatures Theme,ALL-C,M*A*S*H,MASH,Beverly Hills Cop,AxelF G Equinoxe 5,Equix5,ZooLook,ZooLook,Sky Toccatta with display,Tocc2 m Arpegiator,Arpegia,Cheers Theme,Cheers,Cold Tea,ColdTea,Close to the Edge,Close,Captain Pugwash,Pugwash 5 Black & White Rag,BlkWht,Arena II Theme,ArenaII C Captain Pugwash Remix!,PugW2,*** Turn MIDI On ***,SetMIDI,*,* :Z%=0::-1: "up%=: up%=: ,up%:"DIR ^":"Hello" 6fs%=5:"VData 3049" @ ( pn$(40),name$(40),title$(40):*FX15 *K.10OLD|MRUN|M  *EXEC ( TXA 2.N$="Music":A%=0:Y%=0:E%=0:fs%=(&FFDA)&FF <-2,0,0,0:7: (-1) Z%=0 Fc 131141 N$" progr : Altered to conform to the G-GROG standard :  Set up screen: ( : =17 TcA )&F0C0,0,7,0: Harmonica 27 <Q%=0:23;8202;0;0;0; F431,0,11,&96,31,0,12,&94,31,0,13,&92,31,0,14,&91 Pd''131" # b # # b # b # # b # b # # b # "131"CCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABBCCD"30 Z End of screen set-up d: n@vers=1: title$,Combination$,vpp,packets,Delay%,EnvNum,Flag% x(Flag%240)>vers*16 '"I am version ";vers;". This music is for"'"version ";(Flag%240)/16;". There might be something"'"I cannot do." ?30:(37-title$)/2)141title$'(37-title$)/2)141title$' ! stm%(15):A=015:stm%(A): > (Flag% 3) I=1 (Flag% 3): A$:((38- A$)/2);A$': 7vol=15:Tempo%=255:Key%=0: Delay%=0 Del%(packets) TMUS$(packets,vpp),Y%(vpp),E(packets,vpp),N(vpp):V=126: Delay%=0 del(packets) I=0vpp:Y%(I)=38: EnvNum>0 EnvFlg%: EnvFlg%=1 A=1 EnvNum/13: B,C,D,E,F,G,H,I,J,K,L,M,N: A,B,C,D,E,F,G,H,I,J,K,L,M,N: EnvNum>0 A=1 EnvNum: B: ' I=0 packets: Delay%=0 del(I) \ Flag%4 X%=0vpp:E(I,X%)::X%=0vpp:MUS$(I,X%): X%=0vpp:E(I,X%),MUS$(I,X%):  :  Start Playing: J%=1(Combination$) !D%=(Combination$,J%,1))-&30 ! D%>=0 play(D%) comm(D%)  "20,23)"Thanks for listening.":Z=(200):*FX15 # "HELLO" ,: 6comm(D%) @ D%=-3 vol=(vol-1)16: J D%=-5 vol=(vol+1)16: T4 D%=-11 vol=Combination$,J%+1,1)-48:J%=J%+1: ^%"I don't know a '";(D%+48);"'." h rplay(D%) |) Delay%=0 del%=del(D%) del%=Delay% L%=1MUS$(D%,0) T%=+del%:V%=0vpp 7PP%=(MUS$(D%,V%),L%,1)):P%=4*PP%: PP%="." d~A PP%=-1 d~A MB1%=stm%(E(D%,V%)):(B1%&20) N%=(15-(B1%&3C)2)*vol/15 N%=(B1%&3C)4 B%=(B1% 3) &010 "Y%(V%)<>0 31,Y%(V%),11+V%,32 $ PP%=32 Y%(V%)<>0 B%,0,101,0  PP%=32 Y%(V%)=0:d~A (B1%&C0)<>&C0 d~A B%,N%,P%,Tempo% 9 PP%>64 PP%<104 31,PP%-64,11+V%,255:Y%(V%)=PP%-64  >T%:T%=+del%:  : &# Music notes (octaves -2 to 2) 0: C#D#EF#G#A#B -2 ABCDEFGHIJKL :: C#D#EF#G#A#B -1 MNOPQRSTUVWX D: C#D#EF#G#A#B 0 YZ[\]^_`abcd N: C#D#EF#G#A#B 1 efghijklmnop X< C#D#EF#G#A#BC# 2 qrstuvwxyz{|}~ b: l: v: :  Data format:  Title$,Combination$ * voices per packet,packets,Delay,Flag  16 stream bytes  Number of envelope bytes  If (Flag AND 3)<>0 THEN , (Flag AND 3) extra printing strings ) If number of envelope bytes<>0 THEN ' Envelope flag: (1=BBC, 2=Amstrad) - Envelope bytes number of envelope bytes  ::: Music data  packets repeats of: # If Delay=0 THEN local delay   If (Flag AND 4)=1 THEN  vpp stream numbers   vpp music strings * Else 4 vpp repeats of: > stream number H music string R \ "M*A*S*H" f "%<0123123123123123124" p 3,4,22,0,0 z( 0,0,-1,-2,0,-3,0,0,0,0,0,0,0,0,0,0  0:  2,"_dgf...d_dgf..b."  3,"_.._...._.._.. "  4,"[..[....[..[.. "  5,"L.....S.L...X. "  1: W 2,"`._`._.`._.]...._.]_.]._.].[.. _].[].[.].[.Z.. ][.Z[.Z.[.]._..............b. " W 3,"[..[...Z...Z....[..[...[...[.. X..X...[.. Z.. V. V.. V. ].VZ]VZ]V\..\.\\. " W 4,"X..X...V...T....V..V...X...X.. T..T...T...T.. S. S.. S. V..V.VV. " W 5,"EL..Q...J...JQ.JCJ..O...L...L.L.EJ..Q...J...J.J.CJ..O...L...L...L...L..L.LL. "  2: : 2,"d.bd.b.d.b.. b.d.bd.b.d.b.. b._.bd.g.i.g.d.b.d" : 3,"`..`...`.... _.._..._.... [..b...d...`..._" : 4,"[..[...Z.... [..[...[.... X..[...b...Z...d" : 5,"EL..Q...J...JQ.JCJ..O...L...L...HH..G...E...J..."  3: $ 2,"..............b." . 4,"_. _. " 8 3,"[X[Z...X[X[Z.. " B 5,"L...L.E.L..S.. " L 4: VJ 2,"d.............b._.b.d.g.i.[.d.b.d..............................." `J 3,"_. _. X...[...`...]..._. _. _. _......." jJ 4,"[X[Z...X[X[Z.. O...V...Q...T...[X[Z...X[X[Z...X[X[Z.. [......." tJ 5,"L...L.E.L..S.. H...G...E...J...L...S.G.L...S.G.L...S...L......." : Altered to conform to the G-GROG standard :  Set up screen: ( : =17 TcA )&F0C0,0,7,0: Harmonica 27 <Q%=0:23;8202;0;0;0; FGIF89a,@ڋ޼H扦ʶ LWAp DʮL*WH{;POZ NyyڤcR H}v?{萆ӦHFG0#ixȰyvf8*˜vکKG::9U: +ћpH\tY <-l{}D1qmN?1Ϟ,qQTO(01‹ChU㧮B~iA*/7y~q|e1f,=TA"!dc(lJs%I85qUnY{vi*PuB]iтk:; \Wc`1Pbݎ`>[gڷYF{"Hxez'<ӨKZԕ]XRVsVcK"ɥIHeNTFn"WWyc31z"-'l%oJ٦fgƣBYSiniOɹCYWe,6:΅E몐NGNyuU^:6+1ܜy_yuk;lNj|r"T0ٜZʅKoދoL/-|'':F)[]!~]~պ-|Ve!+os1 jSʺ*ZHb̲72حm͋ʉsc:O5R2mK[sg3clȭum4z`ʲq¯LqT gA\)l?SzXڂ['~u ZͲqAvZS=koV]6,6ywZv~H֏}&C0CzEnG_n↋{-GƬ3|fk9G^vصm'NK7{ 7Y<3BxM{GgrLe-O} MBޛUh77otz^R6Pec훞^dANz{@b)P1/(0JhB"bj> !Ǿޡ :/d;!f#>t:<= m1~A,0a#SH2JurSC:rkA m <xHS"X4  T#Tq,D"7#lZ)![`[{JCTG,-sȝղD%(?\RA0BJ^R)1)6.0FqXXDIvo@3Ʉ̷Xr]<&;߉*uKk#8yNk;yI{ŧ>7h'2,?2D3sQ8qr,X8krwHWSj\RĨJ ken |67(Ky*׼I1 |#TV5VMP]jR ׸ut]׼ȝz_b+a/ʰ5k9~H;UgcP R5Ō ljib֕#Mh!6 jcVOYԴ0Lf ɯO"ҶT":ַ>ҶҾ[[m!\Rdʥ$2kSqߞjA^A"DӶIv7x܆Lе,KK=NI&YmfkDTԼDQ4ARƚ:Tԟ%nu@p{BƐ~Ɲp*|c֓Ŗ$u{1 +m&#"@yJ ~咛켡igF0#b벓0=v[+'6H=g`,P,'fȬ&hno.{xVLEc6du?.)'\a"5&{[JjE=za?A}S3QU,! :=lwڼפ)2m~\f}/:oOzYBCi<"[|oeS]֜ӵ d|W tXx*Yŵ}+3Ŭn[߶K2'tnY k^2ǡ4oAkTOǪ>4!uzQcꈓ]}{1ػce/4g⳹YfLGyqro{٥CIL:HtB]dsL>%awYw6Ca7'- ^X7{>}=Eٞwg~xb+OsM%0˦)V$Y75U}NVjigHY~AT+?Q 4+qQ_w/k0('47zWioU|ws<{s~8rYUg wsEwՆBFwx=W.ǁ8W+x,>5o6qX}hWP2eD``5tzx-GF)"[8pjue_VXzGhGMd傃׀B{ea$g;dsMx.ph %8wIy<Gvy6hs5eZ2ֆk~x(Ub.Qg/0G'Z!R`Hn?7wRD$7 n2RjRYx؃ŠQf#}"C'VSFe{&ﲃ+ӊWh爎8kw-b8C*!Sef|C@x9HO-u$ZbH~YYTtdE+m'Ɗe$rӇ]ņfesi#4}@X+32L(bgt(E*_W=XQR_m\S)qRP$D*wwz0zQ}::(z:=BJ[8zzեJ`SY|y5笆9wKd_~xs4IĤn\ӡg*nj:Ek7djٛs+ْ?夬j!#i*dwVƥQm `A* wiVzڮVG"OifZp:ǐaڤngDa%jHFN a?Ӟ aA$Y<5SKŦv! MPi28REztǙ`wCgE ztoygz fAj]-F-WH ۳rק|ͯ4ΤkcƓxN{M|~C4co,̥]َɰ+X؁CؘLemU|=~q -ݦͳ@;lne5MP݁]Qa}Mm&xaš&\Wl4mAnǚ:9tMŝllBz|ܼH 3}|*>&~!8Y ?Z*n-CM>IA~Ɵ9 ڱlkѵ,r _ RK>: S~z.n0n, 3լBDW~Ϫۺ*j#NxzZl$NJ擋X-֚`͚N$9Y]<~QΌA]Aj~x_l(ΛuWщhfa^mۍNfkcтmyB'-njpHMOoǏ]B; Ό,˽6AϩH4-t~r,ꕂ<_\kH(t/D#,A:sIx#ERtbCڸigLCݒ=O>ZF6dǯrdfSi\f}Wyo#x "%')+-/13579),?;EGIKMOQSUWX'MZj~\B3cljuKipa9}^Jss=y+̹ϒc?xщCl Zi&\ɾF`Th:[[q $Yt!:9hB7qDX3O|:hQ8+VGRfDIAF]zhK{n SJԑ &cU$H9ȊI,Qd1;U V,0RT2ޭ i~-j$ضϤ95|ڌV5הּ>ަ\*=zv1(h߿xq';GIF8 88~``flxlf 8 8`<|00|000<>f>|ff|``|ff|``fff>00|000lv```f>|ffff<>f>8<ff><ffff>f>fff>>fff>lv```<>f>ckk6|fffffff<`<|8<`<|8<>`<|<>f>fff<<>f>8<8<<>f>``|fff|8<`<|8< 8 800|000lv``` l8f>|ffff l8f>lv```>`<|00|000f>`<|<>f>fff<<>f>8<8<<>f>``|fff|8<|OFF) Sets up an intercept on the SOUND command (OSWORD 7) to direct it via a MIDI port. The command assumes the port is a simple 6850 ACIA in page &FC. If no address is given, then &FCF0 is used (status register at &FCF0 and data register at &FCF1). If a two byte address is given, then that is used as the address in page &FC instead, eg *MIDIon 08 would set up the intercept using an ACIA at &FC08, as with the Ample Music 2000. Using 'OFF' will deselect the MIDI intercept. A small buffer is kept to remember what notes have previously been sent. The SOUND commands are intercepted in the following way: SOUND chan,vol,dur,pitch --> Turns off previous note, sends current note. SOUND chan,0,dur,pitch --> Turns off previous note, then doesn't send anything (ie silence). SOUND 0,vol,dur,pitch --> Ignored at the moment. SOUND &1xxx,vol,dur,pitch --> Ignored. There are also some extra extensions: SOUND -2,x,x,x --> All Notes Off. Sends a note off for all possible notes. SOUND -3,x,0,MIDIchannel --> Sets MIDI channel. SOUND -3,x,1,ignoreflag --> Sets the ignore flag. If b7 set then all calls go to the internal SOUND system as well as to the MIDI port. SOUND &Fzxx,x,b2,b1 --> Sends a specific MIDI command: Where xx is &8x to &Bx, sends to the MIDI channel followed by b1 then b2. Where xx is &Cx to &Ex, sends to the MIDI channel, followed by b1. Where xx is &Fx, just sends that command. Eg, SOUND &F0C0,0,5,0 will select voice 5. The actual duration is ignored. The length of the note is defined by sending another note (or a silence) after it to turn it off. This means that this is only suitable for direct use with programs that use a timing mechanism to time the notes, rather than using the sound queue to time them. For example, programs that use a structure similar to: T%=TIME+delay% SOUND etc, etc, etc, REPEAT UNTIL TIME>T% Many demo music programs use this method, and the music programs supplied by J.G.Harston PD use it. With programs that use the sound queue to time the music, setting the ignore flag off with SOUND -3,0,1,&80 will send sound to the internal system as well as to MIDI. Using *FX210,1 to turn off the internal speaker will then in most cases get a sound-queued program to work. Another point to bear in mind is that this will only work with programs that use SOUND (or OSWORD 7). It will not work with programs that directly access the sound hardware. On this disk is a file T/MIDI which is an graphics text file showing a circuit diagram for a MIDI interface. Use *PRINT T/MIDI (or *TYPE T/MIDI if *PRINT is not available) to display it. *MIDIon (|OFF) Sets up an intercept on the SOUND command (OSWORD 7) to direct it via a MIDI port. The command assumes >PugW2  : tj@  &F0C0,0,1,0 (7:23,1,0;0;0;0; 2,T=23:8,T)141"Captain Pugwash II": <%T=45:11,T)141"Remixed!!": FT%=11: &F0C0,0,8,0 PV1%=1:V2%=0 Zpugwash: &F0C0,0,1,0 dV1%=0:V2%=1 n pugwash xV1%=1:V2%=1 pugwash T%=108-1 pugwash   -2,0,0,0: "Hello"  pugwash B%=6:K=1+(1/3) :W%=0:Q%=0:M%=0:U%= J2,1,0,0,0,1,1,1,60,-4,-3,-1,90,80:1,1,0,0,0,1,1,1,40,-4,-1,-1,110,90 B$="C D EF G A Bc d ef":C$="55551111555511555566661154321155":E$="88887777888877888899997A88357A88":D$="123475.A.86...9":A$,N%:NOW=:R%=B%+4*D$,C$,1)) !M%<=0M%=M%+3:C$dz@TvA &10,-12,4,1:&21,V1%,R%-(S%-R%)*U%,-1:&22,V1%U%,S%+12,-1:&20,2,((V1%U%)*4-1)*K,-1:U%=U%:R%=B%+4*D$,C$,1)):S%=B%+4*D$,E$,1)):C$=C$,C$+U%):E$=E$,E$+U%)  Q%=Q%+1 A$="F"N%=6&10,2,4,-1 Q%>22Q%<24&10,2,4,-1 "Q%>29Q%<32&10,2,4,-1 ,Q%>45Q%<48&10,2,4,-1 6 W%=W%+1 @W%>14W%<18&10,2,4,-1 JW%>31W%<35&10,2,4,-1 TW%>108W%<112&10,2,4,-1 ^lM%=M%-N%:C%=C%-N%:&13,V2%,B%+4*(B$,A$,1))-(A$,"#")>0)+12),-1:NOW=NOW+N%*T%:>NOW: A$,N%:A$="dne" h F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,2, c,1, A,2, F,1, C,1, C,1, C,1, C,3, C,1, C,1, C,1, C,2, G,1, E,2, C,1, E,2, G,1, A#,2, G,1, E,2, C,1 r F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,3, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,3, A,2, A#,1 | c,1, c,1, c,1, c,3, c,1, c,1, c,1, c,3, d,2, e,1, f,2, e,1, d,2, c,1, A#,2, A,1, A#,2, c,1, d,2, c,1, A#,2, A,1, G,2, F,1, E,2, F,1, G,2, F,1, E,2, C,1, D,2, E,1  F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,6, dne,0  >  (10)" sssssssssssssss"  =17 tV@ :tV@  N=0 6 (10)141"CAPTAIN PUGWASH"  (10)141"CAPTAIN PUGWASH" (10)" sssssssssssssss" ( <X$="<< "+5,8) P 0,21) d &F0C0,0,7,0 T%=9 6 -1::pugwash: -2,0,0,0:"Hello"   pugwash '1,1,0,0,0,1,1,1,60,-4,-1,-1,120,90 B$="C D EF G A Bc d ef":C$="55551111555511555566661154321155":E$="88887777888877888899997A88357A88":D$="123475.A.86...9":B%=6:A$,N%:NOW=:M%=0:U%=:R%=B%+4*D$,C$,1))  Z$=(0):Z$="O"*FX210,1 Z$="N"*FX210 M%<=0M%=M%+3:C$&11,1,R%-(S%-R%)*U%,-1:&12,1U%,S%+12,-1:U%=U%:R%=B%+4*D$,C$,1)):S%=B%+4*D$,E$,1)):C$=C$,C$+U%):E$=E$,E$+U%) lM%=M%-N%:C%=C%-N%:&13,1,B%+4*(B$,A$,1))-(A$,"#")>0)+12),-1:NOW=NOW+N%*T%:>NOW: A$,N%:A$="dne": ү F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,2, c,1, A,2, F,1, C,1, C,1, C,1, C,3, C,1, C,1, C,1, C,2, G,1, E,2, C,1, E,2, G,1, A#,2, G,1, E,2, C,1 ܒ F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,2, c,1, A,2, F,1, A,2, c,1, f,3, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,3, A,2, A#,1 c,1, c,1, c,1, c,3, c,1, c,1, c,1, c,3, d,2, e,1, f,2, e,1, d,2, c,1, A#,2, A,1, A#,2, c,1, d,2, c,1, A#,2, A,1, G,2, F,1, E,2, F,1, G,2, F,1, E,2, C,1, D,2, E,1 F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, F,1, F,1, F,1, F,3, C,2, f,1, e,2, d,1, c,2, A#,1, A,2, G,1, F,3, A,3, F,6, dne,0  (10)" sssssssssssssss"  =17 tV@ :tV@  N=0 6 (10)141"CAP}um=yy}a=maaeim}umm͝m|y|y||ݹͭŝͥեŕu͝m|im}umm͝m|y|y||ݹͭŝͥեŕu͝m|a]Ym=mYm=mQm=mQm=mYm=mMm=mQUYm=mYm=mQm=mQm=mUmEmYuEe=a=eaQQm=mQm=mYm=mYae=Ym=mYm=mQm=mQY]aEmEmEUamYuEe5Y9]a=e=ea $)OR  |        `    `:)`l  `)B)F x x x JJi# H x h x < x , 0`l H,$h`4) m ) x ȭ  ) x )Lx ` x x x `) `Lp SetMIDI h  > SetMIDI L7:'""157"";141;10;"MIDI Select"'""157"";141;10;"MIDI Select"   > SetMIDI L7:'""157"";141;10;"MIDI Select"'""157"";141;10;"MIDI Select" -1 tL@ ( -2 Dd@ 2 Midi On < Dd@ F*INFO !NoMIDI P"MIDI not switched on." Z tB@ d : tB@ n *MIDIon x5''"MIDI is now on."'"Run with Shift to turn off" "Hello"  :tB@ *MIDION OFF ''"MIDI is now off" tB@  > SetMIDI L7:'""157"";141;10;"MIDI Select"'""157"";141;10;"MIDI Select" -1 tL@ ( -2 Dd@ 2 Midi On < Dd@ F  TOCC - SKY  :"Hello" &F0C0,0,15,0:*TV255  bk% 10:Sflg%=-2  Y%(3): A=0 3:Y%(A)=38: ~7:23;8202;0;0;0;:title:Tempo=1:Key=0:MUS$(3),E(3),N(3):V=126:Sflg%0,22);" Notes only displayed when speed allows." 31,0,6,&94,10,13,&92,10,13,&91,31,0,12,&94,10,13,&92,10,13,&91,31,0,10:131" # b # # b # b # # b # b # # b # "131"CCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABBCCD"30 1,1,0,0,0,0,0,0,25,8,0,-2,100,126:2,1,0,0,0,0,0,0,100,60,0,-1,100,126:3,20,0,0,0,0,0,0,100,1,-1,-12,100,0:4,2,0,0,0,0,0,0,80,60,0,-2,80,100:5,1,0,0,0,0,0,0,126,-12,-6,-2,126,0 T0%=:T1%=100 6,3,0,-1,0,16,12,120,126,-3,0,-1,126,0:7,1,0,0,0,0,0,0,110,-20,-10,-4,110,0:Combination$="01234567879:;:<7=7>?@ABCDEFG7=7>?BCDEHIJKLM":J=1(Combination$):D%=(Combination$,J,1))-&30:REL%=D%*6+100 REL%:P(D%)::"Hello" hP(D%):X=03:E(X)::X=03:MUS$(X)::L=1MUS$(1):Delay=5-5*(D%<2000):D%=0Delay=6-6*(D%<2000) (D%=1Delay=25-25*(D%<2000) 2D%=5Delay=0 < D%=28Delay=12-12*(D%<2000) F D%=29Delay=14-14*(D%<2000) PnT%=T0%+Delay:V=13:PP=(MUS$(V),L,1)):P=PP*4:B%=V &200:B%=B%-&1000*(P=128):P=P+(Key*4)-91*(V=1E(V)=0) TB%,E(V) (PP<>32),P,Tempo:T1%>1 Sflg%31,Y%(V)-64-(36(Y%(V)>103)),11+V-(6(Y%(V)>103)),32: PP>6431,PP-64-(36(PP>103)),11+V-(6(PP>103)),255:Y%(V)=PP Xj:MUS$(0)=""-&1000*(MUS$(1),L,1)=" "),E(0),3,Tempo P=(MUS$(0),L,1))-&30:-&1000*(P=-16),E(0),P,1 ZT1%=T%-:>T%:T0%=:: d 0,2,2,2 e"" fk"nln ljigf g b`b ] ^ Z [ VTV TRQON O " gk"b`b `^][Z [ VTV Q R N O JHJ HFECB C " hk"b`b `^][Z [ VTV Q R N O JHJ HFECB C " i&:::::::::::::::::::::::::::::::::: j 0,2,2,2 k"" l"CNQTWZ] [ N" m" TQS B" n" O B" o&:::::::::::::::::::::::::::::::::: p 0,2,2,2 q"" r2"OQNOQNOQNO QRTQRTQRTQR TVWTVWTVWTV Z" s2"CEBCEBCEBC EFHEFHEFHEF HJKHJKHJKHJ N" t2"OQNOQNOQNO QRTQRTQRTQR TVWTVWTVWTV Z" u&:::::::::::::::::::::::::::::::::: v 0,2,2,2 w"" x2"[]Z[]Z[]Z[ ]^`]^`]^`]^ `bc`bc`bc`b b" y2"OQNOQNOQNO QRTQRTQRTQR TVWTVWTVWTV V" z2"[]Z[]Z[]Z[ ]^`]^`]^`]^ `bc`bc`bc`b b" {&:::::::::::::::::::::::::::::::::: | 0,2,2,2 }"" ~C"T T R R Q Q O O M M K K J J H H F F E E " C"`c]`c]^b[^b[]`Y]`Y[^W[^WY]VY]VW[TW[TVYRVYRTWQTWQRVORVOQTNQTN" C"`c]`c]^b[^b[]`Y]`Y[^W[^WY]VY]VW[TW[TVYRVYRTWQTWQRVORVOQTNQTN" &:::::::::::::::::::::::::::::::::: 5,2,2,2 s"4 4 4 4 4 4 4 4 " s"N Q T W Z ] ` c b ` ^ ] [ Z X Z V Z ] ` ^]^]^]^]^]^ ] " s" W C C C C " s"N Q T W Z ] ` c b ` ^ ] [ Z X Z V Z ] ` ^]^]^]^]^]^ ] " &:::::::::::::::::::::::::::::::::: 5,2,2,0 '"4 664 664 664 664 664 664 664 " '"jgb^gb^[b^[V[VRO V " '"C C C C VROJROJFOJFCJFC " "" &:::::::::::::::::::::::::::::::::: 5,2,2,0 7"466646664666466646664666466646664666466646664666" 7"[V]V^V[V]V^V`V]V^V`VbV^V`VbVcV`VbV^V`V]V^V[V]VZV" 7"C C C C C C C C C C C C " "" &:::::::::::::::::::::::::::::::::: 5,2,2,0 "4666466646664666" "[VVVWVTVVWVWVWV " "C C C C " "" &:::::::::::::::::::::::::::::::::: 5,2,2,0 "4666466646664666" "[VVVWVTVVWVWVWVW" "C C C C " "" &:::::::::::::::::::::::::::::::::: 5,2,2,0 7"6 4 6 4 6 4 6 4 6 4 6 4 6 4 6 4 6 4 6 4 6 4 6 4 " 7"`c`]`c`]^b^[^b^[]`]Y]`]Y[^[W[^[WY]YVY]YVW[WTW[WT" 7"T W V O Q T R K M Q O H " "" &:::::::::::::::::::::::::::::::::: 5,2,2,0 "6464646464646464" "ZbVbVbVbVbVbVbVb" "H J J " "" &:::::::::::::::::::::::::::::::::: 5,2,2,0 "6464646464646464" "ZbVbVbVbVbVbV V " "H J J " "" &:::::::::::::::::::::::::::::::::: 5,2,2,0 "466646664 4 4 4 " "[VVVWVTVV V " "C C COMKJHFE" "" &:::::::::::::::::::::::::::::::::: 5,2,2,0 G"4666466646664666466646664666466646664666466646664666466646664666" G"[VVVWVTVVV ^ ` ] ^ [ ` ] ^ [ ] Z [ b c ` b ^ ` ] ^ [ ` ] ^ [ ] Z" G"C C C F H E F C H E F C E B C J K H J F H E F C H E F C E B " "" &:::::::::::::::::::::::::::::::::: 5,2,2,2 '"6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 " '"CEFHJLNOOQRTVXZ[[]^`bdfggijlnprs" '"[ g g g g O O O O O " '" b b b b J J J J " &:::::::::::::::::::::::::::::::::: 5,2,2,2 G"4666466646664 4 4 4 4 4446664666464 4 4 4 4 " G"O R W cbcegecegecb`^][YWVTM Q V b`bcecbcecb`^][YWVTR" G"C O C O C O C O C O C O C O C O A M A M A M A M A M A M A M A M " G"O R W cbcegecegecb`^][YWVTM Q V b`bcecbcecb`^][YWVTR" &:::::::::::::::::::::::::::::::::: 5,2,2,2 G"4666466646664 4 4 4 4 4446664666466646664666464 4 4 4 " G"K O T `_`bcb`bcb`^][YWVTRQN Q V V ] b " G"K W K W K W K W K W K W K W K W J V J V J V J V J V J V J V J V " G"K O T `_`bcb`bcb`^][YWVTRQN Q Q V ] b " &:::::::::::::::::::::::::::::::::: 5,2,2,2 G"4666466646664 4 4 4 4 4666466646664 4 4 4 4 " G"O R W onljigecb`^][YWVTRQOM Q V qonljigecb`^][YWVTRQ" G"C O C O C O C O C O C O C O C O A M A M A M A M A M A M A M A M " G"O R W onljigecb`^][YWVTRQOM Q V qonljigecb`^][YWVTRQ" &:::::::::::::::::::::::::::::::::: 5,2,2,2 '"4666466646664 4 4 4 4 " '"K O T onljigecb`^][YWVTRQO" '"K W K W K W K W K W K W K W K W " '"K O T onljigecb`^][YWVTRQO" &:::::::::::::::::::::::::::::::::: 5,2,2,2 G"466646664666466646664666466646664 4 4 4 64646 4 " G"N Q V V ] b V [ Y W V " G"J V J V J V J V J V J V J V J V W V T Q " G"N Q V V ] b V R Q O N " &:::::::::::::::::::::::::::::::::: 5,2,2,2 W"4 4 4 4 64646 4 4 4 4 4 4 4 4 4 " W" [ Y W V [ Y W V W V T V " W" W V T Q W V T Q R Q O Q " W" R Q O N R Q O N O N K N " &:::::::::::::::::::::::::::::::::: 5,2,3,3 G"4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 " G" W [ Z X ZXZ Z " G" T V V V " G" O Q Q Q " &:::::::::::::::::::::::::::::::::: 5,2,2,0 W"4 4 4 4 4666466646664666466646664666466646664666466646664666466646664666" W" [YWV[YWV[YWVTRV" W" COMKJOMKJOMKJHFJ" "" &:::::::::::::::::::::::::::::::::: 5,2,2,2 G"4 4 4 4 4 4 4 4 6 4 6 4 6 4 6 4 6 4 6 4 6 4 6 " G" W V T V V " G" Q Q O Q Q " G" O N K N N " &:::::::::::::::::::::::::::::::::: 5,2,2,2 '"4 4 4 4 4 4 4 4 " '"ilifilifilifiliffifcfifcfifcfifc" '"H H H H H H H H " '"T T T T T T T T " &::::::::::::::::::::::::::::::::::  5,2,2,2 7"4 4 4 4 4 4 4 4 4 4 4 4 " 7"cfc`cfc`cfc`cfc``c`]`c`]`c`]`c`]]`]Z]`]Z]`]Z]`]Z" 7"H H H H H H H H H H H H " 7"T T T T T T T T T T T T " &::::::::::::::::::::::::::::::::::  5,2,2,2 7"4 4 4 4 4 4 4 4 4 4 4 4 6 " 7"Z]ZWZ]ZWZ]ZWZ]ZWWZWTWZWTWZWTWZWTV V "  7"H H H H H H H H Q Q "  7"T T T T T T T T N N "  &::::::::::::::::::::::::::::::::::  5,2,2,2  '"4 4 4 4 4 4 4 4 4 4 4 4 4 4 " '"R Q R O W V W T V T V J V T V J " '"F E F C K J K H R H R N N N " '"J J O O O O J H J " &::::::::::::::::::::::::::::::::::  5,2,2,2 "6 4 4 6 4464444" "T R Q R" "O O O O" "J J J J" 6 title Abig("Toccata",15,3) 9,0)(22) 60,0);" Music: D.Hankinson-Images: J.R.Tahomann";  9big(A$,x,y):31,x-1,y,141:A$:31,x-1,y+1,141:A$:  TOCC - SKY  :"Hello" &F0C0,0,15,0:*TV255  bk% 10:Sflg%=-2  Y%(3): A=0 3:Y%(A)=38: ~7:23;8202;0;0;0;:title:Tempo=1:Key=0:MUS$(3),E(3),N(3):V=126:Sflg%0,  MUSIC SKELETON.  :dp@ TITLE$="ZOOLOOK" (7 223;8202;0;0;0; < title =)5,6);"Written by Jean-Michel Jarre" A=0 FTempo%=1:Key%=-.5:Delay%=21 P"MUS$(3),E(3),N(3),Y%(3):V=126 Q) 31,0,12,&94,31,0,13,&92,31,0,14,&91 Ue ''131" # b # # b # b # # b # b # # b # "131"CCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABBCCD"30 X A=0 3:Y%(A)=38: Z'1,1,0,0,0,0,0,0,25,8,0,-2,100,126 d&2,1,0,0,0,0,0,0,100,0,0,-1,100,12 n(3,10,0,0,0,0,0,0,120,0,0,-12,127,0 x&4,2,0,0,0,0,0,0,80,60,0,-2,80,100 (5,1,0,0,0,0,0,0,126,-12,-6,-2,126,0 +6,3,0,-1,0,16,12,120,126,-3,0,-1,126,0 )7,1,0,0,0,0,0,0,110,-20,-10,-4,110,0 8Combination$="00001123423562347781234235699:77777;<" J%=1(Combination$) !D%=(Combination$,J%,1))-&30 REL%=D%*60+420  REL%:P(D%)  ,0,22)"Thanks for listening.":Z=(200) "HELLO" P(D%) PRINT"Parcel ";D% X%=03:E(X%): X%=03:MUS$(X%): PRINT"Start of MUS$:" L%=1MUS$(1) ,T%=+Delay% 6 V%=13 @#PP%=(MUS$(V%),L%,1)):P%=PP%*4 JB%=V% &200 TB%=B%-&1000*(P%=128) ^*P%=P%+(Key%*4): -91*(V%=1ANDE(V%)=0) hB%,E(V%),P%,Tempo% i 31,Y%(V%),11+V%,32 k: PP%>64 PP%<106 31,PP%-64,11+V%,255:Y%(V%)=PP%-64 r |oMUS$(0)=""-&1000*(MUS$(1),L%,1)=" "),E(0),3,Tempo% P%=(MUS$(0),L%,1))-&30:-&1000*(P%=-16),E(0),P%,1  >T%:   $ Music notes (octaves -2 to 2) ; C#D#EF#G#A#B -2 ABCDEFGHIJKL ; C#D#EF#G#A#B -1 MNOPQRSTUVWX ; C#D#EF#G#A#B 0 YZ[\]^_`abcd ; C#D#EF#G#A#B 1 efghijklmnop ; C#D#EF#G#A#B 2 qrstuvwxyz{|  ENVELOPE NUMBERS (410..)  1,-15,-15,-15  "6 4 6466 4 64 "  " "  " "  " " :  1,2,2,-15 ( "6 4 6466 4 64 6 4 6466 4 64 " ( " J J J H H E E E J J " ( " Q Q Q O O L L L M M " ( " " :  1,2,2,3 &( "6 4 6466 4 64 6 4 6466 4 64 " 0( " J J J H H E E E J J " :( " Q Q Q O O L L L M M " D( "`` b `` b `` b e d ` ] " N: X 1,2,2,3 b( "6 4 6466 4 64 6 4 6466 4 64 " l( " J J J H H E E E J J " v( " Q Q Q O O L L L M M " ( "` ` b ``b ` `be d ` b " :  1,4,4,4 ( "6 4 6466 4 64 6 4 6466 4 64 " ( " O O O O O O O O O O " ( " T T T T T T T T T T " ( " Y Y Y X X Y Y Y X X " :  1,5,5,5 ( "6 4 6466 4 64 6 4 6466 4 64 " ( " F F F J J L L L L L " ( " J J J O O P P P P P " ( " M M M G G G G G G G " :  1,5,5,5  "6 4 6466 4 64 "   " L L L L L " * " P P P P P " 4 " G G G G G " >: H 1,-15,-15,-15 R( "6 4 6466 4 64 6 4 6466 4 64 " \( " Q Q Q O O V T TT M O " f( " V V V T T Y Y XY R T " p( " Y Y Y X X ^ ] [] V X " z:  1,-15,-15,-15 ' 6 4 6466 4 64 6 4 6466 4 64 " ( " Q Q Q S S P P O OOO " ( " V V V V V Y Y T TTT " ( " Y Y Y Y Y V V Y XVX " :  -15,-15,-15,-15 ( " 4 4 4 4 4 4 4 4 " ( "VVVVVVVVTTTTTTTTLLLLLLLLMMMMMMMM" ( "JJJJ JJJJ EEEE JJJJ " ( "YYYYYYYYXXXXXXXXTTTTTTTTVVVVVVVV" :  -15,-15,-15,-15 ( " 4 4 4 4 4 4 4 4 5 " ( "VVVVVVVVTTTTTTTTLLLLLLLLMMMMMMMM" ( "JJJJ JJJJ EEEE JJJJVJQJ" $( "YYYYYYYYXXXXXXXXTTTTTTTTVVVVVVVV" .: 8 1,-15,-15,-15 B "6 4 6466 4 64 6 4 646" L " ] ] ] [ [ b ` ``" V " V V V T T Y Y XY" ` " Y Y Y X X ^ ] []" j: t -15,-15,-15,-15 ~ ">=<:8642?"  " Y [ M"  " R T E"  " V X J" title ; (34-TITLE$)/2)141TITLE$'(34-TITLE$)/2)141TITLE$ '" Arranged by G. Heslington." 1,6)(26)   MUSIC SKELETON.  :dp@ TITLE$="ZOOLOOK" (7 223;8202;0;0;0; < title =)5,6);"Written by Jean-Michel Jar