Horse RaceV-:7:7:0::7000X: I"How many races would you like there to be at this meeting ? ";races !"How many punters are there?",a p(a):c=1a p(c)=200 c 9000(# :1999 dc=212 2 i&c/2;c,0;c/2;" " jc-1,2;"" kc l)251,170:0,-102f m713 ,2;"":0,31;1;"o" n?a$="FINISH":c=16:13 +c,31;a$(c):c sBc=16367C-16:24,c:227,0:c x 1000 .5,0:14,0;"READY":.5,6:14,0;"STEADY":.5,12 :14,0;"GO ":.5,18:14,0;" " <ge=0:x(6):c=16:x(c)=2:c c=16 *.03{u\,-20:.03{u\,-30 x(c)=x(c)+(f(c)=1ƥ<.8L)+(f(c)=2ƥ<.77ER)+(f(c)=4ƥ<.74=p)+(f(c)=8ƥ<.715\)+(f(c)=16ƥ<.68.z)+(f(c)=32 ƥ<.65&fff) !c;c*2,x(c)-1;" " x(c)=31ge=1 *.03{u\,-20:.03{u\,-30 c ge=11050  1002 -h(6):many=0:c=16 -x(c)=31many=many+1:h(many)=c c -many=1winner=h(1):1090B E20,0;"There is a photo-finish between these horses: "  521,15;h(1);" ";h(2);" "; !many=3;h(3); " many=4;" ";h(4) $c=1300, )c +er=(*4)+1 .winner=h(er) /winner=01067+ 3,<.33(g$="a short head":10797 4%<.4Lg$="a neck":10797 5g$="1 length" 7I20,0;" " 8O20,1;"The winner is ";winner;" who won by":21,1;g$ 9 130 : = 1100L B`20,1;"The winner is ";winner;" who won by ":" ";(*3)+2;" lengths." G 130: L r=1a MPp(r)=0r=r+1:(1101Mr3);2*c,2;"HORSE ";c;" ";f(c);":1" Wf(c)=1c;(0c>3)+(7c<4);2*c,13 ;"EVENS" c e(a):b(a):f=1a Np(f)=0f=f+1:(2031fp(f)2033 b(f)ɺ(b(f))2033 ,'"On which horse is this to be placed?" e(f) 'e(f)<1e(f)>62036 =17,0;" " A19,0;" " f : p"THE MEETING IS NOW FINISHED" z f=1a Np(f)=0f=f+1:(6015f