MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R CACTUAR g DISK PLUS3DOS;322/Cactuar Racing Extreme 2001 XFAWORLD A9000(#:9900&:0:0:7::40(: "q1:0,0:255,0:0,175:-255,0:0,-175:7 #F1,1;1;4;0;"CACTUAR RACING EXTREME" $,20,1;2;"2001 XFAWORLD" %3,1;"Welcome to the CRX League!";4,1;"Can you make a shed load of";5,1;"cash on the Cactuars?";7,1;4;"" &-8,1;6;"CODING BY:XFA84" '<9 ,1;4;"" (<10 ,1;5;"Press SPACE to go to the CRXL" )=11 ,1;4;"" *;13 ,1;3;"Jumbo Cactuar is waiting...." +=" "45- , 43+ - .a$(4,10 ) /0,0;4;"";7;" HOW MANY PLAYERS? ";:players:players>4players<11,0;"MUST BE 1 - 4 PLAYERS.":47/ 0,players'" " 1a=1players 2<a+1,0;4;" ";7;"PLAYER ";a;":"; 3a$(a) 4a$(a) 5Ea:''4;"";7;" WHICH YEAR TO START AT? ";:year:year 6''5;"Press SPACE" 7=" "579 8.q$(12 ,10 ):q$(1)="JANUARY":q$(2)="FEBRUARY":q$(3)="MARCH":q$(4)="APRIL":q$(5)="MAY":q$(6)="JUNE":q$(7)="JULY":q$(8)="AUGUST":q$(9 )="SEPTEMBER":q$(10 )="OCTOBER":q$(11 )="NOVEMBER":q$(12 )="DECEMBER":557 9:b$(4,10 ):a=14:b$(a)="-":a:c(4):m(4):a=14:c(a)=0:m(a)=400:a:v(4):a=14:v(a)=0:a :10 ,0;"Hold on a while...":c$(10 ,10 ):a=110 :9100#:z=1̺(*29)+1:c$(a):z:a:8000@:p(10 ):a=110 :p(a)=100d:a:d$(5,10 ) ;Pe(4):f(4):g(4):j(5):r=112 :7000X <t=1players =1:1:7: >!0,0;q$(r);" ";year ?/21,0;a$(t);" CASH `";m(t);" " @;3,0;"CACTUAR ";1;"S";0;"TABLE" A95,0;"CACTUAR ";1;"P";Track-Info  R 0;"OOL" B>7,0;"SEE ";1;"J";0;"UMBO CACTUAR" C29 ,0;1;"E";0;"ND TURN" D%="s".1}L,20:100d E="p"110n F="j"150 G="e"200 H 68D db$(t)="- "11 ,0;"You do not own a Cactuar.":1,-20:11 ,0;" ": eK11 ,0;"CACTUAR OWNED:";b$(t);12 ,0;"VALUE `";v(t) f?14,0;1;"S";0;"ELL CACTUAR TO POOL" g515,0;1;"D";0;"O NOTHING" h="s"300, ic="d".1}L,20:a=11 15:a,0;" ":a: j 104h n@a=110 :a+10 ,0;a;" :";c$(a);" `";p(a) o;a=10 a+10 ,0;a;":";c$(a);" `";p(a);" " pa q"WHICH ONE?(0 if none) ";a r!a<1a>10 140 sp(a) > m(t)a=11 20:a,0;" ":a:11 ,0;"NOT ENOUGH MONEY":1,-20:11 ,0;" ": t2c$(a)="- "1,-20:113q ub$(t)="- "120x vC11 ,0;"You already own a Cactuar.":1,-20 w 140 xSb$(t)=c$(a):v(t)=p(a):m(t)=m(t)-p(a):c$(a)="-":p(a)=0:1,20 xa=11 20:a,0;" ":a:21,0;a$(t);" CASH `";m(t);" ": 11 ,26;2;" ";12 ,26;4;0;" ";13 ,26;" ";14,26;" ";15,26;" ";16,26;" ";17,26;" ";18,26;" " %11 ,0;"HOW CAN I HELP?" 814,0;1;"E";0;"NTER CACTUAR" 216,0;1;"N";0;"OTHING" ="n"140 ="e"160 154 "`10 to enter race (y/n) ";z$ z$="n"140 z$="y"164 160 em(t) < 10 11 ,0;"NOT ENOUGH MONEY ":1,-20:140 ab$(t)="- "11 ,0;"You do not own a Cactuar.":1,-20:140 m(t)=m(t)-10 :d$(t)=b$(t):11 ,0;"ENTERED AT POS ";t;" ":e(t)=1:1,20:140  t  G0,0;5;0;"FREDERICK'S BOOKIES " *2,26;3;" ";3,26;6;0;" ";4,26;" ";5,26;" ";6,26;" ";7,26;" ";8,26;" ";9 ,26;" ";10 ,0;5;" " l1,0;5;" ";1,0;0;q$(r);" RACE NO.";r ?a=15:a+1,0;7;a;":";d$(a):a !8,0;"ALL ODDS 2/1" t=1players '12 ,0;a$(t);" HAS `";m(t) ""Will you place a bet?(y/n) ";s$ !s$="n"f(t)=0:218 s$="y"213 209 "Who? (1-5)";f(t) *f(t) < 1f(t) > 5213 "How much ? `";g(t) 8g(t) > m(t)"NOT ENOUGH MONEY (ENTER)";s$:209 مm(t)=m(t)-g(t):12 ,0;a$(t);" HAS `";m(t);" ":1,20:12 ,0;" " t ی12 ,0;"ALL BETS TAKEN ":1,0:13 ,0;"Press ENTER to start the race":0:0 6:0: ݺ0,0;1;"":a=121:a,0;4;" ";6;" ";4;1;"";0;" ":a .21,4;"" a=15 V2,a*3+a+3;4;"";1,a*3+a+3;0;a:a L0,0;1;7;"ON YOUR MARKS":a=1180:a _0,0;1;7;"GET READY ":a=1180:a k0,0;1;7;"GO !!! ":a=15:j(a)=2:a z=15 maybe=(*100d) maybe < 513250 Zj(z),z*3+z+3;" ":j(z)=j(z)+1:j(z),z*3+z+3;4;"" j(z)=21260 z:228 50,0;1;7;d$(z);" WTrack-Info  R INS !!" ?a=110 :.1}L,a*2:.1}L,-20:a N0:0:1:7::0,0;"THE RESULTS ARE:-"'' a=1players Cf(a)=za$(a);" WON `";g(a)*2;"!":m(a)=m(a)+(g(a)*2)  d$(a)=b$(a)d$(z)=b$(a)b$(a);" WON ";a$(a);" `200!":m(a)=m(a)+200:v(a)=v(a)+100d:b$(a);"'S VALUE ROSE TO `";v(a)  a$(a);"'S TOTAL `";m(a)''  a  .'"Press ENTER":0:0:5500|  !lose=0:a=1players 4m(a)=0b$(a)="- "lose=lose+1 a lose=players290" L0:0:7::10 ,0;"Please wait a while...":r  k0,0;"It's the end of the year ";year''"Will you be staying for next"'"year's races?"'"(Y/N)" ="y"''"Okay then!See you next year!":year=year+1:''"Press ENTER":0:0::10 ,0;"Loading Year ";year:59; `="n"''"What a shame,oh well..."'"Goodbye!"''"Press ENTER to play again":0:0:  276 " #z0,0;"Oh dear..everyone is broke!!"'"That means game over!"''"Press ENTER to play again":0:0: + ,m(t)=m(t)+v(t) -1,20 .a=110 /Nc$(a)="- "c$(a)=b$(t):p(a)=v(t):b$(t)="- ":v(t)=0 0a 1/21,0;a$(t);" CASH `";m(t);" " 2Ia=11 15:a,0;" ":a:  |a=1players } m(a)1000000t$5503 ~a: 0:0:7: 1,26;2;" ";2,26;0;4;" ";3,26;" ";4,26;" ";5,26;" ";6,26;" ";7,26;" ";8,26;" " {0,0;5;0;"JUMBO'S OFFICE ";9 ,0;" " 11 ,0;"Well,well..it seems ";a$(a)'"has made his/her million!"'"That means you win and also that"'"you have more cash than even"'"me! CONGRATULATIONS!" R'"FINAL STATUS:"'a$(a);" ENDS WITH `";m(a)'"CACTUAR OWNED:";b$(a)'"VALUE `";v(a) "MONTH:";q$(r);" YEAR:";year 0:0: a=07 510 ,12 ;a;"THE END":.1}L,a*5  =" " a:5510 W X@z=15:9200#:a=1̺(*29)+1 Y d$(z):a:z Z%d$(1)=d$(2)7000X [%d$(1)=d$(3)7000X \%d$(1)=d$(4)7000X ]%d$(1)=d$(5)7000X ^%d$(2)=d$(3)7000X _%d$(2)=d$(4)7000X `%d$(2)=d$(5)7000X a%d$(3)=d$(4)7000X b%d$(3)=d$(5)7000X c%d$(4)=d$(5)7000X d ? @z=210 Ac$(1)=c$(z)58: Bz Cz=310 Dc$(2)=c$(z)58: Ez Fz=410 Gc$(3)=c$(z)58: Hz Iz=510 Jc$(4)=c$(z)58: Kz Lz=610 Mc$(5)=c$(z)58: Nz Oz=710 Pc$(6)=c$(z)58: Qz Rz=810 Sc$(7)=c$(z)58: Tz Uz=9 10 Vc$(8)=c$(z)58: Wz Xz=10 10 Yc$(9 )=c$(z)58: Zz [ #' #(a="a""f"+7 #2user:a,user #<a: #FM24,27,27,255,152,223,17,241 #GO60<,126~,255,255,255,255,126~,60< #HP60<,126~,255,255,255,255,255,255 #IP255,255,255,255,255,255,126~,60< #JM24,24,60<,60<,126~,126~,255,255 #KD0,0,0,170,85U,0,0,0 #"MR SHEEN","CHOP CHOP","G GIANT","GOKU","TIM","VEGETA","PICCOLO","FASTER","SLOWER","NEV-R-LOSE","NEV-R-WIN","TRUNKS","GOTEN","TONBERRY","STONE","LEATHER","TOSHIBA","SPECTRUM","BASKET","MACHINE","MUMBO","KURT","FATTY","RONALD","SCORPION","RUBBER","CIGARETTE","CIGAR","SUPERKING","TABLE" # "HARIBO","SHAVE","ROCK","PAPER","CELL","POSTBOX","GREENBOY","PENCIL","MATCHES","MARLBORO","SILK CUT","EMBASSY","RICHMOND","SONY","LEAF","POWER","TYRANZ","HELLO","GOODBYE","BLANK","JONES","THOMAS","JESSICA","MICHAEL","PETER","GRAHAM","RICHARD","JASON","NAVIN","PATCH" &0:0Track-Info  R :7: &#0,5;2;" " &4a=113 :a,5;4;" ":a &2,5;4;0;" ";4,7;"";5,7;"";6,7;"";3,6;"" &)7,2;4;" " &)8,2;4;" " &Ba=9 13 :a,2;4;" ";a,11 ;" ":a &>a=1420:a,5;4;0;" ":a &Aa=021:a,14;4;"";a,31;"":a &10,14;4;"" &221,14;4;"" &-1,15;"Hi,I'm Jumbo ";2,15;"Cactuar,the ";3,15;"owner of the ";4,15;"CACTUAR RACING ";5,15;"EXTREME LEAGUE! ";6,15;"I welcome you & ";7,15;"your friends ";8,15;"(if u have any) ";9 ,15;"to take part in ";10 ,15;"this year's ";11 ,15;"races!You may ";12 ,15;"even wish to ";13 ,15;"purchase and ";14,15;"race your own ";15,15;"cactuar! " &116,15;4;"" &"19,15;"Press a key" & 0: '"Cactuar Ex"1 PLUS3DOS% "cactuar" Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''