BCG101/dec/MNPOLY.BAS

1 ! THE FOLLOWING PROGRAM IS DESIGNED TO BUILD THE DISK FILES
2 ! NEEDED TO PLAY MONOPOLY.  TWO FILES MUST BE BUILT, THE FIRST
3 ! CONTAINING THE NAMES OF THE PROPERTY, THE SOLD AND UNSOLD
4 ! FLAGS, THE PRICES OF THE PROPERTY, AND THEIR RENTS.
5 ! THE SECOND FILE CONTAINS THE CHANCE AND THE COMMUNITY
6 ! CHEST MESSAGES AND THE INSTRUCTION MESSAGES FOR THE
7 ! PLAYERS.  THE DATA FOR THESE FILES WILL BE READ FROM THE
8 ! PROGRAM WHEN IT IS RUN. THESE FILES MUST BE BUILT BEFORE THE
9 ! GAME CAN BE PLAYED
20 OPEN "PRPRTY" AS FILE 1: DIM #1,G$(40%)=25,L%(40),P(40%),R(40%)
30 OPEN "MESAJ" AS FILE 3: DIM #3,C$(10)=50%,Z$(10)=50%,M$(20)=50%
40 FOR I=1 TO 40
42 READ G$(I),L%(I),P(I),R(I)
44 NEXT I
50 FOR I=1 TO 20
52 READ M$(I)
54 NEXT I
60 FOR I=1 TO 10
62 READ C$(I)
64 NEXT I
70 FOR I=1 TO 10
72 READ Z$(I)
74 NEXT I
100 DATA "MEDITERRANEAN AVENUE",0,60,2
102 DATA "COMMUNITY CHEST",0,0,0
104 DATA "BALTIC AVENUE",0,60,4
106 DATA "INCOME TAX",0,0,0
108 DATA "READING RAILROAD",0,200,25
110 DATA "ORIENTAL AVENUE",0,100,6
112 DATA "CHANCE ?",0,0,0
114 DATA "VERMONT AVENUE",0,100,6
116 DATA "CONNECTICUT AVENUE",0,120,8
118 DATA "VISITING IN JAIL",0,0,0
120 DATA "ST.CHARLES PLACE",0,140,10
122 DATA "ELECTRIC COMPANY",0,150,35
124 DATA "STATES AVENUE",0,140,10
126 DATA "VIRGINIA AVENUE",0,160,12
128 DATA "PENNSYLVANIA RAILROAD"0,200,25
130 DATA "ST.JAMES PLACE",0,180,14
132 DATA "COMMUNITY CHEST",0,0,0
134 DATA "TENNESSEE AVENUE",0,180,14
136 DATA "NEW YORK AVENUE",0,200,16
138 DATA "FREE PARKING",0,0,0
140 DATA "KENTUCKY AVENUE",0,220,18
142 DATA "CHANCE ?",0,0,0
144 DATA "INDIANA AVENUE",0,220,18
146 DATA "ILLINOIS AVENUE",0,240,20
148 DATA "B.& O. RAILROAD",0,200,25
150 DATA "ATLANTIC AVENUE",0,260,22
152 DATA "VENTNOR AVENUE",0,260,22
154 DATA "WATER WORKS",0,150,35
156 DATA "MARVIN GARDENS",0,280,24
158 DATA "GO TO JAIL",0,0,0
160 DATA "PACIFIC AVENUE",0,300,26
162 DATA "NORTH CAROLINA AVENUE",0,300,26
164 DATA "COMMUNITY CHEST",0,0,0
166 DATA "PENNSYLVANIA AVENUE",0,320,28
168 DATA "SHORT LINE",0,200,25
170 DATA "CHANCE ?",0,0,0
172 DATA "PARK PLACE",0,350,35
174 DATA "LUXURY TAX",0,0,0
176 DATA "BOARDWALK",0,400,50
178 DATA "GO",0,0,0
200 DATA "*************THIS IS MATLIDA'S MONOPOLY FOR TWO*************"
202 DATA "EACH PLAYER HAS $1500"
204 DATA "WHEN YOU BUY HOUSES YOU HAVE TO PUT THE SAME"
206 DATA "NUMBER ON EACH MEMBER OF A COLOR GROUP"
208 DATA "WHEN YOU BUY HOUSES INPUT THE NUMBER YOU WANT PER LOT"
210 DATA "TO ROLL DICE TYPE ROLL"
212 DATA "IT IS FOR SALE FOR ONLY"
214 DATA "IF YOU WISH TO BUY IT TYPE BUY"
216 DATA "YOU ROLLED DOUBLES**ROLL AGAIN"
218 DATA "YOU ROLLED 3 SETS OF DOUBLES**GO TO JAIL"
220 DATA "IF YOU WANT TO QUIT TYPE QUIT"
222 DATA "YOU ALREADY OWN THIS PIECE OF PROPERTY"
224 DATA "IF THERE IS ANY PROPERTY YOU WISH TO SELL AND"
226 DATA "YOUR OPPONENT WANTS TO BUY TYPE SELL"
228 DATA "IF YOU NEED A LIST OF PROPERTY TYPE LIST"
230 DATA "YOU CAN'T SELL THIS**YOU DON'T OWN IT"
232 DATA "WHAT PROPERTY DO YOU WANT TO SELL"
234 DATA "IF THERE IS ANY MORE PROPERTY YOU WISH TO SELL TYPE YES"
236 DATA "IF YOU WANT TO IMPROVE YOUR PROPERTY TYPE HOUSE"
238 DATA "YOU DON'T HAVE ENOUGH MONEY FOR THAT MANY HOUSES"
250 DATA "PAY POOR TAX OF $15"
252 DATA "ADVANCE TOKEN TO ILLINOIS AVENUE"
254 DATA "GO BACK THREE SPACES"
256 DATA "ADVANCE TO GO"
258 DATA "BANK PAYS YOU DIVIDEND OF $50"
260 DATA "TAKE A RIDE ON THE READING"
262 DATA "GO TO JAIL"
264 DATA "BUILDING AND LOAN MATURES**COLLECT $150"
266 DATA "ADVANCE TO BOARDWALK"
268 DATA "ADVANCE TO ST.CHARLES PLACE"
280 DATA "XMAS FUND MATURES**COLLECT $100"
282 DATA "LIFE INSURANCE MATURES**COLLECT $100"
284 DATA "INCOME TAX REFUND**COLLECT $20"
286 DATA "DOCTOR'S FEE**PAY $50"
288 DATA "YOU INHERIT $100"
290 DATA "ADVANCE TO GO"
292 DATA "PAY HOSPITAL $100"
294 DATA "GO TO JAIL"
296 DATA "PAY SCHOOL TAX OF $50"
298 DATA "BANK ERROR IN YOUR FAVOR**COLLECT $200"
300 CLOSE 1,3:   END