0 'CITY.BA Modified for the Model 200      CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
1 CLS:PRINT@42,"Build a City!":PRINT@162,"Press any Key":PRINT@242,"To Begin the Construction Process...
2 A$=INKEY$:R=RND(1):IFA$=""THEN2
3 A=0:B=52:D=63:CLS
4 LINE(A,B)-(A,D),1:A=A+1:PRINT@41,"Woods:":N=RND(1)*2:IFN=<1.4THENN=-N
5 B=B+N:IFB<0THENB=1
6 IFB>62THENB=60
7 IFA>239THEN8ELSE4
8 PRINT@41,"Hills:":A=0:B=40:C=36+RND(1)*10
9 D=17+RND(1)*20:IFD>60THEN9
10 LINE(A,B)-(C,D),1:IFC=239THEN15
11 A=C:B=D:C=A+2+RND(1)*40:IFC=>239THENC=239
12 D=B+(RND(1)-.4)*20:IFD=<0THEN12
13 IFD>60THEN12
14 FORN=1TO100:NEXT:GOTO10
15 PRINT@41,"      ":H=44
16 A=4+(RND(1)*224)
17 C=A+4+(RND(1)*32):IFC>235THEN17
18 B=H+RND(1)*56:IFB>56THEN18
19 H=H-2:IFH<4THENH=4
20 D=63:S=S-10:LINE(A,B)-(C,D),1,B:S=RND(1)*16383
21 SOUNDS,1:S=S-1600:IFS<0THEN22ELSE21
22 LINE(A+1,B-1)-(C,B-1),1:N=RND(1):IFN<.6THEN27
23 IFB<20THEN27
24 FORM=1TO10:LINE(A+1+M,B-1-M)-(C+1-M,B-1-M),1:IFA+1+M=>C-1-MTHEN27
25 IFA+M>C-MTHEN27
26 NEXTM
27 LINE(C+1,B-1)-(C+1,D):LINE(C+2,B)-(C+2,D),1:LINE(C-1,D-1)-(A+1,B+1),0,BF
28 E=RND(1)*(C-A)+A+2:IFE>C-2THEN28
29 F=RND(1)*(D-B)+B+2:IFF>61THEN16
30 LINE(E,F)-(E,F+1),1:SOUNDE*10,1:J=4+(RND(1)*224):K=RND(1)*5:LINE(J,54+K)-(J,63):PSET(J-1,(54+K+1)):PSET(J-2,(54+K+2)):PSET(J-1,(54+K+3)):LINE(J+1,(54+K+1))-(J+1,(54+K+3)):PSET(J+2,(54+K+2)):GOTO28