TOCCATATOC2 TITLE $SNOWMEN+SNOWCDESCREEN $MUSIC PLIB-BEL$INTRO $HARVEY1$!BOOT $X3 ̓(.(.)i+b\=+9hl%#$+ hh CH."SCREEN" LiLjLk  HARVEY HEADBANGER HARVEY HEADBANGER =================  d~~~`~x 22 PP d~ Z  x 7; (h pޠhHH hihipF cjdwtmupr|qs rp'vtvp Aj cjww)&r sЯLvjzi i wLji wLjpi(pqri(rsti(tu`deffed`F cjji ri } cj"}x 4!5U k!X h hhh8phppz h}   h `x   4 5!X|~~]~"} ` `pLjh pJy}I})JHH lhhy0`y my tLkrLkpLkLOlLAlh h lLkv novJJJJwv)x 7а˦yw}huyy  hx }hhhh h m lLkwʊy ~ 8e~hLkwy hLkyw h i|~~Lk T\fL^kl}}LklI%}}Lk}0  hh hh hh m l` mi ` hh yLk hh h lyLk h `h Am]~h Jm"}`h Am]~h Jm"}`8JJ`h89JJ`ꝑ𼬬 ꝑ F I R E B I R D ꝑ𬬬 ఖ 굯 ᥵贯 ᥵贯 ᥵ 赵 豱 ꝑ ꝑ MELVYN WRIGHT'Sବ" ꝑ MUSIC MACHINE " ꝑ" " " LIBERTY BELL - MARCH q u@x/=EB-LJHJKH=A_A-J@:JIJ=F@1A@-JK@;=A@-KH@8HGH=E@3C@-KJ@:K=@A-J@:JIJ=J@6F@A-L@=8H@8@/FE@8HGHC@8HGHA@-H=A@-H=AA-J@:JI*=F@1A@-JK@;=Ao@/-KH@8HG(=E@3C@-KJ@:Ko=@/A-J@:JI*=J@6F@A-L@=8H@8(-H@?=FE@8HGHC@8HGHA@-H=A@-H=A/- JIJ=C@A-@FHJK=E@Cţ@AC@3CBC/@?F@&*HFH @*H@&C@-K@/+JI*=C@A-è@FHJ+=E@C@AC@3CBC/@?F@&*HFH-=J@*H@&C@-Kʆ(*@_FŦ=C@# C@B@-FŦ=D@$ D@C@/$#-=A@_-&F/=C@_-&F?=-=A-=!-+KJHF/Ŧ?=C@# C@B@-F/Ŧ?=D@$ D@C@$#-=A@/-&F?=C@/-&F?=#$-K=-J@/-+ KJHH@+ KJHH@;=-KJHH@K=A-K=ACC#%CA-KK@=# #A-KK@=# #!-+=-K@CECEFF& & & FG@=B-K@GFF@FG@=B-K@GFFJHECCAF`-?CK-CDADEBEFC&=C@# C@Bo@?-FCK-CDADEBEFC&=D@$ D@C$-D@/=$#-=A@?-&F/=C@?-&F=-=A-=!-+KJHF/Ŧ?=C@# C@B@-F/Ŧ?=D@$ D@C@$#-=A@/-&F?=C@/-&F?=#$-K=-JPK/-EBLJHJKH-AN@FFCCE.HHEAF@111AF@1A@AEEJ@O-EEDE-CCBCEE/K-A@1111J@6F@FH@8J K@;;;KH@5E@EF@6H -A@111AF@1A@AH@<L@</JHO-EEDE-CCBC/H@EH@EH@-AL-AC@AH-ACE@CK@;KJK-@/F@FHFH @FE@CK@H@@-AL-AC@Ao=.HK@;KJK/-@F@FHFH? @FE@CK@H@@-F@& F@E-A@& F@H F@/FF-K@/FʈKK?/-F@& F@E-F@& F@EF@FF-K@FF?-@/( HGEE@( HGEE@( HGEOJ/+ KJHH@+ KJHH@+ KJHOF/& & & FG@-BK@GF@AF@FG@-BK@GF@A@?-F-/FKFCFK-/! AJFJ=Ao- /AFJFJ=AD@FF-CFKFK=CF@FʈKK?/-F@& F@E-F@& F@EF@FF-K@FF?-K_-CDFHJK?C/-C@3C@CEOJJJJ/FFCCOHHHH/HHEAOJJJJ/EEAJHHCCOAAņJJJJ/FFCCOHHHH/HHEAOJJJJ/-EEAJHHCCOAA/@OJJ/OJJ/OKK/OJJ/OKK/OJJ/OLL-H-FFJHFC/OA/FFȆAF@@OJJ/OJJ/OKK/OJJ/OKK/OJJ/OLL-H-FFJHFC/OA/FF-AF@@OKKςKKKJFFKKςKKJL-JFφJI/:zJOKF/1qAOFFHH?>OKKςKKKJFFKKςKKJL-JFφJI/:zJOKF/1qAOHHKJ-KC_=$ DCA-K=$ DCA-K=4DCA-K@+=#A-K=ACP-=.-(*HFDC( (FDCH(&$C@#&ECEFPOFFFFB=EAFB=EA?NOKKKKKJFFKKKKJL-JFφJI/:zJOKF/1qAOFFHH?>OKKKKKJFFKKKKJL-JFφJI/:zJOKF/1qAOHHKJ-KCWHO NEEDS MUSIC 500? L.D.ORp  $ 7: CLS & set Default Window  paged mode  14 ( " MELVYN WRIGHT " - "" .% " Use SHIFT key to move on" 2 <+ "Being slightly tone deaf and coming" F* "to a BBC late in my computer life," P)"I had never given a thought to the" Z( "musical capabilities of the BBC." d "" n- "I was intrigued with a piece of music" x,"that appeared on a 'Solinet' disc ref" ) "(8.3) - May, 1993. This featured" + "the fairground organ playing 'Blaze"  "Away'."  "" , "This was my introduction to the work" ( "of a programmer and obviously a " + "musician called Melvyn Wright. The" + "progs were written around 1985, pre" + "'Master 128'.In their original form" + "the progs will not run on a Master." ( "They are written in machine code"  "" / "An examination of the memory map of the" * "three programs will show that they" * "all have been altered. At the end" ' "of each program there are some " "- "amusing remarks by Wright especially" ,) " the Snowmen. These should appear" 6+ "I think on pressing the ESCAPE Key." @# "Sadly no success on my part" J "" T, "Running this novelty musical program" ^* "for my grandchildren and later for" h( "an autistic youth, I was pleased" r) "with their reaction which was one" | "of delight."  " " . "Asking around, a friend of mine, Mick" - "Reeves of Selby came up with 'Liberty" . "Bell. This had become part of a games" * "disc and was the lead in music for" ) "a game called 'Harvey Headbanger'" ) "and featured the fairground organ"  "" + "The Snowmen first came to my notice" ' "on the 8-Bit Software disc that" . "appeared Christmas 1993 and attributed" * "to someone called 'Psycho Pirate'." - "the piece then appeared at Billingham" . "BBC Computer Club and this time it was" / "Melvyn Wright. On examining the memory" , "map of Psycho Pirate's version there" && "is a mention of Melvyn Wright." 0 "" :* "As I said earlier these progs have" D' "given a lot of pleasure to both" N& "young and mentally handicapped" X) "people; the progs are a must when" b "I am visited" l "" v' "For further information I have " / "advertised in a mag called 'Micro-Mart'" ( "written to 'AcornUser', used the" ) "various 8-Bit enthusiasts' groups" ( "and scanned 'BeeBug's' discs but" ' "nothing more has come to light." ) "I would be very pleased if anyone" , "reading this Intro who can help with" & "any information would be kind " - "enough to 'phone 0845 (Thirsk) 522241" ("or write to 'Carrwood', 21, Back " $ "Lane, Sowerby, Thirsk, North"  "Yorkshire, YO7 1NQ"  "" - "Incidentally on the front page of the"  . "last issue of the magazine 'BeeBug'are" , "nine items pictured and there in the"  0 "middle is Melvyn Wright's Music Machine." *- "Using the database MagScan reveals no" 4 "reference to Wright". 9 "" >) "Hope this disc gives you as much " H+ "pleasure as it has to several other" R) "people. Regards. Frank Jones." Z "" \ "13th., October,1994." a "" f G = : G<>32 DfC p "TITLE" z "TITLE" =&2000  *RUN Harvey1  MUSIC MACHINE No.1 H7:"This program should be *RUN, but I'll let you off this time!" (N%=0&14004:N%!&6800=N%!::&6CCC ꝑ𬬬 ꝑ B E E B I O L I ꝑ𬬬 ఖ 굯 ᥵贯 ᥵贯 ᥵ 赵 豱 ꝑ ꝑ󣯯 ꝑ ꝑ" " " (C) 1985 MELVYN WRIGHT - Music Machine No.1 (Blaze Away March) arranged and coded by Melvyn Wright n ,oH hiƌ'kF Cnthuxpr|qsrp'tp n 5n Cn捦 жLimo o LKmF Cno o } Cn p(po o( n Cn(huxpr|qs&pr ȑp n Cn&"ƍĩF Cnn $z DLlo o Lmpi(pqiqri(rsis`ti(tuiu`deffed` MELVYN WRIGHT'S MUSIC MACHINE E N C O R E ? E N C O R E ?Z x 7;ddKdd~~~`~222L2pLp`sv0yx'p(pq )p!*p q!X p+pzppp+pp x  ppp @rpX`x'p(p)p *p!X6~|   Lpl'p` ` pLJr`HHH)y ~r r+p tLfqrLfqpLfq+p+p spLJrL$rLrvy nnv)xv)JJJJwx sְ y}ppw} pz pezp p x#pLqpy ryp Qry}z6~ | @rLJrwʊy z 8ezpyL&qwy pyL&qyw#pL&q+ppLqp `hhh(`ypx i H80hL[r 0`i ``HHHyz6~}zhhh`ަypx1 i H80hLr 0`HHy |hh`/=1-<=3a01-<=3a0a2c4e01`1-<=31-:8658653e4e4%=3253-;:87:851f5f5=a01-<=31-:8658654e4e4((h9j9h9j9h=6e3_-=1-<=31-:8658653e4e4%=3253-;:87:851f5f5v=a01-<=31-:8658654e4e4/8-((h9j9h9j9h=e3!!!!!!/-8V6e4=-:_=56856850%-=35635630#c/-,-0,-`=1-<=121-<=!/!!!!1_-!!!!!!!!!!!!&&&&&&&&&&&&############(((((6%%3?=56856850%35635630#3-=6`/-=131-:8660_=e6-(c4=T04c4s-0/;j;=-{=c1-l=160?6e6-(c4=!-@_878=4643431-<=163-;6;=360#d#3431-<=1-878:9:k?f3;0_-;0.@_-=30#323575c.@-60&6568:86560/16`6560/160?89;<=c1-l=160e6-(c4vxz{=T04c4s-;/0_-;j;=-{=c1-l=160?6e6-(c4V[=T-=S-=-@_878=4643431-<=163-;6;=360?#d#Q-XZkf3;0_-;`;`` /-1<-3a0e4c2a01`1<-31:8658653e4e4%-3253;:87:851f5f56568:;-68e8-18-15((h9j9h9j9X8j<-a;j8?-358:[:865356:;Z568:;358:e8=1-8=15/((h9j9h9j9X8j<-18Z6e4-3(+-789*- 10!10/ 10!1`-1<-121<-!/!!!!18Z6e4-3(+-789*-&6`-131:86-:13568606e6(c4j8j-1404c4:8:-1606;-1230;j;=-V0?6e6(/c4,-a8-a4813467?-03d#[`/-60/-30#323575c-30#323575c/60&6568:8f60&6568:86560/16`6560/16`0O::::f6f6:0-6e6(c4j8j-1404c4:8:-1606;-1230;j;=-V0?6e6(/c4,-a8-a4813467?-03d#[`/-6`.@/a2c4e01`Oa:a:f:a:e8a8e8a8e8a8e8a8f:a:f:a:f:a:e8a8e8a(c6h6a5h1h6e3!f:a:f:a:e8a8e8a8e8a8e8a8f:a:6-1;851Of:a:f:a:e8a8e8a(c6h6a5h1h6e31!!!!!.A8*.C:+/-8:k8e168:0*j789:O88888/-8V6e4=?-:(/8:k8e168:0*1`0a060Of6f6c6k6d8h8c6f3k3f3c6k6a1d1d:a:f:f:a:f:-k;f6c3k6f6f6ff6f6c6k6d8k8c6c4k6f6h32 t`E  "TITLE" cdp(C$,Y,t,b) J=t:P$=(J)+C$ X=19-((P$)/2):b=0D@F  N=01 !X,Y+N)(141);(J);C$;(140) " J=b: , @X+1,Y)P$ J T G=: <>32 D^F ^ "TITLE" ($ ( (     ($ (  $$$  (( $($   ( (( ( ($    ( $$ (    ($    ( (( $$($( $ $$($$ $ ($$(  (   3******(***33 (( ***(3 (( 33LL@L    Melvyn Wright'sMUSICAL SNOWMENMERRY CHRISTMAS@`0d0~( pHH hihipꩠtj -e -j -e -E@=e - /=A-L=-./j -e -j -e ,-!L-E@&(F=(e %&E-j JL=A-L=%&E#%C!#A-,=!-L.u/-@@̊@J@J@@@̊@J@J@=-=-J@J@@Ɋ@L@=-=->@@̊@J@J@@@̊@J@J@=-=-J@J@@Ɋ@L@=-=->-Ø00ljl=a-=-lh0`Ø00ljl=a-=-lh0`hl=#eca-ljhjl=a-`/Ø00ljl=a-=-lh0`Ø00ljl=a-=-lh0`Ø00j<-1ljl-a-lh0`-hl=#eca-ljhjl=a-#`00Ț-1ljl-a=-lh0`=a CA-LJ=A@-=@a CA-LJ=A@-=@/FEFHEECEFCCACEAA-L=AC-L=-LJL=A-:=-Jh =a -=@FEFHEECEFCCACEAA-L=AC-L/=-LJL=A-:=-Jh =a -=@a a%CA-LJ=A@-=@a CA-LJ=A@-=@FEFHEECEFCCACEAA-L=AC-L=-LJL=A-:=-Jh =a -=@FE6HEECEFCCACE1A-L=1C-L/=-LJL=A-:=-Jh =q-=@/-=0aca-l=0ceca-=0efec-80h=-=!`-=00-,`/=-(`=30c10a-080h=-=-=00-,`=-(`=30c10a-0H h=-=!`-=0aca-l=0ceca-=0efec-80h=-=!`-=00-,`/=ACA-L=A-LJLJHL=C30c10a-080h=-=-=00-,`=-(`=30c10a-0H h=S<-1-1=NN-!He-.H@H@H@H@H@H@H@H@H@H@H@H@H@H@H@H@H@H@H@J@J@J@J@J@J@J@L@L@L@L@L@L@L@-H@H@H@H@H@H@H@H@H@H@H@J@J@J@J@J@J@J@L@L@L@L@L@L@L@=/A@A@A@A@-=C@C@@# A@@! -J@=- =A@A@A@A@-=C@C@@# A@A@! AE@-=-% % =-=-=E@-=-=-% % =-=-=E@E@@E-H@HJL=A-A@A@A@A@-C@C@@# A@@! J@- -=A@A@A@A@-C@C@@# A@A@! AE@E-%^/=-=->j =-=-j =-=E@-=- =a -/JH =-./e -e -H@--- =a -JH =-e u-@Dž@/--@B@B@@Dž@/--@B@B@.JE@E@.J-Â@I@>=@@-=/-=B@B@@@-/=.C-E@E0=.GBCE@@-̊@I@>-ljl-a0cl-0`/-ljl-a0cl-0`-cl(=a-ljhecechʓ0`/-ljl-a0cl-0p-ljl-a0cl-0`-ljl-a0cl-0P/-cl(=a-ljhecechړ0'`-ljl-a0cl-0P-j LJHF @j LJHFCALJ-JLJL@=CACEAA-L=AC-L=-LJL=A-JJHJLHHFHJFF/-j @=CACEAA-L=AC-L=-LJL=A-JJHJLH/HFHJFF-j @j LJHF @j LJHFJLJL@=CACEAA-L=AC-L=-LJL=A-JJHJLHHFHJFF-j @CAAL-LJJHHFHJFF-JLJL@/-.EV0.GX0.I!`#`,`/----#`,`-(`-.EV0.GX0.I!`-#`,`/----#`,`--h-5-.NN^.N-E@E@E@E@E@E@E@E@E@E@E@F@F@F@F@F@F@H@H@H@H@C@C@C@=/-H@H@H@H@H@H@H@H@=-F@H@H@H@L@L@L@L@H@H@H@F@H@H@L@L@H@H@H@H@H@H@H@H@=-F@H@H@H@L@L@L@L@H@H@A@H@H@H@H@H@H@H@J@J@J@L@L@L@-H@H@H@H@H-ECAHEFGH@H@H@J-FECJFHIJ@J@J@LHL-CHFCLJ@H@F@-E@-ECAL-ECAL-EH-AEFCLJHJL-CE@E@A@X ^N/=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-a a a a /-J@J@--J@J@Å@J@J@-̇@E@Å@>-J@J@--B@B@Å@J@J@-̇@E@Å@>0-hghj̘008080`/0-hghj̘008080he`hl-cecaljljhe-caljjeghjl-ajhghjhghjhl-cl08080he`0-hghj̘008080`0-hghj̘008080heh-cl-c/hl-cecaljljhe-caljjeghjl-ajhghjhghjhl-cl08080heg8 `-a CALJ-@-a -CALJ-@-HJHFFHFEEFECCECA -ACAL LJL-A/-A-JHFEFHFECEFECACECAL/-ACALJLJL-A-@-a CALJH-ALJh -@-AJL-ACALJHEAEh JHFECEFCAEHE-HJHFFHFEEFECCECA -ACAL LJL-A--AJH/FEFHF/ECEFE/CACEC/AL-ACALJLJL-A-@/.HAJCL10100%`acefljacefljE e%`Ř0-hfecQ0ƚ0-feca\0Ü0ljhf-10100%`aceflja5hfecacefhjljhfecacefhJljE es-8-NThanks are due to the following, without whose help this program would not have been possible: MUSICAL ARRANGEMENTS - Melvyn Wright, CODING - Melvyn Wright, IDEAS - Melvyn Wright, IMPLEMENTATION - Melvyn Wright, SNOW SCENE - Melvyn Wright, CHARACTER DESIGN - Melvyn Wright, HANDBELL TUNING & POLISHING - Melvyn Wright, SNOWMEN TRAINED & WOUND UP - Melvyn Wright, WORLD'S MOST MODEST MAN - Melvyn Wright. " MUSICAL SNOWMEN MUSICAL SNOWMEN > _______________ (C) 1985 - Melvyn Wright < 7:(-256)<>-1 "Series 1 Operating System required": H A%=234:X%=0:Y%=255:(&FFF4)&FF00 "Switch TUBE off and restart": (0 =&3000:N%=0&3FF 4:N%!&900=N%!(+&200): 2 *R.SnowCde 000000000000000000000000000000 0 000000000000000000000000000000000000000000000000000000000 0055?????***?????+??***?????00::???000000000000000000000000000000000000000000000000???55000???;;??%++??33???33????77?????::0000000000000000000000000000%000000%% ??%????????**???/++///% ////??00000000000000000000000???????????????????????**???++///++??????????/++????+0000000000000000000000000000000055555555???????????????????**???????????????????????????::::::::0000000000000000000000000000000055555555??????+?????????**?????????????????+??????::::::::0000000000000000?????????????+?????????????0%000000%% ??0000000000000000????????????% ////??0000000????????/++????+000000000000000000000000000000% 0000505?????0%%%0000  %0  ??0:?????/0000:/ 00000000000000/ //?? / 000000  starta=&0E  d`A  title$ ( F$(20),N$(20),D$(20) 2I%=0 < F I%=I%+1 P F$(I%),N$(I%),D$(I%) Z F$(I%)="DONE" d max%=I%-1 n 7 xcentre(title$)  J%=1 max%  max%<10 letter$=(64+J%)+"." colour$=(129+(J%-1) 6) = letter$;colour$;N$(J%);18);colour$;"- ";colour$;D$(J%)   28,0,24,39, ,'"enter the letter of your choice...."; *FX15,0  A%= (A%) req%=A%-64 # req%>0 req%<=max% select 5'"select a letter from A to ";(max%+64);"....";  " , select 6% req% T{A,D@A,DJA,DTA,DYA ; "INTRO" @"LIB-BEL" J"+.SNOWMEN" T"P.MUSIC" Y"TOCCATA" ^ hcentre(T$) r' |L%=(T$)/2  Y%=1 2  141;134;20-L%);T$   &MELVYN WRIGHT'S MUSICAL NOVELTIES & INTRO, A FEW WORDS,from Frank J. + LIB-BEL,LIBERTY BELL,FAIRGROUND ORGAN "+.SNOWMEN,SNOWMEN,BELLRINGERS ) P.MUSIC,BLAZE AWAY,FAIRGROUND ORGAN & TOCCATA,TOCCATA,BACH ORGAN FUGUE  DONE,DONE,DONE  : 7  <200 : " ( ";F$(A%-64);" )"  X=(500)   &! assemble the 'move' routine 0 into the top of RAM. :" The routine is called by the D" file needing to be moved and N then jumps to the file's X" execution address to run it. b l move(execute%) v base=&70:old=&BE:length=&C2 I%=0 22:P%=&7000  [OPTI%  LDA #0  STA base LDA#starta STA base+1  LDY #0 LDX length+1 BEQ LOLOOP  .LOOP1 LDA (old),Y STA (base),Y INY  BNE LOOP1  INC old+1 INC base+1  DEX * BNE LOOP1 4 .LOLOOP >LDX length HBEQ FINISH R .LOOP2 \LDA (old),Y fSTA (base),Y pINY zDEX  BNE LOOP2  .FINISH LDA#starta  STA &18  LDX #&FF TXS JMP execute%:]  000@ p    @@0  @  `0@    @      @                                                           #&),/25  @  ` ` @         @txhlXPXPHD<8< 8DP\httlllhlthlthlthltxtxtxtxtttxxttxlxlthth xtlh`hXhtxxxxtxxxttxxllttxxlltthhllX\PXHPDH1265H=0 &0,3:H,P:H,Q:0,1:H,R:0,2:H,N &0201,X,C,B*(S/T) &0202,Y,D,B*(S/T) &0203,Z,E,B*(S/T)  TNA G=+810:=G:dR@ .7,6,4,7,5,4,7,2,4,7,5,1,6,5,4,7,3,2,7,1,4