Boxing ? 0:0:0: O60430:23658j\,8:236066\,15:236077\,235 "PIC" (*6:6:18,0:"" 2612408 <18,0:"" PIC Pq  A0ւ?`???? @?B ?  Ac R??@????A @?B ?  Aְa?@?????A @?B ?  A ???@????A @?B ?  B } Ƞ `?ȁ????A ?> ?  B 0? ( ????Ā?A ??> ?BS  ? 8@?ȃ?A???e 2??>!?<?<|?Ȁ??@?B ??>#??>#???vn8ommɷE (PBmɶmmomɷmɶmmɶmmɶɶmɶ?>??vnI}߿~ɒINIE*((PBIINNIINNIIIIININIINININNNNINNNOINNNNIINI?s?8??x??IE ((PB?IIqIE (RBIIqqIIqqIIIIIqIqIIqIqIqqqqIqqqqIqqqqIIqI?r?8n?p(mE ((PBmm?E*((PJmmmmmmmmmmmmmmmmm?>?8n$$IE (RBIINI?E (PBIINNIINNIIIIININIINININNNNINNNOINNNNIINI?É????D"E*((PBɒɒrɿE ((PJɒrrɒɒrrɒɒrrɒɒrɒrrrrrrrrs?rrrrɒr????1 !o6IE*((PB6o6oJ6IE ((PBo6o6JJ6o6oJJo6666oo6oJ6Jo6o6oJ6oJ6JoJoJJ6JoJJoK6JJJJ66oJ6??~pOc䒤E (RB"H}߿~?mmm8 cc 0c  INNNIIIIpxNNNNINNNNININOnj INININNINNIIIINNNNINNIINNINIIIINNIINIIINIIINN3wc 0 c IqqqIIIIxqqqqIqqqqIqIqqOIqIqIqqIqqIIIIq ֺqqqIqqIIqqIqIIIIqqIIqIIIqIIIqq33>>>c>??>>3 >c vDmmm8mmmmmmmmmmmmmֺmmmmmmmmmmmm>3 33k3333k3 3333 3k 0DINNNIIII8yNNNNINNNNININO?INININNINNIIIIN6 NNNINNIINNINIIIINNIINIIINIIINN33 33c33>00 >333 3 kDrrrprrrrɒrrrrrɒrs?rrrrrrɒɒrrrrrrɒɒrrɒrrrrɒrɒɒrr33 3c33300w0 033 33w 3c<o6JoJJo6667pJJoJoJo6oJJoJJo6J6oJK9 o6J6Jo6JJ6JJ6o66o6JooJJoJ6JJo6o6ooJJo6oJ6666JJ66Jo666oJ6o6o6JoJ>33c30c03>3cc> >>>88888888888888888888888888888888888888 8888888888808888 88HOOOHHHHHH800888888HOOOHOOOOH888888888HHHHHOOOOO988888888OOOOOOHHHH98888HHHOOOOOOOHOOOOOHHHHOOOOOOOOOOOOOOOOHH8HHHOOOOOOOOOOOOOOOOOHH8::8HHHOOOOOxxxxxxxxOOOOOOHH8::::::9OOOOOOOxxxxxxxxOOOOOOO9:::::::::::::::::::::::::::::::::::::::::::::::pppppppppp::::::::::::::::::::::pppppppppp::::::::::::::::::::::pppppppppp::::::::::::::::::::::pppppppppp:::::::::::::::::::::::::::::::::::::::::::66666660000000000000000000000000 000000fffffff?h> ~?JL>)F68of;  8 8f<300>33? 33333300000000`  ??0  033>33>30003<63336<?00>00??00>00000733333?333 336<8<63000000?cwkccc3;??73333333>33>000333;7>33>633303? 33333333333 ccckwc33 33333 ? 0?  0 < < - >?300>333>0003333>0  33>00>3333  0036<63 vkcc>3333333>333>0333>30000> ? 3333333 cck>63 3333>? ?   8  80yO"]Q]"!9T]*\BR[=\"=\ + +i`*=\s#rv{=\!:\~6} ( !'"B\2D\v*]\~$ #"]\@!~ #F(#>[    A 0ւ ?` ? ?? ? @ ?B ?   A c R ??@? ?? ?A @ ?B ?   A ְ a ?@? ??? ?A @ ?B ?   A    ???@? ?? ?A @ ?B ?   B } Ƞ  ` ?ȁ?? ? ?A  ?> ?   B  0 ? (  ??? ?Ā ?A ? ?> ?  B S   ? 8@ ?ȃ?A? ? ?e 2? ?>! ? < ?<| ?Ȁ? ?@ ?B ? ?># ? ?># ? ? ?ommɷE (PBmɶmmomɷmɶmmɶmm ɶɶmɶ?>  ? ?I}߿~ɒINIE*((PBIINNIINNIIIIININIINININNNNINNNO INNNNIINI?s  ?????IE ((PB?IIqIE (RBIIqqIIqqIIIIIqIqIIqIqIqqqqIqqqq IqqqqIIqI?r  ??mE ((PBmm?E*((PJmmmmmmmmmmmmmmmm m?>  ?IE (RBIINI?E (PBIINNIINNIIIIININIINININNNNINNNO INNNNIINI?É? ? ??E*((PBɒɒrɿE ((PJɒrrɒɒrrɒɒrrɒɒrɒrrrrrrrrs rrrrɒr?? ? ?o6IE*((PB6o6oJ6IE ((PBo6o6JJ6o6oJJo6666oo6oJ6Jo6o6oJ6oJ6JoJoJJ6JoJJoK 6JJJJ66oJ6?  ?O䒤E (RB"H}߿~ mmm mmmmmmɶm mɶmɶɶmmmm mɶmmmmmmɶmɶmmmINNNIIII NNNNINNNNININO INININNINNIIIIN NNNINNIINNINIIIINNIINIIINIIINNIqqqIIII qqqqIqqqqIqIqq IqIqIqqIqqIIIIq qqqIqqIIqqIqIIIIqqIIqIIIqIIIqq_Dmmm mmmmmmm mmmmmm mmmmmmmmmmmm_DINNNIIII NNNNINNNNININO INININNINNIIIIN NNNINNIINNINIIIINNIINIIINIIINN_Drrr rrrrɒrrrrrɒrs rrrrrrɒɒr rrrrrɒɒrrɒrrrrɒrɒɒrr_<o6JoJJo6667 JJoJoJo6oJJoJJo6J6oJK o6J6Jo6JJ6JJ6o66o6Joo JJoJ6JJo6o6ooJJo6oJ6666JJ66Jo666oJ6o6o6JoJ_ _8$ 8888888888 8888888888 8888888888888888 8 888888888880888 8 88HOOOHHHHHH80088 8888HOOOHOOOOH88888 8888HHHHHOOOOO98888 8888OOOOOOHHHH98888 HHHOOOOOOOHOOOOOHH HHOOOOOOOOOOOOOOOOHH8HHHOOOOOOOOOOOOOOOOOHH8::8HHHOOOOOxxxxxxxxOOOOOOHH8::::::9OOOOOOOxxxxxxxxOOOOOOO9:::::::::::::::::::::::::::::::::::::::::::::::88888888::::::::::::::::::::::88888888::::::::::::::::::::::88888888::::::::::::::::::::::88888888:::::::::::::::::::::::::::::::::::::::::::00000000000000000000000000000000?8$Dvvxpp8880p($"!cnn 8881~nn pvv!0p~`8pqpp PQQPp<~ yw5y s$="":o$="":opt=0:pt=0:fi=0:yro=0:oro=0:ud=0:n(40():100d:1:1:9 : #<40(:e$(6,7):i=16:e$(i):i (6"Bantam","Feather","Light","Welter","Middle","Heavy" 01;13 ,7;" LOAD game? (y/n)" ="Y"9700% C="N"13 ,7;" ":25:500 180 >space=1:bottom=480:limit=90Z:len=12 >19,0;"Please enter MANAGER's name:":9800H& a$=x$ 713 ,5;1;"MANAGER";0;" ";a$ A19,0;"Please enter your BOXER's name:":9800H& &b$=x$ (6b$<12 x=1(12 -b$):b$=b$+" ":x +Jyr=40(:o=0:9910&:M$(40()=B$:23658j\,8 0l19,0;" ";15,5;1;"BOXER";0;" ";b$ 5L23692\,14:21,0'''''''''''''':23692\,1 :z10 ,1;"choose your weight":i=16:i+11 ,8;1;i;0;" ";e$(i);"weight":i ?Ispace=0:bottom=491:len=1:limit=546:9800H& Bl=x$:l$=e$(l) C 11 +l,8;1;l D3.15~,10 :.45ffff,15:900 Xistr=(*3)+7:sta=(*3)+7:ski=(*3)+7:iq=(*10 )+502 bCtfee=0:bout=0:won=0:lost=0:ko=0 lJcash=5000-(250*level):train=0:t$="NONE":gym=0 vimage=(*4)+7 crime=0  90102#  *q$(7,16):q$(1)="Local paper":q$(2)="Local radio":q$(3)="Regional TV":q$(4)="National radio":q$(5)="National daily":q$(6)="National TV":q$(7)="International TV" 4 1000 V:11 ,8;"New LEVEL 1 to 6":len=1:limit=546:bottom=491 .9800H&:level=x$:level=level-5: 9space=0:dive=0:bribe=0:pub=1 D1:1::2;1,4;"* BOXING MANAGER *" 61199:612408 ,1;9 ;3,4;"Press" q5,4;"'1' for STATUS";7,4;"'2' to HIRE TRAINER";9 ,4;"'3' to SACK TRAINER" H11 ,4;"'4' to BUY GYM";13 ,4;"'5' to SELL GYM" 15,4;"'6' to CONTINUE";17,4;"'7' to BOOK FIGHT";;19,4;"'8' to CHANGE LEVEL";1;21,4;"'9' to SAVE GAME" L"x$=:1101M-(x$<"1"x$>"9") M.1}L,1:1102N+(x$="1")*98b+(x$="2")*198+(x$="3")*298*+(x$="4")*398+(x$="5")*498+(x$="6")*1098J+(x$="7")*5398+(x$="9")*84982! Nx$="8"900:1000 O 1100L _IMAGE=IMAGE-(IMAGE>99c)*(IMAGE-99c)::2;9 ;1,13 ;"STATUS" Ļ1;3,1;"MANAGER:";0;" ";a$;3,23;"LEVEL: ";(LEVEL+5);5,1;1;"BOXER:";0;" ";b$;6,1;"Weight: ";l$ 6;8,21;1;"STATISTICS";0;10 ,21;"Strength:";str;11 ,21;"Stamina :";sta;12 ,21;"Skill :";ski;13 ,21;4;0;"I.Q. :";iq;14,21;1;6;"Image :";image 1;8,1;"RECORD";0;10 ,1;"Bouts ";bout;11 ,1;"Won ";won;12 ,1;"Lost ";lost;13 ,1;"K.O.'s ";ko;14,1;"Title";15,1;"Defence ";ud 1;19,1;"Gym owned";17,1;"TRAINER:";0;" ";t$:train>018,1;"Trainer's fee: `";tfee;" per bout":1260+gym %19,11 ;"no":1280 19,11 ;"yes" 21,1;0+(cash<0)*2;"Bank balance: `";(cash);:cash00+(cash<0)*2;" CR":1285 '0+(cash<0)*2;" OD"  90102#:1000 ktrain>01,0::6,1;"You already have a trainer!!":90102#:1000 -:2;0,10 ;"* TRAINERS *" 2F1;5,1;"Trainer";5,18;"Fee per bout" <~7,0;"1 Fred Jarvis";7,22;"`750";9 ,0;"2 Les Hammond";9 ,22;"`1500" A11 ,0;"3 Harry Polski";11 ,22;"`2250";13 ,0;"4 Arnie Dubbs";13 ,22;"`3000" KIspace=0:bottom=491:limit=524:len=1:9800H& S67+(2*(x$-1)),0;1;x$ U:x$="1"train=1:t$="Fred Jarvis ":tfee=750 Z;x$="2"train=2:t$="Les Hammond ":tfee=1500 _;x$="3"train=3:t$="Harry Polski":tfee=2250 d;x$="4"train=4:t$="Arnie Dubbs ":tfee=3000 v90102#:1000 }ltrain=01,0::6,1;"You have no trainer to sack!!":90102#:1000 *:6,1;t$;" has been sacked" (tfee=0:train=0:t$="NONE" 90102#:1000 cgym>01,0::6,4;"You already own a gym!":90102#:1000 |:1,6;2;"* BUY GYM *";6,1;1;"It will cost you `10000 to buy"'" a gymnasium" 315,1;"Do you wish to buy one? (y/n)" m="Y":5,6;"Gymnasium purchased":gym=1:cash=cash-10000':90102#:1000 "="N"100d:1000 , 1550 Jgym=01,0::5,1;"How can you sell something you"'" don't own?":90102#:1000 T,:1,6;2;"* SELL GYM *" ^c5,0;"You may sell your gym for `10000";9 ,1;"Do you wish to sell? (y/n)" h="N"1000 rv="Y":5,1;"Your gymnasium has been sold":gym=0:cash=cash+10000':90102#:1000 | 1640h G:d$(2,4,12 ):A(2,4):I=14 2RA=(*40()+1:RA=YRRA=O2004 ?X=14:A(1,X)=RAA(2,X)=RAX=8 X:x=9 2004 'A(1,I)=RA:d$(1,I)=M$(RA) Prc=ra-3:RB=rc+(*7):2014-(RB<0RB>40()*2 '2016-(RB=RARB=YRRB=O)*4 ?X=14:A(1,X)=RBA(2,X)=RBX=8 X:X=9 2012 ,A(2,I)=RB:d$(2,I)=M$(RB):I: RY=2:1::2;0,8;"THIS WEEK'S BILL":I=14:RA=(*10 )+1:2022-(RA<5A(1,I)>A(2,I)RA>4A(1,I)A(2,I)WI=A(1,I):LO=A(2,I):2050 TRA<5A(2,I)>A(1,I)WI=A(2,I):LO=A(1,I):2050 RY=RY+5:I:9910& 90102#: 3X$=M$(WI):RZ=N(WI):K=WILO-1:2054 3K>1M$(K)=M$(K-1):N(K)=N(K-1) <K:M$(LO)=X$:N(LO)=RZ:K=140(:M$(K)=B$yr=K  O$=M$(K)o=K  k: G2000:fi=02020:sta=sta-(sta>5):1000 h9900&:OSTR=RA+LEVEL:9900&:OSTA=RA+LEVEL:9900&:OSKI=RA+LEVEL:9900&:OIMAGE=RA YR=1O=1pub=pub+8:y$=" WORLD CHAMPIONSHIP BOUT ":9150#:y$=" International TV covers fight ":9150#:21,0;" ":2220  8000@ >prize=(image+oimage)*100d:O=1prize=50000P  3000 $O=1ro=15:3010 ro=group+3 train=0:5,3;"There is no-one to train"''" ";b$''" so you will have to continue"'"immediately to ";1;"THE BIG MATCH";0;" !":90102#:3500 train1=train :2;0,1;B$;2,15;"Enter number of ";3,15;"options you would";4,15;"like your boxer ";5,15;"to train on " str=str-(str>99c)*(str-99c):sta=sta-(sta>99c)*(sta-99c):ski=ski-(ski>99c)*(ski-99c):2,0;"Strength ";STR;4,0;"Stamina ";STA;6,0;"Skill ";SKI C8,0;"Training points left ";4;0;TRAIN1 TRAIN1=0.25~,10 :.5,15:17,0;T$;18,0;"has done all";19,0;"he can":90102#:3500 6;10 ,0;"1 Weights";11 ,0;"2 Road work";12 ,0;"3 Light bag";13 ,0;"4 Heavy bag";14,0;"5 Workout";15,0;"6 Sparring" `140,84T:112p,0:0,-72H:-112p,0:0,72H 12 ,20;"OPPONENT";13 ,18;O$;15,18;"Strength ";OSTR;16,18;"Stamina ";OSTA;17,18;"Skill ";OSKI;18,18;"Image ";OIMAGE;19,20;"PM `";PRIZE :BOTTOM=491:LIMIT=546:LEN=1:9800H& 7RA=0+(*4):RB=(RA/2):RA=RA-(RB) WX$="1"STR=STR+RA:STA=STA+RB:TRAIN1=TRAIN1-1:.01z# =,10 :3062 WX$="2"STA=STA+RA:SKI=SKI+RB:TRAIN1=TRAIN1-1:.01z# =,10 :3062 WX$="3"SKI=SKI+RA:STA=STA+RB:TRAIN1=TRAIN1-1:.01z# =,10 :3062 WX$="4"STR=STR+RA:SKI=SKI+RB:TRAIN1=TRAIN1-1:.01z# =,10 :3062 WX$="6"SKI=SKI+RA:STR=STR+RB:TRAIN1=TRAIN1-1:.01z# =,10 :3062 `X$="5"RA>0RA=RA+RB:3090 :TRAIN1=TRAIN1-1:.01z# =,10 :3062  3060 RB=1+(*3) JRB=1RC=0+(*RA)+1:STR=STR+RC:RA=RA-RC:3098 JRB=2RC=0+(*RA)+1:STA=STA+RC:RA=RA-RC:3098 2RC=0+(*RA)+1:SKI=SKI+RC:RA=RA-RC RA=0  3090 "c1=(*(30-level))+1 c1(group+crime)85004! image<0image=0 str<1str=1 ski<1ski=1 sta<1sta=1 0:6:6: 2,8;"BOZO PROMOTIONS";4,8;"proudly present";8,9 ;b$;10 ,15;"v";12 ,9 ;o$ Z15,6;"in a ";ro;" round contest";17,5;"Tickets available now!" h90102#:.25~,10 :.125},10 :.130~R,10 :1,15:4000 1:1:9 : adv=3:oro=0:yro=0:bupa=0:time=60<:mi=3:si=0:b=15:o1=16:mstr=str:msta=sta:mski=ski:mostr=ostr:mosta=osta:moski=oski:bout=bout+1:round=0:poi=0:opoi=0 i$(3,11 ) Qi$(1)="cut eye ":i$(2)="broken nose":i$(3)="broken rib" j$(3,11 ) Qj$(1)="cut eye ":j$(2)="broken nose":j$(3)="broken rib"  5000  61310~::0 'time=60<:mi=3:si=0 Z0;6;20,0;b$;20,13 ;"Versus";20,20;o$ "b=15:o1=16 ;LYR=1O=119,5;1;"WORLD CHAMPIONSHIP BOUT" @d1;;9 ,12 ;" ";10 ,12 ;" ";11 ,12 ;" " E0;18,11 ;"Time ";16,11 ;"Round ";16,17;round;16,19;ro;17,11 ;"Count ";15,11 ;"Rounds " FJyro>9 oro>9 0;15,18;yro;oro:4168H G)0;15,18;yro;"-";oro H$.1}L,6:.1}L,6 Oc1;9 ,12 ;" ";10 ,12 ;" ";11 ,12 ;" " T]1;9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" " Y15:1;9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" ";9 ,14;" ";10 ,14;" ";11 ,14;" " ^15:1;9 ,14;" ";10 ,14;" ";11 ,14;" ";9 ,15;"";10 ,15;"";11 ,15;"" istr<1str=1 jostr<1ostr=1 k&sta0sta=0:4950V l(osta0osta=0:4900$ miq<1iq=(*10 )+502:x=9 11 :x,b;" ":x:1;11 ,b-2;"":.1}L,0:y$=b$+" has brain damage"+" ":9150#:8300l rtime=time-1:x=13:si=si-1:mi=mi-(si<0):si=si+(si<0)*60<:4215w:x:4222~ wE0;18,17;mi;":";:si<10 0;"0";si: x 0;si y z 9930& ~Stime=0round=ro9930&:.1}L,6:.1}L,6:5200P time=09930&:.1}L,6:.1}L,6:502:sta=sta-(adv=1)*((sta/100d)*20)+(adv=2)*((sta/100d)*10 ):sta=sta+(sta<0)*sta-(sta>99c)*(sta-99c):5000 o1=b+1hit=(*(ski+oski+(502-(adv=1)*10 +(adv=2)*15))):hitskiblow=(*2)+1:4500 ab=o1-1ohit=(*(ski+oski+502)):ohitoskiblow=(*2)+1:4700\ _o1=b+1b<16staostaforw=(*(60<-iq))+1:forw<54310 Qsta14back=(*(60<-iq))+1:back=14320 [b=o1-1o>15ostastaoforw=(*10 )+1:oforw<54330 Nosta14back=(*(80P-iq))+1:back=14320 Sb=o1-1o1>15oforw=(*30)+1:oforw=14330 Eo1<17oback=(*60<)+1:oback=14340  4200h px=9 11 :1;x,b;" ":x:b=b+1:1;9 ,b;"";10 ,b;"";11 ,b;""  px=9 11 :1;x,b;" ":x:b=b-1:1;9 ,b;"";10 ,b;"";11 ,b;""  vx=9 11 :1;x,o1;" ":x:o1=o1-1:1;9 ,o1;"";10 ,o1;"";11 ,o1;""  vx=9 11 :1;x,o1;" ":x:o1=o1+1:1;9 ,o1;"";10 ,o1;"";11 ,o1;""  :blow=1pt=pt+2:poi=poi+2:4600 Eblow=1oinj=(*200)+1:oinj<39100# :blow=2pt=pt+1:poi=poi+1:4650* Eblow=2oinj=(*100d)+1:oinj=39100# %osta=osta-(*(str/ostr))*group/blow (osta0osta=0:4900$  g1;9 ,b;"";9 ,o1;"":.01z# =,5:1;9 ,b;"";9 ,o1;"": *j1;10 ,b;"";10 ,o1;"":.01z# =,-5:1;10 ,b;"";10 ,o1;"" 4 fNblow=1opt=opt+2:opoi=opoi+2:iq=iq-.1}L:4800 kOblow=1inj=(*200)+1:inj=1inj=29200# p>blow=2opt=opt+1:opoi=opoi+1:4850 uCblow=2inj=(*100d)+1:inj=39200# zFsta=sta-(*(osta/sta))*group/blow-(*dive):bupa=bupa+(3-blow) &sta0sta=0:4950V  iq<1 g1;9 ,b;"";9 ,o1;"":.01z# =,0:1;9 ,b;"";9 ,o1;"": k1;10 ,b;"";10 ,o1;"":.01z# =,-10 :1;10 ,b;"";10 ,o1;""  'poi=poi+5 )+x=9 11 :1;x,o1;" ":x .1;11 ,o1;"";10 ,o1+1;"":.025{L,-15:1;10 ,o1+1;" ";11 ,o1+1;"":.05|L,-20 /|b>14x=9 11 :1;x,b;" ":x:b=b-1:1;9 ,b;"";10 ,b;"";11 ,b;"" 3od3=od3+1 5Lod3=3y$="The Referee stops the fight... ":9150#:4940L 6etime<4time=0:y$="Corner manages to revive him ":9150#:502:4222~ 8h=110 ;Jstamsta-roundsta=msta-round =2recov=(*(75K*group)+(10 -h))+1 B'recovostrosta=((h/10 )*mosta)-round:osta>0ostr=ostr-((ostr>0)*group):1;11 ,o1;" ";10 ,o1+1;"":1;11 ,o1;" ";10 ,o1+1;" ";9 ,o1;"";10 ,o1;"";11 ,o1;"";17,18;0;" ":4200h G,17,18;0;h:45-:h L3w$=b$:image=image+pub:ko=ko+1:5500| Yopoi=opoi+5 [*x=9 11 :1;x,b;" ":x `1;11 ,b-1;"";10 ,b-1;"":.025{L,-15:1;10 ,b-1;" ";11 ,b-2;"":.05|L,-20 bo1<17x=9 11 :1;x,o1;" ":x:o1=o1+1:1;9 ,o1;"";10 ,o1;"";11 ,o1;"" ed3=d3+1 gKd3=3y$="The Referee stops the fight... ":9150#:4987{ hetime<4time=0:y$="Corner manages to revive him ":9150#:502:4222~ jr=110 mRostamosta-roundosta=mosta-round o2recov=(*(75K*group)+(10 -r))+1 t4recovstrsta=((r/10 )*msta)-(round+(*dive)):sta>0str=str-((str>0)*group):1;11 ,b-2;" ";10 ,b-1;"":1;11 ,b-1;" ";10 ,b-1;" ";9 ,b;"";10 ,b;"";11 ,b;"";17,18;0;" ":4200h y,17,18;0;r:45-:r {edive>0y$=" Nice one, John... ":9150#:crime>0crime=crime-1 ~9bupa=bupa+100d:image=image-pub:w$=o$:5500| d3=0:od3=0 1:1::0,2;b$;0,20;o$:i=12:ra=0+(i=2)*18:2,ra;"Strength ";4,ra;"Stamina";6,ra;"Skill":i:8,18;"Image" osta<1osta=1 2,9 ;str;"/";mstr;2,27;ostr;"/";mostr;4,9 ;sta;"/";msta;4,27;osta;"/";mosta;6,9 ;ski;"/";mski;6,27;oski;"/";moski;8,27;oimage 810 ,0;"Manager:";a$;11 ,0;"Trainer:";t$:4;0;12 ,0;"Rounds to go";1;7;":";RO-ROUND:13 ,0;"Prize money `";PRIZE:5052:4,27;osta;"/";mosta:round>0ADV>1dive=0ADV>15020 ADV=3:15,7;"Manager advice";17,0;"1 Go for KO"'"2 Don't let him hit you"'"3 Keep it up your doing well" 6i=1200:="1"adv=1:i=251 !="2"adv=2:i=251 !="3"adv=3:i=251 i:5060 +x=1(msta-sta-round)+(adv=2)  z=(*(9 +round))+1 _z(train+1)sta=sta+(sta":9150#:4100 Z 502 d4x=9 11 :1;x,b;" ";x,o1;" ":x ib=12 :o1=19 nc1;9 ,12 ;" ";10 ,12 ;" ";11 ,12 ;" " pyro=oro5240x rw$=b$:yroopoiw$=b$:5500| +opoi>poiw$=o$:dive>07100 bxx=0:poi=opoixx=(*2)+1:y$=" The Referee will decide... ":9150# xx=1w$=b$ -xx=2w$=o$:dive>07100  xx=0  20 -y$="THE WINNER!!..... "+w$+" ":9150#  w$=b$dive>07000X 1w$=b$O=1ud=ud+(yr=1):8100 gw$=b$ud=ud+(yr=1):sta=msta:str=mstr:ski=mski:won=won+1:image=image+pub:5570 Iw$=o$lost=lost+1:sta=msta:ski=mski:str=mstr:image=image-pub image<0image=0 prize=0:6000p %OYRW$=O$WI=O:LO=YR:2050 r0fi=0:90102#:2020:9910& sKgym=1gfee=0:g=(*(200*group))+100d:6010z v.gym=0g=0:gfee=100d*train z4:4:7: *2;1,6;"* ACCOUNTS *" $4,1;1;"DEBITS" &cash<0bank=(cash/20) cash0bank=0 6,1;"Trainer's fee: `";;tfee;7,1;"Gym fees: `";gfee;8,1;"Promoter's fee: `";250*group;9 ,1;"BUPA fees: `";bupa;10 ,1;"Bank interest (5%): `";bank vcrime>011 ,1;"""Insurance"": `";250*group*crime:bupa=bupa+(250*group*crime) fdebit=bank+tfee+gfee+bupa+(250*group):13 ,1;"TOTAL:";13 ,22;"`";debit  90102# ,:2;1,6;"* ACCOUNTS *" ra=1+(*500):ga=ga-(x1>(image+oimage))*ra:rec=(ga/100d)*(100d-pe):4,1;1;"CREDITS" z6,1;"Prize money : `";prize;;7,1;"Gate % : `";rec;8,1;"Gym profits : `";g nw$=o$crime=0dive>0bribe>09 ,1;"Donation : `";bribe:prize=prize+bribe Acredit=prize+g+rec:12 ,1;"TOTAL : `";credit  90102# %prebal=cash:cash=cash+credit-debit ,:2;1,6;"* ACCOUNTS *" cash0c$=" CR" cash<0c$=" OD"  prebal0z$=" CR"  prebal<0z$=" OD" 6,1;"Previous";7,1;"balance: `";prebal;z$;10 ,1;"Credits: `";credit;11 ,1;"Debits: `";debit;15,1;"Balance: `";cash;c$  90102# $cash<-10000'7500L .1::1000 fc2:2:7::6;0;0,12 ;"BOOK FIGHT":i=120 hO2-(n(i)=1yri);(yr=i);(I=1);i,0;i;3;m$(i) jq2-(n(i+20)=1yri+20);(yr=i+20);i,16;i+20;19;m$(i+20) lKi:5;0;21,0;" B=Book fight M=Menu E=Edit " n="M"1000 p="E"6518v r="B"fi=06530 t 6510n vz.1}L,1:21,0;" Which boxer 1 TO 40":BOTTOM=480:LIMIT=579:LEN=2 x89800H&:RA=X$:RA<1RA>40(6520x zx21,0;" Boxer's new name":LEN=12 :BOTTOM=480:space=1:LIMIT=90Z |%9800H&:M$(RA)=X$:RA=YRB$=X$ }o>0o=rao$=m$(o) ~RB=RA-(RA>20)*20:2-(n(ra)=1rayr);(RA=1);(ra=yr);RB,0+(RA>20)*16;ra;3+(ra>20)*16;M$(RA):6508l K.1}L,1:NO=0:I=140(:NO=NO+(N(I)=1):I h21,0;" Which boxer":LEN=2:BOTTOM=480:LIMIT=579 59800H&:o=x$:o<1o>40(6534 n(o)16534 \9920&:GA=50000P/O:3;21,0;"Estimated gate ";GA:100d 9920&:RA=(O-yr):PE=60<+(RA=-2)*10 +(RA=-3)*20-(RA=1)*20-(RA=2)*30-(RA=3)*40(:5;0;21,0;"His manager wants ";PE;"% Y/N" 2NO=121,22;" ":6550 ="Y"6550 '="N"ra=o:N(O)=2:6526~  6544 n(o)=2:fi=1:GROUP=((STR+STA+SKI+IMAGE)/40()+1:GROUP=GROUP-(GROUP>7)*(GROUP-7):O$=M$(O):1000 b0:0: g 200 l-1,4;1;"* END OF GAME *" v16,1;"The mob rub you out":0  30 L:6,1;"""He didn't go down, did he"'" John? Tut! Tut! Tut!"""  100d ecrime=crime+1:8600!:21,0;" ":90102#: Q0:0: V-1,8;1;"* END OF GAME *" `gym=06,1;"You have exceeded your credit"'" limit and ";b$;'" will never be World Champion":0:30 bxcash=cash+7500L:6,1;"You have to sell your gym"'"you get `7500":100d:gym=0:6180$  Jx1=(*120x)+1 Tx1>(image+oimage) ^3y$=" * STOP PRESS * ":9150# hpub=pub+(x1/20)+1:y$=q$((x1/20)+1)+" covers fight.":9150#:21,0;" ": (.15~,10 :.45ffff,15 2:0: +1,5;"*** WORLD CHAMPION ***" 3y$=" CONGRATULATIONS! ":9150# ¸6,7;"CONGRATULATIONS!";9 ,5;b$;" is now"'" the World ";e$("l");"weight";" Boxing"'" Champion!"''" thanks to your expert"'" management."  v0:0: -1;1,4;"* END OF GAME *" =6,1;b$;" is now little"'" more than a cabbage" 0:30 !>0:0: !H 200 !R3y$=" A message from the Management ":9150# !\1,0;2;y$ !f502:6,1;" ""A word in your ear, John."'" Tell your boy to take a dive"'" in this one and we'll make it"'" worth your while."''" Agreed?"" (y/n)" !p="y"Ŧ="Y"dive=(group*1.5@)+(iq/10 )-1:bribe=group*250:y$=" A wise choice, John. ":9150#: !z ="n"Ŧ="N"crime=crime+1:15,0;"""You MIGHT live to regret that.""":10 :100d:8600!:15,0;"""You are hereby invited to join"'" our special Insurance Scheme,"'" John.""";21,0;" ":90102#: ! 8560p! !<cr=(*5)+1:8600!+(cr*10 )+10 !y$=" You are beaten up in an alley ":9150#:y$=" BUPA fees `"+(group*100d)+" ":9150#:cash=cash-(group*100d): !y$=b$+" in car accident. ":9150#:y$=" BUPA fees `"+(group*200)+" ":cash=cash-(group*100d):str=str-1:sta=sta-1:ski=ski-1:9150#: !y$=" Office ransacked. ":9150#:y$=" Damage estimated at `"+(group*502)+" ":9150#:cash=cash-(group*25): !ʤy$=" Drugs planted on "+b$+" ":9150#:y$=" Fine & court costs `"+(group*500)+" ":9150#:cash=cash-(group*247):image=image-5: !Ծy$=b$+"'s girl kidnapped ":9150#:y$=" Ransom demand `"+(group*750)+" ":9150#:cash=cash-(group*300,):sta=sta-2:str=str-2:ski=ski-2: #2;#1;" ANY KEY TO CONTINUE ":0: #j$(oinj)" "y$=o$+" has a "+j$(oinj)+" ":osta=osta-(2*group):oski=oski-(oski/5):j$(oinj)=" ":9150# # #y=1̱y$ #12;7;21,(32 -y);y$(y) #.01z# =,-10 :y #Xx=175K:x:21,0;2;" ": #i$(inj)" "y$=b$+" has a "+i$(inj)+" ":sta=sta-(2*group):ski=ski-(ski/5):bupa=bupa+500:i$(inj)=" ":9150# # %B1:1::6,8;1;" SAVE GAME " %s23635S\,23627K\:23636T\,23628L\:"SG":23635S\,203:23636T\,92\:1000 %H1::1;6,10 ;"LOADing game":"SG":1000 &M'x$="":21,0;1;" " &R0:k$= &WR=13 Ʊx$>0.01z# =,30:21,0;" ": &\r=12 .01z# =,30:x$=x$(̱x$-(x$"")):21,0;x$;1;" ";0;" ":9810R& &^'=32 space=19830f& &a%limitŦ=""9810R& &fSñx$>len-1.01z# =,30:x$=x$+k$:21,0;x$;1;" " &k 9810R& &>RA=90Z-(O*2):RB=(*4)+1:RA=RA-RB: &i=140(:n(i)=0:i:ab=yr-3:ac=yr+3:AB=AB+(AB<"1")*(AB+"1"):ac=ac-(ac>40()*(ac-40():i=abac:n(i)=1+(yr=io=i):i: &A21,0;2;" ": &nyro=yro+(pt>opt):oro=oro+(opt>pt):yro>9 oro>9 0;15,18;yro;oro:9934& &)0;15,18;yro;"-";oro &;pt=opty$="Round was drawn ":9940& &y$=b$:pt