MATHSTED f'_h'0:0:0: ':"math"::::::::: :::0:0:"sted" math @ ((UUUUUUUUUDDDD @ @ @ I@I?;I"5I@o@D[@llll77 @7??7?6j_plx8~??~~>8~~>8~~>8~8N(N~>(N@(*N>??~*o*N~*(~8(??~>~y>~~>8~~>8~~>8~8PP~??>Q>~Q>Q~{Q7~??80=~>llll$oo$Eoo$??EoEoo$o{o6E$vE$lE'@$sDDDDPPAAPP{P"PD_@wr??"D"DDD6l?6lll?~?~~8~?>>?~~8>~~8>~~8>~~~?~~8~>>~?~8>~~8>~~8>~~6l6lll0"D"DDD??p? ???p8p???xp?p<<pp?<<<<|x@|>?p?p?p`p?B(BBBBD8D8@D888~~pxx~pppp?B< BBDTxT0Dpppppxx~?>B|BDTDT<xwpxppp?BB@DDTDTD@spppp??B><<<@x8( D(<8 <qx?p?  ??<??CCCCCCCCCCCCCC===//////==CC===((((/=//CC===((((((//CC///((((((//CC//((((((/CC((((((CC((((((CCggg"""ggg""CCggg"""ggg""CCggg"""ggg""CCggg"""ggg""CCCCCCCCCCCCCCWWWWWWWWGBBBBBDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDWWWWWWWW7sted F 9900& Z2:2:2: dn=110 nz$ xf=07 c z$+f,c f n O"A",44,,100$d,245,62>,30,513,33!,33! M"B",0,0,64@,128,128,192,480,0 I"C",3,9 ,25,63?,7,10 ,480,0 K"D",248,184,30,44,,4,4,2,0 J"E",0,0,0,0,0,104h,232,40( K"F",253,217,83S,16,3,0,0,0 J"G",0,0,0,0,25,11 ,15,127 P"H",24,16,219,82R,219,82R,219,82R R"I",24,60<,126~,255,255,126~,126~,60< U"J",193,163,149,137,149,163,193,129 ,5:2: 6Nx=45:4;x,0;" ":x ;R1;1;7;5,0;"" @Px=13 14:4;x,0;" ":x ES1;1;7;13 ,0;"" JPx=1921:4;x,0;" ":x h<2;7,0;" " r<2;8,0;" " |<2;9 ,0;" " =2;10 ,0;" " =2;11 ,0;" " !1;18,23;"" !4;18,14;""  2;18,5;"" 4;3,5;""  1;3,14;"" 3,23;"" ride=1 /x=18:y=30:a=10 :z=3  x,y;"" 6;z,y;"" n=16 +y<1x,y;" ";z,y;" ":590N a 6;z,y;" "  x,y;" " a  y=y-1  x,y;"" 6;z,y;"" a n  a=a/2 x,y;" ";x-1,y;""  %6;z,y;" ";z-1,y;"" a  x,y;" "  z,y;" " x-1,y-1;" " %6;z-1,y-1;" " a -x-1,y-2;" ";x,y-2;"" 66;z-1,y-2;" ";z,y-2;"" !6a:x-1,y-2;" ";z-1,y-2;" " #a & y=y-2 + x,y;"" ,6;z,y;"" /a 0x,y-1;"" 26;z,y-1;"" 4a 5x,y-1;" " 66;z,y-1;" " : y=y-1 D 500 N'ride=1ride=2:450 Xh2;7;20,0;"PLEASE WAIT A MOMENT THE STABLE LAD IS JUST WATERING THE HORSES " b 9000(# l{2;7;20,0;" HE'S BACK ! ";21,0;" PRESS ANY KEY TO CONTINUE " v 0 B[2;7;5,12 ;" DOUBLE ";7,5;"2";7,26;"9" { } 1500 5:5: 1;0,3;" ";2,3;" ";4,3;" ";6,3;" " 1;5;1,3;" YOU CAN CHOOSE THE ";3,3;" KIND OF QUESTIONS YOU ";5,3;" WOULD LIKE TO ANSWER " 5;26,174:5;204,0:5;0,-524:5;-204,0:5;0,524 3;8,10 ;" ";10 ,10 ;" ";12 ,10 ;" ";14,10 ;" ";16,10 ;" " 3;7;9 ,10 ;" MULTYIPLY";11 ,10 ;" DIVIDE ";13 ,10 ;" ADD ";15,10 ;" SUBTRACT " n2;6;9 ,11 ;"1";11 ,11 ;"2";13 ,11 ;"3";15,11 ;"4" 7;82R,109m:7;94^,0:7;0,-68D:7;-92\,0:7;0,68D \4;18,10 ;" ";21,2;" " j4;19,2;" ENTER ";20,2;" THE NUMBER OF YOUR CHOICE " 16,2:0,20:64@,0:0,8:92\,0:0,-8:568,0:0,-20:-212,0 7;3;8,4;"";8,8;"";9 ,5;"";9 ,7;"";10 ,6;"";11 ,5;"";11 ,7;"";12 ,4;"";12 ,8;"" [7;2;8,26;"";10 ,24;"";12 ,26;"" .4;6;15,24;"" 7;1;13 ,6;"";14,6;"";15,4;"";16,6;"";17,6;"" =""665 ((<491)(>524)665 ((<491)(>524)665  select= 8(select=1)(select=2)25:695 8(select=3)(select=4)25:750  ** DIVIDE/MULIIPLY ***  935 line=695  985  2200 m=1question  1020 select=11155 select=21200 ans=0 m  ** ADD/DIVIDE ******* 7:7: j5;1;0,4;" ";1,4;" ADD ";2,4;" " p1;5;0,18;" ";1,18;" SUBTRACT ";2,18;" " 6;5,10 ;" ";6,10 ;" ENTER ";7,5;" ";8,5;" DEGREE OF DIFFICULTY ";9 ,5;" ";10 ,8;" 1 , 2 OR 3 ";11 ,8;" " 1;31,151:1;72H,0:1;0,24:1;-72H,0:1;0,-24 63?,79O:128,0:0,16:24,0:0,24:-480,0:0,16:-88X,0:0,-16:-40(,0:0,-24:24,0:0,-16 =""765 ((<491)(>513)765 ((<491)(>513)765  degree=  r=3  **ADD / DIVIDE ******* line=800   985 ! 2200 %m=1question * 1245 /select=3835C 4select=4880p 6ans=0 9m > C*** ADDITION ******** H>4;20,1;" ";e;" + ";b;" + ";c;" = " M,y$ Ny$=""845M Ql=1̱y$ R(y$(l)<480)(y$(l)>579).2~L,12 :faults=faults+3:2;7;21,27;faults:4;2;21,5;"REFUSAL":845M S&4;21,5;"" Vl Wd=y$ \ xp=e+b+c axp=d1060$ fxpd1105Q p7********************** *** SUBTRACT ****** u>e>b4;20,2;" ";e;" MINUS ";b;" = " z>b>e4;20,2;" ";b;" MINUS ";e;" = " Ke=be=e+6:4;20,2;" ";e;" MINUS ";b;" = " ,y$ y$=""900 l=1̱y$ (y$(l)<480)(y$(l)>579).2~L,12 :faults=faults+3:2;7;21,27;faults:4;2;21,5;"REFUSAL":900 &4;21,5;"" l xv=y$  yv=(e-b) xv=yv1060$ xvyv1105Q *** RANDOM OR ????*** 7:7: m2;7;0,3;" ";1,3;" MULTIPLY ";2,3;" " j3;6;0,20;" ";1,20;" DIVIDE ";2,20;" " 7;26,154:7;76L,0:7;0,20:7;-76L,0:7;0,-20 6;162,154:6;60<,0:6;0,20:6;-60<,0:6;0,-20 6;5,2;" ";6,2;" IF YOU WISH TO ANSWER ";7,2;" RANDOM QUESTIONS ";8,5;" ";9 ,10 ;" ENTER R ";10 ,10 ;" " Z4;13 ,2;" ";14,2;" IF YOU WISH TO ANSWER ";15,2;" QUESTIONS IN ONE TABLE ";16,2;" ";17,2;" ENTER ";18,2;" THE NUMBER OF THAT TABLE ";19,2;" " 14,138:220,0:0,-29:-24,0:0,-8:-40(,0:0,-16:-92\,0:0,16:-40(,0:0,8:-24,0:0,28 _14,14:220,0:0,60<:-220,0:0,-60< ,Y$ ;(Y$=82R)(Y$=114r)ran=502:r=1: Y$=""955 l=1̱Y$ 0(Y$(l)<480)(Y$(l)>579)955 l  table=Y$  r=2  ran=0  *** SET VARIABLES *** question=15  q=0  run=0  *** CREATE NUMBERS ** +ran=502table=(*12 )+1 ,table=1table=(*12 )+1  ,table=1table=(*12 )+1 b=(*12 )+1 $b=1b=(*12 )+1 $b=1b=(*12 )+1  $***** RIGHT ***** ) ans=1 .(0.1}L,14:0.1}L,20 334;20,1;" " 8 5730b L Q***** WRONG ****** Vfaults=faults+4 [ ans=0 ]'0.1}L,1:0.1}L,-5 ^ 5730b `-2;7;21,27;faults e34;20,1;" " ~ **** MULTIPLY *********  1020 ;4;20,2;" ";table;" x ";b; " = " ,y$ y$=""1170 l=1̱y$ (y$(l)<480)(y$(l)>579).2~L,12 :faults=faults+3:2;7;21,27;faults:4;2;21,5;"REFUSAL":1170 &4;21,5;"" l c=y$ c=table*b1060$  1105Q **** DIVIDE *******  c=table*b 84;20,1;c;" DIVIDED BY ";table;" " ,y$ y$=""1220 l=1̱y$ ɷ(y$(l)>579)(y$(l)<480).2~L,12 :faults=faults+3:4;2;21,5;"REFUSAL":2;7;21,27;faults:1220 &4;21,5;"" l y$=c/table1060$  1105Q *** CREATE NUMBERS *** [degree=1e=(*10 )+1:b=(*10 )+1:c=(*10 )+1 [degree=2e=(*15)+5:b=(*20)+9 :c=(*15)+5 [degree=3e=(*19)+9 :b=(*29)+9 :c=(*19)+9   x*select=1select=2715 }*select=3select=4805%  0 4::4  l5,5;"THE GAME CAN BE PLAYED";6,7;"WITH ANY NUMBER OF";7,13 ;"HORSES" Y9 ,4;"OF COURSE ANY RIDER MAY";10 ,4;"RIDE MORE THAN ONE HORSE" 75;19,4;" ENTER NUMBER OF HORSES." 16,151:2;7;223,0:2;7;0,-79O:2;7;-223,0:2;7;0,79O 24,144:7;207,0:7;0,-65A,0:7;-207,0:7;0,65A "20,147:5;214,0:5;0,-72H,0:5;-214,0:5;0,72H ,24,31:5;1;207,0:5;1;0,-23:5;1;-207,0:5;1;0,23 629,26:1;197,0:1;0,-13 :1;-197,0:1;0,13 @,y$ By$=""1600@ El=1̱y$ J-y$(l)<480ůy$(l)>5791600@ Kl Ta=y$ Ua>5020,14;"SORRY !";1,2;"ANY NUMBER MEANS LESS THAN 50";16,7;"PLEASE ENTER AGAIN":1600@ Ynewg=a ^ 10 h r*** RIDERS / HORSE *** |***** DIMENSIONS ***** r$(a,16) h$(a,16) f(a) k(a) v$(a,16) q$(a,16)  SM=0 *** INPUT NAMES **** 7::7 Mn=02:2;n,0;"":n 41,0;"NAMES MAY HAVE UP TO 16 LETTERS"  n=1a &6,7;"NAME OF RIDER: ";n N557,118v:128,0:557,116t:128,0 '12 ,7;"NAME OF HORSE: ";n L557,70F:128,0:557,68D:128,0 R8,6;" ";14,6;" " ,18,5;"ENTER NAME OF RIDER ";n  420,3;" " ;r$(n) 8,7;r$(n) &,18,5;"ENTER NAME OF HORSE ";n 0;h$(n) :14,7;h$(n) Db18,5;" IS THIS CORRECT ? ";20,3;" ENTER ""N"" OR PRESS ENTER" N,y$ X(y$="N")(y$="n")1775 ]n b n=1a q v$(n)=h$(n) r q$(n)=r$(n) tn v7::7 x y {%1;8;" COMPETITORS " }8;"_______________": ~ scr=0  pr=0  N=1a pr=pr+1 #5;3;"RIDER: ";r$(N) #1;5;"HORSE: ";h$(N) 32;3;"* * * * * * * * * * * * * * *" pr=5pr=0:scr=1::5;"PRESS ANY KEY TO CONTINUE":0::8;" COMPETITORS ":8;"_______________": N  ?scr=05;"PRESS ANY KEY TO CONTINUE":1970 1scr>0"DO YOU WISH TO REVIEW THE RIDERS" #5;"PRESS ""Y"" OR ANY KEY" ="Y"Ŧ="y":1914z =""1963  0  course=1 SM=12200  640 **** CHANGE ?? **** 6::6  NUM=a 52,0;"THE TIME FOR EACH ROUND IS SET :" V7,5;"ROUND 1: 60 SECONDS. ";10 ,5;"ROUND 2: 120 SECONDS." 24,64@:1,199,0:1;0,71G:1;-199,0:1;0,-71G _31,71G:185,0:0,579:-185,0:0,-579 317,2;"WOULD YOU LIKE TO CHANGE IT ?" 019,4;"ENTER ""Y"" OR PRESS ENTER" ,Y$ Y$="Y"Y$="y"2300  2400` G19,3;"ENTER HOW MANY SECONDS YOU WOULD LIKE." =6;17,2;" " ,Y$ Y$=""2310 l=1̱Y$ -Y$(l)<480ůY$(l)>5792310 l ti=Y$ $ 2430~ `course=1ti=60< jcourse=2ti=120x ~ ****** LOOP ******* 2510 ret=aret=0:6500d NUM=a n=1a 6*** SET RUNNING **** **** VARIABLES ***** s=5 faults=0 ref=0 ccount=0 d=6 j=1 x=3:y=27 tc=0  jw=0 work=0 tal=0 **** SET UP COURSE ** course=18100 course=28300l *4;2;0,7;r$(n) *4;1;1,7;h$(n) **** START GAMES **** T4;20,1;" PRESS ANY KEY";21,1;" TO CONTINUE"  0 Bcourse=14;20,1;" FIRST ROUND " icourse=24;20,1;" SECOND ROUND ";21,1;" AGAINST THE CLOCK" X(course=1)(course=2)4;21,1;" " ***** MOVEMENT ****** x=3:y=27 course=25200P  5700D  5730b  x,y;"" :t=06:x,y;"":s:x,y;" ":y=y-1:t x,y+1;"" question=1::1400x ans=1y=y-1 Bans=0x,y+1;" ";x,y;"":s:x,y;" ":y=y-1 x,y+2;" "  5730b :t=06:x,y;"":s:x,y;" ":y=y-1:t x,y+1;"" question=1::1400x ans=1y=y-1 Bans=0x,y+1;" ";x,y;"":s:x,y;" ":y=y-1 x,y+2;" "  5730b :t=02:x,y;"":s:x,y;" ":y=y-1:t x,y+1;"" question=1::1400x ans=1y=y-1 Bans=0x,y+1;" ";x,y;"":s:x,y;" ":y=y-1 x,y+2;" "  5730b Gt=03:x,y;"":s:x,y;" ":y=y-1:x=x+1:t x,y+1;""  y=y+1 question=1::1400x ans=1x=x+2 Tans=0x,y;" ";x+1,y;"":s:x+1,y;" ":x=x+2:x,y;"" x-2,y;" "  5730b x,y;"":s:x=x+1: question=1::1400x ,ans=1x=x+1:x-2,y;" " Lans=0x-1,y;" ";x,y;"":s:x,y;" ":x=x+1:x,y;"" x,y-2;" "  5730b :t=02:x,y;"":s:x,y;" ":x=x+1:t x-1,y;"" x-1,y;" " Gt=02:x,y;"":s:x,y;" ":x=x+1:y=y+1:t x-1,y;""  x=x-1 question=1::1400x ,ans=1y=y+2:x,y-2;" " Tans=0x,y;" ";x,y+1;"":s:x,y+1;" ":y=y+2:x,y;""  5730b :t=01:x,y;"":s:x,y;" ":y=y+1:t x,y-1;"" question=1::1400x ,ans=1y=y+2:x,y-3;" " Lans=0x,y-1;" ";x,y;"":s:x,y;" ":y=y+2:x,y;""  5730b :t=03:x,y;"":s:x,y;" ":y=y+1:t x,y-1;"" question=3::1400x ,ans=1y=y+3:x,y-4;" " Lans=0x,y-1;" ";x,y;"":s:x,y;" ":y=y+1:x,y;""  5730b :t=09 :x,y;"":s:x,y;" ":y=y+1:t x,y-1;"" x,y-1;" "  x,y;""  :t=02:x,y;"":s:x,y;" ":x=x-1:t  x+1,y;""  x+1,y;" "  x,y;"" x+1,y;" " question=2::1400x ,ans=1x=x-3:x+3,y;" " Lans=0x+1,y;" ";x,y;"":s:x,y;" ":x=x-1:x,y;""  5730b :t=06:x,y;"":s:x,y;" ":x=x-1:t x+1,y;""  6000p P 5700D U:l=03:x,y;"":s:x,y;" ":y=y-1:l Z(x,y;"":question=1:1400x \ x,y;" " _ans=1y=y-2 dJans=0x,y;" ";x,y-1;"":s:x,y-1;" ":y=y-2 i 5730b n:l=03:x,y;"":s:x,y;" ":y=y-1:l s(x,y;"":question=1:1400x u x,y;" " xans=1y=y-2 }Jans=0x,y;" ";x,y-1;"":s:x,y-1;" ":y=y-2  5730b $x,y;"":s:x,y;" ":y=y-1 (x,y;"":question=1:1400x  x,y;" " ans=1y=y-2 Jans=0x,y;" ";x,y-1;"":s:x,y-1;" ":y=y-2  5730b :l=08:x,y;"":s:x,y;" ":y=y-1:l :l=01:x,y;"":s:x,y;" ":x=x+1:l (x,y;"":question=1:1400x  x,y;" " ans=1x=x+2 Jans=0x,y;" ";x+1,y;"":s:x+1,y;" ":x=x+2  5730b $x,y;"":s:x,y;" ":x=x+1  x,y;"" :l=03:x,y;"":s:x,y;" ":y=y+1:l (x,y;"":question=1:1400x  x,y;" " ans=1y=y+2 Jans=0x,y;" ";x,y+1;"":s:x,y+1;" ":y=y+2  5730b :l=06:x,y;"":s:x,y;" ":y=y+1:l (x,y;"":question=2:1400x $ans=1x,y;" ":y=y+3 Jans=0x,y;" ";x,y+1;"":s:x,y+1;" ":y=y+3  5730b ;l=02:x,y;"":s:x,y;" "::y=y+1:l Gl=01:x,y;"":s:x,y;" ":x=x+1:y=y+1:l Gl=02:x,y;"":s:x,y;" ":x=x+1:y=y-1:l  5730b (x,y;"":question=1:1400x $ans=1x,y;" ":y=y-2 Jans=0x,y;" ";x,y-1;"":s:x,y-1;" ":y=y-2  5730b :l=05:x,y;"":s:x,y;" ":y=y-1:l (x,y;"":question=2:1400x $ans=1x,y;" ":y=y-3 Jans=0x,y;" ";x,y-1;"":s:x,y-1;" ":y=y-3  5730b :l=03:x,y;"":s:x,y;" ":y=y-1:l (x,y;"":question=2:1400x $ans=1x,y;" ":y=y-3 Jans=0x,y;" ";x,y-1;"":s:x,y-1;" ":y=y-3  5730b Gl=02:x,y;"":s:x,y;" ":x=x+1:y=y-1:l x=x+1:x,y;"":s :l=06:x,y;"":s:x,y;" ":y=y+1:l (x,y;"":question=1:1400x $ans=1x,y;" ":y=y+2 Jans=0x,y;" ";x,y+1;"":s:x,y+1;" ":y=y+2  5730b (x,y;"":question=1:1400x $ans=1x,y;" ":y=y+2 Jans=0x,y;" ";x,y+1;"":s:x,y+1;" ":y=y+2 :l=03:x,y;"":s:x,y;" ":y=y+1:l (x,y;"":question=3:1400x $ans=1x,y;" ":y=y+4  Jans=0x,y;" ";x,y+1;"":s:x,y+1;" ":y=y+4  5730b  :l=06:x,y;"":s:x,y;" ":y=y+1:l  (x,y;"":question=1:1400x  1ans=1x,y;" ":y=y+2:x=x-2 Wans=0x,y;" ";x,y+1;"":s:x,y+1;" ":y=y+2:x=x-2  5730b Gl=01:x,y;"":s:x,y;" ":y=y+1:x=x-1:l :l=01:x,y;"":s:x,y;" ":x=x-1:l (x,y;"":question=1:1400x $ans=1x,y;" ":x=x-2 Jans=0x,y;" ";x-1,y;"":s:x-1,y;" ":x=x-2 Dl=04:x,y;"":s:x,y;" ":x=x-1:l:x,y;""  5730b  6000p  D******* TIME ********* N23672x\,0 X23673y\,0 Z b.time=((23673y\)*255)+23672x\ l"time=((time*2))/100d v*2;7;1,26;time   p*** END ROUND ****** u 5730b v.5,5:.25~,7:.25~,8:.25~,5:.25~,12 :.25~,1:.25~,15:.5,5:.25~,8:.25~,7:.5,5 ztime>ti4;20,3;"TIME FAULTS":tf=((time-ti)/4)+1:faults=faults+tf:2;7;21,27;faults  502 hNUMn4;21,1;" NEXT PLAYER READY ?";20,1;" " TNUM=n4;20,3;"PRESS ANY KEY";21,7;" TO CONTINUE"  0  25  f(n)=faults  k(n)=time  n 5:5: d*** RESULT SORT ****** i7::7 j n-0,0;"RESULTS OF ROUND ";course s"UP TO 50 FAULTS" u vtotal=0  pr=0  scr=0 l=0502 fcount=0  n=1a f(n)=lpr=pr+1:fcount=fcount +1:;l;" FAULTS":3;3;"RIDER: ";r$(n):3;1;"HORSE: ";h$(n):3;2;k(n);10 ;"SECONDS":total=total+1:4;"******************************" pr=3a>3pr=0:scr=1::3;"PRESS ANY KEY TO CONTINUE":0::;"RESULTS OF ROUND : ";course: n total=a6581 l Jscr=0:3;"PRESS ANY KEY TO CONTINUE":0:6700, qscr0:4;"WOULD YOU LIKE TO REVIEW";8;"THE RESULTS ?"''5;"PRESS ""Y"" OR ANY KEY." ="Y"Ŧ="y"6500d =""6585 ,**** CLEAR SEARCH **** 6w=0:ccount=0 @ n=1a Jcf(n)=wccount=ccount+1:r$(ccount)=r$(n):h$(ccount)=h$(n):f(ccount)=f(n):k(ccount)=k(n) Tn ^)ccount<1w=w+1:6720@ h/(ccount=1)(course=1)6850 i/(ccount=1)(course=2)6900 r x REV=0 |/course=10,5;"NEXT ROUND"  pr=0 2,0;w;" FAULTS"   scr=0  a=ccount  n=1a pr=pr+1 O3;"RIDER: ";r$(n):1;"HORSE: ";h$(n):2;"TIME : ";k(n): bpr=3a>3pr=0:scr=1::3;"PRESS ANY KEY TO CONTINUE":0: n scr=06837 ]3;"DO YOU WISH TO REVIEW";6;" THE RESULTS.";3;"PRESS ""Y"" OR ANY KEY" '="Y"Ŧ="y":pr=0:6780| =""6832  6839 ;"PRESS ANY KEY TO CONTINUE"  0  a=ccount .course=1course=2::2000 course=2:6900 „7::7:1;2;1,11 ;"";3,11 ;"";2,11 ;" WINNER " o2;5,1;"";12 ,1;"" @x=611 :2;x,1;"";x,30;"":x ű7,3;"RIDER :";r$(1);8,3;"HORSE :";h$(1);9 ,3;9 ,3;"FAULTS :";f(1);10 ,3;"TIME :";k(1) ̞course=116,4;"WOULD YOU LIKE TO CONTINUE TO THE NEXT ROUND ? ENTER ""Y"" OR ANY KEY" Xcourse=216,2;"PRESS ANY KEY FOR NEW OPTIONS":0:7500L ="Y"Ŧ="y":6900 =""6870  7500L  a=ccount ,course=1course=2:2000 Xa=17086 Z(n=(a+1)newg:k(n)=1000:n ] a=a-1 b n=1a {k(1)>k(n+1)k(1)=k(n+1):h$(1)=h$(n+1):r$(1)=r$(n+1):f(1)=f(n+1) n *** PRINT RESULT **** 7::7 9x=06:1;x,11 ;" ":x MX=720:1;X,1;" ":X |1;2;6,0;"";21,0;""  @x=720:1;x,0;"";x,31;"":x Ix=15:1;2;x,11 ;"";x,20;"":x 21;2;0,11 ;"" *?1;2,13 ;"FINAL";4,13 ;"WINNER" +l$=r$(1) ," len=0:n=116 -"l$(n)32 len=len+1 /n 0len=len/2 4o$=h$(1) 5"lenh=0:n=116 6$l$(n)32 lenh=lenh+1 7n 8lenh=lenh/2 <1;3;8,15-len;r$(1);1;12 ,15-lenh;h$(1);0;15,13 ;f(1);2;18,10 ;k(1) =1;2;10 ,13 ;"RIDING";14,14;"WITH";17,15;"IN";18,16;"SECONDS";15,16;"FAULTS" > 200 H81;21,4;"PRESS ANY KEY TO CONTINUE" M 0 R L6******************** ** NEW GAME INST, ** Q5:5: V|1;1;0,0;"";21,0;"" [M1;1;2,12 ;"";6,12 ;"" `Ix=35:1;1;x,12 ;"";x,19;"":x eIx=120:1;1;x,0;"";x,31;"":x t5x=35:1;x,13 ;" ":x y,1;1;4,14;"MENU" {02;7;9 ,12 ;"NEW GAME" ~81;11 ,3;"SAME RIDERS - NEW MATHS" 91;13 ,3;"SAME RIDERS - SAME MATHS" 81;15,3;" NEW RIDERS - NEW MATHS" )1;18,12 ;"CLOSEDOWN" 7;2;11 ,16;"A";13 ,16;"B";15,16;"C";18,10 ;"D";18,22;"D" (="A")(="a")7600 9(="b")(="B")course=1:SM=1:7602 ((="c")(="C")SM=0:637} (="d")(="D"):7575  7560 0:0: M7;10 ,10 ;"""GOODBYE""";12 ,8;"HAPPY JUMPING"  7576 6******************** * NEW GAME SAME PL *  SM=0 a=newg  n=1a  r$(n)=q$(n)  h$(n)=v$(n) k(n)=0 f(n)=0 n  1910v @*** OUTLINE COURSE *** J6:5: TU4;" RIDER: ";1,0;" HORSE: " ^I2;7;0,26;" TIME ";1,26;" " hd4;20,0;" ";21,0;" " rO2;7;20,24;" FAULTS ";21,24;" " w3,27;"" |62;6,27;"";6,31;""  *** FIRST COURSE ****  8000@ 4;2,8;"";2,12 ;"";2,20;"";8,1;"";10 ,1;"";12 ,27;"";13 ,8;"";13 ,11 ;"";13 ,17;"" 4;6,8;"";6,12 ;"";6,20;"";17,8;"";17,11 ;"";17,17;"" L4;8,5;"";10 ,5;"";12 ,31;"" U2;1;3,20;"";4,20;"";5,20;"" ^4;1;7;3,12 ;"";4,12 ;"";5,12 ;"" I1;3,8;"";4,8;"";5,8;"" B2;1;8,2;"";10 ,2;"" _0;7;1;;14,8;"";15,8;"";16,8;"" a2;1;7;14,11 ;"";15,11 ;"";16,11 ;"" X1;1;14,17;"";15,17;"";16,17;"" E2;1;11 ,28;"";12 ,28;"" &5;1;14,18;" ";15,18;" ";16,18;" ";17,18;" ";13 ,18;" " :*4;20,1;"FIRST ROUND" D l***** SECOND ROUND *** q 8000@ D4;10 ,6;"";2,13 ;"";2,16;"";2,22;"";6,1;"";7,18;"";10 ,27;"";12 ,1;"";11 ,11 ;"";11 ,20;"";16,8;"";16,10 ;"";16,16;"";14,26;"" 4;6,13 ;"";6,16;"";6,22;"";10 ,18;"";14,11 ;"";14,20;"";19,8;"";19,10 ;"";19,16;"" x4;6,5;"";10 ,31;"";14,6;"";7,9 ;"";18,29;"" U2;1;3,22;"";4,22;"";5,22;"" ^4;1;7;3,16;"";4,16;"";5,16;"" ^4;1;7;3,13 ;"";4,13 ;"";5,13 ;"" *1;1;6,2;"" r7;0;1;7,8;"";8,8;"";9 ,7;"";10 ,7;"" J2;1;7;8,17;"";9 ,17;"" J1;1;7;12 ,20;"";13 ,20;"" C3;1;12 ,11 ;"";13 ,11 ;"" X7;1;12 ,2;"";13 ,4;"";14,5;"" m2;1;17,8;"";17,10 ;"";18,8;"";18,10 ;"" J2;1;7;17,16;"";18,16;"" !q7;1;15,26;"";16,26;"";17,27;"";18,28;"" ! 52;1;7;10 ,28;"" !s5;1;16,17;" ";17,17;" ";18,17;" ";19,17;" " !4 #(*** GRAPHICS DATA **** #- 9100# #2N=121 #<Z$ #FF=07 #PW #Z Z$+F,W #O"A",0,546,22,216,126~,502,88X,136 #M"B",0,4,232,42*,255,42*,232,4 #O"C",136,88X,502,126~,216,22,546,0 #P"D",84T,84T,124|,16,124|,146,568,16 #O"E",17,26,76L,124|,27,104h,108l,0 #M"F",32 ,23,84T,255,84T,23,32 ,0 #O"G",0,108l,104h,27,126~,76L,26,17 #K"H",8,28,73I,62>,8,62>,42*,42* #Q"I",24,60<,102f,195,24,60<,102f,195 #Q"J",17,513,102f,204,204,102f,513,17 #S"K",238,14,224,238,238,14,224,238 #Q"L",0,221,221,221,0,187,187,187 $M"M",255,0,255,0,255,0,255,0 $U"N",170,170,170,170,170,170,170,170 $S"O",255,195,102f,60<,60<,102f,195,255 $"U"P",193,227,182,156,156,182,227,193 $,I"Q",7,63?,255,63?,7,1,1,1 $6P"R",3,15,63?,63?,127,127,255,255 $@U"S",192,240,252,252,253,254,255,255 $JP"T",255,255,127,127,63?,63?,15,3 $TU"U",255,195,165,153,153,165,195,255 $F $N $ &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &0:0:7: &22,7;"PUBLISHED BY ";1;"" &!3,22;1;"" &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the":"copyright, of MATHSTED.":"Please note unauthorised copying":"hiring, and lending of this":"software is strictly prohibited." &A21,3;6;1;"Press any key to continue" &=""9965& &