ZXTape! 0Created with BASin Release 13aDayAtRaces!!.#N:4,7;"PRESS ANY KEY FOR";6,7;"A DAY AT THE RACES"  0 54:4::4,10 ;"PLEASE WAIT"  9000(# 236099\,255: money=20:race=0 !a$=" ":b$=" ":c$=" " 17::1,18;"You have $";money money=09900& race=race+1 " &race=10 9950& (c1=(*3) *c2=(*3) ,c3=(*3) 2c1=2c1=7 4c2=2c2=7 6#c3=2ƥ>.5c3=7 <sad=(*3)+4 Asad=4sad=2 FY4:f=10 21:f,0;4;" ":f KL0,96`:36$,36$:183,0:36$,-36$ Lq0,96`:0,16:36$,24:255,96`:0,16:-36$,24 ML36$,132:0,16:183,0:0,-16 N=4,5;1;6;" A DAY AT THE RACES " PRf=69 :d=414:f,d;2;"";f,d+13 ;"":d:f U2;7,3;"";7,28;"";8,2;"";8,28;"";9 ,1;"";9 ,28;"" ZJf=031:10 ,f;1;7;"";21,f;"":f _7race=9 21,11 ;1;"LAST RACE" dS12 ,0;c1;4;a$;13 ,0;b$;12 ,2;sad;"" n[15,0;c2;4;a$;16,0;b$;15,2;sad+1;"" x\18,0;1;c3;4;a$;19,0;b$;18,2;sad;"" n=(*18)+1 }f=12 183:f,6;(f/3)-3;:(8000@+n+((f/4)-3)):n$:f,27;"/1":f 7000X Af=01:g=116:f,g;" ":g:f:25 Jf=12 183:g=629:f,g;4;" ":g:f !a=0:b=0:c=0 I12 ,a;c1;4;a$;13 ,a;b$;12 ,a+2;sad;"" .006yD,-15 Q15,b;c2;4;a$;16,b;b$;15,b+2;sad+1;"" I18,c;c3;4;a$;19,c;b$;18,c+2;sad;"" -a=a+*1:b=b+*1:c=c+*1 Pa>2712 ,27;4;" ";13 ,27;" ":a=28 I12 ,a;c1;4;a$;13 ,a;c$;12 ,a+2;sad;"" a=281000 Pb>2715,27;4;" ";16,27;" ":b=28  .013zT,-14 Q15,b;c2;4;a$;16,b;c$;15,b+2;sad+1;"" b=281050 Pc>2718,27;4;" ";19,27;" ":c=28 "I18,c;c3;4;a$;19,c;c$;18,c+2;sad;"" 'c=281100L ,.006yD,-15 ^ a=a+:b=b+:c=c+:200 ug=110 :13 ,g;" THE WINNER ! ! !":.01z# >,40(:.03{u],30+g:g:.5,20 /bet=1money=money+(stake+(stake*odd1)) 1,28;money  25 ag=110 :16,g;" THE WINNER ! ! !":.01z# >,30+g:g:.5,15 $/bet=2money=money+(stake+(stake*odd2)) .1,28;money 8 25 LHg=110 :19,g;" THE WINNER ! ! !":.5,10 V/bet=3money=money+(stake+(stake*odd3)) `1,28;money j 25 Xodd1=(*5)+2 bodd2=(*5)+2 lodd3=(*5)+2 nodd1=6odd1=7 p'odd2=4ƥ>.5odd2=8 r'odd3=5ƥ>.6odd3=9 vI12 ,26;odd1;15,26;odd2;18,26;odd3 G0,1;"Do you wish to";1,1;"place a bet y/n?" -="y"Ŧ="Y".25,10 :7130 7="n"Ŧ="N".25,10 :b=0:172  7110 G0,1;"Which horse ";1,1;"1, 2, or 3 ? " J="1"12 ,31;4;7;"*":bet=1:7200  J="2"15,31;4;7;"*":bet=2:7200  J="3"18,31;4;7;"*":bet=3:7200   7140  ].25,10 :0,1;"How much do you ";1,1;"want to bet ? " *stake 4ustake>money.3,-10 :0,1;"Not enough money";1,1;" Try again ":7210* >money=money-stake H21,28;" ";1,28;money RK0,1;" ";1,1;" ": An$=" SATURDAYS BOY ": Bn$=" SAINT PATRICK ": Cn$=" DIETOVER ": Dn$=" QUEEN & COUNTRY ": En$=" MR POPPY ": Fn$=" PINKYS BARN": Gn$=" CHIMNEY SWEEP": Hn$=" MICRO-CHIP ": In$=" TAXI FARE ": Jn$=" PURPLE JIM ": Kn$=" BRICK A BRACK ": Ln$=" TEXAS BORN ": Mn$=" BRICK A BRACK ": Nn$=" JAM AND BREAD ": On$=" FIFTY GUINEAS ": Pn$=" WONDERFUL WILF ": Qn$=" BOB A JOB ": Rn$=" RACE EM ALL ": Sn$=" LONDON BRIDGE ": Tn$=" MOON MAN ": #' #(Ef=111 :n=07:a:(143+f)+n,a:n:f #20,0,0,0,0,0,31,127,0,0,0,0,1,255,255,255,160,160,112p,216,252,254,239,194 #<159,159,152,40(,40(,40(,72H,144,255,255,0,0,0,0,1,0,192,192,160,80P,72H,68D,132,8 #F159,159,152,20,10 ,9 ,9 ,5,255,255,1,2,20,25,2,4,192,128,128,128,128,0,0,0 #P24,60<,126~,86V,126~,36$,60<,66B,0,255,102f,102f,102f,255,102f,102f #Z &Ef=40(-10 -2:.01z# >,f:.01z# >,f+10 :f &_5::1,0;" You have run out of money you will now have to walk home " & 9970& &Ef=40(-10 -2:.01z# >,f:.01z# >,f+10 :f &W5::1,0;" That was the last race of the day. You have $";money &120,2;"Press any key to play again" &0:10