Sim Town

Sim Town in-game screen

Program listing on 48K Spectrum.

Text Listing

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

About the game

This town building simulation runs from the year 1900 through to 2000. The object of the game is to achieve a highest town population as possible by the year 2000.

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.
 

Back to documentation index