ZXTape! 0Created with Ramsoft MakeTZXcity Y&YgY82:1:7::11 ;" C I T Y " F''"  1983 Terminal Software"''"(By arrangement with Docimodus.)" '''" During the running of this"''"game ""U"" will call a series of"''"utilities and ""E"" will let you"''"enter the game. You must hold"''"these keys down."  +q$="Press ""c"" to continue ?":'q$ "c"Ʀ"C"8 ""9 gl=4:9500% :2 m$(1,704) m$(1)=" " Em$(1,670673)="":m$(1,702)="" =b$(22,33!,2):b(22,32 ,2) n$(4,12 ) (n$(1)="i Citygrow" 2n$(2)="i Bartarmax" <n$(3)="i Novabuild" Fn$(4)="i Develoco" Z+c$(4,12 ):c(4,20) d#a=14:c$(a)=n$(a):a ng=1:cn=0 ,p$(8,12 ) 6p(6,5) @p$(1)="House" E{p(1,1)=3000 :p(1,2)=100d:p(1,3)=10000':p(1,4)=100d Jp$(2)="Factory" Oyp(2,1)=10000':p(2,2)=20:p(2,3)=300000u:p(2,4)=0 Tp$(3)="Apartments" Yzp(3,1)=8000@:p(3,2)=502:p(3,3)=25000a:p(3,4)=300, ^p$(4)="Shop" cxp(4,1)=6000p:p(4,2)=40(:p(4,3)=190008J:p(4,4)=0 hp$(5)="Pub" mxp(5,1)=7000X:p(5,2)=30:p(5,3)=22000U:p(5,4)=0 rp$(6)="`Bank" wzp(6,1)=50000P:p(6,2)=4:p(6,3)=1000000t$:p(6,4)=0 (z$:d=1:m=1:y=1970 l$(22) <gc=*502+502:mv=0:vu=1:hu=0 ?sp=30:nu=0:dc=0:br=1.5@:bi=1 up=4:j$="e" g0,0;m$(1);21,0;" CITY ":r=23232Z23296[:r,20:r %gip=1:i=0:g=g+1 ="U"Ŧ="u"9900& ="E"Ŧ="e"4500 "g>4g=1:9000(# g=up8000@ Ec$(g,2)=("b"c(g,3)<0)+("p"c(g,3)>0) .20,9 ;d;12 ;z$;16;y <.1}L4000 c$(g,2)"p"1000  3000  9c(g,14)+c(g,3)>999999.999t#8200 <c(g,9 )=dc(g,10 )=my>c(g,11 )6000p imv=0:21,0;l$;21,0;g+2;c$(g,3);1;"`";c(g,3) Nc(g,12 )=c(g,12 )+1:c(g,12 )>gcc(g,12 )=1 $Cc(g,3)=c(g,3)-10 :c$(g,1)="e"5000 .(mv=mv+1:mv>40(1000 8Bdr=(*5-2):dr=0c(g,8)=-dr10808 Blc(g,6)=c(g,1)+(dr=-1)-(dr=1):c(g,7)=c(g,2)+(dr=-2)-(dr=2) Lcc(g,6)<0c(g,6)>21c(g,7)<0c(g,7)>311115[ Vbml=c(g,6)*32 +c(g,7)+1:m$(1,ml)""m$(1,ml)""1120` [ 10808 ` 6500d e|.01z# =,g*3+mv:1;c(g,1),c(g,2);"";c(g,6),c(g,7);g+2;"":c(g,8)=dr jc(g,1)=c(g,6):c(g,2)=c(g,7):c(g,16)=c(g,16)-(c(g,16)>0):c(g,16)>11000 occ(g,16)=1j$="e":c(g,6)=c(g,18):c(g,7)=c(g,19):1125e t'*100d21c(g,7)<0c(g,7)>311150~ Oml=c(g,6)*32 +c(g,7)+1:m$(1,ml)" "1000 Gb$(c(g,6)+1,c(g,7)+1,1)" "1400x pb=(*c(g,12 )) pb>11220 $pb=6:1900l:1000 0pb>4pb34"pb35#1240 $pb=2:1900l:1000 pb>12 1260 $pb=3:1900l:1000 pb>231280 $pb=4:1900l:1000 pb>34"1300  $pb=5:1900l:1000 pb>100d1320( $pb=1:1900l:1000 ( 1000 xuow=b$(c(g,6)+1,c(g,7)+1,2):x$=b$(c(g,6)+1,c(g,7)+1,1) }+c$(g,1)="i"ƥ>.95s3331450 g=ow1000  x$="`"pb=6:1430 pb=x$-155 Tx$=""c(ow,13 )=c(ow,13 )-1:c(g,13 )=c(g,13 )+1 Vvl=b(c(g,6)+1,c(g,7)+1,1):vl>c(g,3)1000 Vc(ow,3)=c(ow,3)+vl:c(g,3)=c(g,3)-vl:1920:1000 Jz=b(c(g,6)+1,c(g,7)+1,1):w=ow:5230n l4p(pb,1)>c(g,3)p(pb,2)<1 q1pb=2c(g,13 )=c(g,13 )+1 vNc(g,3)=c(g,3)-p(pb,1):p(pb,2)=p(pb,2)-1 v=c(g,6)+1:h=c(g,7)+1:b$(v,h,1)=p$(pb,1):b$(v,h,2)=g:b(v,h,1)=p(pb,1):b(v,h,2)=p(pb,3) qb$(v,33!,1)="x":.5,20+pb*3:c(g,6),c(g,7);g+2;b$(v,h,1)  lv1=(*22+1):v2=(*7+v1-3):h1=(*32 +1):h2=(*7+h1-3) ;v2<1v2>22h2<1h2>32 3000 bw=b$(v2,h2,2):a=b$(v2,h2,1)-155:x$=b$(v1,h1,1):y$=b$(v2,h2,1) %x$<""x$>""y$<""y$>""x$=y$ x$=""x$=""3070 (x$=""x$="")(y$=""y$="")b(v2,h2,1)=b(v2,h2,1)+p(a,4)*(b(v2,h2,1)0):w+2;21,0;l$;21,0;y$;" `";-p(a,4):3100 3140D y$=""b(v2,h2,1)=b(v2,h2,1)-b(v1,h1,1)*(b(v2,h2,1)>-10000'):w+2;21,0;l$;21,0;y$;" `";-b(v1,h1,1):3100 y$=""y$=""b(v2,h2,1)=b(v2,h2,1)+b(v1,h1,1)*(b(v2,h2,1)0c$(h2,2)="p" #n$(h1,2)="p":c$(h2)=n$(h1) ml=(*650+1) 3m$(1,ml)<""m$(1,ml)>""4050 Vc(h2,3)=200000CP:c(h2,4)=c(h2,3):c(h2,5)=c(h2,3) )a=12 20:c(h2,a)=0:a Gc(h2,8)=(*5-2):c(h2,8)=04085 Yc(h2,1)=((ml-1)/32 ):c(h2,2)=ml-c(h2,1)*32 -1 qc(h2,6)=c(h2,1):c(h2,7)=c(h2,2):c(h2,1),c(h2,2);1;h2+2;"" 7c(h2,9 )=d:c(h2,10 )=m:c(h2,11 )=y: Ha=14:c$(a,2)=" "c(a,14)04505 Va:21,0;1;"Four companies only. ":6,-16:1000 '5,-10 ::"Company name ?" ""4506 "(less than 10 letters) ";i$ i$<10 4530 &"Company name too long.":4505 jb=14:i$=c$(b,33+i$-1)i$=n$(b,33+i$-1)4540 b:4550 &i$;" is a reserved name":4505 ml=(*650+1) 3m$(1,ml)<""m$(1,ml)>""4550 Qc(a,3)=200000CP:c(a,4)=c(a,3):c(a,5)=c(a,3) Vc(a,1)=((ml-1)/32 ):c(a,2)=ml-c(a,1)*32 -1 c$(a)="ep"+i$ 2c(a,9 )=d:c(a,10 )=m:c(a,11 )=y ""4615  :10 ;i$'''" You are starting play with"''"`200000. To win you must make"''"`1000000 or more before any of",''"the other companies." Pa+2;'''" Your company colour is the"''"same as the ink on this line."  '''q$ *"c"Ʀ"C"4650* 4 7000X \::8;"CITY INFORMATION"'''"Command letters :-" ab'''"Build in the position bumped."''"Continue (do nothing)."''"Utilities (select)." f'"Press ""m"" for more info." k="c"Ŧ="C"7000X m="m"Ŧ="M"4930B p 4715k 5:8;"CITY INFORMATION"'''"Building type" ;6;"Construction cost"'16;"Number available" q=16:'p$(q,1);" ";1;p$(q,2);0;p$(q,3);" `";p(q,1);25;p(q,2):q Mw$="Press building letter for more information or ""c"" to continue.":'w$ ="c"Ŧ="C"7000X "h"Ʀ"H"4790 *:" HOUSE INFORMATION " d'"Houses built";22;100d-p(1,2)''"Houses left";22;p(1,2) 8'"Construction cost";21;"`";p(1,1) 9'"Top limit of value";21;"`";p(1,3) & ''" Value changes due to ""hits""" b'"Houses near to shops or places of work (factories) increase in value by `";p(1,4) B'"Houses near to pubs decrease in value by `";p(1,4) "a"Ʀ"A"4810 *:" APARTMENT INFORMATION " k'"Apartments built";22;502-p(3,2)''"Apartments left";22;p(3,2) 8'"Construction cost";21;"`";p(3,1) 9'"Top limit of value";21;"`";p(3,3) %''" Value changes due to ""hits""" j'"Apartments near to shops or"'"places of work (factories)"'"increase in value by `";p(3,4) E'"Apartments near to pubs decreasein value by `";p(3,4) "f"Ʀ"F"4830 *:" FACTORY INFORMATION " i'"Factories built";22;20-p(2,2)''"Factories left";22;p(2,2) 8'"Construction cost";21;"`";p(2,1) 9'"Top limit of value";21;"`";p(2,3) %''" Value changes due to ""hits""" |'"Factories decrease in value by the value of those houses and apartments whose inhabitants areon the factory payroll." "s"Ʀ"S"4850 *:" SHOP INFORMATION " a'"Shops built";22;40(-p(4,2)''"Shops left";22;p(4,2) 8'"Construction cost";21;"`";p(4,1) 9'"Top limit of value";21;"`";p(4,3) %''" Value changes due to ""hits""" m'"Shops increase in value by the value of those apartments and houses whose inhabitants shop in them." "p"Ʀ"P"4870 *:" PUB INFORMATION " _'"Pubs built";22;30-p(5,2)''"Pubs left";22;p(5,2) 8'"Construction cost";21;"`";p(5,1) 9'"Top limit of value";21;"`";p(5,3) %''" Value changes due to ""hits""" m'"Pubs increase in value by the value of those apartments and houses whose inhabitants drink in them." "b"Ʀ"B"4890 *:"``````` BANK INFORMATION ```````" `'"Banks built";22;4-p(6,2)''"Banks left";22;p(6,2)  8'"Construction cost";21;"`";p(6,1)  9'"Top limit of value";21;"`";p(6,3)  .'"Banks increase in value by 5% ofdeposits."  1'"Banks decrease in value by 5% ofwithdrawals." -'"Interest on credits ";bi;"%"'"per month." +'"Charges on debits ";br;"%"'"per month."  4770 $::8;"CITY INFORMATION"'''"Command letters :-" )'"Demolish the building bumped. (You are debited the current value of the building. The owneris credited twice this amount.)" .'"Purchase the building bumped. (You are debited the current value of the building. The owneris credited the same amount.)" 3#'"Value the building bumped." 8'"Continue (do nothing)." = 4710f B):"""HITS""and activity of people." C'" A ""hit"" is indicated by two"''"flashing buildings. When this"''"happens then it shows that"''"people are active in the area."''"The value of one of the"''"buildings will change. The"''"amount of the change is shown"''"bottom left of screen." GC''"Press ""p"" for property info"''" or ""i"" for income info." L="p"Ŧ="P"4750 M="i"Ŧ="I"4950V N="c"Ŧ="C"7000X Q 4940L V:"INCOME"'''"The primary source of income is rent. Each day rent is collected"'"from one line of property."'"The travelling   square shows"'"the position of the collector." XD"The amount of rent is 1/";gl;"th"'"of the value of the property." Z?'"Interest on bank deposits is"'"credited monthly at ";bi;"%" ['"Profits from factories are addedto your cash in hand every year.Income tax is charged at 33.3% on the total profit each year." ]'q$:4715k  Pmv=0:a=3sp:.1}L,4:.4L,8:""5015 $a:sp=sp+(sp<12 ):1000 *sp=sp/2+a:="u"Ŧ="U"9900& ="e"Ŧ="E"4500 `i$=:c(g,6)=c(g,1)+(i$="6")-(i$="7"):c(g,7)=c(g,2)+(i$="8")-(i$="5") cc(g,6)<0c(g,6)>21c(g,7)<0c(g,7)>315020 bml=c(g,6)*32 +c(g,7)+1:m$(1,ml)>""m$(1,ml)<""5100  6500d o.01z# =,g*3+mv:1;c(g,1),c(g,2);"";c(g,6),c(g,7);g+2;"":sp c(g,1)=c(g,6):c(g,2)=c(g,7):c(g,16)=c(g,16)-(c(g,16)>0):c(g,16)>11000 cc(g,16)=1j$="e":c(g,6)=c(g,18):c(g,7)=c(g,19):5050 mv=mv+1 mv>301000  5020 ""5100 z=b(c(g,6)+1,c(g,7)+1,1):x$=b$(c(g,6)+1,c(g,7)+1,1):w=b$(c(g,6)+1,c(g,7)+1,2):x$" "5200P J21,0;l$;21,0;"B C U or Info ?" ="i"Ŧ="I"4700\ ="u"Ŧ="U"9900& ="c"Ŧ="C"1000 "b"Ʀ"B"5115  ""5130  f21,0;l$;21,0;"H F A S P `B Info"  i$=:i$=""5136 i$="i"i$="I"4750 ai$="h"i$="f"i$="a"i$="s"i$="p"i$="b"i$="H"i$="F"i$="A"i$="S"i$="P"i$="B"5140  5135 i$="h"i$="H"pb=1 i$="f"i$="F"pb=2 i$="a"i$="A"pb=3 i$="s"i$="S"pb=4 i$="p"i$="P"pb=5 i$="b"i$="B"pb=6 ( 1900l 2 1000 P{21,0;l$;21,0;"D P V C or Info ?":x$="`"21,8;1;"`X" U="I"Ŧ="i"4900$ Z="C"Ŧ="c"1000 _"V"Ʀ"v"5225i dU21,0;l$;21,0;w;x$;" `";z:5,w*3:1000 i*("D"Ʀ"d")c(g,3)"9"i$(i)<"0"5307  i:i=i$ Ò(sn=-1c(g,14)-i<-50000P)(sn=1i>c(g,3))21,0;l$;21,0;1;"Too much !":5330 b(c(g,6)+1,c(g,7)+1,1)=b(c(g,6)+1,c(g,7)+1,1)+sn*i/20:c(g,14)=c(g,14)+sn*i:c(g,3)=c(g,3)-sn*i:21,0;l$;21,0;"Balance `";c(g,14) 3,-30:1000  5205U p4:c$(g,3)''''"Anniversary ",y-c(g,11 ) Hfp=c(g,13 )*p(2,1)/3:'"Factory profit = `";fp :tp=c(g,3)-c(g,5)+fp:'"Total Profit = `";tp (tax=tp/3:'"Income Tax = `";tax (tp=tp-tax:'"Profit after tax = `";tp @c(g,3)=c(g,3)-tax+fp:'"Balance = `";c(g,3) c(g,5)=c(g,3) H'''"Press a key to continue":5,-5:1000:7000X d_a=14:agj$="e"c(g,6)=c(a,1)c(g,7)=c(a,2)6510n ia: nj$="f":c(g,18)=c(g,6):c(g,19)=c(g,7):c(g,6)=20:c(g,7)=31:c(g,17)=c(g,17)+1:c(g,16)=c(g,17)+5: XJ:2:m$(1):21,0;1;"Rebuild in progress" bZa=14:c$(a,2)" "c(a,1),c(a,2);a+2;1;"" ga l<v=122:b$(v,33!,1)"x"7040 n5h=132 :b$(v,h,1)=" "7030v qhv-1,h-1;ٯb$(v,h,2)+2;b$(v,h,1):.01z# =,(b$(v,h,1)-144) vh v:1000 @*hu>31hu=0:vu=vu+1: Evu>22vu=1 Jhu=hu+1 T`8;1;vu-1,hu-1;" ":a=b$(vu,hu,2):a=32 8045m ^a=b$(vu,hu,2):.01z# =,a:c(a,3)=c(a,3)+b(vu,hu,1)/gl:c(a,15)=c(a,15)+b(vu,hu,1) hIb$(vu,hu,1)="`"b(vu,hu,1)=b(vu,hu,1)-nu:nu=0 m>8;1;vu-1,hu-1;" ":8000@ r N21,0;l$;21,0;"Monthly Progress":3,-10 a=14:c$(a,2)="p"21,0;l$;21,0;a+2;c$(a,3);1;"`";(c(a,3)-c(a,4)):c(a,4)=c(a,3):3,a*3 a a=14 xip=c(a,14)/100d*bi:ic=c(a,14)/100d*br:dc=ip*(c(a,14)>0)+ic*(c(a,14)<0) *c(a,14)=c(a,14)+dc:nu=nu+dc a: L:4,2;g+2;1;c$(g,3);" makes a MILLION." Gb=-2020.5:.1}L,b:.1}L,-b:b:9900& !4if=((*15))/100d !9`21,0;l$;21,0;"Annual Inflation ";if*100d;"%":5,-15 !>if=if+1:a=16:p(a,1)=p(a,1)*if:p(a,3)=p(a,3)*if:p(a,4)=p(a,4)*if:a !C@br=br+((+.5))/10 :bi=bi+((+.5))/10 !H #(4up=up-1:d=d+1:up=0up=4 #-d>2890157# #2 #7d=32 9030F# #<>d=31(z$="Apr"z$="Jun"z$="Sep"z$="Nov")9040P# #>z$"Feb"90102# #A`z$="Feb"(((y/4)y/4d=28)((y/4)=y/4d=29))90102# #F9z$="Dec"d=32 y=y+1:m=0:85004! #P(z$:m=m+1:d=1:8100 #Uz$="Dec"9040P# #Z 90102# #I"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec" %):5,7;"SELECT GAME LENGTH" %&=10 ,5;"Race/Short/Medium/Long " %+l$= %0l$="s"l$="S"gl=16: %5l$="m"l$="M"gl=40(: %:l$="l"l$="L"gl=100d: %Dl$="r"l$="R"gl=4: %N 9515+% &HUa=14:c$(a)::b=120:b;4;c(a,b):b:a:9800H& &j2:1:7::"UTILITIES"'''"Save Game."''"Continue Game."''"New Game." & ''"Press INV. VIDEO key only." &"S"Ʀ"s"9950& &""9915& &k:9040P#:"SAVE GAME"''"This is a two part program."''"Part 1 is saved first.":"city"9930& &@'"Now Part 2 is saved.":"citycode""a",168:9935& &ʟ:10 ,4;1;"DO NOT STOP THE TAPE YET":"":1,0::10 ,4;1;"PLEASE STOP THE TAPE NOW":250:9900& &q'"Rewind and then start tape for verification. If a report ""R"" occurs then GOTO 9900 and repeatthe Save." &!"city":"citycode":9900& &"C"Ʀ"c"9960& &gip=0:10 ,5;1;"NO GAME IN PROGRESS";12 ,7;"SELECT NEW GAME":5,-15:9900& &59040P#:a=1m:z$:a:2:7000X &"n"9970& & & 9910& &Jb=110 :p$(b,1):p=15:p(b,p):p:::b: ':gip=0:9900& i.citycode X;%<~~< pdx䤼||BB|DBBBBBB<