ZXTape! 0Created with Ramsoft MakeTZXDATA DIV 2>S  data Div 2  5:5:0: :"ET SOFTWARE PRESENTS": Y :"SPEEDWAY DATAFILE  1992"::"(Division Two)"::"Program devised by Eddie Thewlis" ::"1 MATCH REPORT" :"2 RIDER UPDATE" :"3 HELP!" :::"Select Number" "followed by ENTER",d d=160< d=258: d=39500% !)d1d2d325 :)7:7:0::6000p <(:0:0:7:0: B.t$(13 ,14):r$(14,14) C,h$(7,14):w$(7,14) DXd$(1,16):m$(1,14):o$(1,14):f$(1,18) Fx=113 :t$(x):x P$a(7):b(7):c(7) Z$h(7):i(7):j(7) _'s$=" " dJ:aw=0:pa=0:pb=0:jj=0:pr=0:ps=0 e)x=113 :x;4;t$(x):x f70,20;"MATCH":1,20;"REPORT" g019,0;"Any Team Name change (y/n)" h=""104h i="y"108l j="n"113q k"y"Ŧ"n"104h l!"Type Number of name change ";x m!x<1x>13 108l n519,0;"Number ";x;" " o*"New name, maximum 14 letters ";t$(x) p 100d q319,0;"Press number of Home Team " r"followed by ENTER",q s!q<1q>13 114r t 150 ux=17:r$(x):x v#x=17:h$(x)=r$(x):x xFy=q:7:3,18;"Home Team":4,18;t$(y) /19,0;"Press number of Away Team" "followed by ENTER",q !q<1q>13 131 150 x=17:r$(x):x #x=17:w$(x)=r$(x):x =z=q:6,18;"Away Team":7,18;t$(z) 0"Type date match took place ";d$(1) 518,0;s$;"Date ";d$(1);" " :"Press any key" 0 :200 q=19050Z#: q=29055_#: q=39060d#: q=49070n#: q=59080x#: q=69090#: q=79100#: q=89110#: q=9 9120#: q=10 9130#: q=11 9140#: q=12 9150#: q=13 9160#:  "Date ";d$(1) t$(y) (x=17:x;2;h$(x):x :t$(z) (x=17:x;2;w$(x):x aw=1350^ =18,0;"Any name changes ";t$(y),;" team? (y/n)" 0 =""255 ="y"300, ="n"350^ "y"Ŧ"n"255 ,"Select rider number ";x - x<1x>7300, 6"New name, rider ";x 7"Max. 14 letters";h$(x) @ 200 ^ aw=1 _=18,0;"Any name changes ";t$(z),;" team? (y/n)" ` 0 c=""355c d="y"400 e="n"500 f"y"Ŧ"n"355c "Select rider number ";x  x<1x>7400 "New name, rider ";x "Max. 14 letters";w$(x)  200  $aw=0:rr=0:rs=1 :1500 rr=1800  !19,0;t$(y);" team" &"Select rider Number for scores ";x  x<1x>7509 .20,0;h$(x);" " )"Number of rides ";a:a(x)=a:900 *"Number of points ";b:b(x)=b:900 0"Number of bonus points ";c:c(x)=c:900  502  rs=rs+1  rs8rr=1  502 &x=17 0pa=pa+b(x):x 59 ,22;pa :)19,0;s$;s$;"Press any key" ?0:0 Xops Y$aw=0:rr=0:rs=1 Z$:1500:9 ,22;pa [rr=1850R ]!19,0;t$(z);" team" `&"Select rider Number for scores ";x a x<1x>7608` b-20,0;w$(x);" " c)"Number of rides ";h:h(x)=h:905 e*"Number of points ";i:i(x)=i:905 g0"Number of bonus points ";j:j(x)=j:905 l 502 mrs=rs+1 nrs8rr=1 v 602Z x=17 pb=pb+i(x):x 18,22;pb )19,0;s$;s$;"Press any key" 0:0  "MATCH REPORT ";d$(1) :t$(y);pa:t$(z);pb jj=1720 &"Entertainment value No. 1 to 10 ";e :"Entertainment value: ";e jj=1730 /"Man of the Meeting, type name ";m$(1) ":"Man of meeting: ";m$(1) jj=1740 /"Most exciting rider, type name ";o$(1) 2:"Most exciting rider of match: ";o$(1) jj=1743 /"Fastest time plus rider name ";f$(1)  :"Fastest time: ";f$(1) jj=1750 "Comments, if any, no more than four lines of type please (To avoid splits in words press spaces to start new line) When finished press ENTER ";j$ :"Comments":j$ ps=11300 #21,0;"Press any key"  0  1000  C19,0;t$(y);"team":"(Any other scores/changes (y/n)" %=""805% &="y"505 '="n"550& ("y"Ŧ"n"805% RC19,0;t$(z);"team":"(Any other scores/changes (y/n)" W=""855W X="y"605] Y="n"650 Z"y"Ŧ"n"855W S20,0;x;2;h$(x);17;a(x);22;b(x);29;c(x): S20,0;x;2;w$(x);17;h(x);22;i(x);29;j(x): menu &0:0:7:0: :"MENU ";d$(1) +:"You now have the following":"options" :"1 Look at Match Scores" :"2 Look at Match Report" :"3 Print out Match Scores"  :"4 Print out Match Report" :"5 Save onto a blank tape" :"6 Start a new Datafile" %::"Press appropriate number ONLY"  0 =""1052 ="1"pr=0:1100L $*="2"jj=1:ps=0:700 )="3"pr=1:1100L .*="4"jj=1:ps=1:700 3="5"1200 8="6":5 =1"1"Ŧ"2"Ŧ"3"Ŧ"4"Ŧ"5"Ŧ"6"1052 L;:1500:9 ,22;pa:18,22;pb Npr=11300 Q#21,0;"Press any key" V 0 [ 1000 save  p"Type in your heading, ";"Match 1";" or ";"Match 2 ";" etc. or ";"Date ";"took place, followed by ENTER": "No more than 10 characters" ::"Make sure you have blank tape":"ready in cassette!!" p:"After it is SAVED it will say"::"Press any key."::"You will then have this":"particular match on tape" "to load in at any time" "Save this heading ";v$ ::"SAVING ";v$ v$1000 ::"YOU NOW HAVE SAVED ";v$ :"STOPPED THE TAPE???!!!!" #21,0;"Press any key"  0  1000 -print out of match scores plus match report f19,0;"Press p if printer attached":20,0;"Any other key to return to Menu" #=""1315# (="p"1350F -"p"1000 F19,0;s$;s$ K P#21,0;"Press any key" U 0 Z 1000  7:"Date ";d$(1) 9t$(y);17;"Rds";22;"Pts";27;"B.Pts" x=17 Bx;2;h$(x);17;a(x);22;b(x);29;c(x):x  :t$(z) x=17 Bx;2;w$(x);17;h(x);22;i(x);29;j(x):x  priders update q7:7:0: u$:10 ,10 ;"PLEASE WAIT" v/t$(13 ,13 ):r$(117u,12 ) wTr(117u):p(117u):b(117u):m(117u):v(117u):t(117u) xd$(1,14) zx=1 13 :t$(x):x {x=1117u:r$(x):x :7:7:0:  's$=" " )x=113 :x;3;t$(x):x "3,17;"20 SAVE FILE" A6,17;"22 TYPE DATE ";7,17;d$(1) @4,17;"21 START NEW":5,20;"DATAFILE" 70,20;"RIDER":1,20;"UPDATE"  018,0;"Any Team Name change (y/n)"  =""6154   ="y"6169 ="n"62008 "y"Ŧ"n"6154  !"Type Number of name change ";x "x<1x>13 6169  "Number ";x *"New name, maximum 13 letters ";t$(x)  6100 8418,0;"press chosen number " J"followed by ENTER",q L-q=1f=1:g=9 :7000X M/q=2f=10 :g=18:7000X N/q=3f=19:g=27:7000X O/q=4f=28:g=36$:7000X P/q=5f=37%:g=45-:7000X Q/q=6f=46.:g=546:7000X R/q=7f=557:g=63?:7000X S/q=8f=64@:g=72H:7000X T/q=9 f=73I:g=81Q:7000X U0q=10 f=82R:g=90Z:7000X V0q=11 f=91[:g=99c:7000X W2q=12 f=100d:g=108l:7000X X2q=13 f=109m:g=117u:7000X Yq=146218J Zq=156218J [q=166218J \q=176218J ]q=186218J ^q=19 6218J `q=208000@ eq=226800 jq=21:5 t"q<1q>226218J  "Date";d$(1)  6100 X bCt$(q);16;"M";19;"R";23;"Pts";27;"CMA" cd$(1);23;"+Bp": lx=fg m[x;4;r$(x);16;m(x);19;r(x);23;t(x);27;v(x):x::::: q"any name change (y/n)" r"or type p to printer" sE"or type i to go to Index for ":"saving or new Datafile etc " t=""7028t v="y"7100 x="n"7200  {="i"6100 }="p"7400 %"y"Ŧ"n"Ŧ"i"Ŧ"p"7028t 17,0;s$;s$ -"Number ";f;" to ";g;" to change name ";s$ "select rider number ";x xg7100 819,0;"Number ";x;" " *"New Name, Maximum 12 Letters ";r$(x) Tr(x)=0:p(x)=0:b(x)=0:t(x)=0:v(x)=0:m(x)=0  6220L  17,0;s$;s$ !-"Number ";f;" to ";g;" to Update ";s$ "!"Select Rider No. to Update ";x $xg7200  %+19,0;r$(x);" Update " (1"Number of matches ";m:m(x)=m(x)+m:7300 */"Number of rides ";r:r(x)=r(x)+r:7300 /0"Number of points ";p:p(x)=p(x)+p:7300 46"Number of bonus points ";b:b(x)=b(x)+b:7300 9t(x)=p(x)+b(x) :r(x)<47250R >v(x)=(t(x)/r(x))*4 C"v(x)=(v(x)*100d)/100d R502:7000X b20,0;x;4;r$(x);16;m(x);19;r(x);23;p(x);27;b(x): 17,0;s$;s$;s$;s$ :7000X @(::"press key 0 to return to index": A2"press key 1 to save":"and follow instructions" B="1"8005E C="0":6100 D"1"Ŧ"0"8002B E J@"Type in Date when you entered ":"scores, or updated scores" K"followed by ENTER" O :"No more than 10 characters" Q::"Make sure you have blank tape":"ready in cassette!!" T9:"After it is SAVED it will say"::"Press any key.": U5"You will then have this":"present Update on tape" V"to load in at any time" Y"Save this heading ";e$ \::"SAVING ";e$ ^e$6100 r:"YOU NOW HAVE SAVED ";e$ w:"STOPPED THE TAPE???!!!" |:"Press any key"  0  6100 #( "Berwick","Edinburgh","Exeter" #2("Glasgow","Long Eaton","Middlesbrough" #7*"Mildenhall","Milton Keynes","Newcastle" #<("Peterborough","Rye House","Sheffield" #A "Stoke" #ZP"R.Knight","S.Robson","D.Walsh","S.Lamb","D.Blackburn","C.Readshaw","M.Lowrie" #[ "R.Grant","G.Hislop" #_W"L.Collins","M.Coles","B.Saunders","D.Fliegert","K.McKinna","J.Jorgensen","D.Winkler" #`"M.McLuskey","W.Park" #dK"T.Olsson","M.Simmonds","P.Jeffery","C.Cook","R.Green","P.Fry","J.Elkins" #e "S.Jacobs","T.Fey" #nU"S.Lawson","M.Powell","N.Collins","R.Nagy","R.Csillik","T.Kornel'sen","J.Straughan" #o"J.Grieves","M.Carter" #xX"J.Staechmann","G.O'Hare","M.Dixon","C.White","C.Blackbird","D.Prinsloo","P.Blackbird" #y"J.Reed","M.Irving" #S"S.Regeling","M.Lemon","D.Sumner","D.Odom","D.Cheshire","D.Chapman","D.Pickering" #"M.Jones","J.Hanley" #J"M.Taylor","G.Tagg","N.Leaver","I.Barney","D.Smart","J.Habbin","J.Olson" #"S.Clouting","N.Wilson" #P"G.Kennett","J.Walker","R.Hellsen","P.Glanz","L.Munkedal","D.Steen","J.Cooper" #"K.McCullagh","G.Daniels" #P"D.Bargh","W.Garrett","M.Thorpe","P.Jeffery","S.Norman","M.Schofield","R.Juul" #"S.Wicks","D.Nagel" #T"M.Poole","R.Colquhoun","P.Whittaker","M.Blackbird","S.Davies","J.Crump","P.Hurry" #"D.Tupper","G.Frankum" #Z"M.Goodwin","T.O'Brien","J.Pedersen","S.Courtney","M.Courtney","W.Baxter","J.Wainwright" #"C.Young","M.Cobbin" #Q"N.Evitts","S.Johnston","P.Carr","S.Green","L.Carr","M.Hepworth","D.Wolstnh'me" #"D.Keats","S.Coleman" #U"N.Crabtree","D.Standing","E.Monoghan","G.Chessell","A.Grahame","G.Stead","A.Hoole" #"M.Powell","T.Barlow" %help %! %&f" Every protection has been made ":"to ensure no problems when the ":"program is running but one" %(}"which may occur is by chance you":"may type a letter when a number ":"is asked for, and you have ":"pressed ENTER" %*:" All is not lost. You will get ":"Variable not found" %+ " If you are in 48K mode then" %,~"type the letter c (meaning ":"Continue), followed by ENTER, ":"which will then ask you":"to select a number again" %.:" One other small reminder... ":"Avoid using CAPS LOCK key. ":"suggest using CAPS SHIFT for any":"capital letters." %0:"Press any key" %1 0 %5 %:"When using 'Rider Update' always":"LOAD in most recent SAVED data ":"so that you can then update your":"team or all teams throughout the":"season. One match at a time." %<:"If you feel the line-up is not ":"correct on 'Match Report' you ":"can always move riders around ":"with the name change question." %>"Try it and see!!" %@}:"Remember that if you want to":"start a new DATAFILE then all":"data you have typed in will be":"cleared from memory." %B-"So if you want it...":"SAVE or PRINT-OUT" %D:"Press any key" %E 0 %I %Ny"Once you have typed in and SAVED":"information on 'Rider Update', you will not need to load our":"original tape.": %Pe"Just keep loading in your SAVED ":"data, to Update...remembering ":"what 'heading' you saved." %R:"The same applies to Match Report":"If you want to look at your ":"'Report' or Print-Out, you LOAD ":"in your SAVED version whatever ":"'Heading' you used." %TV:"The Spectrum will load in all ":"information with the original ":"program." %X:"Press any key" %Y 0 %] %b"Finally we would point out that ":"when 'Rider Updating' enter most":"recent information. The ":"computer will ADD TO the present":"details." %ld::"This Database is devised to last":"you a lifetime.... while you ":"have the Spectrum..." %nd:"I hope it will be useful for ":"many speedway years to come"::" Eddie Thewlis" %#21,0;"Press any key" % 0 % 5 Ԯ Berwick Edinburgh Exeter Glasgow Long Eaton MiddlesbroughMildenhall Milton KeynesNewcastle Peterborough Rye House Sheffield Stoke ҁu R.Knight S.Robson D.Walsh S.Lamb D.Blackburn C.Readshaw M.Lowrie R.Grant G.Hislop L.Collins M.Coles B.Saunders D.Fliegert K.McKinna J.Jorgensen D.Winkler M.McLuskey W.Park T.Olsson M.Simmonds P.Jeffery C.Cook R.Green P.Fry J.Elkins S.Jacobs T.Fey S.Lawson M.Powell N.Collins R.Nagy R.Csillik T.Kornel'senJ.Straughan J.Grieves M.Carter J.StaechmannG.O'Hare M.Dixon C.White C.Blackbird D.Prinsloo P.Blackbird J.Reed M.Irving S.Regeling M.Lemon D.Sumner D.Odom D.Cheshire D.Chapman D.Pickering M.Jones J.Hanley M.Taylor G.Tagg N.Leaver I.Barney D.Smart J.Habbin J.Olson S.Clouting N.Wilson G.Kennett J.Walker R.Hellsen P.Glanz L.Munkedal D.Steen J.Cooper K.McCullagh G.Daniels D.Bargh W.Garrett M.Thorpe P.Jeffery S.Norman M.Schofield R.Juul S.Wicks D.Nagel M.Poole R.Colquhoun P.Whittaker M.Blackbird S.Davies J.Crump P.Hurry D.Tupper G.Frankum M.Goodwin T.O'Brien J.Pedersen S.Courtney M.Courtney W.Baxter J.WainwrightC.Young M.Cobbin N.Evitts S.Johnston P.Carr S.Green L.Carr M.Hepworth D.Wolstnh'meD.Keats S.Coleman N.Crabtree D.Standing E.Monoghan G.Chessell A.Grahame G.Stead A.Hoole M.Powell T.Barlow LuLuLuLuLuLu  S {