MDATA.BAS

10 DIM J(4),J$(40),AB$(40),C(40),FC(40),BC(40),O(40),K(40),G(10,4),GN(40),HC(40),R(6,40),L$(4),L(4),CP(4),X(4),Y(4),B(4,11),U(40),PP(4,28),P(4),M(40),C1(16),C2(16),BN(40),PM(40),X1(4),W(4),BH(4),V(4),H(4),PC(4),N$(40),FJ(4),I(4),CH$(32),RTP(4),PD(39)
20 DIM CM(40),CU(40),CI(40),CW(40),CO(40),KR(240),C3(11),TP(4),BV(4),PPN(40),CC3(4),CCR(4),GN$(21),KY$(11),DUE(10),HB(10)
30 DATA GO,MEDITERRANEAN AVENUE,COMMUNITY CHEST,BALTIC AVENUE,INCOME TAX,READING RAILROAD,ORIENTAL AVENUE,CHANCE,VERMONT AVENUE,CONNECTICUT AVENUE,JAIL,ST.CHARLES PLACE,ELECTRIC COMPANY,STATES AVENUE,VIRGINIA AVENUE,PENNSYLVANIA RAILROAD,ST.JAMES PLACE
40 DATA COMMUNITY CHEST,TENNESSEE AVENUE,NEW YORK AVENUE,FREE PARKING,KENTUCKY AVENUE,CHANCE,INDIANA AVENUE,ILLINOIS AVENUE,B.&O. RAILROAD,ATLANTIC AVENUE,VENTNOR AVENUE,WATER WORKS,MARVIN GARDENS,GO TO JAIL,PACIFIC AVENUE,NORTH CAROLINA AVENUE
50 DATA COMMUNITY CHEST,PENNSYLVANIA AVENUE,SHORT LINE,CHANCE,PARK PLACE,LUXURY TAX,BOARDWALK,GO
60 DATA GO,MED,$,BAL,IRS,REA,ORI,?,VER,CON,JAIL,STC,ELE,STA,VIR,PEN,STJ,$,TEN,N.Y,FREE,KEN,?,IND,ILL,B&O,ATL,VEN,HýO,MAR,GO2,PAC,NOR,$,PEN,SHO,?,PAR,IRS,BDW,GO
70 DATA 0,3,1,3,1,2,3,1,3,3,0,3,2,3,3,2,3,1,3,3,0
80 DATA 4,4,11,4,8,7,9,5,9,9,6,12,14,12,12,7,6,11,6,6,4,4,11,4,4,7,14,14,7,14,11,2,2,11,2,7,4,9,14,9,4
90 DATA 0,1,0,1,0,0,2,0,2,2,0,1,0,1,1,0,4,0,4,4,0,0,0,0,0,0,6,6,0,6,0,0,0,0,0,0,0,0,0,0,0
100 DATA 0,2,0,4,0,25,6,0,6,8,0,10,0,10,12,25,14,0,14,16,0,18,0,18,20,25,22,22,0,24,0,26,26,0,28,25,0,35,0,50,0
110 DATA 0,10,0,20,0,50,30,0,30,40,0,50,0,50,60,50,70,0,70,80,0,90,0,90,100,50,110,110,0,120,0,130,130,0,150,50,0,175,0,200,0
120 DATA 0,30,0,60,0,100,90,0,90,100,0,150,0,150,180,100,200,0,200,220,0,250,0,250,300,100,330,330,0,360,0,390,390,0,450,100,0,500,0,600,0
130 DATA 0,90,0,180,0,200,270,0,260,300,0,450,0,450,500,200,550,0,550,600,0,700,0,700,750,200,800,800,0,850,0,900,900,0,1000,200,0,1100,0,1400,0
140 DATA 0,160,0,320,0,0,400,0,400,450,0,625,0,625,700,0,750,0,750,800,0,875,0,875,925,0,975,975,0,1025,0,1100,1100,0,1200,0,0,1300,0,1700,0
150 DATA 0,250,0,450,0,0,550,0,550,600,0,750,0,750,900,0,950,0,950,1000,0,1050,0,1050,1100,0,1150,1150,0,1200,0,1275,1275,0,1400,0,0,1500,0,2000,0
160 DATA 1,3,0,0,6,8,9,0,11,13,14,0,16,18,19,0,21,23,24,0,26,27,29,0,31,32,34,0,37,39,0,0,5,15,25,35,12,28,0,0
170 DATA 0,1,0,1,0,9,2,0,2,2,0,3,10,3,3,9,4,0,4,4,0,5,0,5,5,9,6,6,10,6,0,7,7,0,7,9,0,8,0,8,0
180 FOR P=0 TO 40:READ N$(P):NEXT P:FOR P=0 TO 40:READ AB$(P):NEXT P:FOR P=0 TO 20:READ K(P):K(40-P)=K(P):NEXT P:K(22)=1:K(23)=3:FOR P=0 TO 40:READ FC(P):NEXT P:FOR P=0 TO 40:READ BC(P):NEXT P:FOR RR=0 TO 5:FOR P=0 TO 40:READ R(RR,P):NEXT P,RR
190 FOR G=1 TO 10:FOR P=1 TO 4:READ G(G,P):NEXT P,G:FOR P=0 TO 40:READ GN(P):NEXT P:FOR B=1 TO 4:FOR P=0 TO 10:B(B,P)=10*(B-1)+P:NEXT P,B:FOR P=0 TO 39:BN(P)=FIX(P/10)+1:NEXT P
200 A=0:FOR KR=1 TO 6:KR(A)=KR:A=A+1:NEXT KR:KR(A)=8:A=A+1:FOR KR=14 TO 27:KR(A)=KR:A=A+1:NEXT KR:FOR KR=33 TO 178:KR(A)=KR:A=A+1:NEXT KR:FOR KR=180 TO 221:KR(A)=KR:A=A+1:NEXT KR:FOR KR=224 TO 254:KR(A)=KR:A=A+1:NEXT KR
210 FOR P=1 TO 34:C(P)=-(K(P)>2)*20+40*GN(P)-20*(P=G(GN(P),3)):NEXT P:C(37)=350:C(39)=400:FOR P=5 TO 35 STEP 10:C(P)=200:NEXT P:C(12)=150:C(28)=150
220 OPEN "O",#1,"M.DF":FOR P=0 TO 40:WRITE #1,N$(P),AB$(P),FC(P),BC(P),GN(P),K(P),BN(P),C(P):NEXT P
230 FOR RR=O TO 5:FOR P=0 TO 40:WRITE #1,R(RR,P):NEXT P,RR:FOR G=0 TO 10:FOR P=1 TO 4:WRITE #1,G(G,P),B(P,G):NEXT P,G:FOR A=0 TO 239:WRITE #1,KR(A):NEXT A:CLOSE #1