d MONOPOLE CBM-643} COPYRIGHT (C) 1982 BYX~ TIM BORION & SAL OEPER-8/12/82|"":53280,0:53281,0::1590PG$" PURPLE, LT. BLUE, MAROON, ORANGE, RED, YELLOW, GREEN, DK. BLUE" PN$(42),D(42,1),CH$(16),CC$(16),P(42,9),PT$(42),C$(42),PS(42),H(42),MG(42)E P$(2),PL(2),O(2),JT(2),M(2),CJ(2) 320:"DO YOU WANT AUCTION RULE (Y OR N)";Q$:(Q$,1)"Y"AF1 "WANT FREE PARKING JACKPOT OPTION ";Q$:(Q$,1)"Y"PF1:FP500 M(1)1500:M(2)1500:PL(1)1:PL(2)1:DV2M CD$"":CR$"" ZQ(TI):X18:Y110:X223:Y210:RX6:RY18:TN832:TT886 E$" ":RM$"HIT 'R' OR 'T'" " PLEASE WAIT WHILE I SET UP."' I14:P(6((I1)10),8)100::P(13,8)75:P(29,8)75K CH((1)16)1:CC((1)16)1j I141:J01:D(I,J):: P$(1)" PLAYER 1":P$(2)" PLAYER 2" I141:PN$(I)::I141:PT$(I):PT$(I)"P"300 "C$(I):J19:P(I,J):J ,I" 6I116:CH$(I)::I116:CC$(I)::390T @"  Ъ Ϸ" B"  " D" " J" ̯" ^19);"BY" c" TIM BORION AND SAL OEPER"` h"HIT 'R' TO ROLL DICE AND 'T' FOR TRANSACTION MENU." r" '0' CAN BE USED TO RETURN FROM MOST SUBROUTINES" |:"DEVELOPED PROPERTIES MAY NOT BE TRADED.":: 54277,79:54284,79:54291,7954278,248:54286,248:54292,248:54276,33:54288,33:54290,33G(1)54272:G(2)54273:G(3)54279:G(4)54280:G(5)54286:G(6)54287I16:G(I),0:54296,15:(832)16063701320:PK12:D(1,PK1),48PK:O(PK)D(1,PK1):PTPK::6470 1620:R1R2410PT(R1R2)2?D(PL(1),0),49:D(PL(2),1),50MPT$(PT)pMS$"PLAYER"PT$" STARTS"XRX:YRY:Z$MS$:1570:DE11500::Z$E$:1570:680DV2:MF0:JB0PL(PT)41590JT(PT)01620:DF1DB3TN:3150:TT:6470:620*M1DR:PL(PT)PL(PT)1cO(PT),160:PL(PT)40PL(PT)PL(PT)40:TN:1700:TT}D(PL(PT),PT1),48PT&O(PT)D(PL(PT),PT1)0T1506PT:I16:G(I),T::DI16:G(I),0::MND(PL(PT),PT1),48PT:6470XTN:1770:TT:6470:M(PT)06200:TTNbPL(PT)11D(41,PT1),160:D(11,PT1),48PTlJBJB0:O(PT),160:O(PT)D(PL(PT),PT1):520vMFMF0:O(PT),160:O(PT)D(PL(PT),PT1):590JEJE0:O(PT),160:O(PT)D(PL(PT),PT1):680'JFJF0:D(PL(PT),PT1),48PT:O(PT),160:O(PT)D(PL(PT),PT1)3DB680?PT3PT_Z$P$(PT):XRX:YRY1:1570zZ$RM$:XRX:YRY:1570BC$:BC$""700A$:A$""710A$"T"TN:4080:TT:6470:680Z$E$:XRX:YRY:1570470,1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921c1959,1958,1956,1955,1953,1952,1950,1949,1944,19041824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425 1346,1347,1264,1265,1184,1185,1104,11051029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045? 1047,1048,1130,1131,1053,1054,1096,1097*1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,161841697,1698,1777,1778,1857,1858,1906,1907>">GO<","MEDITERRANEAN AVE.","COMMUNITY CHEST","BALTIC AVE." C"INCOME TAX"NH"READING R.R.","ORIENTAL AVE.","CHANCE","VERMONT AVE."hM"CONNECTICUT AVE."R"JUST VISITING","ST.CHARLES PLACE","ELECTRIC COMPANY","STATES AVE."\"VIRGINIA AVE.","PENNSYLVANIA R.R.","ST. JAMES PLACE"a"COMMUNITY CHEST"`f"TENNESSEE AVE.","NEW YORK AVE.","FREE PARKING","KENTUCKY AVE."p"CHANCE","INDIANA AVE.","ILLINOIS AVE.","B & O R.R."u"ATLANTIC AVE."z"VENTNOR AVE.","WATER WORKS","MARVIN GARDENS","GO TO JAIL""PACIFIC AVE."`"N. CAROLINA AVE.","COMMUNITY CHEST","PENNSYLVANIA AVE."t"SHORT LINE""CHANCE","PARK PLACE","LUXURY TAX","BOARDWALK","IN JAIL"GO,P,PURPLE,60,2,10,30,90,160,250,30,50,CC,P,PURPLE,60,4,20,60,180,320T450,30,50,IT,RR,P,LT. BLUE,100,6,30,90,270,400,550,50,50,CH,P,LT. BLUE 100,6,30,90,270,400,550,50,50,P,LT. BLUE,120,8,40,100,300,450,600,60,50JV,P,MAROON,140,10,50,150,450,625,750,70,100,U,P,MAROON,140,10,50,150,4502625,750,70,100,P,MAROON,160,12,60,180,500,700,900,80,100,RRmP,ORANGE,180,14,70,200,550,750,950,90,100,CC,P,ORANGE 180,14,70,200,550,750,950,90,100P,ORANGE,200,16,80,220,600,800,1000,100,100,FP,P,RED 220,18,90,250,700,87521050,110,150,CH,P,RED,220,18,90,250,700,875,1050,110,150,P,RED,240C 20,100,300750,925,1100,120,150,RR,P,YELLOW,260,22,110,330,800,975,1150,130,150 P,YELLOW,26022,110,330,800,975,1150,130,150,U,P,YELLOW,280,24,120,360,850,1025,1200$ 1409.150,GTJ,P,GREEN,300,26,130,390,900,1100,1275,150,200,P,GREENR8 300,26,130,390,900B1100,1275,150,200,CC,P,GREEN,320,28,150,450,1000,1200,1400L 160,200,RR,CHVP,DK. BLUE,350,35,175,500,1100,1300,1500,175,200,LT,P,DK. BLUE` 400,50,200,600,1400j1700,2000,200,200,IJft PAY POOR TAX $15,GO DIRECTLY TO JAIL,ADVANCE TO GO(COLLECT $200)~ YOUR BUILDING AND LOAN MATURES COLLECT $150 ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENT$ADVANCE TO ILLINOIS AVE.,BANK PAYS YOU DIVIDEND OF $50oGET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACETAKE A RIDE ON THE READING,GO BACK THREE SPACES,ADVANCE TO BOARDWALKMAKE GENERAL REPAIRS $25 FOR EACH HOUSE$100 FOR EACH HOTEL? ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENT ADVANCE TOKEN TO NEAREST UTILITY ROLL DICE & PAY 10*# SHOWN GET OUT OF JAIL FREE,GO TO JAIL,ADVANCE TO GO(COLLECT $200)  FROM SALE OF STOCK YOU GET $45,COLLECT $50 FROM EVERY PLAYERZ RECEIVE FOR SERVICES $25,PAY SCHOOL TAX OF $150,TAX REFUND COLLECT $20 ASSESSED FOR REPAIRS $40 PER HOUSE $115 PER HOTEL YOU HAVE WON SECOND PRIZE IN A BEAUTY CONTEST COLLECT $10!  YOU INHERIT $100,XMAS FUND MATURES COLLECT $100,PAY HOSPITAL $100b  BANK ERROR IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $50  LIFE INSURANCE MATURES COLLECT $100 6360 (" WWGTJ"!2"FP? "8!<"   B&O  "i!F" ϣ "!P"  "!Z" 1- ""d" ΞC C  "/"n"͞ Λ 2- ϣ"`"x"CC CC """  """    """PR  MONOPOLE  SL"2#"  CBM-64  "a#" ϣ"#" ? "#"  "#"  ")$"EC Ζ??? TAX"X$" ͖ Λ "$"  "$"  "$"ϣ ϣ RRϣ ϣ ϣ"'%" ? GO "]%" TAX CC _ "c%%""";(CR$,X);(CD$,Y);Z$;""%,%6DC$(1)"   ":DC$(2)"   "&@DC$(3)"   ђ":DC$(4)"   ђ"H&JDC$(5)"   ђ":DC$(6)"   ђ":Q&TCT0|&^R1((1)6)1:R2((1)6)1:DRR1R2&cI16:G(I),DR10:&h"";(CR$,X1);(CD$,Y1);DC$(R1)&r"";(CR$,X2);(CD$,Y2);DC$(R2)&wI16:G(I),0:'|CTCT1:CT7DELAY175::16303'R1R2DBDB1:1690<'DB0B'M'"":'" COLLECT $200 AS YOU PASS "'M(PT)M(PT)200:::'"HIT ANY KEY TO CONTINUE"'W$:W$""1740'K$:K$""1750'(198,0:PT$PT$(PL(PT))#(PT$"P"19006(PT$"RR"2380F(PT$"GO"X(PT$"U"2700k(PT$"FP"3010{(&PT$"JV"(0PT$"GTJ"3150(:PT$"IT"3210(DPT$"LT"3190(NPT$"CC"3230(XPT$"CH"3470(bPT$"IJ"3880 )l"";15);"TITLE DEED")vGF1950')" PLAYER"PT3)PO3PTG)PLPL(PT):P7PTp)20((PN$(PL))1)2)"";PN$(PL)"")(PN$(PL),1):QR(646):53280,QR:""))" RENT $";P(PL,2))" WITH 1 HOUSE $";P(PL,3)*" WITH 2 HOUSES ";P(PL,4)H*" WITH 3 HOUSES ";P(PL,5)r*" WITH 4 HOUSES ";P(PL,6)*" WITH HOTEL $";P(PL,7)**" MORTAGE VALUE $";P(PL,8)*" HOUSES COST $";P(PL,9);"EACH"*+ " HOTELS, $";P(PL,9);". PLUS 4 HOUSES"G+GF::1730:53280,0:o+ :I141:C$(PL)C$(I)IPL2100{+*:2120+4PS(I)" "PN$(I)" OWNED BY PLAYER #"PS(I):+>" "PN$(I)" STILL FOR SALE.":+H,RMG(PL)1" MORTAGED FOR $"P(PL,8),\" COST $";P(PL,1)-,fPS(PL)02200^,p" OWNED BY PLAYER"PS(PL):H(PL)"WITH";{,zH(PL)5H(PL)"HOUSES.",H(PL)5" A HOTEL",2250," YOU HAVE $";M(P7)," DO YOU WISH TO BUY THIS PROPERTY";:" ";A$:A$(A$,1) -A$"N"2310$-A$"Y""":2210j-" OK YOU BOUGHT ";PN$(PL)"":M(P7)M(P7)P(PL,1):PS(PL)PT:2300-OWP(PL,H(PL)2):PS(PL)PT2300-MG(PL)2300-P5PO:P6PS(PL):2320:OAH(PL)0OWOW2 .M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OW:" YOU OWE $";OW%.M(PS(PL))M(PS(PL))OW:.1730:53280,0:J. 6040:2300. MG0:OA0:PC0:I141:C$(PL)C$(I)PS(I)P5PCPC1:MG(I)MGMG. .$ PC2C$(PL)"PURPLE"OA1:.. PC2C$(PL)"DK. BLUE"OA1:.8 PC3OA1:.B /L "":PLPL(PT)/V "PLAYER"PT7/` " ؘ "W/j "  "w/t " Ε "}/~ / 20(PN$(PL))2)"";PN$(PL)""/ 54276,129:54288,17:54290,17/ KO129:T12:I16:G(I),KO::DL1400:0 I16:G(I),0::DL160::?0 54276,33:54288,33:54290,33 e0 :"RENT $25"0 "IF 2 R.R.'S ARE OWNED 50"0 "IF 3 R.R.'S ARE OWNED 100"0 "IF 4 R.R.'S ARE OWNED 200"0 0 "MORTAGE VALUE $100"'1 :MG(PL)1"MORTAGED FOR $100":2690:1 "COST $200"[1 :I141:PT$(I)"RR"2550g1 :25701 PS(I)PN$(I)" OWNED BY PLAYER #";PS(I):1 PN$(I)" STILL FOR SALE.":1 PS(PL)"OWNED BY PLAYER#";PS(PL):26501 "YOU HAVE $"M(PT)42 "DO YOU WISH TO BUY IT";:" ";B$:B$(B$,1)L2( B$"N"6040:2690e22 B$"Y""":25902< M(PT)M(PT)200:PS(PL)PT2F "OK YOU BOUGHT IT"2P 26902Z OW0:O702d PS(PL)PT26902n OW25:I63610:PT$(I)"RR"PS(I)PS(PL)OWOW2C3x :OWOWDV:"YOU OWE $";OW:M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OWO3 1730:X3 ""h3 "PLAYER"PT3 " Σ "3 " ͖^ "3 " "3 "  ": 4 PLPL(PT)34 20(PN$(PL))2)"";PN$(PL)""y4 :"IF ONE 'UTILITY IS OWNED PAY 4 TIMES THEAMOUNT SHOWN ON DICE"4 4 "IF BOTH OWNED PAY 10 AMOUNT ON DICE"4 D1((1)6)1:D2((1)6)14 DFD1R1:D2R25 :"MORTAGE VALUE $75":(5 MG(PL)1"MORTAGED FOR $75":3000e5" PS(42PL)PN$(42PL)" OWNED BY PLAYER"PS(42PL):28705, PN$(42PL)" STILL FOR SALE."56 :PS(PL)"OWNED BY PLAYER#";PS(PL):29505@ "YOU HAVE $"M(PT)6J "DO YOU WISH TO BUY IT ";B$:B$(B$,1)6T B$"N"6040:300026^ B$"Y""":2890S6h "OK YOU BOUGHT ";PN$(PL)""g6r M(PT)M(PT)150{6| PS(PL)PT:30006 PS(PL)PT30006 "DICE SHOW"D1"AND"D2"."6 MT4:PS(13)PS(PL)PS(29)PS(PL)MT106 DF0MT1007 OWMT(D1D2):"YOU OWE $";OW:M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OWA7 MT0:1730:J7 ""g7 " FREE7 " "7 "  7 "  7 "  8 " ˜ѕ -8 "  Q8 " p8 " 8& :" PARKING":80 PF01730:8: :" YOU GET THE FREE PARKING"9D " JACKPOT OF $"FP"!":M(PT)M(PT)FP:FP0::1730:,9N "";15);"GO TO JAIL"d9X DB3:" FOR ROLLING DOUBLES 3 TIMES IN A ROW!":9b 16);"":I15:16);"":9g 16);""::PL(PT)41:JF1:DB09l KO13:T601101.7:I16:G(I),T::9n DL110:#:o T110601.7:I16:G(I),T:::8:p I16:G(I),0:J:q "";:1730:w:v "";15);"LUXURY TAX"::16);"PAY $75": :::M(PT)M(PT)75:FPFP75:1730:: "";15);"INCOME TAX"::16);"PAY $200": :::M(PT)M(PT)200:FPFP200:1730:; CCCC1:CC16CCCC16O; PO3PT:CC$CC$(CC):CC1CJ(1)CCCC1:CC$CC$(CC); " COMMUNITY CHEST":CC$""; CC1CJ(1)PT; CC21730:3150; CC3PL(PT)1:MF1:1730:1700:; CC4M(PT)M(PT)45< CC5M(PT)M(PT)50:M(PO)M(PO)50)< CC6M(PT)M(PT)25M< CC7M(PT)M(PT)150:FPFP150f< CC8M(PT)M(PT)20v< CC93430< CC10M(PT)M(PT)10< CC11M(PT)M(PT)100<* CC12M(PT)M(PT)100<4 CC13M(PT)M(PT)100<> CC14M(PT)M(PT)200=H CC15M(PT)M(PT)501=R CC16M(PT)M(PT)100==\ 1730:N=f YP0:I140u=p PS(I)(PT)H(I)5YPYP(40H(I))=z PS(I)(PT)H(I)5YPYP115= :"YOU PAY $"YP:M(PT)M(PT)YP:FPFPYP:= CHCH1:CH16CHCH16> PO3PT:CH$CH$(CH):CH8CJ(2)CHCH1:CH$CH$(CH)I> " ? ? CHANCE ? ?":CH$""k> CH1M(PT)M(PT)15:FPFP15> CH21730:3150> CH3PL(PT)1:MF1:1730:1700:> CH4M(PT)M(PT)150> CH53670:MF1> CH63710:MF1? CH7M(PT)M(PT)50? CH8CJ(2)PT?? CH9M(PT)M(PT)50:M(PO)M(PO)50U?CH103730:MF1k?CH113750:MF1?CH12PL(PT)PL(PT)3:MF1?$CH133770:MF1?.CH143790?8CH153670:MF1?BCH163830:MF1?L1730: @VPL(PT)PL(PT)1:PL(PT)406540:PL(PT)PL(PT)40;@`PT$(PL(PT))"RR"3700E@j3670P@tDV1:e@~PL(PT)256540u@PL(PT)25:@PL(PT)126540@PL(PT)12:@PL(PT)66540@PL(PT)6:@PL(PT)40:@@DF0:YP0:I140APS(I)(PT)H(I)5YPYP(25H(I))1APS(I)(PT)H(I)5YPYP100`A:"YOU PAY $"YP:M(PT)M(PT)YP:FPFPYP:tAPL(PT)PL(PT)1APL(PT)406540:PL(PT)PL(PT)40A PT$(PL(PT))"U"3870A3830AMF1:A(""A2JT(PT)JT(PT)1B<"PLAYER #"PT"IS IN JAIL",BF:"YOU HAVE BEEN IN"JT(PT)"TURNS"IBP"YOU MAY: 1. PAY $50"BZ" 2. USE A 'GET OUT OF JAIL FREE CARD."Bd" 3. TRY TO ROLL DOUBLES."Bn:"CHOICE";I:I1I33950CxI1M(PT)M(PT)50:FPFP50:PL(PT)11:1730:JE1:DCI2CJ(1)PTCJ(1)0:PL(PT)11:1730:JE1:uCI2CJ(2)PTCJ(2)0:PL(PT)11:1730:JE1:CI2"YOU DON'T HAVE A CARD":3950CI31620:DB4060C"YOU DIDN'T ROLL DOUBLES."DJT(PT)2"YOU MUST PAY THE $50":M(PT)M(PT)50:PL(PT)11:JB18DJT(PT)21730:FPFP50:DD1730:`DPL(PT)111730:JE1:D"YOU MADE IT OUT!!!":PL(PT)11:1730:JB1:DB0:D6200D"":PF"MONEY IN FREE PARKING JACKPOT $";FPE"PLAYER 1 HAS $";M(1):"PLAYER 2 HAS $";M(2)E:"PLAYER";PT"UP."5E::15);"OPTIONS";EYE"" R=REVIEW PROPERTIES"yE," L=LIST ALL PROPERTIES"E6" B=BUILD HOUSES/HOTELS"E@" S=SELL PROPERTIES TO OTHER PLAYER"EJ" M=MORTAGE PROPERTIES(SELL HOUSES)"FT" D=DISPLAY TITLE DEEDS",F^" Q=RETURN TO GAME"CFh" XX=END GAME":ZFr"CHOICE ";C$kF|C$""4210}FC$"R"4320FC$"L"4490FC$"B"4640FC$"S"5080FC$"M"5440FC$"D"6510FC$"Q"FC$"XX"6280G4080%G"FOR WHICH PLAYER (1 OR 2)";PN9GPN1PN24320CG""gG6)"PROPERTIES FOR PLAYER ";PNmGGI140:PO$"":PS(I)PNPN$(I);GPS(I)PN4450G&PT$(I)"P"4430G020((PN$(I))2));" -";:H(I)5PO$(H(I))" HS"H:H(I)5PO$" HOTEL"6HDPO$PO$"/$"((P(I,H(I)2)),2)THNMG(I)1PO$"- MORTAGED"]HXPO$cHbHl:CJ(1)PNCJ(2)PN"GET OUT OF JAIL FREE CARD."Hv"PLAYER"PN"HAS $";M(PN)H:1730:H""ITT$"NAME OWNER/#HOUSES":TT$KIK140:PT$(K)"P"PT$(K)"RR"PT$(K)"U"4600`IPN$(K)"";21);jI33)IP$(PS(K)):PP$((H(K)),2):H(K)4PP$"H"IPT$(K)"P"PP$"X"IMG(K)PP$"MG"IP$P$" -"PP$IPS(K)0P$" NONE"IP$JK20:1730:"":TT$ JK,J :17302J=J ""FJ*HO0bJ4" ON WHICH GROUP":PG$hJ>~JH"WHICH COLOR";C$JRI8141:C$(C$(I8),(C$))PLI8:C$C$(I8):4720J\I8Jf"ILLEGAL GROUP":4680JpP7PTJzP5P7:2320:MGOA0KOA4770SK"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";pK" IS MORTAGED.":1730:K" PROPERTY NAME # OF HOUSES(5=HOTEL)"KHS0:IPLPL4:C$C$(I)PN$(I)"";30);H(I):HSHSH(I)KL:"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"PL"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)5)VLmL"YOU HAVE $"M(PT)L"HOTELS AUTOMATICALLY ADDED AFTER 4TH HOUSE"L"HOW MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX((5PC)HS):MX")"LHN:HNMX4850MH7(HNPC):H8HN(H7PC)[MM(P7)(HNP(PL,9))"YOU DON'T HAVE ENOUGH MONEY!":4850sMHN0"OK":1730:M$M(P7)M(P7)(HNP(PL,9)):EPLPL4:C$C$(E)H(E)H(E)H7M.M8H84940MB5070ML"YOU HAVE"H8"HOUSES LEFT OVER"/NV:F10:FPLPL4:C$C$(F)F1F11:F1,PN$(F);" "H(F)?N`::G1H8|Nj"WHERE DO YOU WANT HOUSE #"G;:HL:HLHO"CAN'T":4970NtF20:F10:F90N~FPLPL3:C$C$(F)F1F11:F1HLF9FNFNF90"NO SUCH NUMBER":4970OH20:FPLPL3:C$C$(F)H(F9)H(F)H2H21ONOH2"ILLEGAL DISTRIBUTION OF HOUSES!":4970fOHOHL:H(F9)H(F9)1mOGO"DONE":1730:O"WHAT PLAYER HAS A PROPERTY TO SELL";P1OP101730:OP2P11:P22P2P22 P"IS IT A PROPERTY";:Q$:(Q$,1)"N"5320)P"IN WHAT COLOR GROUP":PG$;P :"WHICH";C$rPI6141:C$(C$(I6),(C$))PLI6:C$C$(I6):5170zPI6P("ILLEGAL GROUP":5130P2"# PROPERTY";30);"OWNER"P<HO0:CT0:IPLPL4:C$C$(I)CTCT1:CT" "PN$(I)"";35);PS(I) QFH(I)HO1QPLQZ:"WHAT NUMBER DOES PLAYER"P1"WANT TO SELL"TQdTPQnCT0:IPLPL4:C$C$(I)CTCT1:CTTPT4I:FF1QxQFF0"ILLEGAL NUMBER":5210QPS(T4)P1"PLAYER #"P1"DOES NOT OWN IT.":5080+RHO"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":5310WR "WHAT IS THE AGREED SELLING PRICE";SPRM(P1)M(P1)SP:M(P2)M(P2)SP:PS(T4)P2R"PLAYER #"P2"BOUGHT "PN$(T4)"":"FOR $"SPR:1730:R"PROPERTY";30);"OWNER"SI63610:NN1:N" "PN$(I)"";35);PS(I)::N0VS" 5 "PN$(13)"";35);PS(13):" 6 "PN$(29)"";35);PS(29)pS"WHICH #";NM:NM0SNM1NM65350SNM5PS(13)P1SN13:5410SNM6PS(29)P1SN29:5410SNM0NM5SN6((NM1)10):PS(SN)P15410T"YOU DON'T OWN IT.":5320+T""AGREED PRICE";SPWT,M(P1)M(P1)SP:M(P2)M(P2)SP:PS(SN)P2cT61730:T@"":" OPTIONS":"0 RETURN TO MAIN MENU":"1 MORTAGE PROPERTY"TJ"2 MORTAGE RAILROAD":"3 MORTAGE UTILITY"UT"4 LIFT MORTAGE(AT 10% INTEREST)":"5 SELL HOUSES"::U^"CHOICE";GG:GG0GG55470LUhGG01730:mUrGG5510,5740,5830,5910,6550wU|5440U:"ON WHICH GROUP IS THE PROPERTY TO BE":"MORTAGED LOCATED?":PG$U:"COLOR GROUP";C$VI6141:C$(C$(I6),(C$))PLI6:C$C$(I6):5560VI61V"ILLEGAL GROUP":5520ZVCM0:IPLPL3:C$C$(I)CMCMH(I)`VVCM"CAN'T MORTAGE PROPERTIES WITH HOUSES STILL ON THAT GROUP.":5730V"# PROPERTY";25);"OWNER"VCT0:IPLPL4:C$C$(I)56308WCTCT1:CT" "PN$(I)"";27)PS(I);:PP$"":MG(I)PP$"MORTAGED"AWPP$GWtW:"WHAT NUMBER IS TO BE MORTAGED.";:TPWTP01730:WCT0:IPLPL4:C$C$(I)CTCT1:CTTPT4I:FF1W&W0FF0"ILLEGAL NUMBER":5640X:PS(T4)PT"YOU DON'T OWN IT.":1730:5440>XDMG(T4)1"ALREADY MORTAGED":5640SXN:"OK":MG(T4)1XX"YOU GOT $"P(T4,8)"FOR YOUR MORTAGE.":M(PT)M(PT)P(T4,8)Xb1730:XlRC0:I63610:PT$(I)"RR"RCRC1:RC" "PN$(I)" PLR.#"PS(I)XvX"WHICH #";RGYRG1RG45760(YRG6((RG1)10)YYPS(RG)PT"YOU DON'T OWN IT.":1730:5440YMG(RG)1"ALREADY MORTAGED.":1730:5440YMG(RG)1:"YOU GET $100 FOR MORTAGE.":M(PT)M(PT)100Y1730:YU(1)13:U(2)29ZI12:I" "PN$(U(I))"":Z"WHICH?";UM'ZUM1UM25850[ZPS(U(UM))PT"YOU DON'T OWN IT.":1730:5440ZMG(U(UM))1"ALREADY MORTAGED.":1730:5440ZMG(U(UM))1:"YOU GET $75 FOR MORTAGE.":M(PT)M(PT)75Z 1730:[:"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTAGE."N[ ML0:I141:PS(I)(PT)MG(I)1MLML1:ML" "PN$(I)""T[*[4ML0"YOU HAVE NO MORTAGED PROPERTIES.":1730:[>:"WHICH MORTAGE DO YOU WAN'T TO LIFT";LF[HLF1LFML"ILLEGAL":5950\RML0:I141:PS(I)(PT)MG(I)1MLML1:MLLFFTI\\<\f"THE MORTAGE IS FOR $"P(FT,8)g\p"YOU MUST PAY $";:PYP(FT,8)1.10:PY\zPYM(PT)"YOU DON'T HAVE THE MONEY.":1730:\M(PT)M(PT)PY:MG(FT)0\1730:\AF6060\]PLPL(PT):PN$(PL)" WILL NOW BE AUCTIONED""]"TO THE HIGHEST BIDDER"R]PO3PT::HB0:PAPT:AC0::HB0:PAPT:AC0^]PA3PA]"PLAYER"PA"WHAT'S YOUR BID";:BD:BD(BD):ACAC1]BD0(AC1)26140,6090]BDHB"YOU MUST BID HIGHER THAN"HB"OR BID '0'":6100^HBBD:HRPA:6090^HB06190,^PN$(PL)" GOES TO"F^"PLAYER"HR" FOR $"HBc^M(HR)M(HR)HB:PS(PL)HRi^$^.:PN$(PL)" HAS NOT BEEN PURCHASED.":^8"":"PLAYER #"PT"IS BROKE!!"^B"IF YOU CAN'T RAISE $"(M(PT))"THEN YOU ARE OUT OF THE GAME."A_L"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL YOU FINISH TRYING TO";U_V" RAISE MONEY"e_`1730:4080u_jM(PT)0_tM(PT)0"YOU ARE BANKRUPT!!!":PT3PT_~" --PLAYER #"PT"WINS!-- ":_"GAME OVER"_"THE WINNER IS ";`M(1)M(2)"PLAYER #1 WITH $"M(1)8`M(2)M(1)"PLAYER #2 WITH $"M(2)a` M(2)M(1)"NEITHER, IT'S A TIE!"{`"PLAYER 1 = $";M(1)`"PLAYER 2 = $";M(2)``54296,0:I16:G(I),0:`J832939`I:J,I:a 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0Ta 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0va  197,185,0,218,153,0,198,185a 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153 b 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197Tb( 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96Zb<fbFP412bPY$""PN$(PL(P4))(" ",18((PN$(PL(P4)))2))""bZMN$"$"((M(P4)),2)" ":X13:Y2P43:Z$Y$:1570cdYY1:Z$MN$:1570::>cn"DISPLAY DEEDS FOR WHICH COLOR GROUP:":PG$:C$:xcxP3PL:I141:C$(C$(I),(C$))GF1:PLI:1900:GF0c:PLP3:cM(PT)M(PT)200:"COLLECTED $200":c"ON WHICH COLOR GROUP:":PG$:C$ dPL0:I4111:C$(C$(I),(C$))PLI:C$C$(I)dI:PL65906d"ILLEGAL GROUP":6550jdDO0:HN0:IPLPL3:PS(I)(PT)C$C$(I)DO1dC$C$(I)HNHNH(I)ddDO1HN0"YOU DON'T OWN HOUSES ON THESE PROPERTIES":1730:d"# PROPERTY";25);"HOUSES(5=HOTEL)"7eCT0:IPLPL3:C$C$(I)CTCT1:CT" "PN$(I)"";27)H(I)=eye"WANT TO REMOVE ALL THESE HOUSES";A$:(A$,1)"Y"6800e:"WHAT # TO REMOVE A HOUSE FROM.";TPeTP0 e"CT0:IPLPL3:C$C$(I)CTCT1:CTTPT4I:FF1e,f6FF0"ILLEGAL NUMBER":66707f@H(T4)0"NO HOUSES THERE.":6670bfJNN0:NHH(T4):IPLPL3:H(I)NHNN1hfTf^NN"YOU CAN'T REMOVE THAT HOUSE.":6670fh:"OK.":H(T4)H(T4)1frHMP(PL,9)2f|"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)M(PT)HMg1730:5440@gHM0:IPLPL3:C$C$(I)HMHM(P(PL,9)2)H(I):H(I)0{g:"YOU GOT $"HM"FOR YOUR HOUSES":M(PT)M(PT)HM:6790