Program listing on 48K Spectrum.
1 DEF FN v(o$)=2*(o$="r")+3*(o$="c")+4*(o$="i")+5*(o$="e"): DIM a(5): READ x,y,m,p,d,s: FOR e=0 TO m: PRINT PAPER 6-e/m, PAPER 5;" ": NEXT e: FOR e=1900 TO 2e3 STEP .1: LET k$=INKEY$: LET x=x+(k$="p")*(x<15)-(k$="o")*(x>0): LET y=y+(k$="a")*(y<10)-(k$="q")*(y>0): LET c$=SCREEN$ (y,x): LET c=(m>0)*(c$=" ")*FN v(k$): FOR r=1 TO c>0: LET a(c)=a(c)+1/(7-c): LET s=0: FOR i=2 TO 5: LET s=s+a(i): NEXT i: LET d=0: FOR i=2 TO 5: LET d=d+ABS (a(i)-s/4): NEXT i: NEXT r: LET p=p+s*(a(5)>0)*(.5-d): LET p=(p>0)*p: LET m=m-c+((p>20)+INT (p/100))*(e-INT e<.1): LET c$=(k$ AND c)+(c$ AND c=0): PRINT AT y,x;"+";AT 0,24;INT e;AT 2,24;"$";m,AT 4,24;"P";INT p,AT y,x; PAPER 6-FN v(c$);c$: NEXT e: DATA 9,9,20,0,1,0 |
Key, showing in-game features.
Rules of the Game
If you can't make any progress in the game then some hints are in the following box. (Drag mouse over to reveal hidden text):-
To start off with, build one electricity generating plant, one industrial zone, one commercial zone, and two residential zones. After a few years, some tax will start to be collected. Once your funds are again up to around $10-$20 million or so start expanding further (add an extra commercial zone for example). Add a few more various buildings of different types. If the town goes out of balance (population starts declining), then try to make up for it by building something different. As a rule, more residential areas are needed than commercial zones, which are needed more than industrial zones, which are needed more than electricity plants. |