Back to Main page.
Back to Main tapes page.
Back to Main page.
Back to Main tapes page.
1000 COM A[5,32],B[2,17],C[2],J[2],K[2,2],I,E,T,I$[255],Q1,F,W5,T$[4]
1010 COM P[2],D$[140],X5,U[2,2],A,M1,B,G1,N,F2,R[9],D1,D2,Q,G0,W,Y,P1
1020 COM A$[72],B$[72],C$[12]E$[12],M$[72],P$[10],H[6],R,R1,D9,U,G,P
1030 COM X,S$[11],H$[11],Y$[11],N$[10],R$[11],Z,K,L,R0,S5,C,G5,V,D3,J
1040 DIM E[9]
1050 REM ** JIM ANGUS ** MONOPOLY ** ALL RIGHTS RESERVED **
1056 REM ** MODIFIED BY BILL MCFADDEN **
1058 REM ** LAST ACCESS 11-3-77 **
1060 ENTER #K
1070 SYSTEM A$,"TIM"
1080 T$[1,4]=A$
1090 GOTO NOT LEN(C$)+1 OF 2340,6640
1100 FILES MPROPS.B951
1110 GOTOT*(H[I]#0) OF 1190,1150
1120 PRINT N$;" PAYS$75 LUXURY TAX."
1130 C[T]=C[T]-E
1140 GOTO 1260
1150 PRINT "$200 OR 10% :";
1160 LINPUT I$
1170 GOTO POS(" $2010",I$[I,I])/3 OF 1230,1190
1180 GOTO1150
1190 GOSUB 3610
1200 E=E1*.1
1210 IF T#I THEN 1230
1220 E=E MIN 200
1230 CONVERT E TO B
1240 PRINT N$" PAYS $"B$" INCOME TAX."
1250 C[T]=C[T]-E
1260 U=U+E*(E>0 AND (V#2 OR E#50))
1270 GOSUB 7530
1280 GOTO T OF 5740,2490
1290 IF P[T]=11 THEN 201
1300 J[T]=3
1310 P[T]=R=11
1320 GOTO T OF 5750,2490
1330 PRINT '13'10"THE THIRD DOUBLES IN A ROW SO"N$" GOES TO JAIL."
1340 GOTO 1300
1350 J[T]=J[T]-I
1360 GOTO (R1#R)*T*(2+(J[T]#0))-I OF 1400,170,1400,1400,1700
1370 PRINT "[DOULES] ";
1380 J[T]=R=0
1390 GOTO T+(T#I AND W=6) OF 2880,2880,2490
1400 IF T=I AND (K[I,T]+K[2,T]) THEN 1550
1410 PRINT "[PAYS $50] ";
1420 C[T]=C[T]-50
1430 U=U+50
1440 J[T]=0
1450 GOTO T+(T#I AND W=6)+3*(Q1 AND T=I) OF 2880,2880,2490,2780
1460 PRINT "OR WOULD YOU RATHER USE YOUR GET OUT OF JAIL CARD? ";
1470 LINPUT I$
1480 GOTO POS("YyNn",I$[I,I])/T OF 1510,1420
1490 PRINT "YES OR NO ?";
1500 GOTO 1470
1510 K[I+K[2,T],T]=J[T]=0
1520 B[I+K[2,T],16]=I
1530 GOTO T MAX 3* NOT Q1*(T=I) OF 2780,2490,2880
1540 IF NOT (K[I,T]+K[2,T]) THEN 1570
1550 PRINT N$" USES IT'S GET OUT OF JAIL CARD."
1560 GOTO 1510
1570 PRINT N$" PAYS $50 FINE TO GET OUT OF JAIL."
1580 GOTO 1420
1590 PRINT "YOUR THREE TURNS IN JAIL ARE UP. DO YOU WANT TO USE YOUR"'13'10"GET OUT OF JAIL FREE CARD INSTEAD OF PAYING THE $50 FINE? ";
1600 LINPUT I$
1610 GOTO POS("YyNn",I$[I,I])/T OF 1640,2810
1620 PRINT "YES OR NO? ";
1630 GOTO 1600
1640 K[I+K[2,T],T]=J[T]=0
1650 B[I+K[2,T],16]=I
1660 GOTO 2810
1670 GOTO (J[T]>0)*( NOT (K[I,T]+K[T,T])+I) OF 1460,1420
1690 GOTO 2490
1700 CONVERT J[T] TO B$
1710 PRINT B$" TUNS LEFT IN JAIL."
1720 GOTO 1320
1730 ADVANCE #I;520,Z
1740 GOTO 1760
1750 ADVANCE #I;591,Z
1760 PRINT LIN(-I);
1770 V=B-4
1780 Z=B[V,16]
1790 B[V,16+(Z#0)]=[V,I]*(B[V,I]#I)
1800 FOR X=I TO 16
1810 B[V,X]=B[V,X+I]
1820 NEXT X
1830 B[V,17- NOT Z]=0
1840 FOR Y=I TO16
1850 READ #I;$
1860 IF B[V,I]#Y THEN 1920
1870 PRINT B$
1880 IF TYP(I)#I THEN 1850
1890 READ #I;F,E,F2
1900 PRINT LIN(-I);
1910 GOTO F OF 2020,2060,2120,2180,2210
1920 IF TYP(I)#I THEN 1850
1930 READ #I;F,E,F2
1940 NEXT Y
1950 PRINT F;[V,I]
1970 C[T]=C[T]+U
1980 CONVERT INT(U) TO B$
1990 PRINT N$" GETS POT OF $"B$"."
2000 U=0
2010 GOTO T OF 5740,2490
2020 P[T]=I+(P[T]-I)*(SGN(F2)F2 AND F2>0 AND F2#11)
2070 P[T]=F2*(F2>0)+(P[T]+F2+40*(P[T]+F233)
2130 IF E#I THEN 2160
2140 P[T]=6*(P[T]=3 OR P[T]=37)+16*(P[T]=8)+26*(P[T]=18 OR P[T]=23)+36*(P[T]=34)
2150 GOTO 2100
2160 P[T]=13*(P[T]<12 OR P[T]>29)+29*(P[T]>16 AND P[T]<29)
2170 GOTO 2100
2180 K[V,T]=F2=I
2190 B[V,I]=0
2200 GOTO 1280
2210 V=Y=0
2220 FOR X=I TO 28
2230 IF A[4,X]#T THEN 2260
2240 V=V+A[2,X]*(A[2,X]#5)
2250 Y=Y+(A[2,X]=5)
2260 NEXT X
2270 E=V*E+Y*F2
2280 CONVERT E TO B$
2290 CONVERT V TO A$
2300 CONVERT Y TO M$
2310 PRINT "COST OF PROPERTY REPAIRS IS $"B$"."
2320 F2=I
2330 GOTO 1250
2340 GOTO (T+(T#I AND W=7))*(W OR D1) OF 7300,2490,3040
2350 C=T=2
2360 A=D1=E=P=0
2370 I$=""
2380 IF LEN(D$) THEN 2490
2390 CONVERT INT(C[T]) TO E$
2400 E$=E$[I,LEN(E$)-(POS(E$,".")#0)]
2410 PRINT '13"[$"E$"] "CHR$(42+P1*16);
2420 D$=UPS$(I$)
2430 LINPUT I$
2440 GOTO ( NOT (L+A) OR P1)+I OF 2460,5790
2450 ASSIGN "MPROPS.B951",I,Z
2460 I$=I$[I,LEN(I$) MIN 140]
2470 D$=UPS$(I$)
2480 IF NOT LEN(D$) AND A AND R#R1 AND C[T] >= 0 THEN 5400
2490 X=POS(D$,",")
2500 N$=C$
2510 M$=D$[I,X-I+(LEN(D$)+I)* NOT X MIN 72]
2520 D$=D$[X+I+LEN(D$)* NOT X]
2530 GOTO NOT LEN(M$)*T MAX NOT POS(M$[I,I]," ") OF 2570,2370
2540 IF LEN(M$)<3 THEN 2660
2550 M$=M$[T]
2560 GOTO 2530
2570 W=POS(" SELMORUNMROLBUYPAYRENANNPRUEXICHPCHNSTAHELBOALISTRASTOOLDSYSINIRULLPCCHCDELDPCSGDSGFHFLRFLSYFPRIPROLOCUNRMWASWACRECLELENCHA",M$[1,3])/3
2580 CONVERT INT(C[T]) TO E$
2590 S=(POS(M$,"?")>0 AND W#13)+(POS(M$,"$")>0)
2600 G=POS(M$,"/M")
2610 Z=(POS(M$,"/C")>0)+T*(POS(M$,"/I")>0)
2620 GOTO T*(W#INT(W)) MAX (C[T]<0 AND W>T AND W<7) OF 2750,2660
2630 GOSUB SGN(W) OF 7340
264 GOTO W OF 2680,4710,4710,277,2680,1670,3010,8071,7450,8090,4940,7070,7860
2650 GOTO (P1 AND W>21 OR WAND W<22 OR W>40) MAX T* NOT LEN(M$) OF 5760,2490
2660 PRINT "?"M$"?"
2670 GOTO 2490
2680 FOR X=I TO LEN(M$)
2690 IF POS("HOUHOTPRO",M$[X,X+T]) THEN 2710
2700 NEXT X
2710 W5=T*(POS(" PROHOUHOT",M$[X,X+T])/3)-(W=5)
2720 GOSUB W5>TOF 3780
2730 IF X=41 AND W5>T THEN 2660
2740 GOTO (W5=INT(W5))*W5+T OF 4500,2660,4500,2660,3240,4050,4300,4180
2750 PRINT "FIRST YOU MUST GET OUT OF DEBT."
2760 GOTO 2390
2770 GOTO (C[T]<0)*T MAX (A AND (R#R1 OR J[T]) OR NOT G0 AND RND(0)>.5) OF 5400,2490
2780 R=G0=INT(6*RND(0))+I
2790 R1=INT(6*RND(0))+I
2800 IF R#R1 AND J[T]=I AND T#I AND K[I,T]+K[2,T] THEN 1590
2810 IMAGE #," ROLLS [",D,"][",D,"] "
2820 PRINT N$;
2830 PRINT USING 2810;R,R1
2840 A=A+I
2850 R4=R1+R
2860 R[A+3]=R4*(T=I)+R[A+3]*(T#I)
2870 GOTO (A=3 AND R=R1)+2*(J[T]#0) OF 1330,1350
2880 P[T]=P[T]+R4
2890 GOTO 2*(P[T]=41) MAX (P[T] <= 40) OF 2930,2910
2900 PRINT "[PASSES GO] ";
2910 P[T]=P[T]-40
2920 C[T]=C[T]+200
2930 GOSUB 3730
2940 PRINT "AND LANDS ON "A$;CHR$(46*(A[4,N]>0 OR B>3))
2950 R[A]=P[I]*(T=I)+R[A]*(T#I)
2960 R[A+6]=(A[5,N] MAX F2*(B=3))* NOT A[3,N]*(T=I AND A[4,N]=2)*(F2*(B=2) MAX I)+R[A+6]*(T#I)
2970 READ #I,I
2980 GOTO B-3 OF 1110,1750,1730,1970,1290,1280
2990 F2=F2*(T#I) MAX I
3000 GOTO T+2*A[4,N] OF 7180,2490,5740,5230,5740,2490
3010 GOTO ( NOT P OR P=T)+1 OF 2490,3040
3040 FOR Z=I TO 3
3050 READ #I,I
3060 ADVANCE #I;(R[Z]+ NOT R[Z]-I)*13,Y
3070 READ #I;A$,B,E,Y,Y,Y,Y,Y,Y,H,G,M,N
3080 GOTO ((R[Z+6]#0) MAX T*A[3,N])*(A[4,N]=T) OF 3150,3120
3090 NEXT Z
3100 GOSUB 7530
3110 GOTO 2490
3120 PRINT A$" WAS MORTGAGED."
3130 P=T
3140 GOTO 3090
3150 E=D1=R[Z+6]*(R[Z+3]*(B=3) MAX I)
3160 CONVERT E TO B$
3170 IF C[I]= Y*H)+I OF 3510,3460,3500,3520
3460 PRINT "YOU CAN'T BUILD MORE THAN 4 HOUSES ON A PROPERTY."
3470 Z=M
3480 GOSUB 3900
3490 GOTO 2490
3500 PRINT M$" HOUSES FOR "A$" COSTS $"B$"."
3510 GOTO 2490
3520 IF S THEN 3570
3530 A[2,O]=A[2,O]+Y
3540 C[T]=C[T]-H*Y
3550 A[5,O]=H[A[2,O]+I]
3560 GOTO 2490
3570 PRINT "HOUSES FOR "A$" COST $"I$" EACH."
3580 GOTO (S>I)+I OF 2490,7730
3590 PRINT "ALL PROPERTIES IN THE SAME COLOR GROUP AS "A$'13'10"MUST BE UNMORTGAGED BEFORE ANY HOUSES ARE BUILT."
3600 GOTO 2490
3610 V=T
3620 E1=C[V]
3630 M1=0
3640 MAT E=ZER
3650 READ #I,I
3660 FOR M=I TO 40
3670 READ #I;A$,B,E,Y,Y,Y,Y,Y,Y,H,G1,Y,N
3680 IF A[4,N]#V THEN 3710
3690 E1=E1+E+A[2,N]*H-E*.5*A[3,N]
3700 M1=M1+E/2* NOT A[3,N]+H/2*A[2,N]
3710 NEXT M
3720 RETURN
3730 READ #I,I
3740 ADVANCE #I;(P[T]-I)*13,Z
3750 READ #I;A$,B,E,H[I],H[2],H[3],H[4],H[5],H[6],H,G1,M1,N
3760 CONVERT E TO B$
3770 RETURN
3780 READ #I,I
3790 FOR X=I TO 40
3800 READ #I;A$,B,E,H[I],H[2],H[3],H[4],H[5],H[6],H,G,M,O
3810 IF POS(M$,A$[I,5]) THEN 3840
3820 NEXT X
3830 RETURN
3840 GOTO (X=16 AND NOT POS(M$[6],"R"))*T MAX (A[4,O]=T OR W>T) OF 3870,3820
3850 PRINT "YOU DON'T OWN "A$"."
3860 RETURN
3870 CONVERT A[2,O] TO B$
3880 CONVERT H=((W=5) MAX .5) TO I$
3890 RETURN
3900 Z=M
3910 READ #I,I
3920 PRINT LIN(-I);
3930 FOR X=I TO 40
3940 READ #I;A$,B,E,Y,Y,Y,Y,Y,Y,H,G,M,O
3950 IF M#Z THEN 4020
3960 PRINT A$;" HAS ";
3970 IF A[2,O]=5 THEN 4010
3980 PRINT USING 3990;A[2,O]
3990 IMAGEDX,"HOUSES."
4000 GOTO 4020
4010 PRINT "A HOTEL."
4020 NEXT X
4030 PRINT LIN(-I);
4040 RETURN
4050 GOTO (X=41 OR A[4,O]#T)*T MAX (A[T,O]=5) OF 4140,2490
4060 IF A[2,O]-Y >= 0 THEN 4090
4070 PRINT A$" HAS ONLY "B$" HOUSES."
4080 GOTO 2490
4090 IF S THEN 4160
4100 C[T]=C[T]+H*Y/T
4110 A[2,O]=A[2,O]-Y
4120 A[5,O]=H[A[2,O]+I]+H[I]* NOT A[2,O]
4130 GOTO 2490
4140 PRINT A$" HAS A HOTEL."
4150 GOTO 2490
4160 PRINT "EACH HOUSE SOLD FROM "A$" BRINGS $"I$"."
4170 GOTO 3580
4180 GOTO (A[4,O]#T)*T MAX (A[T,O]=5) OF 4230,2490
4190 PRINT A$" DOESN'T HAVE A HOTEL."
4200 IF NOT A[T,O] THEN 2490
4210 PRINT " IT HAS "B$" HOUSES."
4220 GOTO 2490
4230 IF S THEN 4280
4240 C[T]=C[T]+H*2.5
4250 A[2,O]=0
4260 A[5,O]=H[I]*T
4270 GOTO 2490
4280 PRINT "SELLING A HOTEL FROM "A$" WOULD BRING $"I$"."
4290 GOTO 3580
4300 V=INT(O/3)*3 MAX I
4310 FOR Y=V TO V+M/G-I
4320 IF A[2,Y]<4 THEN 4470
4330 NEXT Y
4340 GOTO (B=I)+T*(C[T] >= H*(5-A[2,O])) OF 4370,2490,4400
4370 CONVERT C[T] TO E$
4380 PRINT "YOU HAVE $"E$". ";
4390 GOTO 4450
4400 IF S THEN 4450
4410 C[T]=C[T]-H
4420 A[2,O]=5
4430 A[5,O]=H[6]
4440 GOTO 2490
4450 PRINT "A HOTEL FOR "A$" COSTS $"I$"."
4460 GOTO 3580
4470 PRINT "YOU CANNOT BUILD HOTELS ON "A$" UNTIL YOU HAVE 4 HOUSES"
4480 PRINT "ON EACH LOT IN THE COLOR GROUP."
4490 GOTO 4820
4500 GOSUB 3730
4510 GOTO (B<4)*( NOT A[4,N]+T*(C[T]0 OF 4960
4660 GOTO B OF 5040,5150,5150
4670 PRINT A$" HAS ALREADY BEEN BOUGHT."
4680 GOTO 2490
4690 PRINT "TOO LATE. YOU COULD HAVE BOUGHT "A$" LAST TURN."
4700 GOTO 2490
4710 GOSUB 3780
4720 Y=INT(O/3)*3+(O<3)
4730 GOTO NOT G MAX T*(X=41 OR A[4,O]#T AND W=T) OF 4750,2660
4740 IF A[T,Y]+A[T,Y+I]+A[T,Y+T]*(M/G=3) AND W=T THEN 4800
4750 CONVERT E/T+E*.1 TO B$
4760 GOTO (W=3)+T*(A[T,O]=0) OF 4800,4770,4870
4770 IF NOT A[3,O] THEN 4840
4780 PRINT A$;" IS ALREADY MORTGAGED."
4790 GOTO 2490
4800 PRINT "BEFORE "A$" CAN BE MORTGAGED ALL HOUSES AND HOTELS"
4810 PRINT "IN THE SAME COLOR GROUP MUST BE SOLD."
4820 GOSUB 3900
4830 GOTO 2490
4840 C[T]=C[T]+E/T
4850 A[3,O]= NOT A[3,O]
4860 GOTO 2490
4870 GOTO (C[T] >= E/T+E*.1)+T*(A[3,O]#0)-I OF 4900,4920
4880 PRINT A$" IS ALREADY UNMORTGAGED."
4890 GOTO 2490
4900 PRINT "YOU DON'T HAVE $"B$" NEEDED TO UNMORTGAGE "A$"."
4910 GOTO 2490
4920 C[T]=C[T]-(E/T+E*.1)
4930 GOTO 4850
4940 PRINT "UNUSED COMND."
4950 GOTO 2490
4960 ASSIGN S$,I,Z,'10'13"`"
4970 IF Z OR P1 THEN 5020
4980 LOCK #I
4990 PRINT #I,X5;U,A,C$,P$,T$,TIM(2),TIM(3),R,R1,TIM(I),TIM(4),TIM(0),0,0
5000 MAT PRINT #I;A,B,C,J,K,P,R,U
5010 UNLOCK #I
5020 ASSIGN "MPROPS.B951",I,Z
5030 RETURN
5040 READ #I,I
5050 FOR X=I TO 40
5060 READ #I;A$,B1,E1,Y,Y,Y,Y,Y,Y,H,G,M,N
5070 IF G#G1 THEN 5130
5080 Z=(A[4,N]=T)+(A[4,N+I]=T)+(A[4,N+2]=T AND M/G=3)
5090 IF Z#M/G OR N#I AND N/3#INT(N/3) THEN 5120
5100 A[I,N]=A[I,N+I]=I
5110 A[I,N+2]= NOT A[I,N+2]*(M/G=3)+A[I,N+2]
5120 A[5,N]=2*A[5,N]*(A[I,N] AND B=I AND A[2,N]=T)+A[5,N]*(A[2,N]#T)
5130 NEXT X
5140 GOTO 1280
5150 READ #I,I
5160 FOR X=I TO 40
5170 READ #I;A$,B1,E1,H[I],H[2],H[3],H[4],Y,Y,H,G1,M,N
5180 IF B1#B OR A[4,N]#T THEN 5210
5190 A[I,N]=U[B-I,T]
5200 A[5,N]=H[A[I,N]+(B=3)]
5210 NEXT X
5220 GOTO 1280
5230 E=A[5,N]*F2*((F=3) MAX I/F2)*(R4*(B=3) MAX I)
5240 CONVERT E TO B$
5250 IF A[3,N] THEN 2490
5260 C[I]=C[I]+E
5270 C[T]=C[T]-E
5280 F2=I
5290 GOSUB X5>0 OF 4960
5300 PRINT "RENT FOR "A$" ";
5310 IF B#I THEN 5370
5320 CONVERT A[T,N] TO A$
5330 GOTO (A[T,N]=5)+ NOT A[T,N]*T OF 5360,5370
5340 PRINT "WITH "A$" HOUSES ";
5350 GOTO 5370
5360 PRINT "WITH A HOTEL ";
5370 PRINT "IS $"B$"."
5380 GOSUB 7530
5390 GOTO 2490
5400 N$="COMPUTER"
5410 T=F=F2=I
5420 A=D3=D9=O=W=W5=0
5430 MAT R=ZER
5440 READ #I,I
5450 FOR X=I TO 40
5460 READ #I;A$,B,E,H[I],H[2],H[3],H[4],H[5],H[6],H,G1,M,N
5470 GOTO A[4,N] OF 5500,5540
5480 O=O+(B<3)
5490 GOTO 5710
5500 W5=W5+2* NOT A[2,N]-A[2,N]
5510 D3=D3+E/2* NOT A[3,N]
5520 D9=D9+(5-A[2,N])*H*A[I,N]+A[3,N]
5530 GOTO 5710
5540 DEF FNA(C)=A[2,N+C]=5
5550 IF N#I AND N/3#INT(N/3) OR NOT G1 THEN 5700
5560 FOR V=0 TO M/G1-I
5570 FOR Y=0 TO M/G1-I
5580 IF A[2,N+V]-A[2,N+Y]>I AND NOT (FNA(V)+FNA(Y)) THEN 5620
5590 NEXT Y
5600 NEXT V
5610 GOTO 5700
5620 G=FNA(0)+FNA(I)+FNA(2)*(M/G1=3)
5630 Z=A[2,N]+A[2,N+I]+A[2,N+2]*(M/G1=3)
5640 FOR Y=0 TO M/G1-I
5650 IF FNA(Y) THEN 5680
5660 A[2,N+Y]=INT(Z/(M/G1-Y-G))
5670 Z=Z-A[2,N+Y]
5680 G=(G-FNA(Y)) MAX 0
5690 NEXT Y
5700 A[5,N]=(H[A[2,N]+I]+H[I]*A[I,N]* NOT A[2,N])*(B=I)+H[A[I,N]+(B=3) MAX I]*(B>I)
5710 NEXT X
5720 Q1=O>2
5730 GOTO (J[T] AND Q1)+I OF 2780,1540
5740 IF R1=R AND A AND R1 THEN 2780
5750 IF (C[T] >= 0)*( NOT D9 OR C[T]-R[7]-R[8]-R[9]<301) THEN 2350
5760 CHAIN X,"CMNOPY.B951"
5770 PRINT '7;
5780 GOTO 5760
5790 ASSIGN Y$,I,L
5800 IF L THEN 6040
5810 IF END #I THEN 6530
5820 ADVANCE #I;K*10,Z
5830 READ #I;A$
5840 MAT READ #I;E
5842 IF A$[45,45]#"A" THEN 5850
5843 PRINT LIN(-2)"New Announcement:"
5844 GOSUB 8125
5850 FOR Y=I TO 5
5860 E[Y]=TIM(Y-I)
5870 NEXT Y
5880 E[6]=(K+I)* NOT G5+E[6]*(G5>0)
5890 IF E[7]=I THEN 5910
5900 A$[I,10]=C$
5910 A$[11,18]=""
5915 A$[13,16]=T$
5920 A$[17,17]=CHR$(32+P1+11*(X5>0 AND NOT P1))
5930 IF G5 THEN 5970
5940 SYSTEM M$,"LEN"
5950 A$[40,44]=M$[28]
5960 A$[45,50]=M$[49]
5970 GOTO G5*((E[8]=T) MAX (E[9]=T)*T) OF 6060,6180
5980 X=K+I
5990 IF E[7]#I OR NOT G5 THEN 6020
6000 C$=""
6010 C$[I,E[6] MIN 10]=A$[I,(POS(A$,'27)-I+10* NOT POS(A$,'27) MAX I) MIN 10]
6020 GOSUB 6350
6030 G5=I
6040 GOTO (P1 AND NOT L)+I OF 2450,6270
6050 RETURN
6060 RESTORE
6070 FOR X=I TO 9
6080 READ B$
6090 GOTO (X-6)*(POS(A$[19,23],B$)>0) OF 6130,6150
6100 NEXT X
6110 SYSTEM E[8],A$[19,28]
6120 GOTO 5970
6130 CREATE Z,A$[23,28],E[7]
6140 GOTO 6160
6150 PURGE Z,A$[23,28]
6160 E[8]=Z>0
6170 GOTO 5970
6180 READ #I,I
6190 LOCK #I
6200 ADVANCE #I;K*10+9,Z
6210 UPDATE #I;0
6220 UNLOCK #I
6230 GOSUB X5>0 OF 4960
6240 CHAIN Z,A$[29,39]
6250 E[9]=I
6260 GOTO 5970
6270 E$="UNSUCCESSFUL"
6280 READ #I,I
6290 FOR X=I TO 32
6300 READ #I;A$
6310 MAT READ #I;E
6320 GOTO ((E[8]0 THEN 6850
6844 CONVERT T TO A$
6846 CONVERT C TO E$
6848 PRINT "BEWARE! The computer has already won "A$" games"
6849 PRINT "and lost only "E$"!"LIN(-2)
6850 FOR X=I TO LEN(I$)/14
6860 IF NOT POS(I$[X*14-13],T$) THEN 7020
6870 CONVERT I$[X*14-I,X*14-I] TO Y,7000
6880 RESTORE
6890 FOR Z=I TO Y
6900 READ B$
6910 NEXT Z
6920 B$[5]=I$[X*14-13,X*14-3]
6930 E=POS(B$,".")
6940 IF NOT POS(B$,T$) AND E OR NUM(I$[X*14-2])=79 AND NUM(I$[X*14])#50 THEN 7000
6950 SYSTEM P,B$[I,E-I+(LEN(B$)+I)* NOT E]
6960 IF NUM(I$[X*14-2])#79 THEN 6990
6970 I$[X*14-13]=I$[(X+(NUM(I$[X*14-2])=79))*14-13]
6980 GOTO 6870
6990 CONVERT P TO I$[X*14,X*14]
7000 NEXT X
7010 READ #I,15
7020 LOCK #I
7030 ADVANCE #I;7,Z
7040 PRINT #I;I$,C,T
7050 UNLOCK #I
7060 DATA "PRI-","PRO-","LOC-","UNR-","MWA-","SWA-","CRE-","CLE-","CHA-"
7070 PRINT "NAME: ";
7080 LINPUT I$
7090 FOR X=I TO LEN(I$)
7100 IF NUM(I$[X])>31 AND NUM(I$[X])<122 THEN 7130
7110 I$[X]=I$[X+I]
7120 GOTO 7090
7130 NEXT X
7140 IF NOT LEN(I$) THEN 7070
7150 X=POS(I$," ")*(POS(I$," ")<11 AND LEN(I$)>10)
7160 C$=I$[I,X-I+(LEN(I$)+I)* NOT X MIN 10]
7170 GOTO (W=12)+I OF 2350,2490
7180 READ #I,I
7190 V=Z=0
7200 FOR X=I TO 40
7210 READ #I;M$,B1,E1,Y,Y,Y,Y,Y,Y,H,G,M,O
7220 IF B1>3 OR M1#M THEN 7250
7230 V=V+(A[4,O]=I)
7240 Z=Z+(A[4,O]=2)
7250 NEXT X
7260 X=(V AND Z AND B1=I)
7270 IF B=3 OR X AND C[T]= E THEN 5760
7300 GOSUB D1>0 OF 3730
7310 IF C[T]= 0 THEN 7660
7550 GOSUB 3620
7560 IF C[V]+M1 >= 0 THEN 7660
7570 READ #I,15;A$,H,D2,S$,H$,C$,Y$,I$,J[I],J[2]
7580 J[V]=J[V]+I
7590 LOCK #I
7600 PRINT #I,15;A$,H,D2,S$,H$,C$,Y$,I$,J[I],J[2]
7610 ASSIGN S$,I,Z
7620 IF NOT X5 OR Z THEN 7650
7630 LOCK #I
7640 PRINT #I,X5
7650 GOTO V OF 7680,7700
7660 NEXT V
7670 RETURN
7680 PRINT LIN(-4);"COMPUTER HAS GONE BANKRUPT!! YOU WIN!!!"
7690 STOP
7700 CONVERT ABS(INT(C[V]+M1)) TO A$
7710 PRINT LIN(-4)"YOU HAVE JUST GONE BANKRUPT!! YOU ARE $"A$" IN DEBT."'13'10"COMPUTER WINS!!"
7720 STOP
7730 READ #I,I
7740 PRINT LIN(-T);
7750 READ #I;M$,B,E,H[I],H[2],H[3],H[4],H[5],H[6],G,H,M,N
7760 IF M$#A$ THEN 7750
7770 FOR Y=I TO 5
7780 PRINT USING 7790;Y-I
7790 IMAGE#,"RENT WITH ",D," HOUSES IS $"
7800 CONVERT H[Y] TO E$
7810 PRINT E$"."
7820 NEXT Y
7830 CONVERT H[Y] TO E$
7840 PRINT "RENT WITH A HOTEL IS $"E$"."
7850 GOTO 2490
7860 FOR V=T TO I STEP -I
7870 GOSUB 3620
7880 CONVERT INT(C[V]) TO E$
7890 PRINT LIN(0- NOT S);N$"'S ";
7900 IF S THEN 7960
7910 T=V
7920 GOSUB 3730
7930 IF NOT J[T] THEN 7950
7940 A$="IN JAIL"
7950 PRINT "POSITION ON BOARD: "A$"."
7960 CONVERT INT(E1) TO B$
7970 PRINT "CASH: $"E$". TOTAL ASSETS: $"B$"."
7980 X=K[2,T]+K[I,T]
7990 M$=".S."
8000 IF NOT X OR S THEN 8030
8010 CONVERT X TO A$
8020 PRINT N$" HAS "A$" GET OUT OF JAIL CARD"M$[X,X+(X#I)]
8030 N$="COMPUTER"
8040 NEXT V
8050 T=2
8060 PRINT LIN(-T+S);
8070 GOTO 2490
8071 GOTO 4940
8090 GOSUB X5>0 OF 4960
8100 END
8110 ASSIGN "MNOSYS.B951",I,L
8120 IF L>2 THEN 8180
8125 READ #I,7
8127 IF TYP(I)=3 THEN 8180
8130 IF END #I THEN 8170
8140 READ #1;A$
8150 PRINT A$
8160 GOTO 8140
8170 PRINT LIN(-I)
8180 RETURN
8190 END