% The Road (1982)
%
% by Robin Terry
%
% Arranged for RISC OS AMPLE
%
% by Robin Terry Feb 2000
%

% Include the dynamics library

"AMPLE:Dynamics"LIBRARY

% Key signatures

"Key"[K(+F+C+G+D+A)K]
"KeyCl"[K(-B-E-A-D-G)K -2@]

"Setup"[1VOICE 10MIDIC 10=MIDIC SCORE 6BAR 4=. 15'L]
"Vibr"[12MIDIPROGRAM]
"Glock"[10MIDIPROGRAM]

"Pf1R-1"[
#mp 8FOR(2:24,C/CgCDg(G)/g(G)D()g/|)FOR 8FOR(2:24,C/CgCDg(G)/'G('C)d()g/|)FOR 4FOR(2:24,C/CgCG'G('C)/'G('C)d()g/|)FOR
4FOR(2:24,CgCG/c'G('C)/'G('C)d()g/|)FOR 48,8BAR 3FOR(2:24,CgCgCDFG/f/d'c^'g^|)FOR
48#mp<mf 3FOR(2:24,CgCgCDFG/f/d'c^'g^|)FOR #mf
3FOR(2:24,CgGgCDg(F)G()/'c('F)/g()'C('F)/'g()/|)FOR 48#mf<f 3FOR(2:24,CgGgCDg(F)G()/'c('F)/g()'C('F)/'g()/|)FOR
#f 48#f<ff 3FOR(2:24,C/Gg/'C'a/gCa'G/d/g|)FOR
48,6BAR #ff 240#ff>p 20FOR(2:24,C(D)/G()gFgC(D)/G()gF/|)FOR]

"Pf1R-2"[
#mp 8FOR(2:24,C(D)/G()gFgC(D)/G()gF/|)FOR 4FOR(2:24,C(D)/G()g/FbDg/F/|)FOR 48#mp<mf 4FOR(2:24,C(D)/G()g/FbDg/F/|)FOR
#mf 24FOR(2:24,C(D)/G()g/FbDg/F/|)FOR 72#mf<f 6FOR(2:24,C(D)/G()g/FbDg/F/|)FOR
48,8BAR 15* #f 9FOR(2:24,'C('D)/G()gFcbD/g/C'a/'G/|)FOR
3FOR(2:24,'C('D)/G()gFcbD/g/C'a/'G/|)FOR 64#f<ff 4FOR(2:24,'C('D)/F()C/f'e/dagD'a/'G/|)FOR
4FOR(2:24,'C('D)/F()C/f'e/dagD'a/'G/|)FOR 144#ff>pp 9FOR(2:24,'C('D)/F()C/f'e/dagD'a/'G/|)FOR]

"Pf1R-3"[
48,6BAR 19* #pp 4FOR(288,^|)FOR 20* 48,24#pp<mp 12FOR(2:24,C/CgCDg(G)/g(G)D()g/|)FOR
8FOR(2:24,C/CgCDg(G)/'G('C)d()g/|)FOR 16FOR(2:24,C/CgCG'G('C)/'G('C)d()g/|)FOR]

"Pf1R-4"[
#mf 4FOR(2:24,C/CgCG'G('C)/'G('C)d()g/|)FOR 26* 4FOR(2:24,CgCG/c'G('C)/'G('C)d()g/|)FOR
48,8BAR 27* 12FOR(2:24,CgCgCDFG/f/d'c^'g^|)FOR 4FOR(2:24,CgCgCDFG/f/d'c^'g^|)FOR
64#mf<ff 4FOR(2:24,CgCgCDFG/f/d'c^'g^|)FOR
30* #ff 9FOR(2:24,C/Gg/C=a/gC=aG/d/g|)FOR 48,2BAR 2:C''F(''B)|]

"Pf1L-1"[
#mp 24FOR(0:24,B/BFBfb/bFBf|)FOR 48,8BAR 3FOR(0:24,B/BFBfb/bFBfB^f^|)FOR 48#mp<mf 3FOR(0:24,B/BFBfb/bFBfB^f^|)FOR
#mf 3FOR(0:24,B/BFBfb//F/B'f/'B/|)FOR 48#mf<f 3FOR(0:24,B/BFBfb//F/B'f/'B/|)FOR
#f 48#f<ff 3FOR(0:24,BF/B/'f'B'fB/f/bFB/|)FOR
48,6BAR 240#ff>mp 12FOR(0:24,BF/B/fbF/B/f|)FOR 8* 8FOR(1:72,FBfB|)FOR]

"Pf1L-2"[
#mp 8FOR(1:72,FBfB|)FOR 10* 4FOR(1:144,FF|)FOR 8#mp<mf 4FOR(1:144,F'e|)FOR
11* #mf 4FOR(1:24,'F^//Bf'G^eb/G|)FOR 20FOR(1:24,'F^//Bf'G^eb/G|)FOR 14* 72#mf<f 6FOR(1:24,'F^//Bf'G^eb/G|)FOR
48,8BAR #f 9FOR(1:24,'F^//Bf'G^eb/E'b/'E/|)FOR 16* 3FOR(1:24,'F^//Bf'G^eb/E'b/'E/|)FOR
17* 64#f<ff 4FOR(1:24,'F^//Bf'G^eb/E'b/'E/|)FOR 18* #ff 4FOR(0:24,'B('F)^;FB/f'b('G)^;EcbE'b/'E/|)FOR
144#ff>pp 9FOR(0:24,'B('F)^;FB/f'b('G)^;EcbE'b/'E/|)FOR]

"Pf1L-3"[
48,6BAR 8FOR(288,^|)FOR #mp 16FOR(0:24,B/BFBfb/bFBf|)FOR 96#mp>pp 8FOR(0:24,B/BFBfb/bFBf|)FOR 8FOR(288,^|)FOR]

"Pf1L-4"[
#mf 8FOR(0:24,B/BFBfb/bFBf|)FOR 48,8BAR 16FOR(0:24,B/BFBfb/bFBfB^f^|)FOR 64#mf<ff 
4FOR(0:24,B/BFBfb/bFBfB^f^|)FOR #ff 9FOR(0:24,BF/B/'f'B'fB/f/bFB/|)FOR 48,2BAR 0:24,BF''B/|]

"Pf2R-1"[
#mp 36FOR(0:24,'b('C)E()/b(F)C()E'b('C)E()/b(F)C()/|)FOR
#mf 96#mf<ff 8FOR(0:24,'b('C)F()/b(G)F()G'b('C)F()/b(G)F()/|)FOR
#ff 192#ff>pp 4FOR(0:24,'b('C)F()/b(A)F()A'b('C)F()/b(A)F()/|)FOR 12FOR(0:24,b(C)F()/b(A)F()Ab(C)F()/b(A)F()/|)FOR
4FOR(288,^|)FOR]

"Pf2R-2"[
9* #mp 12FOR(0:24,b(F)B()/Bf(A)B()f(A)/e(G)A()b(F)/|)FOR 48#mp<mf 4FOR(0:24,b(F)B()/Bf(A)B()f(A)/e(G)A()b(F)/|)FOR
24FOR(0:24,b(F)B()/Bf(A)B()f(A)/e(G)A()b(F)/|)FOR 72#mf<f 6FOR(0:24,b(F)B()/Bf(A)B()f(A)/e(G)A()b(F)/|)FOR
#f 16FOR(0:24,'b('F)B()/Bf(A)B()f(A)/'e('G)A()b(F)/|)FOR
48,8BAR 64#f<ff 4FOR(0:24,'b('F)B()/Bf(A)B()f(A)/b()F(A)/b()/E(G)//|)FOR
#ff 4FOR(0:24,'b('C)F()/b(F)E()Fe/'b('C)F()/c/E//|)FOR 
48,6BAR 72#ff>mp 12FOR(0:24,'b('C)E()/b(F)C()E'b('C)E()/b(F)C()/|)FOR]

"Pf2R-3"[
#mp 24FOR(0:24,b(C)E()/b(F)C()Eb(C)E()/b(F)C()/|)FOR 96#mp>pp 8FOR(0:24,b(C)E()/b(F)C()Eb(C)E()/b(F)C()/|)FOR
24* 8FOR(288,^|)FOR]

"Pf2R-4"[
25* #mf 24FOR(0:24,C(F)G()c(F)b(D)/b(C)b(C)D()c(F)/b(G)/|)FOR
48,8BAR 4FOR(0:24,C(F)G()c(F)b(D)/b(C)b(C)D()c(F)/b(G)/C(F)G()b(D)/|)FOR
128#mf<ff 8FOR(0:24,C(F)G()c(F)b(D)/b(C)b(C)D()c(F)/b(G)/C(F)G()b(D)/|)FOR
#ff 4FOR(0:24,C(F)G()c(F)b(D)/b(C)b(C)D()c(F)/b(G)/C(F)G()b(D)/|)FOR
0:24,C(F)G()c(F)b(D)/b(C)b(C)D()48,c(F)b(G)C(F)b(G)|48,2BAR 0:C(F)''b(''G)|]

"Pf2L-1"[
#p 36FOR(-1:144,'C('G)'C('G)|)FOR #mf 96#mf<ff 8FOR(-1:72,'C('G)'!C()'c('G)'C()|)FOR
#ff 64#ff>pp 4FOR(-1:72,'C('G)'!C()'c('G)'C()|)FOR
7* 8FOR(-1:24,C(G)//!C()a/c(G)//C()a/|)FOR 4FOR(-1:24,C(G)//!C()a/c(G)//C()a/|)FOR 4FOR(288,^|)FOR]

"Pf2L-2"[
#mp 12FOR(-1:288,'C('G)|)FOR 4#mp<mf 4FOR(-1:288,'C('G)|)FOR
4FOR(-1:288,'C('G)|)FOR 12* 4FOR(-1:288,'C('G)|96,/b(F)/|)FOR
13* 4FOR(-1:96,'C('G)/'C('G)|/'b('F)/|'C('G)/'b('F)|)FOR
14* 18#mf<f 2FOR(-1:96,'C('G)/'b('F)|/'C('G)/|'b('F)/'b('F)|)FOR
#f 2FOR(-1:96,'C('G)/'b('F)|/'C('G)/|'b('F)/'b('F)|)FOR 3FOR(-1:48,'C('G)/'b('F)//'C('G)|/'b('F)/'C('G)/'b('F)|)FOR
2FOR(-1:48,'C('G)/'b('F)'C('G)/'b('F)|/'C('G)'b('F)/'C('G)'b('F)|)FOR
48,8BAR 32#f<ff 4FOR(-1:48,'b('F)/C(G)b(F)/C(G)b(F)C(G)|)FOR #ff 4FOR(-1:48,'e('B)/C(G)'e('B)C(G)'e('B)/C(G)|)FOR
48,6BAR 72#ff>mp 4FOR(-1:48,e(B)C(G)/e(B)C(G)/|)FOR 4FOR(-1:48,e(B)C(G)/144,e(B)|C(G)^()|)FOR]

"Pf2L-3"[
#mp 24FOR(-1:144,C(G)C(G)|)FOR 16#mp>pp 8FOR(-1:144,C(G)C(G)|)FOR 8FOR(288,^|)FOR]

"Pf2L-4"[
#mf 8FOR(-2:144,=A(E)B(F=A)|)FOR 8FOR(-2:96,=A(E)f()B(F=A)|)FOR
28* -2:48,///'F()/=A(E)|/'f()/=A(E)/B(F=A)| 3FOR(-2:///'F()/=A(E)|/'f()/=A(E)/B(F=A)|)FOR
8BAR 29* -2://'F()/=A(E)'f()//| 3FOR(-2:B(F=A)/'f()/=A(E)'f()//|)FOR
64#mf<ff -2:B(F=A)//'f()///B(F=A)| 3FOR(-2:///'F()///B(F=A)|)FOR -2:96,/'F()//| 3FOR(-2:B(F=A)'f()//|)FOR
#ff 4FOR(-3:384,'B('F'B)|)FOR 384,/| 48,2BAR ^(^^)-2:''B(''F''=A)|]

"Fl-1"[
48,24#pp<mp 8FOR(2:24,C^96,/24,G^96,/|)FOR 1* 8FOR(2:24,C^C^48,/24,G^96,/|)FOR 2* 4FOR(2:24,C^C^//G^/d^/|)FOR
48#mp<mf 4FOR(2:24,CgC^//G^Gd^/|)FOR 3* #mf 48,8BAR 6FOR(2:24,CgC^//FG/f^/c^g^|)FOR
4* 96#mf<f 6FOR(2:24,CgC^//FG/f/c'F^'c^|)FOR
5* 48#f<ff 3FOR(2:24,CgC^/Ca/gCa//D/g|)FOR 6* 48,6BAR 96#ff>pp 16FOR(2:48,CGfcGf|)FOR 4FOR(288,^|)FOR]

"Fl-2"[16FOR(288,^|)FOR 4#pp<mf 24FOR(2:24,C^'G^/'f^dg/^/|)FOR 72#mf<f 6FOR(2:24,C^'G^/'f^dg/^/|)FOR
48,8BAR #f 9FOR(2:24,C^'G^'f^bD/g/C'a/^/|)FOR 3FOR(2:24,C^'G^'f^bD/g/C'a/^/|)FOR
64#f<ff 8FOR(2:24,C^Fc/Fe/dagD'a/'G/|)FOR #f 144#f>pp 9FOR(2:24,C^F^/F48,e^/'a'G|)FOR]

"Fl-3"[
48,6BAR 8FOR(288,^|)FOR 21* 8#pp<mp 8FOR(2:24,C^96,/24,G^96,/|)FOR 8FOR(2:24,C^C^48,/24,G^96,/|)FOR
8FOR(2:24,C^C^//G^/d'g/|)FOR 8FOR(2:24,C^C^//G^/d'g/|)FOR]

"Fl-4"[
#mf 4FOR(2:24,C^C^//G^/d'g/|)FOR 4FOR(2:24,CgC^//G^Gd^/|)FOR
48,8BAR 12FOR(2:24,CgC^//FG/f^/'c^'g^|)FOR 128#mf<ff 8FOR(2:24,CgC^//FG/f/c'F^'c^|)FOR
#ff 8FOR(2:24,CgC^/C=a/gC=a//D/g|)FOR 96,/^//| 48,2BAR ^2:''F|]

"Cl-1"[
48,24#pp<mp 20FOR(1:24,D^/A^/d^/A^/|)FOR 48#mp<mf 4FOR(1:24,D^/A^/d^/A^/|)FOR #mf
48,8BAR 6FOR(1:24,D^/A^/d^/A^/d^A^|)FOR 96#mf<f 6FOR(1:24,D^/A^/d//A/^A^d^|)FOR
48#f<ff 3FOR(1:24,DA/d^'A'd/d/A/dAd/|)FOR 
48,6BAR 120#ff>pp 12FOR(1:24,DA/d/AdA/d/A|)FOR 8FOR(1:24,D//A//d//A//|)FOR]

"Cl-2"[
12FOR(288,^|)FOR 4#pp<mf 4FOR(1:144,Ag|)FOR 12FOR(1:48,A/dG/B|)FOR 12FOR(1:48,A/dG24,Gd/B|)FOR 
48,36#mf<f 6FOR(1:48,A/dG24,Gd/B|)FOR
48,8BAR #f 9FOR(1:48,A/dG24,Gd/G'd/'G/|)FOR 3FOR(1:48,A/dG24,Gd/G'd/'G/|)FOR
64#f<ff 4FOR(1:48,A/dG24,Gd/G'd/'G/|)FOR #ff 4FOR(1:48,D/DG24,GedG48,'d'G|)FOR
#f 72#f>pp 9FOR(1:48,D/^G24,Ge/G48,^G|)FOR]

"Cl-3"[
48,6BAR 8FOR(288,^|)FOR 8#pp<mp 24FOR(1:24,D^/A^/d^/A^/|)FOR 8FOR(1:24,D^/A^/d^/A^/|)FOR]

"Cl-4"[
#mf 8FOR(1:24,D^/A^/d^/A^/|)FOR 48,8BAR 12FOR(1:24,D^/A^/d^/A^/d^A^|)FOR 
128#mf<ff 8FOR(1:24,D^/A^/d//A//A^d^|)FOR #ff 8FOR(1:24,DA/d^'A'd/d/A/dAd/|)FOR 96,/^//| 48,2BAR ^''D|]

"Vl-1"[
48,24#pp<mp 8FOR(0:24,'C^48,//24,'C^48,//|)FOR 8FOR(0:24,'CE48,^/24,'cE48,//|)FOR 4FOR(0:24,'CE/F^/'cE/F^/|)FOR
48#mp<mf 4FOR(0:24,'CE/F^/'cE/F^/|)FOR #mf 12FOR(0:24,'CE/FcE'cE/Fc/|)FOR 
48#mf<f 4FOR(0:24,'CF/GfG'cF/Gf/|)FOR 48#f<ff 4FOR(0:24,CF/GfGcF/Gf/|)FOR
144#ff>pp 12FOR(0:24,CF/AfAcF/Af/|)FOR 8FOR(288,^|)FOR]

"Vl-2"[
#pp 288,8#pp<mp 8FOR(0:96,FAg|)FOR #mp 4FOR(0:24,FB/B96,ag|)FOR 4FOR(0:24,FB/B96,a24,gAg/|)FOR
48#mp<mf 4FOR(0:24,FB/BaBa/gAf/|)FOR #mf 20FOR(0:24,FB/BaBa/gAf/|)FOR
72#mf<f 6FOR(0:24,FB/BaBa/gAf/|)FOR 6FOR(0:24,'FB/BaBa/'gAf/|)FOR 10FOR(0:24,'FB/BaBa/'gAf/|)FOR
48,8BAR 32#f<ff 4FOR(0:24,FB/BaBa/bA/b/G//|)FOR
#ff 4FOR(0:24,CF/FeFe/cF/c/E//|)FOR 48,6BAR 72#ff>pp 12FOR(0:24,CE/FcEcE/Fc/|)FOR]

"Vl-3"[
8FOR(288,^|)FOR #pp 8#pp<mp 8FOR(0:24,'C^48,//24,'C^48,//|)FOR 8FOR(0:24,'CE48,^/24,'cE48,^/|)FOR
96#mp>pp 8FOR(0:24,'CE/F^/'cE/F^/|)FOR 8FOR(288,^|)FOR]

"Vl-4"[
#mf 4FOR(0:24,'CE/F^/'cE/F^/|)FOR 4FOR(0:24,'CGfd/FcGfd/F|)FOR 8FOR(0:24,FGfd/cFGfd/c|)FOR 8FOR(0:24,FGfd/ccDF/G/|)FOR
48,8BAR 64#mf<ff 16FOR(0:24,FGfd/ccDF/G/fGc/|)FOR 96,/^// 48,2BAR ^''=A(''E)|]

"Vla-1"[
48,24#pp<p 20FOR(-1:288,G|)FOR 4#p<mp 4FOR(-1:288,G|)FOR #mp 12FOR(-1:144,GG|)FOR
16#mp<f 8FOR(-1:72,'GC'gC|)FOR 48#f>pp 4FOR(-1:72,'GC'gC|)FOR 8FOR(-1:72,G24,'C'a/72,g24,'C'a/|)FOR 8FOR(288,^|)FOR]

"Vla-2"[
#pp 8#pp<p 20FOR(-1:288,G|)FOR 8#p<mf 4FOR(-1:288,G|96,/f/|)FOR #mf 4FOR(-1:96,G/G|/f/|G/f|)FOR
2FOR(-1:96,G/f|/G/|f/f|)FOR
2FOR(-1:96,G/f|/G/|f/f|)FOR 3FOR(-1:48,G/f//G|/f/G/f|)FOR 24#mf<f 2FOR(-1:48,G/fG/f|/Gf/Gf|)FOR
48,8BAR #f 32#f<ff 4FOR(-1:48,F/Gf/GfG|)FOR #ff 4FOR(-1:48,'B/gBgB/g|)FOR
48,6BAR 48#ff>pp 8FOR(-1:48,Bg/Bg/|)FOR 4FOR(288,^|)FOR]

"Vla-3"[
8FOR(288,^|)FOR #pp 8#pp<p 16FOR(-1:288,G|)FOR 8#p>pp 8FOR(-1:288,G|)FOR 8FOR(288,^|)FOR]

"Vla-4"[
#mf 8FOR(-1:144,E=A|)FOR 8FOR(-1:96,EF=A|)FOR -1:48,///F/e|/F/e/=A| 3FOR(-1:///F/e|/F/e/=A|)FOR
8BAR 32#mf<f -1://f/eF//| 3FOR(-1:=A/f/eF//|)FOR -1:=A//f///=A| 3FOR(-1:///f///=A|)FOR
#f 32#f<ff 96,/'f//| 3FOR(-1:=A'f//|)FOR
#ff 4FOR(-1:384,'F|)FOR 96,/^//| 48,2BAR ^-1:''24,F^|]

"Vlc-1"[
48,24#pp<p 20FOR(-1:288,C|)FOR 4#p<mp 4FOR(-1:288,C|)FOR #mp 12FOR(-1:144,CC|)FOR
16#mp<f 8FOR(-1:144,CC|)FOR
24#f>pp 12FOR(-1:144,CC|)FOR 8FOR(288,^|)FOR]

"Vlc-2"[
#pp 8#pp<p 20FOR(-1:288,C|)FOR 8#p<mf 4FOR(-1:288,C|96,/b/|)FOR #mf 4FOR(-1:96,C/C|/b/|C/b|)FOR
2FOR(-1:96,C/b|/C/|b/b|)FOR
2FOR(-1:96,C/b|/C/|b/b|)FOR 3FOR(-1:48,C/b//C|/b/C/b|)FOR 24#mf<f 2FOR(-1:48,C/bC/b|/Cb/Cb|)FOR
48,8BAR #f 32#f<ff 4FOR(-1:48,b/Cb/CbC|)FOR #ff 4FOR(-1:'e/CEcE/c|)FOR
48,6BAR 48#ff>pp 8FOR(-1:48,Ec/Ec/|)FOR 4FOR(288,^|)FOR]

"Vlc-3"[
8FOR(288,^|)FOR #pp 8#pp<p 16FOR(-1:288,C|)FOR 8#p>pp 8FOR(-1:288,C|)FOR 8FOR(288,^|)FOR]

"Vlc-4"[
#mf 8FOR(-2:144,=AB|)FOR 8FOR(-2:96,=AfB|)FOR 48,///-2:F/=A|/f/=A/B| 3FOR(-2:///F/=A|/f/=A/B|)FOR
8BAR 32#mf<f 4FOR(-2:B/f/=Af//|)FOR -2:B//f///B| 3FOR(-2:///F///B|)FOR
#f 32#f<ff 96,/-2:'F//| 3FOR(-2:B'f//|)FOR
#ff 4FOR(384,-2:'B|)FOR 96,/^//| 48,2BAR ^-2:''24,B^|]

"Perc1-1"[
#mp 8FOR(288,^|)FOR 8FOR(0:48,^///'G('C)^;|)FOR 4FOR(0:48,^//'G('C)'G('C)^;|)FOR 12FOR(0:48,C^/'G('C)'G('C)^;|)FOR
#mf 8FOR(0:48,C^/'G('C)'G('C)G()|)FOR 24#mf<ff 4FOR(0:48,C24,CG/c48,'G('C)'G('C)G()|)FOR
#ff 120#ff>pp 12FOR(0:24,C(D)/24,!'G()g'Fg^/'Gg'F/|)FOR 4FOR(0:48,C(D)!G()f^Gf|)FOR 4FOR(1:48,^Gf^Gf|)FOR]

"Perc1-2"[
Vibr 8FOR(288,^|)FOR #pp 8#pp<mp 4FOR(1:144,FF|)FOR 4FOR(1:144,F^|)FOR #mp 24FOR(1:24,F^//BfG^///G|)FOR
72#mp<mf 6FOR(1:24,F^//BfG^///G|)FOR 48,8BAR #mf 9FOR(1:24,'F^//Bf'G^48,//'A'g|)FOR
48#mf<f 3FOR(1:24,'F^//Bf'G^48,//'A'g|)FOR
#f 72#f<ff 4FOR(1:24,'F^//Bf'G^48,//'A'g|)FOR #ff 4FOR(1:24,'F^F'B/f'G^48,//'A'g|)FOR
72#ff>pp 9FOR(1:24,F^FB/fG^48,//Ag|)FOR]

"Perc1-3"[
Glock 48,6BAR 16FOR(288,^|)FOR 22* #mp 8FOR(0:48,^///'G('C)^;|)FOR 23* 16FOR(0:48,^//'G('C)'G('C)^;|)FOR]

"Perc1-4"[
#mf 4FOR(0:48,^//'G('C)'G('C)^;|)FOR 4FOR(0:48,'C//'G('C)'G('C)^;|)FOR
48,8BAR 12FOR(0:48,'C^/'G(C)'G(C)^;'C'g|)FOR 4FOR(0:48,'C^/'G(C)'G(C)^;'C'g|)FOR
32#mf<f 4FOR(0:48,'C^/'G(C)'G(C)^;'C'g|)FOR
#f 32#f<ff 4FOR(0:48,^//'G(C)^;/'C'g|)FOR #ff 4FOR(384,'B('F)|)FOR 96,/^;//| 48,2BAR ^0:''G(''C)|]

"Perc2-1"[
#mp 8FOR(288,^|)FOR 8FOR(1:48,^///'C^|)FOR 4FOR(1:48,^//'C'C^|)FOR 12FOR(0:48,C//!'C'C^|)FOR 4FOR(0:48,C//!'C'Cg|)FOR
#mf 48#mf<ff 8FOR(0:48,C24,CG/c48,'C'Cg|)FOR 72#ff>pp 12FOR(0:48,C(G)^;/C(G)^;/|)FOR 8FOR(288,^|)FOR]

"Perc2-2"[
12FOR(288,^|)FOR #p 4#p<mp 4FOR(1:144,^E|)FOR #mp 24FOR(0:24,B^48,///24,Eb/E|)FOR
72#mp<mf 6FOR(0:24,B^48,///24,Eb/E|)FOR
48,8BAR #mf 9FOR(0:24,B^48,///24,Eb/E'b/'E/|)FOR 48#mf<f 3FOR(0:24,B^48,///24,Eb/E'b/'E/|)FOR
#f 72#f<ff 4FOR(0:24,B^48,///24,Eb/E'b/'E/|)FOR #ff 4FOR(0:24,B^////'B^EcbE'b/'E/|)FOR
144#ff>pp 9FOR(0:24,B^////B^EcbEb/E/|)FOR]

"Perc2-3"[
48,6BAR 16FOR(288,^|)FOR #mp 8FOR(1:48,^///'C^|)FOR 16FOR(1:48,^//'C'C^|)FOR]

"Perc2-4"[
#mf 8FOR(0:48,=A^/'C'C^|)FOR 8FOR(0:48,=A^/'g('C)'g('C)^;|)FOR 8FOR(0:48,=Af/'G('C)'G('C)f()|)FOR
48,8BAR 4FOR(0:F//'G('C)=Af/C|)FOR 32#mf<f 0:F//'G('C)^;C/f| 3FOR(///0:'G('C)^;C/f|)FOR
#f 32#f<ff ///0:'G('C)^;'f//| 3FOR(///0:'G('C)^;'f//|)FOR
#ff 4FOR(384,0:'F('B)|)FOR 96,/^;//| 48,2BAR ^0:''G(''C)|]

"Display"[CLS DISPLAY
% The Road (1982)
%
% by Robin Terry
%
% Arranged for RISC OS AMPLE
%
% by Robin Terry Feb 2000
]

"RUN"[READY Display 48,168=T
1 P(2VOICES MIDIV 1MIDILINE 1MIDICHANNEL 1 MIDIPROGRAM 64Setup  Key   #mp Pf1R-1  Pf1R-2  Pf1R-3  Pf1R-4 ^;)P
2 P(2VOICES MIDIV 1MIDILINE 1MIDICHANNEL 1 MIDIPROGRAM 64Setup  Key   #mp Pf1L-1  Pf1L-2  Pf1L-3  Pf1L-4 ^;)P
3 P(2VOICES MIDIV 1MIDILINE 2MIDICHANNEL 1 MIDIPROGRAM 64Setup  Key   #mp Pf2R-1  Pf2R-2  Pf2R-3  Pf2R-4 ^;)P
4 P(3VOICES MIDIV 1MIDILINE 2MIDICHANNEL 1 MIDIPROGRAM 64Setup  Key   #mp Pf2L-1  Pf2L-2  Pf2L-3  Pf2L-4 ^;)P
5 P(1VOICES MIDIV 1MIDILINE 3MIDICHANNEL 74MIDIPROGRAM 10Setup  Key   #pp Fl-1    Fl-2    Fl-3    Fl-4   ^;)P
6 P(1VOICES MIDIV 1MIDILINE 4MIDICHANNEL 72MIDIPROGRAM 25Setup  KeyCl #pp Cl-1    Cl-2    Cl-3    Cl-4   ^;)P
7 P(2VOICES MIDIV 1MIDILINE 5MIDICHANNEL 41MIDIPROGRAM 80Setup  Key   #pp Vl-1    Vl-2    Vl-3    Vl-4   ^;)P
8 P(1VOICES MIDIV 1MIDILINE 6MIDICHANNEL 42MIDIPROGRAM 90Setup  Key   #pp Vla-1   Vla-2   Vla-3   Vla-4  ^;)P
9 P(1VOICES MIDIV 1MIDILINE 7MIDICHANNEL 43MIDIPROGRAM 100Setup Key   #pp Vlc-1   Vlc-2   Vlc-3   Vlc-4  ^;)P
10P(2VOICES MIDIV 1MIDILINE 8MIDICHANNEL Glock         48Setup  Key   #mp Perc1-1 Perc1-2 Perc1-3 Perc1-4^;)P
11P(2VOICES MIDIV 1MIDILINE 9MIDICHANNEL Vibr          48Setup  Key   #mp Perc2-1 Perc2-2 Perc2-3 Perc2-4^;)P
GO]