ZXTape! 21 Gangsters!CCS1983StrategyROM+CotL-DSGANG G . gY I ** P. Boulton 1983.** n=023:a:"a"+n,a:n:31,63?,112p,224,224,112p,63?,31,0,15,15,3,1,0,127,127,0,254,254,128,192,224,240,240 &1:7:1:1:  85004! 22,165 -18,0:0,-30:18,0:0,12 :-6,0:0,-6:-6,0:0,18:12 ,0:0,6 34",135 (0,30:18,0:0,-30:-6,0:0,12 :-6,0:0,-12 :-6,0 2Z40(,153:6,0:0,6:-6,0:0,-6 <62>,135 F0,30:6,0:12 ,-24:0,24:6,0:0,-30:-6,0:-12 ,24:0,-24:-6,0 P114r,165 Z-18,0:0,-30:18,0:0,12 :-6,0:0,-6:-6,0:0,18:12 ,0:0,6 d124|,165 n18,0:0,-6:-12 ,0:0,-6:12 ,0:0,-18:-18,0:0,6:12 ,0:0,6:-12 ,0:0,18 153,165 18,0:0,-6:-6,0:0,-24:-6,0:0,24:-6,0:0,6 181,165 18,0:0,-6:-12 ,0:0,-6:6,0:0,-6:-6,0:0,-6:12 ,0:0,-6:-18,0:0,30 207,165 18,0:0,-18:-12 ,0:12 ,-12 :-6,0:-6,6:0,-6:-6,0:0,30:213,159:6,0:0,-6:-6,0:0,6 236,165 18,0:0,-6:-12 ,0:0,-6:12 ,0:0,-18:-18,0:0,6:12 ,0:0,6:-12 ,0:0,18 n=424916 Sn,130:6,0:0,-6:-6,0:0,6 .05|L,n/5 n Y0:6,0;:1:"":6,0;:"":6,0;:"" !48,7;7;"Published by ";9 ,20;"";11 ,1;"Written by P. Boulton  1983":0,61=:0;255,0 !>15,1;"CASES COMPUTER SIMULATIONS LTD"'" will rigorously protect the"'" copyright of GANGSTERS!"''" Unauthorised copying, hiring,"'" or lending of this software is"'" strictly prohibited." !H '7:0:7 al  l >!C[ !PV"0 :[> K[C[ $V |g,}VK[xGyOC[ K[} (  !C[ :H\???B˧C!70$:H\???FB˧F#Cɜ  X ] ($BA00 0|00 1$B 600HHHHHl??J*|:Tf~BBBBB~FB/4$*)$#(LjRu'0BBBB + K***  P. S. Boulton *** *** 1983 *** count=30  year=1920:month=1 bribes=0:misc=0 #rg=0:ry=0 ('l$=" " -k=k+1 2 m(5) < ch=0  9000(#  9100# mr(4):x(60<):y(60<):c(60<):a$(60<):g(5,8):9200#:85004!  7000X A21,0;p;z$:23298[,f$:ink:l=65000: +'64999:k=0:1 7:0:6::n=1176:"  ";:n:0,7;1;" MURDER MODE. ";1,7;" ============ " Tn=14:3+(n*2),0;n;9 ;1;;l$;3+(n*2),2;7;" Boss : ";n;9 ;1;n;" ";n;1;" Protection : ";((g(n,7)/100d)*g(n,8)*g(n,6)):g(n,5)=03+(n*2),12 ;7;5;1;" DEAD! DEAD! DEAD! " n qu=3020 :7740< !3;"SELECT TARGET."'''z$ z$<"1"z$>"4"3020 g(z$,5)=0.1}L,-8:21,2;8;"HE'S ALREADY DEAD! TRY AGAIN!":0,0;:180:3020 p18,0;1;" Leader ";ڰz$;9 ;z$;7;1;" selected for murder!! ":9998' 7:n=216:n,0;7;l$:n:n=17192:n,0;2;" ":n 3,3;1;2;" SELECT KILLER ";6,2;0;4;"1. Wild Pete Garuchi.";8,2;2;"2. Vito Leggera.";10 ,2;3;"3. Cordelio Crespelle.";12 ,2;0;"4. Bugsy Spitoone.";14,2;2;"5. Francisco Spinnetti.":n=15:4+(n*2),25;2;"$";m(n):n P5,0;"V":22,148:-18,0:0,-25 x=6 6,0;1;1;2;"":#0;0,0;"Select killer using cursor keys to move  selector. Press 'S'to","select.":0 ?a=x:x=x+2*(="6"x12 )-2*(="7"x>7) Bx,0;3;"":xaa,0;" ":.1}L,2*x ="s"3110&  3080 &?0,0;:n=045-4:.05|L,n:n 03,3;2;1;" KILLER SELECTED! ":n=22528X+(x*32 )22528X+((x+1)*32 )-1:z=n:z=z+128:n,z:n 5f=(x/2)-2 79998':m(f)>g(5,5):3,0;1;"YOU ONLY HAVE $";G(5,5);" AND WILL"'"THEREFORE GO BANKRUPT IF YOU"'"CONTINUE!":9998': :v:10 ,2;2;"YOU WILL PAY THE FEE AT THE";8;"END OF THE MONTH !":misc=misc+m(f):9998' Dm(f)<((g(f,7)/100d)*g(f,8)*45-*g(f,6))6::ry=ry+(.5z$"5"):#0;1,10 ;1;7;1;;"NEWS FLASH!":502:n=1140:" ";:n:8,0;1;" THE ATTEMPT FAILED ! ":g(z$,7)=(g(z$,7)z$="5")+(g(z$,7)+13 *(g(z$,7)<87W)z$"5"):9998':3400H : Nry=ry+.25~ Sz$:0::n=1515030:n/2.2 ,n:6;0,35#:6;4,0:6;0,1:6;-4,0:n XMn=160<:n,0:6;75K-(n/1.43333),175:n ]Kn=125:255,n+80P:6;n-220,0:n bn=100d25537%:n,105i:6;0,26:6;4,0:6;0,1:6;-4,0:n gX10 ,6;0;6;"";11 ,6;"":cx=9 :cy=30 l+ti=13 +(*15):t$="":b$="" q]cx,cy+1;6;" ";cx+1,cy+1;" ";cx,cy;0;t$;cx+1,cy;b$ vcy=cy-1 {<t$=(""t$="")+(""t$=""):b$=(""b$="")+(""b$="") 13 :.0015wD,10 :cy=tin=110 :6;6;1;58:,89Y:1;6;2;8*(cy-7)+4,6:l=65200:254,n:6;6;1;58:,89Y:6;6;1;8*(cy-7)+4,6:n:l=65150~:cx,cy+1;6;" ";cx+1,cy;6;0;"":9998':3250 3185q O0:b=0:cx=18:cy=15:6:0::cx,cy;"" d0,0;:n=022:1;5;"@@@ @";:n:5,0;" " E0,0;:#0;11 ;1;6;"GOING UP!" Вa=cx:cx=cx-(b.5)+(b=.5):cx=4b=.5:0:n=05:0,118v+n:24-n,-24+n:0,10 :20-n,-20+n:0,10 :16-n,-16+n:0,10 :12 -n,-12 +n:n:15,0;3;1;" ENTRY TO PEARLY GATES DENIED ! ":n=02:.1}L,20:.25~,0:n:150:n=156-1:n,0;l$:n:0,0;:#0;10 ;2;6;1;"GOING DOWN!":cx=cx+1:20,0;:n=020:1;"";:n:1;2;6;"" Acx=2019,cy;" ":.55 ,-524:3320 !a,cy;" ";cx,cy;0;"" -.3,(2*-cx)-10 :3280 Y0,0;:9998':g(z$,5)=0:1:7::7500L: H z$="5" Qt=502ƥ>.353333 R f=1+(*5):z$="5" \7::0,10 ;1;"NEWS FLASH!";5,2;0;3;"O DEAR ! THE GANG LEADER YOU HAVE JUST TRIED TO ";("MURDER"t502)+(" SHOP "t=502);" IS"'"EXTREMELY ANNOYED !"''4'" HE HAS JUST ISSUED A CONTRACT AGAINST YOU !"'''1;" Your fate is in the balance!":n=45-1-1:((n/200)^1.43333),n:n:9998':3140D f 1:7:2,0;;1;"SELF";2,28;"GANG":36$,0:0,165:219,0:0,165 ry>1ry=1 rg>1rg=1 ry<0ry=0 rg<0rg=0 8,0:0,150:247,0:0,150:n=01505:8,n:8,0:247,n:-8,0:n 16,0:4;4;1ry.99}p;2ry.99}p;0,149*ry:239,0:3;2;1rg.99}p;6rg.99}p;0,149*rg ^ry.99}pcy=8:9998':5750v:0:7:ry=0::3500 ^rg.99}pcy=1:9998':5750v:rg=0:0:7::3500 Կ5,6;1;6;1;"ENTER SELECTION :":7,6;2;"1. Bribes for month.";9 ,6;"2. Shop rival.";11 ,6;"3. Go to next option." "0:t=:.1}L,15 Et=491"ENTER MONTHLY BRIBES ";z$:qu=3560 :7700 t=491bribes=z$:#0;1,2;1;"Monthly bribe amount = $";bribes:160:;:ry=ry-((10 *bribes/g(5,5))):rg=rg-((6*bribes/g(5,5))):8430 t=502:3,1;1;"DANGER !!"''0;" Your rivals are a vengeful lot.You must ensure your RISK METERS are below .5 to avoid certain revenge!":"Do you wish to continue?"''z$:z$="n"z$="N"8430 Et=502"Select target leader."''z$:z$>"4"z$<"1"3590  }t=502g(z$,5)=0.1}L,-8:#0;"Leader ";z$;" already out of game!":130:3590  -t=502ry=ry+.25~:rg=rg+.5 t=50217,3;"Boss ";1;ڰz$;9 ;z$;:" selected.."''5;"Result of trial awaited...":250:>.2~L:0,0;1;"VERDICT"'':n=164@:ڥ*7;9 ;" Innocent!";:n:9995 ':3409Q :8430 =t=5021:1::7;0;"VERDICT":n=0502.5:.01z# =,n:n:n=010 :#0;2;l$;#0;11 ;6;1;1;"GUILTY!!":254,n/2.3333:n:9995 ':g(z$,5)=0:7::7500L:;:9998':8430 $  0  >.733335500| 28900":7:1:6:1: 7;"RAID RIVALS ASSETS.";3,2;"Manouvre the crosswire target selector () using the cursor keys."''"Press ""S"" when you have selected your target.":qu=5011:7740< #0::9200#:9300T$ cx=18:cy=1 \cx=cx+(="6"cx<19)-(="7"cx>0):cy=cy+(="8"cy<30)-(="5"cy>1) p$=(cx,cy):attr=(cx,cy) :cx,cy;1;9 ;6;"":.1}L,-8 0cx,cy;p$:22528X+((cx*32 )+cy),attr 1(cx,cy)=557cx,cy;6;7;"" 1="s"(p$="S"p$="D"p$="C"p$="B")5100  5035 1n=1502:cx=x(n)cy=y(n)5130  n  -c(n)=7#0;1;1;"You're attacking your own asset!"'0;" Press any key to continue..":0:;:21,0;1;7;5;"";21,4;0;" ";21,15;" ";21,27;" ":5035 Ccx=s(c(n),1)cy=s(c(n),2)r(c(n))<16000p #1;8;9 ;8;"TARGET SELECTED!":z=13:f=050210 :.08}# =,f:f:z:502 r(c(n))<1cx=(s(c(n),1)-cx):cy=(s(c(n),2)-cy):t=((((cx^2)+(cy^2)))):7::10 ,2;0;"You are ";t;" miles from gang"';3;c(n);9 ;1;c(n);7;0;0;"'s armoury!":9998': 7:7:0 #Gp=(1p$="D")+(2p$="C")+(3p$="S")+(4p$="B") (h:z=09 :z,0;1;6;l$:z:0,9 ;1;6;1;"DAMAGE REPORT.";0,9 ;1;"______________";3,0;2;"You are attacking the ";("Casino"a$(n)="C")+("Brothel"a$(n)="B")+("Speakeasy"a$(n)="S")+("Distillery"a$(n)="D")''"of gang ";c(n);9 ;c(n);6;1;"."; "9"z$(z)<"0".1}L,-8:5180< Fz:z$>g(5,6).1}L,-8:#0;" You only have ";g(5,6);" gangsters!":100d:5180< Ppz$=0#0;"You entered ""0"":the raid will fail!! Press a key to re-enter.":0:5180< ZH6;1;2;" ";z$;" gangsters will"''"make the raid." _pr=(g(5,6)-z$)/g(5,6):pr>1-(g(5,7)/100d)pr=1-(g(5,7)/100d) dA1:z=9 14:z,0;5;1;l$:z n480,72H:160,0:z=4802085:z,72H:0,-6:z:14,5;"0%";14,24;"100%";10 ,10 ;1;2;"DAMAGE METER." s0t=0:f=14:t=t+g(c(n),f):f xodamage=((((100d-g(c(n),7))*.01z# =)*g(c(n),8)*g(c(n),6))/t)/(z$*g(5,8)) }g(c(n),8)=(g(c(n),8)-(7*(1-damage))):g(5,8)=(g(5,8)+(10 *(1-damage))) 3ry=ry+(damage/.353333):rg=rg+(damage/.73333) z=0((1-damage)*160)+1:z+480,72H:.015zu\,z/10 :254,z:1;1;5;0,8:z Bg(c(n),7)>5g(c(n),7)=g(c(n),7)-5 damage.005y# =cx=c(n):18,6;1;2;7;1;"TOTAL DESTRUCTION !!":g(c(n),p)=g(c(n),p)-1:9400$:8900": damage.95s33317,1;3;"Raid a total failure!! All ";z$'"of your mob have been killed!!":g(5,6)=g(5,6)-z$:#0;" Press any key to continue.. ":0:5360 P17,1;1;((1-damage)*100d);"% damage achieved!!" grep=(1500(p$="D"p$="S"))+(1400xp$="B")+(1200p$="C"):rep=(rep*(1-damage)) f2'"Your rival will have to spend"'"$";rep;" in repairs!":g(c(n),5)=g(c(n),5)-rep  9998'  7500L cont=1 g(c(n),8)>0t=0:f=14:t=t+g(5,f):f:retal=(((pr*g(5,8)*g(5,6))/t)/((.01z# =*(100d-g(c(n),7)))*g(c(n),6)*g(c(n),8))) ;cx=c(n):8900":retal<1ƥ>.4L5400  Z0:7:7::z=815:z,0;c(n);1;l$:z:480,72H:c(n);7;1;160,0:z=4802085:7;1;z,72H:1;7;0,-6:z:14,5;"0%";14,24;"100%";10 ,10 ;1;6;"DAMAGE METER." :r=1+(*4):g(5,r)=05404 c1,0;1;"...RAID THREAT...RAID THREAT...":0,155:255,0 "5,2;"Gang ";cx;9 ;cx;7;" is just about to raid your ";("Distillery"r=1)+("Casino"r=2)+("Speakeasy"r=3)+("Brothel"r=4);"....":#0;"Press any key to receive damage report.":0:; 'z=0((1-(retal))*160)+1:z+480,72H:7;cx;1;0,8:.015zu\,z/10 :254,z:z (g(cx,8)=(g(cx,8)+((1-retal)*10 )):g(5,8)=(g(5,8)-((1-retal)*7)) )z=1502:c(z)=7(a$(z)="D"r=1)(a$(z)="C"r=2)(a$(z)="S"r=3)(a$(z)="B"r=4)5420, *z ,retal.005y# =18,6;1;2;"TOTAL DESTRUCTION!!":g(5,r)=g(5,r)-1:9998':n=z:9400$:cx=5:8900": /rrep=(1500(r=1r=3))+(1400xr=4)+(1200r=2):rep=((1-retal)*rep) 118,0;"Raid achieved ";((1-retal)*100d);"% damage. You"'"will be debited with $";rep'"repairs.":misc=misc+rep 3 9998' 6$7500L:cx=5:8900" z |<n=1+(*30):retal=:c(n)=75500|  cx=c(n) >.75@5400: >.55 cx=1+(*4):j$=("distillery"cx=1)+("Casino"cx=2)+("Speakeasy"cx=3)+("Brothel"cx=4):5700D:  D>.75@7:3::1,10 ;2;1;1;1;"NEWS FLASH!":cy=(*1200):misc=misc+cy:10 ,2;"There has been a fire at your ";10 ;j$;"."''13 ,4;"Repairs will cost $";cy;".":250:n=210-1:n,0;1;1;"":.1}L,42*-(n*2):n:9998': I2):n:5;255,0 Xi12 ,2;7;1;"The Police are about to raid"'10 ;"your ";j$;".":9998' bwn=2613 -1:.2~L,20:9 ,n;1;0;6;" ":.25~,0:n l0:n=10 21:6;l$:n:b=(1+(*4))*1000:12 ,3;2;6;"You have been fined $";b;".";15,3;"Bribery may be cheaper!!":misc=misc+b:0: v1:6:4::cx=1+(*6):z$=("Murder"cx=6)+("Manslaughter"cx=5)+("Arson"cx=4)+("Extortion"cx=3)+("Liquor Dealing"cx=2)+("Tax Fraud"cx=1):x$=("You have"cy>6)+("A gang member has"cy6) {0,10 ;2;1;"NEWS FLASH!";4,0;0;1;x$;" been arrested.";7,5;"The rap is ";z$;".":n=9 15:n,11 ;1;l$(11 18):n:7:12 ,15;1;"";13 ,15;"":n=96`1518:n,502:0,480:n:96`,502:480,0:96`,98b:480,0 | 0 ti=0:te=0:"Your attorney says the evidence looks strong. Do you wish to trybribing the arresting Officer? (Y/N)"'t$:t$="N"t$="n"te=te+cx:5780 2"OK..Enter bribe amount.";t$:t$=""5770 Cn=1̱t$:t$(n)>"9"t$(n)<"0".1}L,-8:5770 n o8n<16n n,0;l$:n 4,1;"The trial comes up shortly...":"Do you wish to try fixing the trial? (Y/N)"'t$:t$="N"t$="n"5810 ti=((cx/8)*g(5,5)):16,1;"OK..."'" THESE THINGS CAN BE ARRANGED..."'" BUT IT'LL COST YOU $";ti;6,5;7;1;"Bank Balance = $";g(5,5) ,0,0;:5:"Do you wish to go ahead with trial fixing? (Y/N)"'t$:t$="y"t$="Y"n=05026:.1}L,n:n:bribes=bribes+ti:n=96`1518:n,502:1;7;0,480:n:96`,98b:1;7;480,0 Vt$="Y"t$="y"9 ,11 ;7;3;1;"FREEDOM!":9998': -n=121:n>8n<16n n,0;l$:n Y>.5cy>64,1;"Sorry! You have been convicted!":5900 : %>.4Lcy65910: Б:cy69 ,1;"HE WAS LUCKY! HE BEAT THE RAP!":g(5,8)=g(5,8)+cx:n=1502:.07}\(,N:n: h:10 ,0;"YOU WERE LUCKY!"''"YOU BEAT THE RAP AND LIVE TO FIGHT ANOTHER DAY!":9998':   cx>216,1;"YOU HAVE BEEN SENTENCED TO ";cx*5'" YEARS IN ALCATRAZ."'" Under the circumstances your rivals have taken over your"'"assets and you have lost the"'"game!":9998':555+ b=(cx*1500*(1+)):cx216,1;"Fortunately you have escaped"'"with a hefty fine! You will be debited $";b;" at the end of the"'"month.":misc=misc+b:9998': Ste=te+(cx*2)+1:g(5,8)=g(5,8)-cx:t$=("all"te>g(5,6))+((te)tef=14:n=15:t(f)=t(f)+g(n,f):n:f f=15 Bx=5:t=((g(f,1)/t(1))*2500 ):6987K x=7:t=((g(f,2)/t(2))*(*7000X)):t=(t-1.3&fff*t*(>.75@)):t=t+t*2.5 *(t>0):6987K @x=9 :t=(g(f,3)/t(3)*3000 ):6987K Cx=11 :t=((g(f,4)/t(4))*2450 ):6987K f Qn=13 182:n,13 ;"0":n:21,13 ;1;ti f=15 0x=5:t=g(f,1)*502:6985I 0x=7:t=g(f,2)*25:6985I 0x=9 :t=g(f,3)*557:6985I 1x=11 :t=g(f,4)*33!:6985I 1x=13 :t=g(f,6)*10 :6985I "x=15:t=bribes:6985I "+x=17:t=misc:f=56985I ,#f:21,26;1;te 69998':7500L @F:3:9 ;"LEAGUE TABLE.";1,9 ;"=============" J5t(5):n=15:t(n)=g(n,5):n T(n=15:f=n+15 ^&t(n).56815 ?cx=(.3*g(n,5)/250):cx=06815 g(n,5)=g(n,5)-(250*cx):g(n,6)=g(n,6)+cx:0'5;" Boss ";n;9 ;1;n;0;7;" has hired ";cx;" more"'12 ;" gangsters." sm(n)=((g(n,7)/100d)*g(n,8)*45-*g(n,6)):m(n)=3000 +(m(n)/1000)*1000 n m(5)=((g(5,7)/100d)*g(5,8)*45-*g(5,6)):m(5)=(m(5)/1000)*1000 n=031:"*";:n count=60<6840 '':n=14:cx=1+(*4):cy=1500*(cx=1cx=3)+1200*(cx=2)+1400x*(cx=4):te=(.2~L*(g(n,5)/cy)):te=0ť>.5count+te>60<6835 g(n,cx)=g(n,cx)+te:g(n,5)=g(n,5)-(te*cy):f=count+1count+te:a$(f)=("D"cx=1)+("C"cx=2)+("S"cx=3)+("B"cx=4):c(f)=n:f:count=count+te:0;" Boss ";n;9 ;1;n;0;7;" has bought ";te;(" Distillery"cx=1)+(" Speakeasy"cx=3)+(" Casino"cx=2)+(" Brothel"cx=4);("s."te>1)+("."te=1) n 9998': IBg(f,5)=g(f,5)-t:f=5x,27;t:te=te+t: Kf=5t=(1.2*t) NCg(f,5)=g(f,5)+t:f=5x,13 ;t:ti=ti+t: S X3bribes=0:rg=rg+.15~:ry=ry+.075} Z2month=13 month=1:year=year+1 [cont=0 vd$=("JAN."month=1)+("FEB."month=2)+("MAR."month=3)+("APR."month=4)+("MAY "month=5)+("JUNE"month=6)+("JULY"month=7)+("AUG."month=8)+("SEPT"month=9 )+("OCT."month=10 )+("NOV."month=11 )+("DEC."month=12 ) xb0:0:1::ink=3+(*4):f$="":p=0:z$=d$+year:500 y0:0 { 9998'  8000@ >.55 5500|  5000 >.55500|  3000 >.733335500|  6500d month=month+1 J 7000X LNg(5,5)07:7:0::8,2;"You are ";("bankrupt"g(5,5)0z$"5")+(" dead "z$="5");" and have"'"therefore lost the game!!":9998':0:0:3::z$="GAMEOVER":f$="":p=0:ink=4:1:500:0:9998'::555+ V;:z=14 `9g(z,5)0g(z,1)+g(z,2)+g(z,3)+g(z,4)>0:6,2;3;"Gang ";z;9 ;z;7;3;" is out of the game and you have inherited all its assets!"''1;1;".......WELL DONE PARDNER ! ":7900:9998':cont=1: jz t  z$=""qu ;w=1̱z$:z$(w)>"9"z$(w)<"0".1}L,-8:qu (w 2 qu+10 1z$>"9"z$<"0"z$="".1}L,-8:8070 tg(5,5)=0count=30g(5,5)=(((.4L*)+.8L)*(10 -z$)*4000) &14,5;g(5,5) g(5,5)0count30#0;0,3;"Press ENTER to buy assets";2,7;"or B to bypass.":0:="b"82400 count60<.1}L,-8:17,0;1;" Sorry - no suitable sites left.":250:17,0;l$:82400 S"Enter number of Distilleries at $1500 each."''z$:qu=8110:7700 z$*1500>g(5,5).1}L,-8:#1;1;"Insufficient funds! Try again.":100d:8110 -count+z$>60<:9996 ':8110 ³g(5,1)=g(5,1)+z$:g(5,5)=g(5,5)-(1500*z$):14,5;g(5,5);" ";14,15;g(5,1) :n=count+1count+z$:a$(n)="D":n:count=count+z$ M"Enter number of Casinos at $1200each."''z$:qu=8140:7700 ւz$*1200>g(5,5).1}L,-8:#1;1;"Insufficient funds! Try again.":100d:8140 ,count+z$>60<9996 ':8140 g(5,2)=g(5,2)+z$:g(5,5)=g(5,5)-(1200*z$):14,5;g(5,5);" ";14,20;g(5,2) :n=count+1count+z$:a$(n)="C":n:count=count+z$ S"Enter number of Speakeasies at $1500 each."''z$:qu=8170:7700 z$*1500>g(5,5).1}L,-8:#1;1;"Insufficient funds! Try again.":100d:8170 ,count+z$>60<9996 ':8170 g(5,3)=g(5,3)+z$:g(5,5)=g(5,5)-(1500*z$):14,5;g(5,5);" ";14,25;g(5,3) :n=count+1count+z$:a$(n)="S":n:count=count+z$ S"Enter number of Brothels at $1400 each."''z$:qu=8200 :7700 z$*1400x>g(5,5).1}L,-8:#1;1;"Insufficient funds! Try again.":100d:8200 ,count+z$>60<9996 ':8200 g(5,4)=g(5,4)+z$:g(5,5)=g(5,5)-(1400x*z$):14,5;g(5,5);" ";14,29;g(5,4) !:n=count+1count+z$:a$(n)="B":n:count=count+z$ & 100d 00f=217:f,5;l$(6):f D0,154:255,0:0,134:255,0:255,535:0,100d:n=116t44,-16:0,n:255,0:n NM80P,535:0,100d:173,535:0,100d S3,5;1;"Size";3,12 ;"Morale";3,22;"Protection";4,22;"Factor" Xn=15 b~2*n+4,5;g(n,6);2*n+4,14;g(n,8);2*n+4,25;g(n,7):n gg(5,6)0count30#0;0,2;"Press ENTER to increase gang";2,7;" or B to bypass.":0:=98b8430 lK16,6;1;1;"BANK BALANCE : $";g(5,5) vM2;"ENTER NUMBER OF GANGSTERS @ $250"''z$:qu=8310v :7700 z$*250>g(5,5)#0;2;1;"SORRY - INSUFFICIENT FUNDS!!":.1}L,-8:75K:8310v bg(5,6)=g(5,6)+z$:g(5,5)=g(5,5)-(250*z$) h14,5;g(5,6);16,20;1;"$";g(5,5);0;" " C"Enter Personal Protection Factor"'z$:qu=8402 :7700 /z$>100d.1}L,-10 :8402 ?g(5,7)=z$:14,25;g(5,7) m(5)=((g(5,7)/100d)*g(5,8)*45-*g(5,6)):m(5)=2000+((m(5)/1000)*1000) 9998' cx=5:8900":;:n=200-1:n,0;1;ڥ*6;9 ;" THE THORNY QUESTION OF BRIBES! ";n+1,0;0;7;l$:7:n 3500 ! 9998': !329998':9200#:9300T$:9998': !4?#1;4;1;1;"Please wait : COMPUTING" !9g(5,8)=20 !>n=130 !H(x(n)=(*18):y(n)=(*31) !R#(x(n),y(n))=5578520H! !\$(x(n),y(n))>32 8520H! !fpt=*100d:a$(n)=("S"t>61=)+("B"t61=t>36$)+("C"t36$t>16)+("D"t16) !pc(n)=1+(*4) !u*x(n),y(n);c(n);1;9 ;a$(n) !zn !f=130 !4a$(f)="D"g(c(f),1)=g(c(f),1)+1 !4a$(f)="C"g(c(f),2)=g(c(f),2)+1 !4a$(f)="S"g(c(f),3)=g(c(f),3)+1 !4a$(f)="B"g(c(f),4)=g(c(f),4)+1 !f !f=14 !7t=g(f,1)+g(f,2)+g(f,3)+g(f,4) !g(f,5)=t*1000 !g(f,6)=t*5 !%g(f,7)=40(+(*20) "g(f,8)=20 "bb=((g(f,7)/100d)*g(f,8)*45-*g(f,6)):m(f)=(b/1000)*1000 "f "r19,0;7;1;"This is Spectral City..Your city" "2n=3160<:c(n)=7:a$(n)=" " "$(x(n)=(*19):y(n)=(*21) ".#(x(n),y(n))4808740$" "87f=31n-1:x(f)=x(n)y(f)=y(n)8740$" "Bf "Ln "VE;:n=13:.1}L,10 *n:n:#0;:9998' "`ls(4,2):f=14:n=130:c(n)=fs(f,1)=x(n):s(f,2)=y(n):f "jn:f " "cx=7cx=5 "cx<5g(cx,8)0f=13:n=07:.01z# =,n*7:.01z# =,f*10 :n::n:f:2:6:1::3,1;1;1;"CONGRATULATIONS!!";0''" Morale in gang ";cx;" has reached zero.."''" All its gang members"'" have left the City & gone home"'" to Mom."'''" Its boss has fled the City..":9998':1:0:7:g(cx,5)=0:7500L: "7cx=5g(5,8)00:0:7:1::3,2;1;"OH DEAR !!";0''" Your morale level is zero.."''" Your gangsters have joined"'"rival gangs."'''"A contract has been taken out.."''"You have minutes to live..":0:9998':z$="5":3150N " #' 0 #( #0:0:6: #n=014 #,l=65200:>.5l=65150~ #Ucx=*20:cy=*30:cx,cy;3+(*5);"";cx+1,cy;"" #(254,cy:254,cy-11 :n #10 ,10 ;1;2;" ";12 ,10 ;" ";11 ,10 ;" ";11 ,21;" ":11 ,11 ;1;7;"GANGSTERS!" #0,0:7;255,0:7;0,175:7;-255,0:7;0,-175 #4n=032 :l=65200:254,n:n #9998': #&0:0:1:6: #s$="":n=019:n,0;7;s$;n,4;s$;n,8;s$;n,12 ;s$;n,15;s$;n,18;s$;n,21;s$;n,24;s$;n,27;s$;n,31;s$:n #Zn=0213.75p:n,0;7;"":n $k20,0;:n=12:1;5;7;"";:n: $Qn=2021:n,4;7;"";n,15;"";n,27;"":n $" $T]n=1count:x(n),y(n);c(n);1;9 ;a$(n):n:0,0;7;"" $^ $vx(502)=x(n):y(502)=y(n):c(502)=6:a$(502)=" ":count=count-1:z=n+1502 $Nx(z-1)=x(z):y(z-1)=y(z):a$(z-1)=a$(z):c(z-1)=c(z) $z $ ' =:z=0502:.04|# =,z:.04|# =,502-z:z: ' .1}L,-8:#0;3;"Sorry - ";("only "60<-count>0);:#0;3;(60<-count60<-count1);(" sites left."):250: 'I#0;8;9 ;" Press any key to continue...":0: '10:7:0:0:7:: kouneaontribeisL >!lj5W /<      /<   /<?<SSSBCSBDSSSBCBDSSBBSS St=x