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