1440 IF t%=4 AND c%(t%)<y% THEN GOSUB 2780:GOSUB 20000:PRINT "You need another":PRINT TAB(8);"$";y%-c%(t%);" to build.":sleep(500000):gosub 2780:goto 1600
1442 IF t%=4 THEN 1460
1443 IF c%(t%)<y%+z% AND l%(t%)=40 THEN gosub 2780:goto 1600
2824 x%=0:FOR v%=1 TO d%(t%):a$=STR$(p#(t%,v%)):IF MID$(a$,2,2)=MID$(b$,2,2) THEN x%=x%+1
2826 NEXT v%:IF x%<>VAL(MID$(b$,2,1)) THEN GOSUB 50:RETURN
2830 FOR v%=1 TO d%(t%):a$=STR$(p#(t%,v%)):IF MID$(a$,2,2)=MID$(b$,2,2) AND MID$(a$,8,1)="1" THEN p#(t%,v%)=p#(t%,v%)+1
2831 IF MID$(a$,2,2)=MID$(b$,2,2) AND MID$(a$,8,1)="0" THEN p#(t%,v%)=p#(t%,v%)+1/2
2832 NEXT v%:GOSUB 50:RETURN
2900 REM **** JAIL ****
2905 j%(t%)=j%(t%)+1
2910 IF t%<4 THEN 2945
2913 IF j%(t%)<100 THEN 2920
2915 PRINT :PRINT TAB(8);"Want to use the":PRINT TAB(8);"GET OUT OF JAIL card?":GOSUB 1700:IF x$="Y" THEN j%(t%)=0:newxx%=10:GOSUB 31000:l%(t%)=10:GOSUB 20000:GOTO 1219
2920 IF c%(t%)<50 THEN 2932
2922 PRINT :PRINT TAB(8);"Want to pay $50 and":PRINT TAB(8);"get out now?":GOSUB 1700:IF x$="N" THEN 2932
11100 DATA Go,Mediterranean Ave,Community Chest,Baltic Ave,Income Tax,Reading RR,Oriental Ave
11110 DATA Chance,Vermont Ave,Connecticut Ave,Just Visiting,St. Charles Pl,Electric Co,States Ave
11120 DATA Virginia Ave,Pennsylvania RR,St. James Pl,Community Chest,Tennessee Ave,New York Ave,Free Parking
11130 DATA Kentucky Ave,Chance,Indiana Ave,Illinois Ave,B & O RR,Atlantic Ave,Ventnor Ave,Water Works
11140 DATA Marvin Gardens,Go to Jail!,Pacific Ave,N.Carolina Ave,Community Chest,Pennsylvania Ave,Short Line RR
11150 DATA Chance,Park Place,Luxury Tax,Boardwalk,in jail
12000 REM **** BUILD PROPDEED$ ****
12010 RESTORE 12100
12020 i%=0
12021 READ propdeed$(i%)
12022 i%=i%+1:IF i%<41 THEN 12021
12030 RETURN
12100 DATA 15000008,12101018,17002008,22103028,16004008,14105088,13106038,27007008,23108038,33109048
12110 DATA 25010008,13211058,12312058,23213058,33214068,24115088,13316078,17017008,23318078,33319088
12120 DATA 35020008,13421098,27022008,23423098,33424108,34125088,13526118,23527118,22328058,33529128
12130 DATA 18030008,13631138,23632138,17033008,33634148,44135088,27036008,12237158,26038008,22239168,00040008
13000 REM **** BUILD PROPCOLOR% ****
13010 RESTORE 13100
13020 i%=0
13022 READ propcolor%(i%)
13024 i%=i%+1:IF i%<41 THEN 13022
13030 RETURN
13100 DATA 0,21,0,21,0,0,22,0,22,22,0,23,0,23,23,0,24,0,24,24,0,25,0,25,25,0,26,26,0,26,0,27,27,0,27,0,0,28,0,28,0
14000 REM **** BUILD PLAYPOS% ****
14020 FOR i%=0 TO 40:READ play1pos%(i%,0):READ play1pos%(i%,1):NEXT i%
14030 FOR i%=0 TO 40:READ play2pos%(i%,0):READ play2pos%(i%,1):NEXT i%
14040 FOR i%=0 TO 40:READ play3pos%(i%,0):READ play3pos%(i%,1):NEXT i%
14050 FOR i%=0 TO 40:READ play4pos%(i%,0):READ play4pos%(i%,1):NEXT i%
14060 RETURN
14100 DATA 275,171,241,171,216,171,191,171,166,171,141,171,116,171,91,171,66,171,40,171,5,163,5,146,5,131,5,116,5,101,5,86,5,71,5,56,5,41,5,26,5,3
14110 DATA 40,3,66,3,91,3,116,3,141,3,166,3,191,3,216,3,241,3,275,3,275,26,275,41,275,56,275,71,275,86,275,101,275,116,275,131,275,146,19,161
14200 DATA 287,171,253,171,228,171,203,171,178,171,153,171,128,171,103,171,78,171,52,171,5,172,17,146,17,131,17,116
14205 DATA 17,101,17,86,17,71,17,56,17,41,17,26,17,3
14210 DATA 52,3,78,3,103,3,128,3,153,3,178,3,203,3,228,3,253,3,287,3,287,26,287,41,287,56,287,71,287,86,287,101,287,116,287,131,287,146,28,161
14300 DATA 275,178,241,178,216,178,191,178,166,178,141,178,116,178,91,178,66,178,40,178,16,177,5,153,5,138,5,123,5,108,5,93,5,78,5,63,5,48,5,33,5,10
14310 DATA 40,10,66,10,91,10,116,10,141,10,166,10,191,10,216,10,241,10,275,10,275,33,275,48,275,63,275,78,275,93,275,108,275,123,275,138,275,153,19,168
14400 DATA 287,178,253,178,228,178,203,178,178,178,153,178,128,178,103,178,78,178,52,178,27,177,17,153,17,138,17,123,17,108,17,93,17,78,17,63,17,48,17,33,17,10
14410 DATA 52,10,78,10,103,10,128,10,153,10,178,10,203,10,228,10,253,10,287,10,287,33,287,48,287,63,287,78,287,93,287,108,287,123,287,138,287,153,28,168
15000 REM **** BUILD HOPOS% ****
15010 RESTORE 15100
15020 i%=0
15022 READ hopos%(i%,0):READ hopos%(i%,1)
15024 i%=i%+1:IF i%<41 THEN 15022
15030 RETURN
15100 DATA 0,0,248,168,0,0,198,168,0,0,0,0,123,168,0,0,73,168,47,168,0,0,30,156,0,0,30,126,30,111,0,0,30,81,0,0,30,51,30,36,0,0
15110 DATA 47,24,0,0,98,24,123,24,0,0,173,24,198,24,0,0,248,24,0,0,265,36,265,51,0,0,265,81,0,0,0,0,265,126,0,0,265,156,0,0
16000 REM **** BUILD OWNER% ****
16010 RESTORE 16100
16020 i%=0
16022 READ owner%(i%,0):READ owner%(i%,1)
16024 i%=i%+1:IF i%<41 THEN 16022
16030 RETURN
16100 DATA 0,0,248,159,0,0,198,159,0,0,148,159,123,159,0,0,73,159,47,159,0,0,39,156,39,141,39,126,39,111,39,96,39,81,0,0,39,51,39,36,0,0
16110 DATA 47,32,0,0,98,32,123,32,148,32,173,32,198,32,223,32,248,32,0,0,255,36,255,51,0,0,255,81,255,96,0,0,255,126,0,0,255,156,0,0
17000 REM **** BUILD FININFO ****
17010 RESTORE 17100
17020 i%=1
17022 READ fininfo%(i%)
17024 i%=i%+1:IF i%<129 THEN 17022
17030 RETURN
17100 DATA 2,4,1,3,9,16,25,3,4,8,2,6,18,32,45,3,6,12,3,9,27,40,55,5,8,16,4,10,30,45,60,6,10,20,5,15,45,63,75,7,12,24,6,18,50,70,90,8,14,28,7,20,55,75,95,9,16,32,8,22,60,80,100,10,18,36,9,25,70,88,105,11
17110 DATA 20,40,10,30,75,93,110,12,22,44,11,33,80,98,115,13,24,48,12,36,85,103,120,14,26,52,13,39,90,110,128,15,28,56,15,45,100,120,140,16,35,70,18,50,110,130,150,17,50,100,20,60,140,170,200,20
18000 REM **** DRAW OWNER ****
18001 drawmode 1
18010 IF z%=1 THEN x1$="A":x2$="a":pena 8
18020 IF z%=2 THEN x1$="B":x2$="b":pena 3
18030 IF z%=3 THEN x1$="C":x2$="c":pena 23
18040 IF z%=4 THEN x1$="H":x2$="h":pena 5
18050 b$=STR$(p#(z%,v%)):b=VAL(MID$(b$,4,2))
18060 PRINT at(owner%(b,0),owner%(b,1));" "
18070 IF VAL(MID$(b$,8,1))=0 THEN PRINT at(owner%(b,0),owner%(b,1));x2$ ELSE PRINT at(owner%(b,0),owner%(b,1));x1$
18080 drawmode 0:pena maincolor%:RETURN
19000 REM
19001 drawmode 1
19010 IF tt%=1 THEN x1$="A":x2$="a":pena 8
19020 IF tt%=2 THEN x1$="B":x2$="b":pena 3
19030 IF tt%=3 THEN x1$="C":x2$="c":pena 23
19040 IF tt%=4 THEN x1$="H":x2$="h":pena 5
19050 b=VAL(MID$(bb$,4,2))
19060 PRINT at(owner%(b,0),owner%(b,1));" "
19070 IF VAL(MID$(bb$,8,1))=0 THEN PRINT at(owner%(b,0),owner%(b,1));x2$ ELSE PRINT at(owner%(b,0),owner%(b,1));x1$