Boxing 1~1~53~*** HELLO HACKER! *** If you're reading this, you shouldn't be! To get back into the game use:1. GO TO 1000 (if you werebetween rounds and hadn'tstarted training), or2. RUN (starts from beginning).  30  0 ***BOXING MANAGER*** ******************** ***Title screen***** (0:1:9 ::100d #Mx=310-1:21,x;6;" ":.01z# =,0:x ('y$=" Willysoft UK presents " 2 9150# <1,0;y$ F'y$=" *** BOXING MANAGER *** " P!9150#:4,0;y$ Z 502 d'y$=" Guide your boxer TO THE TOP!!! " n!9150#:8,0;y$ x'y$="(before he suffers brain damage)" !9150#:9 ,0;y$ 'y$=" Your credit limit is `10,000 " "9150#:10 ,0;y$ Mx=310-1:21,x;1;"":.01z# =,0:x :0,0:.15~,10 :.45ffff,15 01;13 ,7;" LOAD game? (y/n)" ="y"Ŧ="Y"9700% I="n"Ŧ="N"13 ,7;" ":25:500 180 ***Initialise******* S23658j\,8: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 +23658j\,0 0l19,0;" ";15,5;1;"BOXER";0;" ";b$ 5a200:23692\,14:21,0'''''''''''''':23692\,1:502 : 10 ,1;"Please choose skill level (1-6)";12 ,5;"1 Bantamweight";13 ,5;"2 Featherweight";14,5;"3 Lightweight";15,5;"4 Welterweight";16,5;"5 Middleweight";17,5;"6 Heavyweight" ?Ispace=0:bottom=491:len=1:limit=546:9800H& Bl$=x$:level=l$-5 C&11 +(l$),5;1;l$ D(.15~,10 :.45ffff,15 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#   e$(6,13 ):e$(1)="Bantamweight":e$(2)="Featherweight":e$(3)="Lightweight":e$(4)="Welterweight":e$(5)="Middleweight":e$(6)="Heavyweight" *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" ****** MENU ******** *dive=0:bribe=0:pub=1 ?1::2;1,6;"*** BOXING MANAGER ***" ,1;9 ;5,4;"Press" r7,4;"'1' for STATUS";9 ,4;"'2' to HIRE TRAINER";11 ,4;"'3' to SACK TRAINER" H13 ,4;"'4' to BUY GYM";15,4;"'5' to SELL GYM" 17,4;"'6' to CONTINUE";7;1;;19,4;"'9' to save game";21,4;"'0' to quit game" L="1"1200 V="2"1300 `="3"1400x j="4"1500 t="5"1600@ ~="6"2000 M="0":5,3;1;"Do you wish to Quit? (y/n)":1180 ="9"9600%  1100L B="y"Ŧ="Y"8,3;"Cheers, ";a$:0:7040 ="n"Ŧ="N":1000  1180 ****** STATUS ****** 7:2;9 ;1,9 ;"*** STATUS ***" Đ1;3,1;"MANAGER:";0;" ";a$;5,1;1;"BOXER:";0;" ";b$;6,1;"Weight: ";e$(l$) 7,1;1;"STATISTICS:";0;8,1;"Strength:";str;9 ,1;"Stamina: ";sta;10 ,1;"Skill: ";ski;10 ,18;4;0;"I.Q.: ";iq;8,18;1;9 ;"Image:";image س1;11 ,1;"RECORD:";0;12 ,1;"Bouts: ";bout;12 ,18;"Won ";won;13 ,18;"Lost ";lost;14,18;"K.O.'s ";ko 1;17,1;"Gym owned?";15,1;"TRAINER:";0;" ";t$:train>016,1;"Trainer's fee: `";tfee;" per bout" &gym=017,13 ;"no" 'gym=117,13 ;"yes" Jcash<019,1;2;"Bank balance: `";(cash);" OD" Gcash019,1;0;"Bank balance: `";cash;" CR"  90102#:1000 *** Trainers ******* ktrain>01,0::6,1;"You already have a trainer!!":90102#:1000 0:2;0,8;"*** TRAINERS ***" (G2,1;"Please enter number of trainer"'" you wish to hire" 2F1;5,1;"Trainer";5,18;"Fee per bout" <}7,0;"1 Fred Jarvis";7,22;"`250";9 ,0;"2 Les Hammond";9 ,22;"`500" A11 ,0;"3 Harry Polski";11 ,22;"`1000";13 ,0;"4 Arnie Dubbs";13 ,22;"`1750" F15,0;"5 Vic McTavish";15,22;"`2500";17,0;"6 Karl Vogel";17,22;"`3750";19,0;"7 Manny Gross";19,22;"`5000" KIspace=0:bottom=491:limit=557:len=1:9800H& S67+(2*(x$-1)),0;1;x$ U:x$="1"train=1:t$="Fred Jarvis ":tfee=250 Z:x$="2"train=2:t$="Les Hammond ":tfee=500 _;x$="3"train=3:t$="Harry Polski":tfee=1000 d;x$="4"train=4:t$="Arnie Dubbs ":tfee=1750 i;x$="5"train=5:t$="Vic McTavish":tfee=2500 n;x$="6"train=6:t$="Karl Vogel ":tfee=3750 s;x$="7"train=7:t$="Manny Gross ":tfee=5000 v90102#:1000 x**** Sack Trainer **** }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 **** Buy Gym ******** cgym>01,0::6,4;"You already own a gym!":90102#:1000 :1,8;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)" s="y"Ŧ="Y":5,6;"Gymnasium purchased":gym=1:cash=cash-10000':90102#:1000 "$="n"Ŧ="N"100d:1000 , 1550 @*** Sell Gym ********* Jgym=01,0::5,1;"How can you sell something you"'" don't own?":90102#:1000 T0:1,8;2;"*** SELL GYM ***" ^c5,0;"You may sell your gym for `10000";9 ,1;"Do you wish to sell? (y/n)" h="n"Ŧ="N"1000 r|="y"Ŧ="Y":5,1;"Your gymnasium has been sold":gym=0:cash=cash+10000':90102#:1000 | 1640h *** PROMOTER ********* 0:2;1,8;"*** PROMOTER ***" I5,0;"The promoter offers ";b$'" a match with either:" Mgroup=((str+sta+ski+image)/40()+1:group>7group=7 )o1=(*7)+(7*group)-6 o=2500 +(o1*5):o  m$,n$ 38,6;1;m$;0;9 ;n$ Sgroup=711 ,3;"or the World Champion":p1=502:21004  -11 ,3;"or the more challenging" *3p1=(*7)+(7*(group+1))-6 4p=2500 +(p1*5):p >o$,p$ H414,6;1;o$;0;9 ;p$ RW17,1;"Please enter the number of the"'" opponent you wish him to fight." \:bottom=480:limit=579:len=2:9800H& px$=o1o=o1:2200 zx$=p1o=p1:2200 1,0:2140\ o=2500 +(o*5):o Pn$,o$,ostr,osta,oski,oimage:osta=osta+level:ostr=ostr+level:oski=oski+level n$="50"pub=pub+8:y$=" WORLD CHAMPIONSHIP BOUT ":9150#:y$=" International TV covers fight ":9150#:21,0;" ":2220  8000@  90102# 2400` :3000 `.:2;1,6;"*** ";o$;" ***" c(n$="50"prize=50000P:2410j e prize=(image+oimage)*100d j5,5;"STRENGTH: ";ostr;7,5;"STAMINA: ";osta;9 ,5;"SKILL: ";oski;11 ,5;"IMAGE: ";oimage;15,5;"Prize money: `";prize t90102#: *** BOXERS *********** 4"1","Wayne Simms ",8,7,6,8 6"2","Terry Baron ",9 ,8,10 ,10 5"3","Sean O'Neil ",7,7,10 ,7 6"4","Alfie Tate ",10 ,10 ,7,6 5"5","Colin Camp ",6,8,10 ,9 4"6","Jean Camus ",8,8,8,8 6"7","Pat Lewis ",10 ,10 ,9 ,8 8"8","Derek Yelp ",16,12 ,11 ,10 9"9","Harry Dobson",15,18,15,19  9"10","Winston Ford",19,11 ,14,17 8"11","Peter Mills ",13 ,19,9 ,11 9"12","Mick Mash ",18,18,12 ,16 9"13","Mehmet Ali ",14,15,20,14 9"14","Jim Castle ",19,19,18,17 9"15","Scott Nash ",25,18,20,28 9"16","Stevie Cool ",17,21,25,30 9"17","Quinn Quinn ",27,28,20,24 9"18","Tony Fern ",22,24,28,28 #9"19","Rocky Plaza ",29,27,23,27 (9"20","Bill Grant ",24,20,29,22 -9"21","Pedro Perez ",29,29,28,27 29"22","Dougie Watt ",33!,35#,29,31 79"23","Ilya Moltov ",30,40(,30,36$ <9"24","Harry Cooper",36$,32 ,26,28 A9"25","Rick Redford",33!,32 ,38&,37% F9"26","Max Butcher ",39',36$,27,35# K9"27","Hugh Juan ",31,29,35#,33! P9"28","Jerry Bruce ",39',39',38&,37% U9"29","Eddie Lasky ",42*,37%,40(,35# Z9"30","Frank Brown ",47/,40(,44,,45- _9"31","Karl Hesse ",491,44,,35#,39' d9"32","Rudi Vittori",44,,41),491,480 i9"33","Arnold Gough",491,491,41),46. n9"34","Sammy Johns ",42*,40(,45-,41) s9"35","Pat O'Brien ",491,491,480,491 x9"36","Mike Sands ",535,546,502,491 }9"37","Jose Sangria",502,502,579,557 9"38","Don Wilkie ",524,59;,502,502 9"39","Ali McGregor",557,557,557,557 9"40","Ted Sherwood",502,480,58:,579 9"41","Geoff Parker",58:,502,557,535 9"42","Fati Kuti ",59;,59;,58:,59; 9"43","Cliff Evans ",61=,59;,65A,67C 9"44","Sonny Stein ",65A,68D,60<,557 9"45","Kid George ",64@,60<,68D,69E 9"46","Clive Basic ",59;,62>,69E,60< 9"47","Carlos Lopez",65A,64@,66B,65A 9"48","Stan Lloyd ",69E,69E,68D,66B 9"49","Pierre Lecoq",68D,60<,63?,68D 9"50","Al Valentine",72H,72H,72H,90Z *** Training ********* "n$="50"ro=15:3010 ro=group+3 0:2;1,8;"*** TRAINING ***" ̾train=05,3;"There is no-one to train"''" ";b$''" so you will have to continue"'"immediately to ";1;"THE BIG MATCH";0;" !":90102#:3500 X5,1;t$;" will now attempt"'" to prepare ";b$;" for his"'" match with ";o$ train1=train:90102# :2;1,6;"*** ";b$;" ***";1;5,5;"1 STRENGTH: ";str;7,5;"2 STAMINA: ";sta;9 ,5;"3 SKILL: ";ski;11 ,5;"Training points left: ";4;0;train1 train1=0.25~,10 :.5,15:space=0:4;0;14,0;" ";t$;" has done all he "'" can. You'll just have to hope "'" that ";b$;" is ready "'" for the BIG MATCH! ":90102#:3500 p14,1;"Please enter the number corres-"'" ponding to the attribute you"'" wish ";t$;" to increase" C18,1;"Enter a to see"'" ";o$;"'s attributes" Ispace=1:bottom=491:limit=513:len=1:9800H& Px$="1"str=str+1:train1=train1-1:.01z# =,10 :3060 &Px$="2"sta=sta+1:train1=train1-1:.01z# =,10 :3060 0Px$="3"ski=ski+1:train1=train1-1:.01z# =,10 :3060 :2400` :3050 *** POSTER ********** "c1=(*(25-level))+1 c1(group+crime)85004! image<0image=0 str<1str=1 ski<1ski=1 sta<1sta=1 n2:6::p$="********************************":2;0,0;p$;21,0;p$ 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 Y****************************** THE BIG FIGHT!!! *************************************** 0:1:9 : *** Set variables **** bupa=0:time=60<:b=15:o=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 *** Set up screen *****  23296[:0 time=60< <0,0;2;7;b$;0,20;o$ "b=15:o=16 ;9n$="50"5,7;1;"WORLD CHAMPIONSHIP" @Z9 ,12 ;" ";10 ,12 ;" ";11 ,12 ;" " ES2,6;0;round:25:.15~,25:.45ffff,25 Od20:9 ,12 ;" ";10 ,12 ;" ";11 ,12 ;" " TT9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" " Y15:9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" ";9 ,14;" ";10 ,14;" ";11 ,14;" " ^15:9 ,14;" ";10 ,14;" ";11 ,14;" ";9 ,15;"";10 ,15;"";11 ,15;"" h*** FIGHTING! ******** istr<1str=1 jostr<1ostr=1 k&sta0sta=0:4950V l(osta0osta=0:4900$ miq<1iq=(*10 )+502:x=9 11 :x,b;" ":x:11 ,b-2;"":.1}L,0:y$=b$+" has brain damage"+" ":9150#:8300l rtime=time-1 w6time<10 2,14;1;"0:0";time |Utime=0round=ro.15~,25:.45ffff,25:502:5200P Ltime=0.15~,25:.45ffff,25:502:5000 [o=b+1hit=(*(ski+oski+502)):hitskiblow=(*2)+1:4500 `b=o-1ohit=(*(ski+oski+502)):ohitoskiblow=(*2)+1:4700\ *** Moving ********** ^o=b+1b<16staostaforw=(*(60<-iq))+1:forw=14310 Qsta14back=(*(60<-iq))+1:back=14320 Zb=o-1o>15ostastaoforw=(*10 )+1:oforw=14330 Mosta14back=(*(80P-iq))+1:back=14320 Qb=o-1o>15oforw=(*30)+1:oforw=14330 Do<17oback=(*60<)+1:oback=14340  4200h *** Re-print new pos. * `x=9 11 :x,b;" ":x:b=b+1:9 ,b;"";10 ,b;"";11 ,b;"":  `x=9 11 :x,b;" ":x:b=b-1:9 ,b;"";10 ,b;"";11 ,b;"":  `x=9 11 :x,o;" ":x:o=o-1:9 ,o;"";10 ,o;"";11 ,o;"":  `x=9 11 :x,o;" ":x:o=o+1:9 ,o;"";10 ,o;"";11 ,o;"":  *** Your boy hits *** +blow=1poi=poi+2:4600 Eblow=1oinj=(*200)+1:oinj<39100# +blow=2poi=poi+1:4650* Eblow=2oinj=(*100d)+1:oinj=39100# %osta=osta-(*(str/ostr))*group/blow (osta0osta=0:4900$  \9 ,b;"";9 ,o;"":.01z# =,5:5:9 ,b;"";9 ,o;"": *a10 ,b;"";10 ,o;"":.01z# =,-5:5:10 ,b;"";10 ,o;"": 4 \*** Opponent hits **** f=blow=1opoi=opoi+2:iq=iq-.1}L:4800 kOblow=1inj=(*200)+1:inj=1inj=29200# p-blow=2opoi=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 \9 ,b;"";9 ,o;"":.01z# =,0:5:9 ,b;"";9 ,o;"": b10 ,b;"";10 ,o;"":.01z# =,-10 :5:10 ,b;"";10 ,o;"":  $*** Opponent falls *** 'poi=poi+5 )!x=9 11 :x,o;" ":x .11 ,o;"";10 ,o+1;"":.025{L,-15:10 ,o+1;" ";11 ,o+1;"":.05|L,-20:10 /jb>14x=9 11 :x,b;" ":x:b=b-1:9 ,b;"";10 ,b;"";11 ,b;"" 1 40( 3od3=od3+1 5Lod3=3y$="The Referee stops the fight... ":9150#:4940L 8h=110 ;Jstamsta-roundsta=msta-round =2recov=(*(75K*group)+(10 -h))+1 Brecovostrosta=((h/10 )*mosta)-round:osta>0ostr=ostr-((ostr>0)*group):11 ,o;" ";10 ,o+1;"":10 :11 ,o;" ";10 ,o+1;" ";9 ,o;"";10 ,o;"";11 ,o;"";2,30;0;" ":4200h G+2,30;0;h:45-:h L3w$=b$:image=image+pub:ko=ko+1:5500| V*** Your boy falls **** Yopoi=opoi+5 [!x=9 11 :x,b;" ":x `11 ,b-1;"";10 ,b-1;"":.025{L,-15:10 ,b-1;" ";11 ,b-2;"":.05|L,-20:10 bjo<17x=9 11 :x,o;" ":x:o=o+1:9 ,o;"";10 ,o;"";11 ,o;"" c 40( ed3=d3+1 gKd3=3y$="The Referee stops the fight... ":9150#:4987{ jr=110 mRostamosta-roundosta=mosta-round o2recov=(*(75K*group)+(10 -r))+1 t+recovstrsta=((r/10 )*msta)-(round+(*dive)):sta>0str=str-((str>0)*group):11 ,b-2;" ";10 ,b-1;"":10 :11 ,b-1;" ";10 ,b-1;" ";9 ,b;"";10 ,b;"";11 ,b;"";2,30;0;" ":4200h y+2,30;0;r:45-:r {edive>0y$=" Nice one, John... ":9150#:crime>0crime=crime-1 ~9bupa=bupa+100d:image=image-pub:w$=o$:5500| *** Between Rounds **** d3=0:od3=0 71:0::2;1,2;"*** ";b$;"'s Corner ***";1;5,5;"STRENGTH: ";str;"/";mstr;7,5;"STAMINA: ";sta;"/";msta;9 ,5;"SKILL: ";ski;"/";mski;15,5;"Rounds to go: ";ro-round;17,5;"Prize money: ";4;"`";prize 11 ,5;1;"MANAGER:";13 ,5;"TRAINER:";0;11 ,14;a$;13 ,14;t$;19,5;1;"Opponent:";0;" ";o$ &100d:round=05060 dive>05060 x=1(msta-sta-round)  z=(*(9 +round))+1 ]z(train+1)sta=sta+1:7,15;sta;"/";msta:.05|L,sta-40(  25:x čround=round+1:200:y$="< SECONDS OUT! Round "+round+" >":9150#:osta=osta+(*((mosta-osta)-round)):4100 P*** End of bout ****** Z 502 d*x=9 11 :x,b;" ";x,o;" ":x ib=12 :o=19 nZ9 ,12 ;" ";10 ,12 ;" ";11 ,12 ;" " x'y$=" Points will decide the winner "  9150# 4poi=poi*(8-group):opoi=opoi*(8-group) !y$=b$+": "+poi+" points "  9150# "y$=o$+": "+opoi+" points "  9150# poi>opoiw$=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 |*** THE WINNER!! ***** 20:5600 8y$="THE WINNER!!.... "+w$+" ":9150#:7200   w$=b$dive>07000X w$=b$n$="50"8100 Sw$=b$sta=msta:str=mstr:ski=mski:won=won+1:image=image+pub:6000p Iw$=o$lost=lost+1:sta=msta:ski=mski:str=mstr:image=image-pub image<0image=0 prize=0:6000p *** Winner's toon ***** x=120 z=(*40()+10  .02{# =,z x:10 : p*** The Accountant **** sKgym=1gfee=0:g=(*(200*group))+100d:6010z v.gym=0g=0:gfee=100d*train z1:7: .2;1,8;"*** 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) Qdebit=bank+tfee+gfee+bupa+(250*group):13 ,1;"TOTAL: `";debit  90102# 0:2;1,8;"*** ACCOUNTS ***" %4,1;1;"CREDITS" M6,1;"Prize money: `";prize;7,1;"Gym profits: `";g |w$=o$crime=0dive>0bribe>08,1;"""Anonymous"'" Donation"" : `";bribe:prize=prize+bribe 5credit=prize+g:12 ,1;"TOTAL: `";credit  90102# %prebal=cash:cash=cash+credit-debit 0:2;1,8;"*** 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 X*** CONTRACT KILLING ** b0:0: g 200 l11,6;1;"*** END OF GAME ***" v6,1;"""Tut! Tut! Tut! Whatever"'" happened to our agreement?"'" The people I represent were not"'" at all amused by your little"'" joke, ";a$;"."'" In fact they thought it was"'" VERY SILLY. And we all know"'" what happens to silly people,"'" don't we?""" {="y"Ŧ="Y"7040 } 7035{ Y0:0:7::65A:7::#1;" 1988 Sinful Research Ltd" K0:x=125:.05|L,502-x:x:7700:5 *** MOB IN MOOD ****** L:6,1;"""He didn't go down, did he"'" John? Tut! Tut! Tut!"""  100d ecrime=crime+1:8600!:21,0;" ":90102#:  *** Victory Jumps **** *w$=b$7230> 4w$=o$7260\ >u=13 CYx=9 11 :x,b;" ":x:8,b;"";9 ,b;"";10 ,b;"":7 Hfx=810 :x,b;" ":x:9 ,b;"";10 ,b;"";11 ,b;"":.03{u\,-10 Mu:502: \lu=13:x=9 11 :x,o;" ":x:8,o;"";9 ,o;"";10 ,o;"":7 afx=810 :x,o;" ":x:9 ,o;"";10 ,o;"";11 ,o;"":.03{u\,-10 fu:502: L*** END OF GAME ****** Q0:0: V11,6;1;"*** END OF GAME ***" `6,1;"You have exceeded your credit"'" limit of `10000 and your assets"'" have been seized by the bank."'" ";b$;" will never be"'" World Champion now!" j 7040 <20,0;"Would you like to play again?":0 "n"Ʀ"N" ("" @*** Publicity ******** 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;" ": *** World Champion! *** (.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$);" Boxing"'" Champion!"''" thanks to your expert"'" management." +300,:0,0:7700: l*** Haemorrhage ****** v0:0: 11;1,6;"*** END OF GAME ***" 6,1;b$;" is now little"'" more than a cabbage. Your"'" only hope is to pay"'" someone to ghost-write his"'" biography and sneak him onto"'" ""WOGAN"" or make a deal with"'" an after-shave manufacturer."'" He will certainly never"'" become World Champion now..." 300,:7040 !4*** "Take a dive" ***** !>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! !*** CRIMES *********** !<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: #(***SUBROUTINES****** #- #2;#1;" ANY KEY TO CONTINUE ":0: #*** INJURIES ********* #j$(oinj)" "y$=o$+" has a "+j$(oinj)+" ":osta=osta-(2*group):oski=oski-(oski/5):j$(oinj)=" ":9150# # #y=1̱y$ #16;0;21,(32 -y);y$(y) #.01z# =,-10 :y #Xx=175K:x:21,0;6;" ": #i$(inj)" "y$=b$+" has a "+i$(inj)+" ":sta=sta-(2*group):ski=ski-(ski/5):bupa=bupa+500:i$(inj)=" ":9150# # %*** SAVE GAME ******* %0:1;6,8;"Save game? (y/n)" %="y"Ŧ="Y"9640% %="n"Ŧ="N"1000 % 9620% %.6,8;1;" SAVE GAME " %s$(19,12 ) %[s$(1)=str:s$(2)=sta:s$(3)=ski:s$(4)=iq:s$(5)=image %]s$(6)=cash:s$(7)=bout:s$(8)=won:s$(9 )=lost:s$(10 )=ko %fs$(11 )=train:s$(12 )=tfee:s$(13 )=gym:s$(14)=crime:s$(15)=level %Ds$(16)=a$:s$(17)=b$:s$(18)=t$:s$(19)=l$ %"handles"s$() %(.15~,10 :.45ffff,15 %F6,8;1;" Position saved ":90102#:1000 %*** LOAD game ******** %61::1;6,10 ;"LOADing game" % 1 &"handles"s$() & [str=s$(1):sta=s$(2):ski=s$(3):iq=s$(4):image=s$(5) &]cash=s$(6):bout=s$(7):won=s$(8):lost=s$(9 ):ko=s$(10 ) & ftrain=s$(11 ):tfee=s$(12 ):gym=s$(13 ):crime=s$(14):level=s$(15) &%Da$=s$(16):b$=s$(17):t$=s$(18):l$=s$(19) &*K9 :6,10 ;1;"Game LOADed!":90102#:800  &H*** INPUT routine *** &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& M