home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_121_(06-1985).d64
/
monopole
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
27KB
|
1,060 lines
50 POKE53281,11:POKE53280,2:SYS58692
52 CLR:PRINT" PLEASE WAIT A MOMENT
60 [134]BO(41,4),CH$(16),CC$(16),NA$(41)
61 [134]PP(41,12),DT(40),SA(20)
62 [151]54275,2:[151]54296,15
64 F1[178]54277:F2[178]54276:F4[178]54273:F5[178]54272
66 [151]F1,5:[151]F4,7
68 P1[178]1:P2[178]1:DB[178]1:T[178]2:C1[178]1:C2[178]2
70 PM(1)[178]1500:PM(2)[178]PM(1):D2[178]6:D1[178]6
72 CH[178][181]([187](1)[172]16[170]1):CC[178][181]([187](1)[172]16[170]1):S1[178]1:S2[178]2
74 JH[178]0:JC[178]0:AA[178]1:FP[178]500:JL(1)[178]1:JL(2)[178]1
90 DC$[178]"SYS(null)(null)CMDCMDCMD(null)C (null)CMDCMDCMDCMDCMD(null) (null)CMDCMDCMDCMDCMD(null) C(null)CMDCMDCMD(null)(null)"
92 DH$[178]"DEF(null)(null)CMDCMDCMD(null)? (null)CMDCMDCMDCMDCMD(null) (null)CMDCMDCMDCMDCMD(null) ?(null)CMDCMDCMD(null)(null)"
94 CL$[178]"STOPWAITFN(null) (null)"
95 DL$[178]""
96 D$(1)[178]"TOTOTOCMDCMDCMDCMDTHEN FNCMDCMDCMDCMDCMDTHEN (null) FNCMDCMDCMDCMDCMDTHEN FNCMDCMDCMDCMDTAB(TAB(TAB("
97 D$(2)[178]"TOTOTOCMDCMDCMDCMDTHEN(null) FNCMDCMDCMDCMDCMDTHEN FNCMDCMDCMDCMDCMDTHEN (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
98 D$(3)[178]"TOTOTOCMDCMDCMDCMDTHEN(null) FNCMDCMDCMDCMDCMDTHEN (null) FNCMDCMDCMDCMDCMDTHEN (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
99 D$(4)[178]"TOTOTOCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDCMDTHEN FNCMDCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
100 D$(5)[178]"TOTOTOCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDCMDTHEN (null) FNCMDCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
101 D$(6)[178]"TOTOTOCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDCMDTHEN(null) (null)FNCMDCMDCMDCMDTAB(TAB(TAB("
110 [137]2000
115 [153]"LOADSTOP THEN THEN THEN THEN THEN THEN THEN THEN THEN THENGTJ FN"
120 [153]"STOP FPTHEN THEN THEN THEN THEN THEN THEN THEN THEN THEN FNORTANTANTANTANTANTANTANTANTAN^"
130 [153]"STOPANDANDANDAND STOPWAIT?? THEN STOPSPC(SPC(SPC(SYS THEN STOPWAITWWSYS STOPWAITANDANDANDAND"CL$
140 [153]"STOPCLOSE FOR STOPWAIT(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)CLOSEWAITSTOPTAB(TAB("CL$
150 [153]"STOP FOR STOPWAITFN"[163]23)"THEN WAITSTOP "CL$
152 [153]"STOPUSRUSRFORUSRSTOPWAITFN"[163]23)"THENUSRWAITSTOPUSRUSR"CL$
154 [153]"STOP FOR STOPWAITFN"[163]23)"THEN WAITSTOP "CL$
160 [153]"STOPUSRUSRCFN"[163]23)"THENCUSRUSR"CL$
170 [153]"STOP CFN"[163]23)"THENC "CL$
180 [153]"STOPUSRUSRFOR STOPWAITFN"[163]23)"THEN WAITSTOPUSRUSR"CL$
182 [153]"STOP FOR STOPWAITFN"[163]23)"THEN WAITSTOP "CL$
190 [153]"STOPUSRUSRSPC(FN"[163]23)"THENSPC(USRUSR"CL$
192 [153]"STOP SPC(FN"[163]23)"THENSPC( "CL$
200 [153]"STOPUSRUSRCLR STOPWAITFN"[163]23)"THEN?USRUSR"CL$
210 [153]"STOP CLR STOPWAITFN"[163]23)"THEN? "CL$
212 [153]"STOPUSRUSRCLRUSRSTOPWAITFN"[163]23)"THENCONT WAITSTOPUSRUSR"CL$
214 [153]"STOP CLR STOPWAITFN"[163]23)"THENCONT WAITSTOP "CL$
220 [153]"STOPUSRUSREFN"[163]23)"THENTUSRUSR"CL$
230 [153]"STOP CFN"[163]23)"THENX "CL$
240 [153]"STOPUSRUSRCLR STOPWAITFN"[163]23)"THENCONT WAITSTOPUSRUSR"CL$
250 [153]"STOP CLR STOPWAIT(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRCONT WAITSTOP "CL$
260 [153]"STOPUSR(null) OPEN THEN STOPWAIT??OPEN THENSTOPWAITSPC(SPC(SPC(TXPRINT# STOPWAITCCPRINT# WAITSTOPUSRUSRUSRUSR"CL$
270 [153]"STOPJ(null)ANDSQR THEN THEN THEN THEN THEN THEN THEN THEN THEN _GO"CL$
280 [153]"STOPV THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN FN/TANTANTANTANTANTANTANTANTANEXP"
285 [153]"STOPUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR";
290 [153][163]6)DC$[163]14)DH$
300 [153][200](DL$,12)[163]9)""D$(D1)"ONONONON"D$(D2)
310 [153]"SYS"[163]29)"MONO-POLECMDCMDCMDCMDCMDCMD64"
320 [153][163]29)"PLAYER 1":[153][163]29)""PM(1)
330 [153][163]29)"PLAYER 2":[153][163]29)""PM(2)
340 [153][200](DL$,9)[163]10)"PLAYER"J
350 [153][200](DL$,BO(T[171]1,C1))[163]BO(T[171]1,C2))""[201]([196](J),1)
360 L1[178]1:L2[178]2:L3[178]P1:L4[178]1
365 [139]J[178]1[167]L1[178]3:L2[178]4:L3[178]P2:L4[178]2
370 [153][200](DL$,BO(L3,L1))[163]BO(L3,L2))""[201]([196](L4),1)
400 [142]
1000 [143] MOVEMENT FOR PLAYER 1
1001 [131]24,24,24,21,24,19,24,17,24,15,24,12,24,10,24,8,24,6,24,4
1002 [131]24,1,21,1,19,1,17,1,15,1,13,1,11,1,9,1,7,1,5,1
1003 [131]1,1,1,4,1,6,1,8,1,10,1,12,1,15,1,17,1,19,1,21
1004 [131]2,25,5,26,7,26,9,26,11,26,13,26,15,26,17,26,19,26,21,26
1005 [143] MOVEMENT FOR PLAYER 2
1006 [131]24,25,23,21,23,19,23,17,23,15,23,12,23,10,23,8,23,6,23,4
1007 [131]24,2,21,0,19,0,17,0,15,0,13,0,11,0,9,0,7,0,5,0
1008 [131]1,2,2,4,2,6,2,8,2,10,2,12,2,15,2,17,2,19,2,21
1009 [131]2,25,5,25,7,25,9,25,11,25,13,25,15,25,17,25,19,25,21,25
1010 [131]22,3,22,2
1021 [131]ADVANCE TOKEN TO NEAREST RAILROAD AND PAY OWNER TWICE RENT
1022 [131]BANK PAYS YOU DIVIDEND OF $50
1023 [131]ADVANCE TO ST. CHARLES PLACE
1024 [131]PAY POOR TAX OF $15
1025 [131]PAY EACH PLAYER $50
1026 [131]GENERAL REPAIRS PAY $25 PER HOUSE $100 PER HOTEL
1027 [131]ADVANCE TOKEN TO NEAREST RAILROAD AND PAY OWNER TWICE RENT
1028 [131]ADVANCE TOKEN TO BOARD WALK
1029 [131]TAKE A RIDE ON THE READING
1030 [131]GET OUT OF JAIL 'FREE'
1031 [131]ADVANCE TO GO
1032 [131]GO DIRECTLY TO JAIL
1033 [131]ADVANCE TO ILLINOIS AVE
1034 [131]GO BACK 3 SPACES
1035 [131]ADVANCE TOKEN TO NEAREST UTILITY AND PAY OWNER 10 TIMES OF DICE ROLL
1036 [131]YOUR BUILDING AND LOAN MATURES COLLECT $150
1041 [131]LIFE INSURANCE MATURES COLLECT $100
1042 [131]PAY HOSPITAL $100
1043 [131]XMAS FUND MATURES COLLECT $100
1044 [131]BANK ERROR IN YOUR FAVOR COLLECT $200
1045 [131]RECEIVE FOR SERVICES $25
1046 [131]INCOME TAX REFUND COLLECT $20
1047 [131]ADVANCE TO GO (COLLECT $200)
1048 [131]GET OUT OF JAIL (FREE)
1049 [131]PAY SCHOOL TAX OF $150
1050 [131]STREET REPAIRS '$40 PER HOUSE AND $115 PER HOTEL'
1051 [131]COLLECT $50 FROM EVERY PLAYER
1052 [131]DOCTOR'S FEE PAY $50
1053 [131]FROM SALE OF STOCK YOU GET $45
1054 [131]YOU INHERIT $100
1055 [131]SECOND PRIZE IN A BEAUTY CONTEST COLLECT $10
1056 [131]GO TO JAIL (DO NOT PASS GO)
1060 [131]"PRINT <<< GO >>> ","PRINT#MEDITERRANEAN AVE ","SYS COMMUNITY CHEST "
1061 [131]"PRINT# BALTIC AVE ","LIST INCOME TAX ","LIST READING R.R. "
1062 [131]"OPEN ORIENTAL AVE ","DEF CHANCE ","OPEN VERMONT AVE "
1063 [131]"OPEN CONNECTICUT AVE ","FOR JUST VISITING ","CLRST. CHARLES PLACE "
1065 [131]"LIST ELECTRIC COMPANY ","CLR STATES AVE ","CLR VIRGINIA AVE "
1066 [131]"LISTPENNSYLVANIA R.R. ","FOR ST. JAMES PLACE ","SYS COMMUNITY CHEST "
1067 [131]"FOR TENNESSEE AVE ","FOR NEW YORK AVE ","CONT FREE PARKING "
1068 [131]" KENTUCKY AVE ","DEF CHANCE "," INDIANA AVE "
1069 [131]" ILLINOIS AVE ","LIST B&O RAILROAD ","SYS ATLANTIC AVE "
1070 [131]"SYS VENTNOR AVE ","LIST WATER WORKS ","SYS MARVIN GARDENS "
1071 [131]"CONT GO TO JAIL "," PACIFIC AVE ","NORTH CAROLINA AVE"
1072 [131]"SYS COMMUNITY CHEST "," PENNSYLVANIA AVE ","LIST SHORT LINE "
1073 [131]"DEF CHANCE ","CONT PARK PLACE ","LIST LUXURY TAX "
1074 [131]"CONT BOARDWALK ","STOP CLOSE IN JAIL "
1100 [131]2,2,10,30,90,160,250,30
1101 [131]4,4,20,60,180,320,450,30
1102 [131]7,6,30,90,270,400,550,50
1103 [131]9,6,30,90,270,400,550,50
1104 [131]10,8,40,100,300,450,600,60
1105 [131]12,10,50,150,450,625,750,70
1106 [131]14,10,50,150,450,625,750,70
1107 [131]15,12,60,180,500,700,900,80
1108 [131]17,14,70,200,550,750,950,90
1109 [131]19,14,70,200,550,750,950,90
1110 [131]20,16,80,220,600,800,1000,100
1111 [131]22,18,90,250,700,875,1050,110
1112 [131]24,18,90,250,700,875,1050,110
1113 [131]25,20,100,300,750,925,1100,120
1114 [131]27,22,110,330,800,975,1150,130
1115 [131]28,22,110,330,800,975,1150,130
1116 [131]30,24,120,360,850,1025,1200,140
1117 [131]32,26,130,390,900,1100,1275,150
1118 [131]33,26,130,390,900,1100,1275,150
1119 [131]35,28,150,450,1000,1200,1400,160
1120 [131]38,35,175,500,1100,1300,1500,175
1121 [131]40,50,200,600,1400,1700,2000,200
1150 [131]2,4,7,9,10
1151 [131]12,14,15,17,19,20
1152 [131]22,24,25,27,28,30
1153 [131]32,33,35,38,40
1500 [153]"LOADSELECT OPTION ?"
1502 [153]" AWAIT START NEW GAME"
1504 [153]" BWAIT LOAD GAME FROM DISK"
1506 [151]198,0
1508 [161]A$:[139]A$[178]""[167]1508
1510 [139]A$[178]"A"[167]2900
1512 [139]A$[178]"B"[167]1600
1514 [137]1508
1600 [153]"LOADNAME OF THE FILE(MAX 10 CHARACTER)?"
1605 [133]NM$
1607 [159]15,8,15
1610 ZL[178]1:[137]1700
1615 [159]4,8,4,"0:MONO/"[170]NM$[170]",SEQ,READ"
1617 [129]S[178]8[164]11
1620 [129]G[178]1[164]41:[132]4,PP(G,S):[130]
1625 [130]
1630 [129]G[178]1[164]18:[132]4,SA(G):[130]
1637 ZL[178]3:[137]1700
1640 [160]4:[160]15
1650 [141]2800
1660 [141]115:[137]3000
1700 [132]15,ZW,OK$,ZX,ZY
1705 [139]ZW[179]20[167]1800
1710 [153]"LOADDOS ERROR"
1715 [153]ZW;OK$;ZX;ZY
1717 [160]4:[160]15
1720 [161]A$:[139]A$[178]""[167]1720
1730 [145]ZL[137]1500,2100,1500,2100
1800 [139]ZL[178]1[167]1615
1810 [139]ZL[178]3[167]1640
1820 [139]ZL[178]4[167]2240
1830 [139]ZL[178]2[167]2215
2000 [143] PROGRAM START HERE
2001 [129]G[178]1[164]40:[135]BO(G,1),BO(G,2):[130]
2002 [129]G[178]1[164]40:[135]BO(G,3),BO(G,4):[130]
2003 [129]G[178]1[164]4:[135]BO(41,G):[130]
2005 [129]S[178]1[164]16:[135]CH$(S):[130]
2006 [129]S[178]1[164]16:[135]CC$(S):[130]
2010 [129]S[178]1[164]41:[135]NA$(S):[130]
2020 [129]G[178]1[164]22:[135]AS
2025 [129]S[178]1[164]7:[135]PP(AS,S):[130]
2030 [130]
2035 [129]G[178]1[164]22:[135]DT(G):[130]
2040 PP(6,7)[178]100:PP(16,7)[178]100:PP(26,7)[178]100:PP(36,7)[178]100
2045 PP(13,7)[178]75:PP(29,7)[178]75
2050 [137]1500
2100 [153]"LOADSELECT OPTION?"
2105 [153]" AWAIT - FORMAT A NEW DISKETTE"
2107 [153]" BWAIT - CLEAR DIRECTORY"
2109 [153]" CWAIT - SAVE GAME"
2112 [153]" XWAIT - RETURN TO GAME"
2120 [161]A$:[139]A$[178]"X"[167]6800
2125 [139]A$[178]"A"[167]2140
2127 [139]A$[178]"B"[167]2150
2129 [139]A$[178]"C"[167]2180
2130 [137]2120
2140 [159]15,8,15,"N0:MONOPOLE V1.0,MM"
2142 [160]15
2144 [137]2100
2150 [159]15,8,15,"N0:MONOPOLE V1.0"
2160 [160]15
2170 [137]2100
2180 SA(1)[178]JC:SA(2)[178]JH:SA(3)[178]CH:SA(4)[178]CC
2181 SA(5)[178]FP:SA(6)[178]J:SA(7)[178]P1:SA(8)[178]P2
2182 SA(9)[178]PM(1):SA(10)[178]PM(2):SA(11)[178]JL(1):SA(12)[178]JL(2)
2184 SA(13)[178]D1:SA(14)[178]D2:SA(15)[178]DB
2186 SA(16)[178]C1:SA(17)[178]C2:SA(18)[178]T
2200 [153]"LOADNAME OF THE FILE(MAX 10 CHARACTER)?"
2205 [133]NM$
2207 [159]15,8,15
2210 ZL[178]2:[137]1700
2215 [159]4,8,4,"0:MONO/"[170]NM$[170]",SEQ,WRITE"
2217 [129]S[178]8[164]11
2220 [129]G[178]1[164]41:[152]4,PP(G,S):[130]
2225 [130]
2230 [129]G[178]1[164]18:[152]4,SA(G):[130]
2237 ZL[178]4:[137]1700
2240 [160]4:[160]15
2250 [137]6800
2800 JC[178]SA(1):JH[178]SA(2):CH[178]SA(3):CC[178]SA(4)
2810 FP[178]SA(5):S1[178]SA(6):P1[178]SA(7):P2[178]SA(8)
2820 PM(1)[178]SA(9):PM(2)[178]SA(10):JL(1)[178]SA(11):JL(2)[178]SA(12)
2830 D1[178]SA(13):D2[178]SA(14):DB[178]SA(15)
2834 C1[178]SA(16):C2[178]SA(17):T[178]SA(18):J[178]S1
2840 [142]
2900 [141]115
2905 [153][200](DL$,BO(1,1))[163]BO(1,2))"1"
2910 [153][200](DL$,BO(1,3))[163]BO(1,4))"2"
3000 [129]J[178]S1[164]S2
3001 [153][200](DL$,9)[163]10)"PLAYER"J:[141]3200
3002 [153][200](DL$,11)[163]5)NA$(MM)
3003 [137]6500
3004 CK[178]1:[137]9900
3005 [141]4000:[141]5000
3006 CK[178]3:[137]9900
3007 [141]4100:[141]3500:[139]DB[177]3[167]DB[178]1:[141]4200:[137]4500
3008 JL(J)[178]1
3010 [129]T[178]MM[164]MM[170]RD[169]AA
3011 [139]T[177]40[167]4300
3020 [153][200](DL$,BO(T,C1))[163]BO(T,C2))""[201]([196](J),1)
3045 [151]F2,65
3050 [129]DD[178]1[164]200:[130]
3060 [153][200](DL$,BO(T,C1))[163]BO(T,C2))" "
3075 [151]F2,0
3080 [130]
3081 [153][200](DL$,11)[163]5)NA$(T[171]1)
3082 [139]T[178]32[167]4500
3083 [141]3300:AA[178]1
3084 [153][200](DL$,BO(T[171]1,C1))[163]BO(T[171]1,C2))""[201]([196](J),1)
3086 [137]7000
3089 CK[178]2:[137]9900
3090 [139]D1[178]D2[167]3001
3091 S1[178]1:S2[178]2
3092 DB[178]1:[130]
3100 [137]3000
3200 [139]J[178]1[167]MM[178]P1
3210 [139]J[178]2[167]MM[178]P2
3212 C1[178]1:C2[178]2
3214 [139]J[178]2[167]C1[178]3:C2[178]4
3215 [153][200](DL$,BO(MM,C1))[163]BO(MM,C2))""[201]([196](J),1)
3220 [142]
3300 [139]J[178]1[167]P1[178]T[171]1
3310 [139]J[178]2[167]P2[178]T[171]1
3320 [142]
3500 [151]F1,7
3505 [129]G[178]1[164]7
3510 D1[178][181]([187](1)[172]6)[170]1:D2[178][181]([187](1)[172]6)[170]1
3515 [151]F4,(D1[170]D2)[172]12
3520 [153][200](DL$,12)[163]9)""D$(D1)"ONONONON"D$(D2)
3525 [151]F2,65:[129]DD[178]1[164]100:[130]
3530 [151]F2,0
3535 [130]
3540 [139]D1[178]D2[167]DB[178]DB[170]1
3545 RD[178]D1[170]D2
3547 [151]F4,7:[151]F1,5
3550 [142]
3600 [153]"LOAD"
3610 [153][163]9)"PASS GO"
3620 [153][163]9)"COLLECT $200"
3625 PM(J)[178]PM(J)[170]200
3630 [141]4600:[142]
4000 [153][200](DL$,11)
4010 [139]J[178]2[167][153]""
4050 [153][163]30)"RWAITOLL OR"
4060 [153][163]30)"OWAITPTION"
4070 [142]
4100 [153][200](DL$,11)
4110 [139]J[178]2[167][153]""
4120 [153][163]30)" "
4130 [153][163]30)" "
4140 [142]
4200 ME$[178]"FOR ROLLING DOUBLESCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD3 TIMES IN A ROW"
4210 [142]
4300 W1[178]RD[170]MM[171]41:RD[178]W1:MM[178]1
4311 [153][200](DL$,11)
4312 [139]J[178]2[167][153]""
4313 [153][163]30)"COLLECT":[153][163]31)"$ 200"
4320 [141]4600
4321 [153][200](DL$,11)
4322 [139]J[178]2[167][153]""
4323 [153][163]30)" ":[153][163]31)" "
4325 PM(J)[178]PM(J)[170]200:[141]4400
4330 [137]3010
4400 [153]"SYS"[163]29)"MONO-POLECMDCMDCMDCMDCMDCMD64"
4410 [153][163]29)"PLAYER 1":[153][163]29)""PM(1)
4420 [153][163]29)"PLAYER 2":[153][163]29)""PM(2)
4430 [142]
4500 [153]"LOAD"[163]7)"PRINT GO TO JAIL "
4502 [153][163]7)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SGN
4504 PRINTTAB(7)"[180][180][180][180][180][180][180][180][180][180][180][180][165]
4506 [153][163]7)"SGNSGNSGNSGNSGNSGNSGNSGNSGNSGNSGNSGNSGN
4508 PRINTTAB(7)"[180][180][180][180][180][180][180][180][180][180][180][180][180]
4509 [153][163]7)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SGN
4510 PRINTTAB(4)ME$
4512 POKEF1,15
4515 FORG=1TO6:POKEF2,85
4520 FORES=200TO5STEP-4:POKEF4,30:POKEF5,ES:NEXT
4525 FORES=150TO5STEP-3:POKEF4,40:POKEF5,ES:NEXT
4530 NEXTG
4535 POKEF2,0:POKEF5,0:POKEF1,5:POKEF4,7
4537 GOSUB4600
4540 IFJ=1THENP1=41
4545 IFJ=2THENP2=41
4552 T=42:ME$=""
4554 GOSUB115
4560 GOTO3092
4600 PRINTLEFT$(DL$,20)TAB(8)"PRESS A KEY"
4610 POKE198,0
4620 GETA$:IFA$=""THEN4620
4630 PRINTLEFT$(DL$,20)TAB(8)" "
4640 RETURN
5000 POKE198,0
5010 GETA$:IFA$=""THEN5010
5020 IFA$="O"THEN6000
5030 RETURN
6000 PRINT"[147]"
6010 PRINT"A[146] - REVIEW PROPERTIES
6012 [153]"BWAIT - LIST ALL PROPERTIES
6014 PRINT"C[146] - BUILD HOUSES/HOTEL
6016 [153]"DWAIT - SELL PROPERTIESCLOSE
6018 PRINT"E[146] - MORTGAGE PROPERTIES
6020 [153]"FWAIT - DISPLAY TITLE DEEDS
6022 PRINT"G[146] - END GAME
6024 [153]"HWAIT - SAVE GAME ON DISK
6026 PRINT"I[146] - RETURN TO GAME
6030 [151]198,0
6031 [161]A$:[139]A$[178]""[167]6031
6032 KK[178][198](A$):[139]KK[179]65[176]KK[177]73[167]6031
6033 [145]KK[171]64[137]6100,6150,6200,6300,6400,6600,6650,2100,6802
6034 [137]6031
6100 [153]"LOAD"
6102 [153]"REVIEW PROPERTIES OF PLAYER"
6104 [153]" (1 OR 2)
6106 POKE198,0
6108 GETA$:IFA$=""THEN6108
6110 IFA$="1"THENSP=1:GOTO6118
6112 IFA$="2"THENSP=2:GOTO6118
6114 GOTO6108
6118 MP=0:MN=0:PRINT"[147] PROPERTIES"TAB(20)"HOUSES"TAB(30)"MORTGAGE?"
6119 FORG=1TO22
6120 IFPP(DT(G),8)=SPTHENPRINTNA$(DT(G));:MP=MP+1:GOTO6122
6121 GOTO6127
6122 PRINT""TAB(22)PP(DT(G),9);
6124 CS=DT(G):GOSUB6148
6126 GOSUB6145
6127 NEXT
6128 IFPP(6,8)=SPTHENMP=MP+1:PRINTNA$(6);:CS=6:GOSUB6148:GOSUB6145
6130 IFPP(16,8)=SPTHENMP=MP+1:PRINTNA$(16);:CS=16:GOSUB6148:GOSUB6145
6132 IFPP(26,8)=SPTHENMP=MP+1:PRINTNA$(26);:CS=26:GOSUB6148:GOSUB6145
6134 IFPP(36,8)=SPTHENMP=MP+1:PRINTNA$(36);:CS=36:GOSUB6148:GOSUB6145
6136 IFPP(13,8)=SPTHENMP=MP+1:PRINTNA$(13);:CS=13:GOSUB6148:GOSUB6145
6138 IFPP(29,8)=SPTHENMP=MP+1:PRINTNA$(29);:CS=29:GOSUB6148:GOSUB6145
6139 IFJC=SPTHENMN=MN+1
6140 IFJH=SPTHENMN=MN+1
6141 IFJH=SPORJC=SPTHENPRINTMN"OUT OF JAIL CARD"
6143 GOTO6800
6145 IFMP>15THENGOSUB4600:PRINT"[147]":MP=0
6147 RETURN
6148 RT$="NO":IFPP(CS,10)>0ORPP(CS,11)>0THENRT$="YES"
6149 PRINT""TAB(32)RT$:RETURN
6150 PRINT"[147] PROPERTIES"TAB(20)"HOUSES"TAB(29)"OWNER/MORT"
6152 FORG=1TO14
6154 PRINTNA$(DT(G))""TAB(22)PP(DT(G),9);TAB(29)PP(DT(G),8);
6156 IFPP(DT(G),10)<>0THENPRINT"/M";
6158 PRINT
6160 NEXT
6162 GOSUB4600
6164 PRINT"[147] PROPERTIES"TAB(20)"HOUSES"TAB(29)"OWNER/MORT"
6166 FORG=15TO22
6168 PRINTNA$(DT(G))""TAB(22)PP(DT(G),9);TAB(29)PP(DT(G),8);
6170 IFPP(DT(G),10)<>0THENPRINT"/M";
6172 PRINT
6174 NEXT
6176 FORG=6TO36STEP10
6178 PRINTNA$(G)""TAB(29)PP(G,8);
6180 IFPP(G,10)<>0THENPRINT"/M";
6182 PRINT
6184 NEXT
6186 PRINTNA$(13)""TAB(29)PP(13,8);
6188 IFPP(13,10)<>0THENPRINT"/M";
6189 PRINT
6190 PRINTNA$(29)""TAB(29)PP(29,8);
6192 IFPP(29,10)<>0THENPRINT"/M";
6194 GOTO6800
6200 GOSUB9800:GOSUB7230
6206 IFTC<>XXTHEN6216
6207 TC=0
6208 FORG=1TOXX:IFPP(X(G),10)>0ORPP(X(G),11)>0THENTC=TC+1:NEXT
6209 IFTC<>0THEN6216
6210 FORG=1TOXX:IFPP(X(G),8)<>JTHENTC=TC+1:NEXT
6211 IFTC<>0THEN6216
6212 GOTO6220
6216 PRINT"[147][144]YOU EITHER DON'T OWN ALL THE PROPERTY OR THEY ARE MORTGAGE."
6218 GOTO6800
6220 PRINT"[147]"
6222 X(5)=PP(X(1),9)+PP(X(2),9)+PP(X(3),9)
6224 HS=(XX*5)-X(5):IFHS=0THEN6290
6226 PRINT"HOW MANY HOUSES DO YOU WANT"
6227 PRINT" TO BUILD?[160](MAX"HS")"
6228 PRINT" YOU HAVE:"PM(J)
6230 INPUTBH
6232 IFBH<1ORBH>HSTHEN6226
6233 GOSUB7015
6235 PM(J)=PM(J)-BH*VL
6236 IFXX>BHTHENR(2)=BH:GOTO6241
6237 R(1)=INT(BH/XX):R(2)=BH-(R(1)*XX)
6238 FORG=1TOXX:PP(X(G),9)=PP(X(G),9)+1:NEXTG
6239 TC=TC+1:IFTC<R(1)THEN6238
6240 TC=0
6241 IFR(2)=0THEN6275
6242 PRINT"[147]"
6244 PRINT"WHERE DO YOU WANT THE"R(2)"EXTRA HOUSE(S)"
6245 PRINT""TAB(25)"HOUSES"
6246 FORG=1TOXX:PRINT""G"[146] "NA$(X(G))TAB(27)""PP(X(G),9):NEXT
6247 PRINT:PRINT
6248 FORW=1TOR(2)
6250 INPUTMQ
6251 IFMQ<1ORMQ>XXTHENPRINT"( 1 TO"XX")":GOTO6250
6252 FORG=1TOXX
6253 IFPP(X(MQ),9)>PP(X(G),9)THEN6260
6254 NEXT
6255 PP(X(MQ),9)=PP(X(MQ),9)+1
6256 NEXT
6258 GOTO6275
6260 PRINT"ILLEGAL DISTRIBUTION!"
6262 GOTO6250
6275 PRINT"[147]"
6277 FORG=1TOXX
6279 PRINTNA$(X(G))TAB(28)PP(X(G),9)
6281 NEXT
6283 GOTO6800
6290 PRINT"[147]"
6292 FORG=1TOXX:PRINTNA$(X(G))TAB(27)""PP(X(G),9):NEXT
6294 PRINT"HOTEL ARE ON ALL THE PROPERTY"
6296 GOTO6800
6300 PRINT"[147]"
6302 PRINT"WHICH PLAYER HAS A PROPERTY TO SELL?"
6304 POKE198,0
6306 GETA$:IFA$=""THEN6306
6308 IFA$="1"THENSB=2:SO=1:GOTO6315
6310 IFA$="2"THENSB=1:SO=2:GOTO6315
6312 GOTO6306
6315 PRINT"[147]WHAT KIND OF PROPERTY IS IT?"
6317 PRINT" A[146] - PROPERTY"
6319 PRINT" B[146] - RAILROAD"
6321 PRINT" C[146] - UTILITY"
6323 GETA$:IFA$="X"THEN6800
6325 IFA$="A"THENGOTO6365
6327 IFA$="B"THENGOTO6332
6329 IFA$="C"THENGOTO6350
6331 GOTO6323
6332 PRINT"[147]WHICH RAILROAD?"
6333 PRINT" A[146] -"NA$(6)
6334 PRINT" B[146] -"NA$(16)
6335 PRINT" C[146] -"NA$(26)
6336 PRINT" D[146] -"NA$(36)
6337 PRINT" X[146] -CANCEL TRANSACTION"
6338 GETA$:IFA$="A"THENTY=6:GOTO6344
6339 IFA$="B"THENTY=16:GOTO6344
6340 IFA$="C"THENTY=26:GOTO6344
6341 IFA$="D"THENTY=36:GOTO6344
6342 IFA$="X"THEN6800
6343 GOTO6338
6344 IFSO=PP(TY,8)THEN6394
6345 GOSUB6391:GOTO6338
6350 PRINT"[147] WHICH UTILTY?"
6351 PRINT" A[146] -"NA$(13)
6352 PRINT" B[146] -"NA$(29)
6353 PRINT" X[146] -CANCEL TRANSACTION"
6354 GETA$:IFA$="X"THEN6800
6355 IFA$="A"THENTY=13:GOTO6360
6357 IFA$="B"THENTY=29:GOTO6360
6359 GOTO6354
6360 IFSO=PP(TY,8)THEN6394
6362 GOSUB6391:GOTO6354
6364 PRINT" X[146] -CANCEL TRANSACTION"
6365 PRINT"[147]":GOSUB9800:GOSUB7230
6366 PRINT"[147] WHICH PROPERTY?":PRINT"A[146] -"NA$(X(1))
6367 PRINT" B[146] -"NA$(X(2))
6368 IFXX=3THENPRINT" C[146] -"NA$(X(3))
6369 PRINT" X[146] -CANCEL TRANSACTION
6370 [161]A$:[139]A$[178]"X"[167]6800
6371 [139]A$[178]"A"[167]TY[178]X(1):[137]6376
6372 [139]A$[178]"B"[167]TY[178]X(2):[137]6376
6373 [139]A$[178]"C"[167]TY[178]X(3):[137]6375
6374 [137]6370
6375 [139]XX[179][177]3[167]6370
6376 [139]SO[178]PP(TY,8)[167]6394
6377 [141]6391:[137]6370
6391 [153]"YOU DO NOT OWN THIS!"
6392 [142]
6394 [153]"LOADWHAT IS THE AGREED PRICE?":[133]AM:[139]AM[179]1[167]6394
6395 [153]"LOADPLAYER"SO"SOLD PLAYER"SB
6396 [153]""NA$(TY)
6397 [153][163]7)"FOR"AM:PP(TY,8)[178]SB
6398 PM(SO)[178]PM(SO)[170]AM:PM(SB)[178]PM(SB)[171]AM
6399 [137]6800
6400 [153]"LOADWHAT DO YOU WANT TO MORTGAGE?"
6402 [153]" AWAIT - PROPERTY"
6406 [153]" BWAIT - HOUSES"
6408 [153]" CWAIT - UTILITY"
6410 [153]" DWAIT - RAILROAD"
6412 [153]" EWAIT - LIFT MORTGAGE(AT 10%)
6414 PRINT" X[146] - BACK TO GAME"
6416 POKE198,0
6418 GETA$:IFA$="X"THEN6800
6420 IFA$="A"THEN6427
6421 IFA$="B"THEN6470
6422 IFA$="C"THEN6450
6423 IFA$="D"THEN6457
6424 IFA$="E"THEN6820
6425 GOTO6418
6427 GOSUB9800:GOSUB7230
6430 PRINT"[147]WHICH PROPERTY IS TO BE MORTGAGE?"
6431 PRINT" A[146] - "NA$(X(1)):PRINT" B[146] - "NA$(X(2))
6432 IFXX=3THENPRINT" C[146] - "NA$(X(3))
6433 PRINT" X[146] - BACK TO GAME"
6434 POKE198,0
6435 GETA$:IFA$="X"THEN6800
6436 IFA$="A"THENTY=X(1):GOTO6442
6437 IFA$="B"THENTY=X(2):GOTO6442
6438 IFA$="C"THENTY=X(3):GOTO6440
6439 GOTO6435
6440 IFXX<>3THEN6435
6442 IFPP(TY,8)<>JTHENGOSUB6391:GOTO6435
6443 IFPP(TY,10)=JTHENPRINT"ALREADY MORTGAGE!":GOTO6435
6444 AM=0
6445 AM=PP(X(1),9)+PP(X(2),9):IFXX=3THENAM=AM+PP(X(3),9)
6446 IFAM>0THENPRINT"DEVELOPED PROPERTY CANNOT BE MORTGAGE":AM=0:GOTO6800
6447 PM(J)=PM(J)+PP(TY,7):PP(TY,10)=J
6448 PRINT"MORTGAGED FOR $"PP(TY,7)
6449 GOTO6800
6450 PRINT"[147]WHICH UTILITY IS TO MORTGAGE?"
6452 PRINT" A[146] ELECTRIC CO"
6454 PRINT" B[146] WATER WORKS"
6455 PRINT" X[146] BACK TO GAME
6456 [137]6940
6457 [153]"LOAD AWAIT "NA$(6):[153]" BWAIT "NA$(16)
6458 [153]" CWAIT "NA$(26):[153]" DWAIT "NA$(36):[153]" XWAIT BACK TO GAME
6459 GETA$:IFA$="X"THEN6800
6460 IFA$="A"THENTY=6:GOTO6465
6461 IFA$="B"THENTY=16:GOTO6465
6462 IFA$="C"THENTY=26:GOTO6465
6463 IFA$="D"THENTY=36:GOTO6465
6464 GOTO6459
6465 IFPP(TY,8)<>JTHENGOSUB6391:GOTO6459
6466 IFPP(TY,10)=JTHENPRINT"ALREADY MORTGAGE!":GOTO6459
6467 PM(J)=PM(J)+100:PP(TY,10)=J
6468 PRINT"MORTGAGED FOR $100":GOTO6800
6470 GOSUB9800:GOSUB7230
6472 PRINT"[147]"
6474 FORG=1TOXX
6475 IFPP(X(G),8)<>JTHENGOSUB6391:GOTO6800
6477 NEXT
6478 OK=0
6479 FORG=1TOXX
6480 IFPP(X(G),9)>0THENOK=OK+1
6481 NEXT
6482 IFOK=0THENPRINT"YOU HAVE NO HOUSES ON THESE PROPERTY!":GOTO6800
6483 PRINTTAB(29)"HOUSE(S)
6484 [153]" AWAIT - "NA$(X(1))[163]31)PP(X(1),9):[153]" BWAIT - "NA$(X(2))[163]31)PP(X(2),9)
6485 [139]XX[178]3[167][153]" CWAIT - "NA$(X(3))[163]31)PP(X(3),9)
6486 [153]" XWAIT - BACK TO GAME
6487 PRINT"WANT ME TO REMOVE ALL OF THE HOUSES?":PRINTTAB(10)"( Y OR N )
6488 [161]A$:[139]A$[178]"X"[167]6800
6489 [139]A$[178]"Y"[167]6492
6490 [139]A$[178]"N"[167]6900
6491 [137]6488
6492 AM[178]0:AM[178]AM[170]PP(X(1),9):PP(X(1),11)[178]PP(X(1),9)[170]PP(X(1),11):PP(X(1),9)[178]0
6493 AM[178]AM[170]PP(X(2),9):PP(X(2),11)[178]PP(X(2),9)[170]PP(X(2),11):PP(X(2),9)[178]0
6494 [139]XX[178]3[167]AM[178]AM[170]PP(X(3),9):PP(X(3),11)[178]PP(X(3),9)[170]PP(X(3),11):PP(X(3),9)[178]0
6495 [141]7015
6496 AM[178]AM[172]VL:AM[178][181](AM[173]2)
6497 PM(J)[178]PM(J)[170]AM:[153]"MORTGAGED FOR $"AM
6498 [137]6800
6500 [139]MM[179][177]41[167][137]3004
6504 [129]DD[178]1[164]1000:[130]
6505 [153]"LOAD"
6508 [153]"PLAYER"J "("JL(J)"TURN IN JAIL)
6510 PRINTTAB(7)"SELECT OPTION"
6515 PRINTTAB(5)"1[146] ROLL FOR DOUBLE"
6520 PRINTTAB(5)"2[146] PAY $ 50"
6525 PRINTTAB(5)"3[146] OUT OF JAIL CARD"
6530 POKE198,0
6532 GETA$:IFA$=""THEN6532
6534 IFA$="1"THEN6560
6536 IFA$="2"THEN6550
6538 IFA$="3"THEN6540
6539 GOTO6532
6540 IFJH=JTHENJH=0:MM=11:T=12:GOSUB115:GOTO3004
6542 IFJC=JTHENJC=0:MM=11:T=12:GOSUB115:GOTO3004
6544 PRINT""TAB(5)"YOU DON'T HAVE ONE"
6546 FORDD=1TO1000:NEXT
6548 GOTO6505
6549 GOSUB4600
6550 FORDD=1TO400:NEXT
6552 PM(J)=PM(J)-50:FP=FP+50
6554 MM=11:T=12:GOSUB115:GOTO3004
6560 GOSUB3500
6562 IFD1=D2THENMM=11:T=12:DB=1:GOSUB6580:GOSUB115:GOTO3004
6564 JL(J)=JL(J)+1
6566 IFJL(J)>3THENPRINT""TAB(5)"YOU HAVE TO PAY $50":GOTO6549
6567 PRINT"YOU DIDN'T ROLL DOUBLE":GOSUB4600
6568 T=42:GOSUB115
6570 GOTO3090
6580 PRINTLEFT$(DL$,11)TAB(5)"YOU ROLL DOUBLE !!"
6582 GOSUB4600
6584 RETURN
6600 GOSUB9800:GOSUB7230
6602 FORG=1TOXX
6604 PRINT"[147]"
6605 T=X(G)+1
6606 GOSUB7015:GOSUB7022
6607 IFPP(X(G),8)<>0THENPRINTTAB(7)"PLAYER"PP(X(G),8):GOTO6610
6608 PRINTTAB(8)"NOT OWN":GOTO6616
6610 PRINT""PP(X(G),9)" HOUSE(S)"
6612 IFPP(X(G),10)<>0THENPRINTTAB(2)"PROPERTY UNDER MORTGAGE"
6614 IFPP(X(G),11)<>0THENPRINTPP(X(G),11)" HOUSE(S) UNDER MORTGAGE"
6616 GOSUB4600
6618 NEXT
6620 GOTO6802
6650 PRINT"[147]"
6651 FORG=1TO2
6652 PRINT"PLAYER "G
6653 PM(3)=0:PM(4)=0:RM=0
6654 PRINT"CASH.................."PM(G)
6655 GOSUB6666
6656 PRINT"PROPERTY.............."PM(3)
6657 PRINT"HOUSE(S)/HOTEL(S)....."PM(4)
6658 PM(G)=PM(G)+PM(3)+PM(4)
6659 PRINT"TOTAL ASSET..........."PM(G):PRINT""
6660 NEXT
6661 IFPM(1)>PM(2)THENPRINTTAB(6)"WINNER IS PLAYER 1"
6662 IFPM(1)<PM(2)THENPRINTTAB(6)"WINNER IS PLAYER 2"
6663 IFPM(1)=PM(2)THENPRINTTAB(6)"ITS A TIE"
6665 END
6666 FORU=1TO40
6667 IFPP(U,8)=GTHENGOSUB6670
6668 NEXT
6669 RETURN
6670 IFPP(U,11)=0ANDPP(U,10)=0THENPM(3)=PM(3)+(PP(U,7)*2):RM=1
6672 IFRM=1THENT=U+1:GOSUB7015:PM(4)=PM(4)+PP(U,9)*VL:RM=0
6674 RETURN
6800 GOSUB4600
6802 T=MM+1:GOSUB115
6804 GOSUB4000:GOTO5000
6820 PRINT"[147]OPTION FOR LIFTING MORTGAGE?"
6822 PRINT" A[146] - PROPERTY
6824 [153]" BWAIT - RAILROAD
6826 PRINT" C[146] - UTILITY
6828 [153]" DWAIT - HOUSE(S)
6829 PRINT" X[146] - BACK TO GAME[160]
6830 [161]A$:[139]A$[178]"X"[167]6800
6831 [139]A$[178]"A"[167]6870
6832 [139]A$[178]"B"[167]6850
6833 [139]A$[178]"C"[167]6836
6834 [139]A$[178]"D"[167]8900
6835 [137]6830
6836 [139]PP(13,10)[178]0[176]PP(29,10)[178]0[167][153]"UTILITIES ARE NOT UNDER MORTGAGE!"
6837 [139]PP(13,8)[179][177]J[175]PP(29,8)[179][177]J[167][153]"YOU DO NOT OWN ANY UTILITIES!"
6838 [153]"LOADWHICH UTILITY?"
6839 [153]" AWAIT - "NA$(13):[153]" BWAIT - "NA$(29):[153]" XWAIT - BACK TO GAME"
6840 [161]A$:[139]A$[178]"X"[167]6800
6841 [139]A$[178]"A"[167]TY[178]13:[137]6844
6842 [139]A$[178]"B"[167]TY[178]29:[137]6844
6843 [137]6840
6844 [139]PP(TY,8)[179][177]J[167][153]"YOU DO NOT OWN THIS UTILITY!":[137]6840
6845 [139]PP(TY,10)[178]0[167][153]"THIS UTILITY IS NOT UNDER MORTGAGE!":[137]6840
6846 [153]"MORTGAGE LIFTED FOR $83"
6847 PM(J)[178]PM(J)[171]83:PP(TY,10)[178]0
6849 [137]6800
6850 [139]PP(6,10)[178]0[175]PP(16,10)[178]0[175]PP(26,10)[178]0[175]PP(36,10)[178]0[167]8800
6851 [139]PP(6,8)[179][177]J[175]PP(16,8)[179][177]J[175]PP(26,8)[179][177]J[175]PP(36,8)[179][177]J[167]8802
6853 [153]"LOADWHICH ONE?":[153]" AWAIT - "NA$(6):[153]" BWAIT - "NA$(16)
6854 [153]" CWAIT - "NA$(26):[153]" DWAIT - "NA$(36):[153]" XWAIT - BACK TO GAME"
6855 [161]A$:[139]A$[178]"X"[167]6800
6856 [139]A$[178]"A"[167]TY[178]6:[137]6861
6857 [139]A$[178]"B"[167]TY[178]16:[137]6861
6858 [139]A$[178]"C"[167]TY[178]26:[137]6861
6859 [139]A$[178]"D"[167]TY[178]36:[137]6861
6860 [137]6855
6861 [139]PP(TY,8)[179][177]J[167][153]"YOU DO NOT OWN IT!":[137]6855
6862 [139]PP(TY,10)[177]0[167][153]"IT IS NOT UNDER MORTGAGE":[137]6855
6863 [153]"MORTGAGE PRICE IS $110"
6867 PM(J)[178]PM(J)[171]110:PP(TY,10)[178]0:[137]6800
6870 [141]9800:[141]7230:SW[178]0:SX[178]0:AM[178]0
6872 [139]PP(X(1),10)[178]0[175]PP(X(2),10)[178]0[167]SW[178]1
6873 [139]XX[178]3[167]6876
6874 [139]SW[178]1[167][153]"NONE OF THE PROPERTY ARE UNDER MORTGAGE":[137]6800
6875 [137]6877
6876 [139]PP(X(3),10)[178]0[167]SX[178]1
6877 [139]SW[178]1[175]SX[178]1[167][153]"NONE OF THE PROPERTY ARE UNDER MORTGAGE!":[137]6800
6879 [153]"LOADWHICH IS TO BE LIFTED?"
6881 [153]" AWAIT - "NA$(X(1)):[153]" BWAIT - "NA$(X(2))
6883 [153]" CWAIT - "NA$(X(3)):[153]" XWAIT - BACK TO GAME"
6884 [161]A$:[139]A$[178]"X"[167]6800
6885 [139]A$[178]"A"[167]TY[178]X(1):[137]6890
6886 [139]A$[178]"B"[167]TY[178]X(2):[137]6890
6887 [139]A$[178]"C"[167]TY[178]X(3):[137]6889
6888 [137]6884
6889 [139]XX[178]2[167]6884
6890 [139]PP(TY,8)[179][177]J[167][153]"YOU DO NOT OWN IT!":[137]6884
6891 [139]PP(TY,10)[178]0[167][153]"NOT UNDER MORTGAGE!":[137]6884
6892 AM[178]PP(TY,7)[172]1.1:AM[178][181](AM[170].5)
6894 [153]"MORTGAGE LIFTED FOR $"AM
6895 PM(J)[178]PM(J)[171]AM:PP(TY,10)[178]0
6896 [137]6800
6900 [153]"WHICH HOUSE IS TO BE MORTGAGE?"
6902 [161]A$:[139]A$[178]"X"[167]6800
6904 [139]A$[178]"A"[167]TY[178]X(1):[137]6915
6906 [139]A$[178]"B"[167]TY[178]X(2):[137]6915
6908 [139]A$[178]"C"[167]TY[178]X(3):[137]6912
6910 [137]6902
6912 [139]XX[178]2[167]6902
6915 [139]PP(TY,9)[178]0[167][153]"THERE ARE NO HOUSES ON THIS PROPERTY!":[137]6902
6916 [139]PP(TY,9)[179]PP(X(1),9)[176]PP(TY,9)[179]PP(X(2),9)[176]PP(TY,9)[179]PP(X(3),9)[167]6918
6917 [137]6920
6918 [153]"UNEVEN DISTRIBUTION OF HOUSES":[137]6902
6920 PP(TY,9)[178]PP(TY,9)[171]1
6922 PP(TY,11)[178]PP(TY,11)[170]1
6924 [141]7015
6926 AM[178]0
6928 AM[178]VL[173]2:PM(J)[178]PM(J)[170]AM
6930 [153]"MORTGAGE FOR $"AM
6932 [137]6472
6940 [161]A$:[139]A$[178]"X"[167]6800
6942 [139]A$[178]"A"[167]TY[178]13:[137]6950
6944 [139]A$[178]"B"[167]TY[178]29:[137]6950
6946 [137]6940
6950 [139]PP(TY,8)[179][177]J[167][153]"YOU DO NOT OWN THIS!":[137]6940
6952 [139]PP(TY,10)[177]0[167][153]"THIS PROPERTY IS ALREADY MORTGAGED!":[137]6940
6954 PP(TY,10)[178]J
6966 PM(J)[178]PM(J)[170]75
6968 [153]"MORTGAGE FOR $ 75"
6970 [137]6800
7000 [139]T[178]2[176]T[178]12[167]3089
7002 [139]T[178]9[176]T[178]24[176]T[178]38[167]7500
7004 [139]T[178]4[176]T[178]19[176]T[178]35[167]7600
7006 [139]T[178]6[167]7700
7008 [139]T[178]40[167]7800
7010 [139]T[178]22[167]7900
7012 [139]T[178]14[176]T[178]30[167]7300
7013 [139]T[178]7[176]T[178]17[176]T[178]27[176]T[178]37[167]7400
7014 [141]7015:[141]7022:[137]7050
7015 [139]T[171]1[179]11[167]VL[178]50
7016 [139]T[171]1[177]11[167]VL[178]100
7017 [139]T[171]1[177]21[167]VL[178]150
7018 [139]T[171]1[177]31[167]VL[178]200
7019 [142]
7022 [153]"LOAD"[163]7)"TITLE DEED"
7023 [153][163]7)"COST $"PP(T[171]1,7)[172]2
7024 [153]" "NA$(T[171]1)
7026 [153][163]8)"RENT $"PP(T[171]1,1)
7028 [153]" WITH 1 HOUSE $"PP(T[171]1,2)
7030 [153]" WITH 2 HOUSES "PP(T[171]1,3)
7032 [153]" WITH 3 HOUSES "PP(T[171]1,4)
7034 [153]" WITH 4 HOUSES "PP(T[171]1,5)
7036 [153]" WITH HOTEL $"PP(T[171]1,6)
7038 [153]" MORTGAGE VALUE $"PP(T[171]1,7)
7040 [153]" HOUSES COST $"VL" EACH"
7042 [153]" HOTEL, $"VL" +4 HOUSES"
7044 [142]
7050 [139]PP(T[171]1,8)[179][177]0[167]7200
7052 [137]7100
7096 [141]4600
7098 [141]115
7099 [137]3089
7100 [153]"YOU HAVE $"PM(J)
7102 [153]"DO YOU WANT TO BUY IT? (Y OR N)
7104 POKE198,0
7106 GETA$:IFA$=""THEN7106
7108 IFA$="Y"THEN7120
7110 IFA$="N"THEN7115
7112 GOTO7106
7115 PRINTTAB(8)"STILL FOR SALE
7117 [137]7096
7120 [153][163]8)"YOU BOUGHT IT!
7125 PP(T-1,8)=J:PM(J)=PM(J)-PP(T-1,7)*2
7130 GOTO7096
7200 PRINTTAB(4)"PLAYER"PP(T-1,8)"PROPERTY"
7201 PRINTTAB(6)PP(T-1,9)"HOUSE(S)"
7202 IFPP(T-1,8)=JTHEN7096
7204 IFPP(T-1,9)=0THENGOSUB7230:GOTO7208
7206 AM=PP(T-1,PP(T-1,9)+1)
7208 IFJ=2THENPM(2)=PM(2)-AM:PM(1)=PM(1)+AM
7210 IFJ=1THENPM(1)=PM(1)-AM:PM(2)=PM(2)+AM
7214 PRINTTAB(8)"PAY $"AM
7220 GOTO7096
7230 XX=3:TC=0
7231 IFT=3ORT=5THENXX=2:X(1)=2:X(2)=4:GOTO7250
7232 IFT=8ORT=10ORT=11THENX(1)=7:X(2)=9:X(3)=10:GOTO7250
7234 IFT=13ORT=15ORT=16THENX(1)=12:X(2)=14:X(3)=15:GOTO7250
7236 IFT=18ORT=20ORT=21THENX(1)=17:X(2)=19:X(3)=20:GOTO7250
7238 IFT=23ORT=25ORT=26THENX(1)=22:X(2)=24:X(3)=25:GOTO7250
7240 IFT=28ORT=29ORT=31THENX(1)=27:X(2)=28:X(3)=30:GOTO7250
7242 IFT=33ORT=34ORT=36THENX(1)=32:X(2)=33:X(3)=35:GOTO7250
7244 IFT=39ORT=41THENXX=2:X(1)=38:X(2)=40
7250 FORG=1TOXX
7260 IFPP(X(G),8)=PP(T-1,8)THENTC=TC+1
7270 NEXT
7280 IFTC=XXTHENAM=PP(T-1,1)*2:RETURN
7290 AM=PP(T-1,1):RETURN
7300 PRINT"[147]"
7305 IFT=30THENQA$="WATER WORKS"
7307 IFT=14THENQA$="ELECTRIC CO."
7309 PRINTTAB(10)QA$
7310 PRINTTAB(11)"COST $150"
7311 PRINT" IF ONE 'UTILITY' IS OWNED
7313 [153]"RENT IS 4 TIMES AMOUNT SHOWN
7315 PRINT"ON DICE.
7317 [153]" IF BOTH 'UTILITIES' ARE
7319 PRINT"OWNED RENT IS 10 TIMES
7321 [153]"AMOUNT SHOWN ON DICE.
7323 PRINT"MORTGAGE VALUE [160]$75
7325 [139]PP(T[171]1,8)[179][177]0[167]7360
7327 FL[178]0:[137]7100
7360 [153]"PLAYER"PP(T[171]1,8)"PROPERTY"
7362 [139]PP(T[171]1,8)[178]J[167]FL[178]0:[137]7096
7364 [139]PP(29,8)[178]PP(13,8)[167]AM[178]10[172]RD:[137]7368
7366 AM[178]4[172]RD
7367 [139]FL[178]1[167]AM[178]10[172]RD
7368 [139]J[178]1[167]PM(1)[178]PM(1)[171]AM:PM(2)[178]PM(2)[170]AM
7370 [139]J[178]2[167]PM(2)[178]PM(2)[171]AM:PM(1)[178]PM(1)[170]AM
7372 [153][163]8)"PAY $"AM
7374 FL[178]0:[137]7096
7400 [153]"LOAD"NA$(T[171]1)
7402 [153]"COST $200"
7405 [153]"RENT $25
7408 PRINT"IF 2 RR'S ARE OWNED 50
7411 [153]"IF 3CLOSE'' '' '' 100
7413 PRINT"IF 4 '' '' '' 200
7416 [153]"MORTGAGE VALUE $100
7418 IFPP(T-1,8)<>0THEN7450
7420 GOTO7100
7450 PRINT"PLAYER"PP(T-1,8)"PROPERTY"
7455 IFPP(T-1,8)=JTHENFL=0:GOTO7096
7458 RR=-1
7460 IFPP(T-1,8)=PP(6,8)THENRR=RR+1
7462 IFPP(T-1,8)=PP(16,8)THENRR=RR+1
7464 IFPP(T-1,8)=PP(26,8)THENRR=RR+1
7466 IFPP(T-1,8)=PP(36,8)THENRR=RR+1
7468 AM=25*2^RR
7469 IFFL=1THENAM=AM*2
7470 IFJ=1THENPM(1)=PM(1)-AM:PM(2)=PM(2)+AM
7472 IFJ=2THENPM(2)=PM(2)-AM:PM(1)=PM(1)+AM
7474 PRINTTAB(8)"PAY $"AM
7480 FL=0:GOTO7096
7500 CH=CH+1
7502 IFCH=10THENGOSUB7550
7504 IFCH>16THENCH=1
7506 PRINT"[147]"TAB(7)"CHANCE"
7508 PRINTCH$(CH)
7510 GOSUB4600
7512 ONCHGOTO9000,9050,9100,9150,9200,9250,9300,9350
7514 ONCH-8GOTO9400,9450,9500,9550,9600,9650,9700,9750
7516 GOSUB115
7520 GOTO3089
7550 IFJH<>0THENCH=CH+1
7560 RETURN
7600 CC=CC+1
7602 IFCC=8THENGOSUB7650
7604 IFCC>16THENCC=1
7606 PRINT"[147]"TAB(3)"COMMUNITY CHEST"
7608 PRINTCC$(CC)
7610 GOSUB4600
7612 ONCCGOTO8000,8050,8100,8150,8200,8250,8300,8350
7614 ONCC-8GOTO8400,8450,8500,8550,8600,8650,8700,8750
7616 GOSUB115
7620 GOTO3089
7650 IFJC<>0THENCC=CC+1
7660 RETURN
7700 PRINT"[147]"
7705 PRINTTAB(9)"[159] PAY
7710 [153][163]9)"INCOME TAX
7715 PRINTTAB(9)" $200[160]
7720 [141]4600
7730 PM(J)[178]PM(J)[171]200:FP[178]FP[170]200
7740 [141]115
7750 [137]3089
7800 [153]"LOAD"
7805 [153][163]9)"OPEN PAY
7810 PRINTTAB(9)"LUXURY TAX
7815 [153][163]9)" $ 75CLOSE
7820 GOSUB4600
7830 PM(J)=PM(J)-75:FP=FP+75
7840 GOSUB115
7850 GOTO3089
7900 PRINT"[147]"
7910 PRINTTAB(9)"FREE PARKING"
7920 PRINTTAB(9)"COLLECT $"FP
7930 PM(J)=PM(J)+FP:FP=0:GOSUB4600
7940 GOSUB115:GOTO3089
8000 PM(J)=PM(J)+100:GOTO7616
8050 PM(J)=PM(J)-100:GOTO7616
8100 PM(J)=PM(J)+100:GOTO7616
8150 PM(J)=PM(J)+200:GOTO7616
8200 PM(J)=PM(J)+25:GOTO7616
8250 PM(J)=PM(J)+20:GOTO7616
8300 T=2:GOSUB3300:GOSUB3600:GOTO7616
8350 JC=J:GOTO7616
8400 PM(J)=PM(J)-150:FP=FP+150:GOTO7616
8450 HO=0:HT=0
8452 FORG=1TO40
8454 IFPP(G,8)=JTHENGOSUB8460
8456 NEXT
8458 GOTO8470
8460 IFPP(G,9)=0THENRETURN
8462 IFPP(G,9)>4THENHT=HT+1:RETURN
8464 HO=HO+PP(G,9):RETURN
8470 H1=HT*100:H2=HO*25:H3=H1+H2
8472 PRINT"[147]REPAIR BILL"
8474 PRINTTAB(5)HT" HOTELS FOR"H1
8476 PRINTTAB(5)HO" HOUSES FOR"H2
8478 PRINTTAB(7)"TOTAL BILL"H3
8480 FP=FP+H3
8482 GOSUB4600
8490 GOTO7616
8500 FORG=1TO2:PM(J)=PM(J)+50:PM(G)=PM(G)-50:NEXT
8505 GOTO7616
8550 PM(J)=PM(J)-50:GOTO7616
8600 PM(J)=PM(J)+45:GOTO7616
8650 PM(J)=PM(J)+100:GOTO7616
8700 PM(J)=PM(J)+10:GOTO7616
8750 GOTO4500
8800 PRINT"NONE OF THE RAILROAD ARE UNDER MORTGAGE":GOTO6800
8802 PRINT"YOU DO NOT OWN ANY RAILROAD!":GOTO6800
8900 GOSUB9800:GOSUB7230
8901 VQ=0:VR=0
8902 FORG=1TOXX
8904 VQ=PP(X(G),11)+VQ
8906 NEXT
8908 IFVQ=0THENPRINT"NO HOUSE(S) UNDER MORTGAGE":GOTO6800
8910 FORG=1TOXX
8912 IFPP(X(G),8)=JTHENVR=VR+1
8914 NEXT
8916 IFVR<>XXTHENPRINT"YOU DO NOT OWN ALL THE PROPERTY!":GOTO6800
8918 PRINT"[147]WHICH HOUSE?"TAB(25)"HOUSE(S)/M"
8920 FORG=1TOXX
8922 PRINT" "CHR$(64+G)"[146] - "NA$(X(G))TAB(28)PP(X(G),11)
8924 NEXT
8925 PRINT" X[146] - BACK TO GAME"
8926 GETA$:IFA$="X"THEN6800
8928 IFA$="A"THENTY=X(1):GOTO8938
8930 IFA$="B"THENTY=X(2):GOTO8938
8932 IFA$="C"THENTY=X(3):GOTO8936
8934 GOTO8926
8936 IFX=2THEN8926
8938 IFPP(TY,11)<1THENPRINT"NO HOUSE UNDER MORTGAGE ON THIS PROPERTY!":GOTO8950
8939 IFPP(TY,9)>PP(X(1),9)ORPP(TY,9)>PP(X(2),9)ORPP(TY,9)>PP(X(3),9)THEN8952
8940 PP(TY,11)=PP(TY,11)-1
8942 PP(TY,9)=PP(TY,9)+1
8944 GOSUB7015:AM=0
8946 AM=VL*1.1:AM=INT(AM+.5)
8948 PM(J)=PM(J)-AM
8950 GOSUB4600:GOTO8918
8952 PRINT"NOT EVEN DISTRIBUTION OF HOUSES"
8954 FORG=1TOXX
8956 PRINTNA$(X(G))TAB(27)PP(X(G),9)
8958 NEXT
8960 GOTO8950
9000 IFT=9THENT=17
9002 IFT=24THENT=27
9004 IFT=38THENT=7:GOSUB3600
9006 GOSUB3300
9008 FL=1:GOTO7000
9050 PM(J)=PM(J)+50:GOTO7516
9100 IFT=24ORT=38THENGOSUB3600
9110 T=13:GOSUB3300:GOTO7000
9150 PM(J)=PM(J)-15:FP=FP+15:GOTO7516
9200 FORG=1TO2:PM(J)=PM(J)-50:PM(G)=PM(G)+50:NEXT
9210 GOTO7516
9250 HO=0:HT=0
9252 FORG=1TO40
9254 IFPP(G,8)=JTHENGOSUB9260
9256 NEXT
9258 GOTO9270
9260 IFPP(G,9)=0THENRETURN
9262 IFPP(G,9)>4THENHT=HT+1:RETURN
9264 HO=HO+PP(G,9):RETURN
9270 H1=HT*100:H2=HO*25:H3=H1+H2
9272 PRINT"[147]REPAIR BILL"
9274 PRINTTAB(5)HT" HOTELS FOR"H1
9276 PRINTTAB(5)HO" HOUSES FOR"H2
9278 PRINTTAB(7)"TOTAL BILL"H3
9280 FP=FP+H3
9282 GOSUB4600
9290 GOTO7516
9300 IFT=9THENT=17
9302 IFT=24THENT=27
9304 IFT=38THENT=7:GOSUB3600
9306 GOSUB3300
9308 FL=1:GOTO7000
9350 T=41:GOSUB3300:GOTO7000
9400 T=7:GOSUB3300:GOSUB3600:GOTO7000
9450 JH=J:GOTO7516
9500 T=2:GOSUB3300:GOSUB3600:GOTO7516
9550 GOTO4500
9600 IFT=38THENGOSUB3600
9602 T=26:GOSUB3300:GOTO7000
9650 GOSUB115:AA=-1:RD=-1:MM=T-1:GOTO3010
9700 IFT=9THENT=14
9702 IFT=24THENT=30
9704 IFT=38THENT=14:GOSUB3600
9706 GOSUB3300
9708 FL=1:GOTO7000
9750 PM(J)=PM(J)+150:GOTO7516
9800 PRINT"[147]"
9801 PRINT"WHICH COLOR GROUP?"
9802 PRINT" [152]A [160] GRAY
9804 [153]" OPENB CLOSE CLOSELT. BLUE
9806 PRINT" [156]C [160] [160]PURPLE
9808 [153]" FORD CLOSE CLOSEORANGE
9810 PRINT" E [160] [160]RED
9812 [153]" SYSF CLOSE CLOSEYELLOW
9814 PRINT" G [160]GREEN
9816 [153]" CONTH CLOSEDK. BLUE
9818 POKE198,0
9820 GETA$:IFA$=""THEN9820
9822 IFA$="A"THENT=3
9824 IFA$="B"THENT=8
9826 IFA$="C"THENT=13
9828 IFA$="D"THENT=18
9830 IFA$="E"THENT=23
9832 IFA$="F"THENT=28
9834 IFA$="G"THENT=33
9836 IFA$="H"THENT=39
9838 KK=ASC(A$):IFKK>64ANDKK<73THENRETURN
9840 GOTO9820
9900 IFPM(J)<0THEN9920
9902 IFCK=1THEN3005
9904 IFCK=2THEN3090
9906 IFCK=3THEN3007
9920 PRINT"[147]"TAB(6)"[144]YOU ARE BROKE"
9922 PRINT" IF YOU CAN'T RAISE $"ABS(PM(J))
9924 PRINTTAB(6)"THEN PRESS G [146] END GAME"
9926 GOSUB4600
9928 GOSUB6000
9930 GOTO9900