ZXTape! 0Created with Ramsoft MakeTZXcity `Y&XYbY&6::11 ;" C I T Y " '7;" Docimodus 1982" '" 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." " Other instructions will be given when you enter the game. Please note only four companies can play at a time. If you want to play against other humans do not let the computer take over too many companies." d" Inv. video characters refer tocontrol keys not to the mode. Do not switch to abnormal modes." 'q$="Continue or Print ?":'q$ ="p"Ŧ="P" "c"Ʀ"C"7 ""9 gl=4:9500% :5 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)=1:p(6,3)=1000000t$:p(6,4)=0 (z$:d=1:m=1:y=1970 l$(19) <gc=*502+502:mv=0:vu=1:hu=0 ?sp=30:nu=0:dc=0:br=1.5@:bi=1 j$="e" 0,0;m$(1) %gip=1:i=0:g=g+1 ="U"Ŧ="u"9900& ="E"Ŧ="e"4500 .g>4g=1:9000(#:8000@ Ec$(g,2)=("b"c(g,3)<0)+("p"c(g,3)>0) 720,9 ;6;d;12 ;z$;16;y <.02{# =4000 c$(g,2)"p"1000  3000  (c(g,3)>1000000t$8200 <c(g,9 )=dc(g,10 )=my>c(g,11 )6000p amv=0:21,0;l$;21,0;g;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 es.1}L,g*3+mv:1;c(g,1),c(g,2);"";c(g,6),c(g,7);g;"":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) ib$(v,33!,1)="x":.5,20+pb*3:c(g,6),c(g,7);g;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;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;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)""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 ic(h2,6)=c(h2,1):c(h2,7)=c(h2,2):c(h2,1),c(h2,2);1;h2;"" 7c(h2,9 )=d:c(h2,10 )=m:c(h2,11 )=y: 4:a=14:c$(a,2)=" "4505 Ba:"Only four companies allowed.":6,-16:7000X "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  :i$'" You are starting play with","`200000. To win you must make","`1000000 or more before any of","the other companies." Da;" Your company colour is the","same as the ink on this line."  " To move along the roads pressthe cursor control keys 5, 6, 7,or 8 as appropriate. If you landon another companies indicator you may be sent to jail." H" If you try to move off the","road you will see a number of","letters appear on the bottom","line. These are as follows on","the next page." M'q$ R="p"Ŧ="P" \"c"Ʀ"C"4690R a""4705a f%:" Key letters are in inv. video." p'"Instruct - displays this page."''"Continue - do nothing."''"Build in the space indicated. "''"Demolish the building indicated."''"Purchase the building indicated."''"Value the building indicated." z'" To ""indicate"" a building or position off the road you point to it with keys 5 to 8 just as though it is another move." 'q$ ="p"Ŧ="P" "c"Ʀ"C"4740 ""4747 :"Charges are as follows :-"''"Each move costs `10"''"Build - Debit current cost of building."''"Demolish - Debit current cost ofbuilding and credit twice the current cost to the owner."''"Purchase - Tranfer current cost of building from buyer to owner." '" You cannot use bank accounts for these transactions. Your cash balance is displayed when your turn comes up. It does not include any money you have in the bank. " 'q$ ="p"Ŧ="P" "c"Ʀ"C"4757 ""4765 :" When a pair of buildings flashthis shows a movement of people between buildings. These ""hits"",so named because of their randomnature, become more important asthe game progresses." " Hit buildings are up to six positions away from one another.The secondary building is also displayed in the bottom left of the screen when a hit occurs."'"The effect on that building is dependant on the primary hit." {" The relationships are given onthe following pages. You will beable to plan your developments using this information." 'q$ ="p"Ŧ="P" "c"Ʀ"C"4782 ""4787 :" If the primary hit is on a factory and the secondary hit is on a house or a block of appartments then the potentialwork at the factory attracts occupants to the or and thustheir value increases by their current hit`." " If the primary hit is on a pub and the secondary hit is on a house or a block of appartments then the noise of the drives occupants of the or away and thus their value decreases by their current hit`." 'q$ ="p"Ŧ="P" "c"Ʀ"C"4805 ""4812 :" If the primary hit is on a shop and the secondary hit is on a house or a block of appartments then the shopping facilities attract occupants to the or and thus their value increases by their current hit`." Կ" If the primary hit is a or and the secondary hit is a or then the or attract customfrom the or and increase in value by the value of the or which is usually very high." ٝ" If, with the same primary hit,the secondary hit was a factory the value of the decreases by the value of the or because the wage bill increases." 'q$ ="p"Ŧ="P" "c"Ʀ"C"4835 =""4845 :"Current Values and Quantities";0,0;:a=15:'p$(a);"Price `";p(a,1),"Top value `";p(a,3),"Quantity ";p(a,2)," ""Hit"" `";p(a,4):a 'q$ ="p"Ŧ="P" "c"Ʀ"C"4860 =""4870 $:" Profits are calculated on the","aniversary date of the company","and income tax is due."," Income tax is 33.3% but can benegative if profits are also","negative.",," Income from factories is also","added at this point." ." Every 22 days 1/";gl;"th part of","the current value of each","companies property is added to","their balance. This is done on","a line a day basis." 8y" The normal video number on thebottom line is the number of theline currently being examined for crediting owners." :'q$ ;="p"Ŧ="P" <"c"Ʀ"C"4923; =""4925= Bp:'" The level of factory","investment is not exactly the same as the number of factories owned. Factory profits can be negative. It is up to you to work out the various advantages and disadvantages of building, buying or demolishing factories."''" Don't try to remember all","these instructions. ""I"" for","instruction is available","frequently." G''" Instructions again ? Y/N" L="y"Ŧ="Y"4710f Q"n"Ʀ"N"4940L V 7000X bmv=0:a=3sp:.1}L,4:.1}L,6:.2~L,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 f.1}L,g*3+mv:1;c(g,1),c(g,2);"";c(g,6),c(g,7);g;"":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 L21,0;l$;21,0;"B I C or Utility?" ="i"Ŧ="I"4710f ="u"Ŧ="U"9900& ="c"Ŧ="C"1000 "b"Ʀ"B"5115  ""5130  ]21,0;l$;21,0;"H F A S P `B ?"  i$=:i$=""5136 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 Pz21,0;l$;21,0;"D P V I C ?":x$="`"21,10 ;1;"or ` ?" U="I"Ŧ="i"4710f 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)c(g,3))'"Sorry, 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:c(g,14)=c(g,14)+sn*i:c(g,3)=c(g,3)-sn*i:'"Your balance = `";c(g,14) 3,-30:7000X  5205U p2:c$(g,3)''"Anniversary ",y-c(g,11 ) z('"Factory Investment = ";c(g,13 ) Ifp=c(g,13 )*p(2,1)/3:'"Factory profits = `";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) F'"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:5:m$(1):21,0;1;"Rebuild in progress" bRa=14:c$(a,2)" "c(a,1),c(a,2);a;1;"" ga l<v=122:b$(v,33!,1)"x"7040 n5h=132 :b$(v,h,1)=" "7030v q`v-1,h-1;ٯb$(v,h,2);b$(v,h,1):.05|L,(b$(v,h,1)-144) vh v:1000 @hu=hu+1:hu>32 hu=1:vu=vu+1:21,19;" ";21,19;vu-1:vu>22vu=1 Jhu=1 T.a=b$(vu,hu,2):a=32 8000@ ^sa=b$(vu,hu,2):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 8000@ r w0:0 |a=14:21,0;l$;21,0;a;c$(a,3);1;"Mth `";(c(a,3)-c(a,4)):c(a,4)=c(a,3):200:a  N21,0;l$;21,0;"Monthly Progress":3,-10 a=14:c$(a,2)="p"21,0;l$;21,0;a;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,3)=c(a,3)+dc:nu=nu+dc a: D:4,2;g;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 #( d=d+1 #-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" %|:"GIVE GAME LENGTH ?"'''"The default is Race."'''"Race is just for you to play against the calendar. The other computer controlled companies don't have much chance."'"Short should last about 2 hours and you should have little trouble in winning."'"Medium is for more advanced players and brings in new aspects."'"Long is tricky and it could lastfor months." %&/"Race/Short/Medium/Long ";l$ %0l$="s"l$="S"gl=10 %5l$="m"l$="M"gl=40( %:l$="l"l$="L"gl=80P %D %Ka=14:c$(a):b=120:b;4;c(a,b):b::a: &HUa=14:c$(a)::b=120:b;4;c(a,b):b:a:9800H& &Y:10 ;"UTILITIES"'''"Save Game."''"Continue Game."''"New Game." &"S"Ʀ"s"9950& &""9915& &Y9040P#:'"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:5:7000X &"n"9970& & & 9910& ')a=122:a,b$(a,33!):a ' ':gip=0:9900& icitycode XX&<~~< pdx䤼||BB|DBBBBBB<citycode XMH<~~< pdx䤼||BB|DBBBBBB<