Compucolor.org – Virtual Media

Listing of file='MONOPY.BAS;01' on disk='vmedia/chip_17-sector.ccvf'

100 GOTO 37600
200 CLEAR 200:DEF FN R(X)= INT (6* RND (1)+ 1)
300 PLOT 6,38,12,27,24,15
400 DIM VA(40,30),VB(3,13),V1$(3),V0$(40),V2$(5),V3$(14),XX$(3),CC$(32,4)
500 GOTO 1200
600 GOSUB 29000:GOTO 4000
700 PLOT 6,38:GOSUB 24700:GOSUB 25400:RETURN
800 PLOT 6,1:GOSUB 1100:PRINT V3$(MG):PLOT 6,38:GOTO 4000
900 GOSUB 1100:INPUT Q$:RETURN
1000 GOSUB 1100:PLOT 6,34:PRINT "$";INT (DC):PLOT 6,38:RETURN
1100 GOSUB 39300:RETURN
1200 PLOT 27,4:PRINT "LOAD MONOPY.DSP":PLOT 27,27
1300 LOAD "VA.ARY":LOAD "VB.ARY"
1400 QN= 5:QO= 1:QW= 20:QX= 11:QY= 21:GOSUB 37100
1500 GOSUB 1100:PRINT "ENTER PLAYERS (1-4)?"
1600 GOSUB 1100:INPUT Q
1700 IF Q< 1OR Q> 4THEN 1500
1800 PL= Q:GOTO 2600
1900 FOR II= 0TO Q- 1
2000 GOSUB 1100:PRINT "ENTER PLAYER NO.";II+ 1
2100 GOSUB 1100:PRINT "NAME (LENGTH 1-4)":GOSUB 900
2200 XX$(XX1)= Q$:XX1= XX1+ 1
2300 IF LEN (Q$)< 1OR LEN (Q$)> 4THEN XX1= XX1- 1:Q$= "":XX$(XX1)= "":GOTO 2000
2400 PLOT 3,127,VB(II,8),VB(II,9),35:PRINT Q$
2500 PLOT 3,127,VA(0,17+ 2* II),VA(0,18+ 2* II),38:PRINT V1$(II):NEXT II:GOTO 4000
2600 V3$(0)= "NO! NOT FOR SALE":V3$(1)= "NO! NO ONE VISITING":V3$(2)= "NO! NOT IMPROVABLE"
2700 V3$(3)= "NO! STILL FOR SALE":V3$(4)= "NO! MORTGAGED":V3$(5)= "NO! FULLY IMPROVED"
2800 V3$(6)= "NO! YOU'RE NOT OWNER":V3$(7)= "NO! SPLIT OWNERSHIP":V3$(8)= "NO! HOUSE COUNT NG"
2900 V3$(9)= "NO!ALREADY MORTGAGED":V3$(10)= "NO! NO MORTGAGE":V3$(11)= "NO! NOT ENOUGH CASH"
3000 V3$(12)= "NO! NONE TO TURN IN":V3$(13)= "NO! NO DEBT"
3010 V3$(14)= "HOUSING SHORTAGE"
3100 V1$(0)= "A":V1$(1)= "B":V1$(2)= "C":V1$(3)= "D"
3200 V0$(0)= "GO  ":V0$(1)= "MEDI":V0$(2)= "COMM":V0$(3)= "BALT":V0$(4)= "INCO":V0$(5)= "READ"
3300 V0$(6)= "ORIE":V0$(7)= "CHAN":V0$(8)= "VERM":V0$(9)= "CONN":V0$(10)= "VISI":V0$(11)= "ST.C"
3400 V0$(12)= "ELEC":V0$(13)= "STAT":V0$(14)= "VIRG":V0$(15)= "PA. ":V0$(16)= "ST.J":V0$(17)= "COMM"
3500 V0$(18)= "TENN":V0$(19)= "NEW ":V0$(20)= "FREE":V0$(21)= "KENT":V0$(22)= "CHAN":V0$(23)= "INDI"
3600 V0$(24)= "ILLI":V0$(25)= "B&O ":V0$(26)= "ATLA":V0$(27)= "VENT":V0$(28)= "WATE":V0$(29)= "MARV"
3700 V0$(30)= "GO T":V0$(31)= "PACI":V0$(32)= "NO.C":V0$(33)= "COMM":V0$(34)= "PENN":V0$(35)= "SHOR"
3800 V0$(36)= "CHAN":V0$(37)= "PARK":V0$(38)= "LUX ":V0$(39)= "BOAR":V0$(40)= "IN J"
3801 CC$(1,1)= "GO TO JAIL      "
3802 CC$(2,1)= "DO NOT PASS GO  "
3803 CC$(3,1)= "GET OUT OF      "
3804 CC$(4,1)= "  JAIL FREE     "
3805 CC$(5,1)= "ADVANCE TO GO   "
3806 CC$(6,1)= "COLLECT $200    "
3807 CC$(7,1)= "PAY DOCTOR'S    "
3808 CC$(8,1)= "FEE OF $50      "
3809 CC$(9,1)= "BANK ERROR      "
3810 CC$(10,1)= "COLLECT $200   "
3811 CC$(11,1)= "PAY HOSPITAL   "
3812 CC$(12,1)= "    $100       "
3813 CC$(13,1)= "INCOME TAX     "
3814 CC$(14,1)= "REFUND $20     "
3815 CC$(15,1)= "YOU INHERIT    "
3816 CC$(16,1)= "   $100        "
3817 CC$(17,1)= "COLLECT $50    "
3818 CC$(18,1)= "FROM EVERYBODY "
3819 CC$(19,1)= "ASSESS 40/HOUSE"
3820 CC$(20,1)= "115 PER HOTEL  "
3821 CC$(21,1)= "XMAS FUND      "
3822 CC$(22,1)= "COLLECT $100   "
3823 CC$(23,1)= "LIFE INS. PAYS "
3824 CC$(24,1)= "COLLECT $100   "
3825 CC$(25,1)= "RECEIVE FOR    "
3826 CC$(26,1)= "SERVICES $25   "
3827 CC$(27,1)= "SCHOOL TAX     "
3828 CC$(28,1)= "PAY $150       "
3829 CC$(29,1)= "SALE OF STOCK  "
3830 CC$(30,1)= "PAYS $45       "
3831 CC$(31,1)= "YOU WIN 2ND IN "
3832 CC$(32,1)= "CONTEST $10    "
3833 CC$(1,2)= "GO TO JAIL      "
3834 CC$(2,2)= "DO NOT PASS GO  "
3835 CC$(3,2)= "GET OUT OF      "
3836 CC$(4,2)= "  JAIL FREE     "
3837 CC$(5,2)= "ADVANCE TO GO   "
3838 CC$(6,2)= "COLLECT $200    "
3839 CC$(7,2)= "ADV TO R.R. PAY "
3840 CC$(8,2)= "TWICE THE RENT  "
3841 CC$(9,2)= "GO BACK         "
3842 CC$(10,2)= "THREE SPACES   "
3843 CC$(11,2)= "GO TO          "
3844 CC$(12,2)= "BOARDWALK      "
3845 CC$(13,2)= "TAKE A RIDE ON "
3846 CC$(14,2)= "THE READING RR "
3847 CC$(15,2)= "ADVANCE TO     "
3848 CC$(16,2)= "ILLINOIS AVE   "
3849 CC$(17,2)= "ADVANCE TO     "
3850 CC$(18,2)= "ST CHARLES PL  "
3851 CC$(19,2)= "GOTO UTIL PAY  "
3852 CC$(20,2)= "10X DICE TOSS  "
3853 CC$(21,2)= "BANK PAYS YOU  "
3854 CC$(22,2)= "DIVIDEND $50   "
3855 CC$(23,2)= "LOAN MATURES   "
3856 CC$(24,2)= "COLLECT $150   "
3857 CC$(25,2)= "ADV TO R.R. PAY"
3858 CC$(26,2)= "TWICE THE RENT "
3859 CC$(27,2)= "PAY POOR TAX   "
3860 CC$(28,2)= "     $15       "
3861 CC$(29,2)= "GENERAL REPAIRS"
3862 CC$(30,2)= "25/HSE,100/HTL."
3863 CC$(31,2)= "YOU'RE ELECTED "
3864 CC$(32,2)= "PAY EACH $50   "
3865 CC$(0,1)= "                "
3866 CC$(0,2)= "                "
3870 REM  THE FOLLOWING IS A BREAKDOWN OF THE VA MATRIX
3871 REM
3872 REM  THE FIRST NUMBER IN THE MATRIX IS THE PROPERTY NUMBER
3873 REM  THE SECOND NUMBER IS AS FOLLOWS:
3874 REM 0= IF THIS NUMBER IS 7 THEN THE PROP. IS IMPROVABLE
3875 REM 1=PROPERTY PRICE
3876 REM 2=RENT
3877 REM 3=2 TIMES THE RENT FOR OWNING ALL COLOR GROUPS
3878 REM 4=RENT WITH 1 HOUSE
3879 REM  5="""2"
3880 REM 6="""3"
3881 REM 7="""4"
3882 REM 8="""5" OR 1 HOTEL
3883 REM 9=MORTGAGE VALUE OF PROPERTY
3884 REM 10=COST OF A HOUSE
3885 REM 11=NUMBER OF HOUSES ON THE PROPERTY
3886 REM 12=COLOR REPLACEMENT CODE FOR PROPERTY
3887 REM 13=X CORDINATE FOR THE LETTER "M"AND HOUSE COUNT ON PROP.
3888 REM 14=Y """""""""""""""""""""""""""""""""""""""""""""""
3889 REM 15=X """""""""" FOR BUYERS LETTER
3890 REM 16=Y """""""""""""""""""""""""""
3891 REM 17=X FOR A
3892 REM 18=Y FOR A
3893 REM 19=XFOR B
3894 REM 20=Y FOR B
3895 REM 21=XFOR C
3896 REM 22=Y FOR C
3897 REM 23=X FOR D
3898 REM 24=Y FOR D
3899 REM 25-27=CHECK FOR HOUSE COUNT,28=#OF OWNER,29=IF1THEN OWNED,  30=IF 1 THEN MORTGAGED.
3900 GOTO 1900
3901 PT= DB:IF  VAL (CC$(16,3))< > 0THEN  3922
3902 CC= INT (17* RND (1)):FOR  C9= 1TO 16:IF VAL (CC$(C9,3))= CCTHEN  3902
3904 NEXT
3912 FOR  C9= 1TO 16:IF  VAL (CC$(C9,3))= 0THEN CC$(C9,3)= STR$ (CC):GOTO 3932
3914 NEXT
3922 FOR  C9= 1TO 16:CC$(C9,3)= "0":NEXT :GOTO 3902
3932 C8= VAL (CC$(C9,3))* 2- 1:PLOT  3,127,12,6,3:PRINT CC$(C8,2):C8= C8+ 1
3935 PLOT  3,127,12,7,3:PRINT CC$(C8,2)
3940 ON CCGOTO 40100,40200,40300,40400,40500,40600,40700,40800,40900,41000,41100,41200,40400,41400,41500,41600
3951 PT= DB:IF  VAL (CC$(16,4))< > 0THEN  3972
3952 CC= INT (17* RND (1)):FOR  C9= 1TO 16:IF  VAL (CC$(C9,4))= CCTHEN  3952
3954 NEXT
3962 FOR  C9= 1TO 16:IF  VAL (CC$(C9,4))= 0THEN CC$(C9,4)= STR$ (CC):GOTO 3982
3964 NEXT
3972 FOR  C9= 1TO 16:CC$(C9,4)= "0":NEXT :GOTO 3952
3982 C8= VAL (CC$(C9,4))* 2- 1:PLOT  3,127,35,6,3:PRINT CC$(C8,1):C8= C8+ 1
3985 PLOT  3,127,35,7,3:PRINT CC$(C8,1)
3990 ON CCGOTO 42100,42200,42300,42400,42500,42600,42700,42800,42900,43000,43100,43200,43300,43400,43500,43600
4000 PLOT 6,38:IF CQ= 0THEN 4500
4100 IF Z$= "R"THEN 6500
4200 IF Z$= "B"THEN 6200
4300 IF Z$= "D"THEN 6700
4400 Z$= "R":GOTO 7000
4500 GOSUB 1100:PRINT "ACTION ?":PRINT
4600 POKE 33278,0
4700 Z1= PEEK (33211):Z2= PEEK (33210):PLOT 3,11,10:PRINT "THE TIME IS NOW"Z1;":"Z2:PLOT 3,20,25
4800 IF PEEK (33278)< > 0THEN Q$= CHR$ (PEEK (33278)):GOTO 5000
4900 GOTO 4800
5000 Q$= LEFT$ (Q$,1):Z$= Q$:PLOT 3,127,12,6,10:PRINT CC$(0,1):PLOT 3,127,12,7,10:PRINT CC$(0,1)
5010 PLOT 3,127,35,6,34:PRINT CC$(0,2):PLOT 3,127,35,7,34:PRINT CC$(0,2):PLOT 30,20,29,23
5100 IF Q$= "0"THEN 4400
5200 IF Q$= "Q"THEN 6900
5300 IF Q$= "R"THEN 7000
5400 IF Q$= "B"THEN 22900
5500 IF Q$= "S"THEN 34700
5600 IF Q$= "M"THEN 30300
5700 IF Q$= "P"THEN 26700
5800 IF Q$= "D"THEN 31300
5900 IF Q$= "U"THEN 33700
6000 IF Q$= "C"THEN CQ= 1:GOTO 4400
6100 GOTO 4000
6200 IF RC< 100THEN 4400
6300 IF VA(II,28)= MPTHEN Z$= "D":GOTO 31300
6400 GOTO 4400
6500 Z$= "B":IF VA(II,28)= 5THEN 22900
6600 GOTO 6200
6700 IF VA(II,28)= MPTHEN Z$= "P":GOTO 26700
6800 GOTO 4400
6900 PLOT 6,2,27,11,14:LOAD "MENU":RUN :END
7000 PLOT  30,17,29,19:PLOT 3,12,14:PRINT  XX$(CP);"'S TURN  ":PLOT  30,20,29,23
7100 RC= RC+ 1:OO= 1
7200 FOR I= 0TO PL- 1
7300 IF VB(I,1)= - 2THEN OO= OO+ 1
7400 NEXT
7500 IF PL= 1THEN 7700
7600 IF OO= PLTHEN 6900
7700 V2$(0)= "   "
7800 V2$(1)= "  d"
7900 V2$(2)= "d  "
8000 V2$(3)= "d d"
8100 V2$(4)= " d "
8200 IF VB(CP,1)< > - 1THEN 8500
8300 IF VB(CP,0)< 1THEN 20500
8400 VB(CP,1)= 0:DB= 0
8500 SS= PEEK (33209):FOR I= 0TO SS:RR= FN R(0):NEXT
8600 FOR II= 0TO RR
8700 RD(0)= FN R(0):RD(1)= FN R(0)
8800 R0= 0:FOR XX= 13TO 21STEP 7
8900 PLOT 3,XX,11
9000 ON RD(R0)GOSUB 10100,10200,10300,10400,10400,10400
9100 PLOT 3,XX,12
9200 ON RD(R0)GOSUB 10500,10100,10500,10100,10500,10400
9300 PLOT 3,XX,13
9400 ON RD(R0)GOSUB 10100,10300,10200,10400,10400,10400
9500 R0= 1:NEXT XX
9600 FOR W= 0TO 9:NEXT
9700 NEXT II:PLOT 6,38:DT= RD(0)+ RD(1)
9800 PLOT 6,38:GOSUB 1100:PRINT "ROLL="DT;"ROLL# "RC
9900 IF RD(0)= RD(1)THEN DB= DB+ 1:GOSUB 1100:PLOT 6,8:PRINT "DOUBLES":PLOT 6,38:GOTO 10600
10000 DB= 0:GOTO 10600
10100 PRINT V2$(0):RETURN
10200 PRINT V2$(1):RETURN
10300 PRINT V2$(2):RETURN
10400 PRINT V2$(3):RETURN
10500 PRINT V2$(4):RETURN
10600 IF VB(CP,5)< > 1THEN 11400
10700 IF DB< > 0THEN 11600
10800 VB(CP,7)= VB(CP,7)+ 1
10900 IF VB(CP,7)> 2THEN 22200
11000 IF VB(CP,1)> 0THEN 22200
11100 GOTO 16000
11200 IF VB(CP,5)< > 1THEN VB(CP,3)= VB(CP,3)- 40:GOTO 12000
11300 VB(CP,3)= 10:GOTO 12000
11400 IF DB< 3THEN 11700
11500 DB= 0:GOTO 21800
11600 LP= 10:VB(CP,3)= DT+ 10:GOTO 11900
11700 LP= VB(CP,3)
11750 IF LP= 20THEN VB(CP,0)= VB(CP,0)+ KI:KI= 0:GOSUB 45000:GOSUB 28900
11800 VB(CP,3)= VB(CP,3)+ DT
11900 IF VB(CP,3)> 39THEN 11200
12000 PLOT 3,127,VA(LP,17+ 2* CP),VA(LP,18+ 2* CP),0,32
12100 LP= LP+ 1
12200 IF LP> 39THEN LP= 0:GOTO 13000
12300 PLOT 3,127,VA(LP,17+ 2* CP),VA(LP,18+ 2* CP),1
12400 PRINT V1$(CP)
12500 IF LP< > VB(CP,3)THEN FOR W= 0TO 15:NEXT :GOTO 12000
12550 IF  XR= 2THEN XR= 0:GOTO 16000
12600 IF VB(CP,5)< > 1THEN 12900
12700 VB(CP,5)= 0
12800 PLOT 3,127,VA(40,17+ 2* CP),VA(40,18+ 2* CP),7,110
12900 PLOT 6,38:GOSUB 1100:PRINT V0$(LP)
12914 IF  LP= 2 OR  LP= 17 OR  LP= 33 THEN 12995
12915 IF  LP= 7 OR  LP= 22 OR  LP= 36 THEN 12995
12916 IF  LP= 0 OR  LP= 4 OR  LP= 10 OR  LP= 12 OR  LP= 20 OR  LP= 28 OR  LP= 30 OR  LP= 38 THEN  12995
12917 XX= 2:FOR  YY = 18TO 25
12918 PLOT 3,127,46,YY,1
12920 PRINT  VA(LP,XX);" ":XX= XX+ 1:IF XX= 3THEN XX= XX+ 1
12930 NEXT :PLOT 3,128,46,17,VA(LP,12):PRINT V0$(LP)
12990 VB(CP,3)= LP:II= LP:GOTO 13300
12995 XX= 2:FOR YY= 18TO 25:PLOT 3,127,46,YY,0:PRINT  SPC( 2):GOTO 12920
13000 IF VB(CP,5)= 1THEN 12300
13100 VB(CP,0)= VB(CP,0)+ 200
13200 DC= 200:PLOT 6,38:GOSUB 1000:GOSUB 28900:GOTO 12300
13300 IF VA(LP,0)= 1THEN 15900
13400 IF VA(LP,0)= 7THEN 16400
13500 IF VA(LP,0)= 5THEN 16400
13600 IF VA(LP,0)< > 4THEN 14000
13650 IF  LP= 2 OR  LP= 17 OR  LP= 33 THEN GOSUB  3951:GOTO 12995
13660 IF  LP= 7 OR  LP= 22 OR  LP= 36 THEN GOSUB  3901:GOTO 12995
13700 REM DT=INT(11*RND(1)+2)
13800 REM FORI=0TO250:NEXTI
13900 GOTO 10600:REM PLOT6,38:GOSUB1100:PRINT"GO TO:":GOTO10600
14000 IF LP= 30THEN 21800
14100 IF LP= 0THEN 15900
14200 IF LP= 12OR LP= 28THEN 35900
14300 IF LP= 38THEN 15500
14400 GOTO 14500
14500 IF VB(CP,0)* .1> 200THEN ZZ5= 1:VB(CP,0)= VB(CP,0)- 200:DC= 200:KI= KI+ DC:GOSUB 45000:GOSUB 1000
14600 IF ZZ5= 0THEN DC= VB(CP,0)* .1:KI= KI+ INT (DC):GOSUB 45000:VB(CP,0)= VB(CP,0)* .9:GOSUB 1000
14700 ZZ5= 0
14800 GOSUB 28900
14900 IF VB(CP,0)< 1THEN 15100
15000 GOTO 15900
15100 VB(CP,1)= - 1
15200 PLOT 6,1:GOSUB 1100:PRINT "ACQUIRE POSITIVE"
15300 GOSUB 1100:PRINT "BALANCE BY NEXT TURN":PLOT 6,38
15400 GOTO 15900
15500 VB(CP,0)= VB(CP,0)- 75:KI= KI+ 75:GOSUB 45000:DC= 75:GOSUB 1000
15600 GOSUB 28900
15700 IF VB(CP,0)< 1THEN 15100
15800 GOTO 15900
15900 IF DB< > 0THEN MP= CP:GOTO 4000
16000 IF  DB< > 0THEN  4000
16050 MP= CP
16100 CP= CP+ 1:IF CP> PL- 1THEN CP= 0
16200 IF VB(CP,1)= - 2THEN 16100
16300 GOTO 4000
16400 IF VA(LP,29)= 0THEN XR= 0:GOTO 15900
16500 IF VA(LP,30)= 1THEN XR= 0:GOTO 15900
16600 IF VA(LP,28)= CPTHEN XR= 0:GOTO 15900
16700 IF VA(LP,0)= 5THEN 19500
16800 IF VA(LP,11)= 0THEN 17600
16900 NH= VA(LP,11)
17000 VB(CP,0)= VB(CP,0)- VA(LP,4+ NH- 1)
17100 DC= VA(LP,4+ NH- 1):GOSUB 1000
17200 GOSUB 28900
17300 MP= VA(II,28):XR= 0
17400 VB(MP,0)= VB(MP,0)+ VA(LP,4+ NH- 1)
17500 GOTO 18600
17600 N= 0
17700 IF VA(II,25+ N)= - 1THEN 18100
17800 IF VA(II,28)< > VA(VA(II,25+ N),28)THEN 18900
17900 N= N+ 1:IF N> 1THEN 18100
18000 GOTO 17700
18100 VB(CP,0)= VB(CP,0)- VA(II,3)
18200 DC= VA(II,3):GOSUB 1000
18300 GOSUB 28900
18400 MP= VA(II,28)
18500 VB(MP,0)= VB(MP,0)+ VA(II,3)
18600 GOSUB 29000
18700 IF VB(CP,0)< 1THEN 15100
18800 GOTO 15900
18900 VB(CP,0)= VB(CP,0)- VA(II,2)
19000 DC= VA(II,2):GOSUB 1000
19100 GOSUB 28900
19200 MP= VA(II,28)
19300 VB(MP,0)= VB(MP,0)+ VA(II,2)
19400 GOTO 18600
19500 N= 0:O= 0
19600 IF VA(II,28)= VA(VA(II,25+ O),28)THEN N= N+ 1
19700 O= O+ 1:IF O> 2THEN 19900
19800 GOTO 19600
19900 VB(CP,0)= VB(CP,0)- VA(II,4+ N)
19910 IF  XR= 1THEN VB(CP,0)= VB(CP,0)- VA(II,4+ N)
20000 DC= VA(II,4+ N):GOSUB 1000
20010 IF  XR= 1THEN DC= VA(II,4+ N):GOSUB 1000
20100 GOSUB 28900
20110 IF  XR= 1THEN GOSUB 28900
20200 MP= VA(II,28)
20300 VB(MP,0)= VB(MP,0)+ VA(II,4+ N)
20400 GOTO 18600
20500 VB(CP,0)= 0
20600 PLOT 6,1:GOSUB 1100:PRINT "YOU LOSE, ";V1$(CP);" !"
20700 GOSUB 28900
20800 FOR IZ= 0TO 39
20900 IF VA(IZ,28)= CPTHEN 21400
21000 NEXT IZ
21100 PLOT 3,127,VA(VB(CP,3),17+ 2* CP),VA(VB(CP,3),18+ 2* CP),0,32
21200 PLOT 3,127,(VB(CP,8))- 2,VB(CP,9),35:PRINT SPC( 14)
21300 VB(CP,1)= - 2:GOTO 16000
21400 VA(IZ,28)= 5:VA(IZ,29)= 0:VA(IZ,30)= 0:VA(IZ,11)= 0
21500 PLOT 3,127,VA(IZ,15),VA(IZ,16),VA(IZ,12),32
21600 PLOT 3,127,VA(IZ,13),VA(IZ,14),0,32
21700 GOTO 21000
21800 VB(CP,5)= 1:VB(CP,3)= 40
21900 PLOT 3,127,VA(LP,17+ 2* CP),VA(LP,18+ 2* CP),0,32
22000 PLOT 3,127,VA(40,17+ 2* CP),VA(40,18+ 2* CP),71:PRINT V1$(CP)
22100 GOSUB 1100:PLOT 6,1:PRINT "TO JAIL":PLOT 6,38:GOTO 16050
22200 IF VB(CP,1)= 0THEN 22600
22300 IF VB(CP,1)= - 1THEN 16000
22400 VB(CP,1)= VB(CP,1)- 1
22500 PLOT 3,127,VB(CP,12),VB(CP,13),35:PRINT RIGHT$ (STR$ (VB(CP,1)),1):GOTO 11600
22600 VB(CP,0)= VB(CP,0)- 50:DC= 50:GOSUB 1000:GOSUB 28900:VB(CP,7)= 0
22700 IF VB(CP,0)< 1THEN VB(CP,1)= - 1
22800 GOTO 11600
22900 GOSUB 24700:GOTO 23400
23000 IF LEFT$ (Q$,4)< > "BAIL"THEN 25900
23100 IF VB(MP,0)> 50THEN 24600
23200 MG= 11:GOTO 800
23300 PLOT 3,127,VB(MP,12),VB(MP,13),35:PRINT RIGHT$ (STR$ (VB(MP,1)),1):GOTO 24500
23400 GOSUB 25400
23500 GOSUB 1100:PRINT V0$(II)
23600 IF VA(II,29)< > 0THEN MG= 0:GOTO 800
23700 IF VA(II,1)> VB(MP,0)THEN 34600
23800 IF CQ= 0THEN 24000
23900 IF VA(II,1)> VB(MP,0)- 200THEN 34600
24000 VA(II,29)= 1
24100 VA(II,28)= MP
24200 PLOT 3,127,VA(II,15),VA(II,16),11:PRINT V1$(MP)
24300 VB(MP,0)= VB(MP,0)- VA(II,1)
24400 DC= VA(II,1):GOSUB 1000
24500 GOTO 600
24600 DC= 50:GOSUB 1000:VB(MP,0)= VB(MP,0)- 50:VB(MP,1)= VB(MP,1)+ 1:GOTO 23300
24700 GOSUB 1100:PRINT "PLAYER LETTER (A-D)?"
24800 IF CQ< > 0THEN Q$= "0":GOTO 25000
24900 GOSUB 900
25000 IF Q$= "0"THEN GOSUB 1100:PRINT V1$(MP):RETURN
25100 FOR IB= 0TO PL- 1
25200 IF LEFT$ (Q$,1)= V1$(IB)THEN MP= IB:RETURN
25300 NEXT IB:GOTO 24700
25400 GOSUB 1100:PRINT "WHICH PROPERTY ?"
25500 GOSUB 1100:PRINT "ENTER 1ST 4 LETTERS"
25600 IF CQ< > 0THEN Q$= "0":GOTO 25900
25700 GOSUB 900
25800 IF Z$= "B"THEN 23000
25900 IF Q$= "0"THEN II= VB(MP,3):RETURN
26000 FOR II= 0TO 39
26100 IF LEFT$ (Q$,4)= LEFT$ (V0$(II),4)THEN 26300
26200 NEXT II:GOTO 25400
26300 IF Z$< > "B"THEN RETURN
26400 FOR IA= 0TO 3
26500 IF VB(IA,3)= IITHEN RETURN
26600 NEXT IA:MG= 1:GOTO 800
26700 GOSUB 700
26800 GOSUB 1100:PRINT V0$(II)
26900 IF VA(II,0)< > 7THEN MG= 2:GOTO 800
27000 IF VA(II,29)< > 1THEN MG= 3:GOTO 800
27100 IF VA(II,30)= 1THEN MG= 4:GOTO 800
27200 IF VA(II,11)> 4THEN MG= 5:GOTO 800
27300 IF VA(II,28)< > MPTHEN MG= 6:GOTO 800
27400 IF VA(II,10)> VB(MP,0)THEN 34600
27500 N= 0
27600 IF VA(II,25+ N)= - 1THEN 28000
27700 IF VA(VA(II,25+ N),28)< > MPTHEN MG= 7:GOTO 800
27800 N= N+ 1:IF N> 2THEN 28000
27900 GOTO 27600
28000 IF CQ= 0THEN 28200
28100 IF VA(II,10)> VB(MP,0)- 200THEN 34600
28200 GOSUB 29500
28300 HS= HS+ 1:IF  HS> 32 THEN  MG= 14:GOTO 800
28325 IF  RIGHT$ (STR$ (VA(II,11)),1)= "4" AND  HT> 12THEN MG= 14:GOTO  800
28350 VA(II,11)= VA(II,11)+ 1
28375 IF  RIGHT$ (STR$ (VA(II,11)),1)= "5"THEN  HS= HS- 5:HT= HT+ 1
28380 IF  HT> 12 THEN  VA(II,11)= VA(II,1)- 1:MG= 14:HS= HS+ 4:GOTO 800
28400 PLOT 3,127,VA(II,13),VA(II,14),7
28500 PRINT RIGHT$ (STR$ (VA(II,11)),1)
28600 VB(MP,0)= VB(MP,0)- VA(II,10)
28700 DC= VA(II,10):GOSUB 1000:IF CQ= 0THEN 600
28800 II= VA(II,25):GOTO 26800
28900 MP= CP
29000 PLOT 3,127,VB(MP,10),VB(MP,11),35
29100 PRINT "      "
29200 PLOT 3,127,VB(MP,10),VB(MP,11),35
29300 PRINT INT (VB(MP,0))
29400 RETURN
29500 HC= VA(II,11)+ 1
29600 N= 0
29700 IF VA(II,25+ N)= - 1THEN RETURN
29800 IF ABS (VA(VA(II,25+ N),11)- HC)> 1THEN 30100
29900 N= N+ 1:IF N> 2THEN RETURN
30000 GOTO 29700
30100 IF CQ= 0THEN MG= 8:GOTO 800
30200 II= VA(II,25+ N):GOTO 29500
30300 GOSUB 700
30400 IF VA(II,30)< > 0THEN MG= 9:GOTO 800
30500 IF VA(II,28)< > MPTHEN MG= 6:GOTO 800
30600 IF VA(II,11)> 0THEN MG= 8:GOTO 800
30700 VA(II,30)= 1
30800 PLOT 3,127,VA(II,13),VA(II,14),7
30900 PRINT "M"
31000 VB(MP,0)= VB(MP,0)+ VA(II,9)
31100 DC= VA(II,9):GOSUB 1000
31200 GOTO 600
31300 GOSUB 700
31400 GOSUB 1100:PRINT V0$(II)
31500 IF VA(II,28)< > MPTHEN MG= 6:GOTO 800
31600 IF VA(II,30)< > 0THEN MG= 4:GOTO 800
31700 IF VA(II,11)> 0THEN MG= 8:GOTO 800
31800 GOSUB 1100:PRINT "SELLING PRICE ?"
31900 IF CQ< > 0THEN Q= VA(II,1)* 2:GOTO 32100
32000 GOSUB 1100:INPUT Q
32100 IF Q< 0THEN 31800
32200 FP= MP
32300 IF CQ< > 0THEN 33400
32400 GOSUB 24700
32500 IF Q> VB(MP,0)THEN MG= 11:GOTO 800
32600 VB(FP,0)= VB(FP,0)+ Q
32700 VB(MP,0)= VB(MP,0)- Q
32800 DC= Q:GOSUB 1000
32900 GOSUB 29000
33000 VA(II,28)= MP
33100 PLOT 3,127,VA(II,15),VA(II,16),11
33200 PRINT V1$(MP)
33300 MP= FP:GOTO 600
33400 IF VA(II,25)= - 1THEN MG= 7:GOTO 800
33500 FU= VA(VA(II,25),28):IF FU= 5THEN MG= 0:GOTO 800
33600 MP= FU:GOTO 32500
33700 GOSUB 700
33800 IF VA(II,30)< > 1THEN MG= 10:GOTO 800
33900 IF VA(II,28)< > MPTHEN MG= 6:GOTO 800
34000 IF VA(II,11)> 0THEN MG= 8:GOTO 800
34100 IF VA(II,9)* .1+ VA(II,1)> VB(MP,0)THEN 34600
34200 VA(II,30)= 0
34300 VB(MP,0)= VB(MP,0)- (VA(II,9)* .1+ VA(II,9))
34400 DC= VA(11,9)* .1+ VA(II,9)
34500 PLOT 3,127,VA(II,13),VA(II,14),0,32:GOTO 600
34600 MG= 11:GOTO 800
34700 GOSUB 700
34750 IF  RIGHT$ (STR$ (VA(II,11)),1)= "5"THEN  HS= HS+ 4:HT= HT- 1
34755 IF  RIGHT$ (STR$ (VA(II,11)),1)< > "5"THEN  HS= HS- 1
34800 IF VA(II,11)= 0THEN MG= 12:GOTO 800
34900 IF VA(II,28)< > MPTHEN MG= 6:GOTO 800
35000 HC= VA(II,11)- 1
35100 GOSUB 29600
35200 VA(II,11)= VA(II,11)- 1
35300 PLOT 3,127,VA(II,13),VA(II,14),7
35400 PRINT RIGHT$ (STR$ (VA(II,11)),1)
35500 VB(MP,0)= VB(MP,0)+ VA(II,10)/ 2
35600 DC= VA(II,10)/ 2:GOSUB 1000
35700 IF VA(II,11)= 0THEN 34500
35800 GOTO 600
35900 IF VA(LP,29)= 0THEN 15900
36000 IF VA(LP,30)= 1THEN 15900
36100 IF VA(LP,28)= CPTHEN 15900
36200 N= 4:IF VA(12,28)= VA(28,28)THEN N= 10
36300 VB(CP,0)= VB(CP,0)- N* DT
36400 DC= N* DT:GOSUB 1000
36500 GOSUB 28900
36600 MP= VA(II,28)
36700 VB(VA(II,28),0)= VB(VA(II,28),0)+ N* DT
36800 GOSUB 29000
36900 IF VB(CP,0)< 1THEN 15100
37000 GOTO 15900
37100 GOSUB 39200
37200 QZ= 28672+ 128* QY+ QX+ QX:QP= QT+ 2:GOSUB 39100
37300 QZ= 128- QW- QW:QP= QT+ 25:GOSUB 39100
37400 POKE QT+ 5,QN- 1:POKE QT+ 7,QW* (QO+ 1):POKE QT+ 19,35* (1- QO)
37500 RETURN
37600 GOSUB 39200:RESTORE 37700
37700 DATA 33,-1,-1,6,-1,14,-1,17,128,0,25,126
37800 DATA 17,128,255,25,119,35,-1,13,194,-1,-1
37900 DATA 17,-1,-1,25,5,194,-1,-1,201
38000 IF QT> 65503THEN QT= QT- 32:GOTO 38400
38100 FOR U9= 1TO 32:READ QQ
38200 IF QQ> = 0AND QQ< > PEEK (QT+ 1)THEN U9= 32:QT= QT- 32
38300 NEXT U9
38400 RESTORE 37700
38500 FOR U8= 1TO 32:READ QQ:POKE QT+ U8,QQ- (QQ< 0):NEXT U8
38600 QZ= QT+ 1:QP= 33283:GOSUB 39100
38700 QZ= QT:QP= QR:GOSUB 39100
38800 QZ= QT+ 6:QP= QT+ 30:GOSUB 39100
38900 QZ= QT+ 8:QP= QT+ 22:GOSUB 39100
39000 CLEAR 25:GOTO 200
39100 QV= INT (QZ/ 256):POKE QP,QZ- 256* QV:POKE QP+ 1,QV:RETURN
39200 QR= 32940:QT= 256* PEEK (QR+ 1)+ PEEK (QR):RETURN
39300 QS= CALL (0)
39400 PLOT 3,QX,QY+ QN- 1:PRINT SPC( QW)""
39500 PLOT 3,QX,QY+ QN- 1
39600 RETURN
40100 GOTO  21800
40200 VB(CP,0)= VB(CP,0)+ 50:DC= 50:GOSUB 1000:GOSUB 28900:GOTO 16000
40300 VB(CP,3)= 40:GOTO 11900
40400 IF LP= 7THEN VB(CP,3)= 15:GOTO 40490
40410 IF LP= 22THEN VB(CP,3)= 25:GOTO 40490
40420 VB(CP,3)= 5
40490 XR= 1:GOTO 11900
40500 IF  LP= 2 THEN VB(CP,3)= VB(CP,3)- 3:GOTO 11900
40510 VB(CP,0)= VB(CP,0)- 200:GOSUB 1000:VB(CP,3)= VB(CP,3)- 3:GOTO 11900
40600 VB(CP,3)= 39:GOTO 11900
40700 VB(CP,3)= 5:GOTO 11900
40800 VB(CP,3)= 24:GOTO 11900
40900 VB(CP,3)= 11:GOTO 11900
41000 IF LP< 12THEN  VB(CP,3)= 12:GOTO 41040
41010 IF LP< 28THEN  VB(CP,3)= 28:GOTO 41040
41020 VA(CP,3)= 12:GOTO 41040
41040 GOTO 41050
41050 VB(CP,0)= VB(CP,0)- (10* DT):XR= 2:DC= (10* DT):KI= KI+ (10* DT):GOSUB 45000:GOSUB 1000:GOSUB 28900:GOTO 11900
41100 VB(CP,0)= VB(CP,0)+ 50:DC= 50:GOSUB 1000:GOSUB 28900:GOTO 16000
41200 VB(CP,0)= VB(CP,0)+ 150:DC= 150:GOSUB 1000:GOSUB 28900:GOTO 16000
41400 VB(CP,0)= VB(CP,0)- 15:DC= 15:KI= KI+ 15:GOSUB 45000:GOSUB 1000:GOSUB 28900:GOTO 16000
41500 XT= 0:XH= 0
41501 FOR XY= 0TO 39
41508 IF VA(XY,0)< > 7THEN 41580
41510 IF VA(XY,28)= CPTHEN XH= XH+ VA(XY,11):IF VA(XY,11)= 5THEN XH= XH- 5:XT= XT+ 1
41580 NEXT
41581 XD= (XH* 25)+ (XT* 100):VB(CP,0)= VB(CP,0)- XD:DC= XD:KI= KI+ XD
41590 GOSUB 45000:GOSUB 1000:GOSUB 28900:GOTO 16000
41600 EL= CP:FOR CP= 0TO PL- 1
41601 IF  CP= EL THEN  41630
41610 IF  VB(CP,0)= 0THEN  41630
41616 VB(EL,0)= VB(EL,0)- 50:DC= 50:GOSUB 1000:GOSUB 28900
41620 VB(CP,0)= VB(CP,0)+ 50:GOSUB  28900
41630 NEXT :CP= EL:GOTO 16000
42100 GOTO 21800
42200 VB(CP,0)= VB(CP,0)+ 50:DC= 50:GOSUB 1000:GOSUB 28900:GOTO 16000
42300 VB(CP,3)= 40:GOTO 11900
42400 VB(CP,0)= VB(CP,0)- 50:DC= 50:KI= KI+ 50:GOSUB 45000:GOSUB 1000:GOSUB 28900:GOTO 16000
42500 VB(CP,0)= VB(CP,0)+ 200:DC= 200:GOSUB 1000:GOSUB 28900:GOTO 16000
42600 VB(CP,0)= VB(CP,0)- 100:DC= 100:KI= KI+ 100:GOSUB 45000:GOSUB 1000:GOSUB 28900:GOTO 16000
42700 VB(CP,0)= VB(CP,0)+ 20:DC= 20:GOSUB 1000:GOSUB 28900:GOTO 16000
42800 VB(CP,0)= VB(CP,0)+ 100:DC= 100:GOSUB 1000:GOSUB 28900:GOTO 16000
42900 EL= CP:FOR CP= 0TO PL- 1
42901 IF  CP= EL THEN  42930
42910 IF  VB(CP,0)= 0THEN  42930
42916 VB(EL,0)= VB(EL,0)+ 50:DC= 50:GOSUB 1000:GOSUB 28900
42920 VB(CP,0)= VB(CP,0)- 50:GOSUB  28900
42930 NEXT :CP= EL:GOTO 16000
43000 XT= 0:XH= 0
43001 FOR XY= 0TO 39
43008 IF VA(XY,0)< > 7THEN 43080
43010 IF VA(XY,28)= CPTHEN XH= XH+ VA(XY,11):IF VA(XY,11)= 5THEN XH= XH- 5:XT= XT+ 1
43080 NEXT
43081 XD= (XH* 40)+ (XT* 115):VB(CP,0)= VB(CP,0)- XD:DC= XD:KI= KI+ XD
43090 GOSUB 45000:GOSUB 1000:GOSUB 28900:GOTO 16000
43100 VB(CP,0)= VB(CP,0)+ 100:DC= 100:GOSUB 1000:GOSUB 28900:GOTO 16000
43200 VB(CP,0)= VB(CP,0)+ 100:DC= 100:GOSUB 1000:GOSUB 28900:GOTO 16000
43300 VB(CP,0)= VB(CP,0)+ 25:DC= 25:GOSUB 1000:GOSUB 28900:GOTO 16000
43400 VB(CP,0)= VB(CP,0)- 150:DC= 150:KI= KI+ 150:GOSUB 45000:GOSUB 1000:GOSUB 28900:GOTO 16000
43500 VB(CP,0)= VB(CP,0)+ 45:DC= 45:GOSUB 1000:GOSUB 28900:GOTO 16000
43600 VB(CP,0)= VB(CP,0)+ 10:DC= 10:GOSUB 1000:GOSUB 28900:GOTO 16000
45000 IF KI= 0THEN PLOT 3,128,29,9,7:PRINT "     ":RETURN
45050 PLOT 3,128,29,9,7:PRINT  KI:RETURN