d MONOPOLE CBM-643} COPYRIGHT (C) 1982 BYX~ TIM BORION & SAL OEPER-8/12/82|"":65305,0:65301,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)U P$(2),PL(2),O(2),JT(2),M(2),CJ(2),Y(1024),X(1024)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:DV2]CD$"":CR$""ZQ(TI):X18:Y110:X223:Y210:RX6:RY18:TN832:TT886E$" ":RM$"HIT 'R' OR 'T'" " PLEASE WAIT WHILE I SET UP!"DI14:P(6((I1)10),8)100::P(13,8)75:P(29,8)75hCX((1)16)1:CC((1)16)1I141: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)::390q@"  Ъ Ϸ"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,79554278,248:54286,248:54292,248W54276,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:R1R2410:PT(R1R2)2\D(PL(1),0),49:D(PL(2),1),50jPT$(PT)MS$"PLAYER"PT$" STARTS"XRX:YRY:Z$MS$:1570:DZ11500::Z$E$:1570:680DV2:MF0:JB0PL(PT)41590JT(PT)01620:DF1$DB3 3150:6470:620@M1DX:PL(PT)PL(PT)1}O(PT),160:PL(PT)40PL(PT)PL(PT)40:1700:1320:1730D(PL(PT),PT1),48PT&O(PT)D(PL(PT),PT1)0T1506PT:I16:G(I),T::DI16:G(I),0::M ND(PL(PT),PT1),48PT:6470+X1770:6470:M(PT)06200\bPL(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):6805JFJF0:D(PL(PT),PT1),48PT:O(PT),160:O(PT)D(PL(PT),PT1)ADB680MPT3PTmZ$P$(PT):XRX:YRY1:1570Z$RM$:XRX:YRY:1570A$A$"T" 4080:1320:6470:680Z$E$:XRX:YRY:15704704026,3986,4022,4021,3979,3978,4016,4015,3973,3972,3970,3969P4007,4006,4004,4003,4001,4000,3998,3997,3992,39523872,3873,3792,3793,3712,3713,3632,3633,3553,3554,3472,3473 3394,3395,3312,3313,3232,3233,3152,31533077,3078,3080,3081,3083,3084,3086,3087,3129,3130,3092,3093, 3095,3096,3178,3179,3101,3102,3144,3145m*3265,3266,3345,3346,3425,3426,3505,3506,3584,3585,3665,366643745,3746,3825,3826,3905,3906,3954,3955>">GO<","MEDITERRANEAN AVE.","COMMUNITY CHEST","BALTIC AVE."C"INCOME TAX";H"READING R.R.","ORIENTAL AVE.","CHANCE","VERMONT AVE."UM"CONNECTICUT AVE."R"JUST VISITING","ST.CHARLES PLACE","ELECTRIC COMPANY","STATES AVE."\"VIRGINIA AVE.","PENNSYLVANIA R.R.","ST. JAMES PLACE"a"COMMUNITY CHEST"Mf"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."M"N. CAROLINA AVE.","COMMUNITY CHEST","PENNSYLVANIA AVE."a"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,320A 450,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,50 JV,P,MAROON,140,10,50,150,450,625,750,70,100,U,P,MAROON,140,10,50,150,450!625,750,70,100,P,MAROON,160,12,60,180,500,700,900,80,100,RRZ!P,ORANGE,180,14,70,200,550,750,950,90,100,CC,P,ORANGE! 180,14,70,200,550,750,950,90,100!P,ORANGE,200,16,80,220,600,800,1000,100,100,FP,P,RED! 220,18,90,250,700,875"1050,110,150,CH,P,RED,220,18,90,250,700,875,1050,110,150,P,RED,2400" 20,100,300z"750,925,1100,120,150,RR,P,YELLOW,260,22,110,330,800,975,1150,130,150" P,YELLOW,260"22,110,330,800,975,1150,130,150,U,P,YELLOW,280,24,120,360,850,1025,1200"$ 140&#.150,GTJ,P,GREEN,300,26,130,390,900,1100,1275,150,200,P,GREEN?#8 300,26,130,390,900#B1100,1275,150,200,CC,P,GREEN,320,28,150,450,1000,1200,1400#L 160,200,RR,CH#VP,DK. BLUE,350,35,175,500,1100,1300,1500,175,200,LT,P,DK. BLUE#` 400,50,200,600,1400 $j1700,2000,200,200,IJS$t PAPOOR 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 $50\%GET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACE%TAKE A RIDE ON THE READING,GO BACK THREE SPACES,ADVANCE TO BOARDWALK%MAKE GENERAL REPAIRS $25 FOR EACH HOUSE$100 FOR EACH HOTEL,& ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENTu& 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 PLAYERG' 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 $100O(  BANK ERROR IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $50y( LIFE INSURANCE MATURES COLLECT $100(6360((" WWGTJ"(2"FP? "%)<"   B&O  "V)F" ϣ ")P"  ")Z" 1- ")d" ΞC C  "*n"͞ Λ 2- ϣ"M*x"CC CC "~*"  "*"    "*"PR  MONOPOLE  SL"+"  CBM-64  "N+" ϣ"+" ? "+"  "+"  ","EC Ζ??? TAX"E," ͖ Λ "v,"  ","  ","ϣ ϣ RRϣ ϣ ϣ"-" ? GO "J-" TAX CC _ "P-s-""";(CR$,X);(CD$,Y);Z$;""y-,-6DC$(1)"   ":DC$(2)"   "-@DC$(3)"   ђ":DC$(4)"   ђ"5.JDC$(5)"   ђ":DC$(6)"   ђ":>.TCT0i.^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::1630 /R1R2DBDB1:1690)/DB0//:/"":q/" COLLECT $200 AS YOU PASS "/M(PT)M(PT)200:::/"HIT ANY KEY TO CONTINUE"/K$//198,0:PT$PT$(PL(PT))/PT$"P"19000PT$"RR"23800PT$"GO"%0PT$"U"270080PT$"FP"3010H0&PT$"JV"\00PT$"GTJ"3150o0:PT$"IT"32100DPT$"LT"31900NPT$"CC"32300XPT$"CH"34700bPT$"IJ"38800l"";15);"TITLE DEED"0vGF19500" PLAYER"PT1PZ3PT1PLPL(PT):P7PT=120((PN$(PL))1)2)"";PN$(PL)""j1(PN$(PL),1):QR(646):65305,QR:""p11" RENT $";P(PL,2)1" WITH 1 HOUSE $";P(PL,3)1" WITH 2 HOUSES ";P(PL,4)2" WITH 3 HOUSES ";P(PL,5)?2" WITH 4 HOUSES ";P(PL,6)g2" WITH HOTEL $";P(PL,7)m22" MORTAGE VALUE $";P(PL,8)2" HOUSES COST $";P(PL,9);"EACH"2 " HOTELS, $";P(PL,9);". PLUS 4 HOUSES"3GF::1730:65305,0:<3 :I141:C$(PL)C$(I)IPL2100H3*:2120|34PS(I)" "PN$(I)" OWNED BY PLAYER #"PS(I):3>" "PN$(I)" STILL FOR SALE.":3H3RMG(PL)1" MORTAGED FOR $"P(PL,8)3\" COST $";P(PL,1)3fPS(PL)02200+4p" OWNED BY PLAYER"PS(PL):H(PL)"WITH";H4zH(PL)5H(PL)"HOUSES."b4H(PL)5" A HOTEL"l422504" YOU HAVE $";M(P7)4" DO YOU WISH TO BUY THIS PROPERTY";:" ";A$:A$(A$,1)4A$"N"23104A$"Y""":221075" OK YOU BOUGHT ";PN$(PL)"":M(P7)M(P7)P(PL,1):PS(PL)PT:2300\5OWP(PL,H(PL)2):PS(PL)PT2300m5MG(PL)23005P5PZ:P6PS(PL):2320:OAH(PL)0OWOW25M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OW:" YOU OWE $";OW51730:1320:65305,0:6 6040:2300I6 MG0:OA0:PC0:I141:C$(PL)C$(I)PS(I)P5PCPC1:MG(I)MGMGO6 p6$ PC2C$(PL)"PURPLE"OA1:6. PC2C$(PL)"DK. BLUE"OA1:68 PC3OA1:6B 6L "":PLPL(PT)6V "PLAYER"PT6` " ؘ "7j "  "/7t " Ε "57~ [7 20(PN$(PL))2)"";PN$(PL)""~7 54276,129:54288,17:54290,177 KO129:T12:I16:G(I),KO::DY1400:7 I16:G(I),0::DY160::7 54276,33:54288,33:54290,33 8 :"RENT $25"A8 "IF 2 R.R.'S ARE OWNED 50"e8 "IF 3 R.R.'S ARE OWNED 100"8 "IF 4 R.R.'S ARE OWNED 200"8 8 "MORTAGE VALUE $100"8 :MG(PL)1"MORTAGED FOR $100":26908 "COST $200"9 :I141:PT$(I)"RR"25509 :2570O9 PS(I)PN$(I)" OWNED BY PLAYER #";PS(I):p9 PN$(I)" STILL FOR SALE.":9 PS(PL)"OWNED BY PLAYER#";PS(PL):26509 "YOU HAVE $"M(PT)9 "DO YOU WISH TO BUY IT";:" ";B$:B$(B$,1):( B$"N"6040:2690:2 B$"Y""":2590;:< M(PT)M(PT)200:PS(PL)PTS:F "OK YOU BOUGHT IT"]:P 2690k:Z OW0:O70:d PS(PL)PT2690:n OW25:I63610:PT$(I)"RR"PS(I)PS(PL)OWOW2:x :OWOWDV:"YOU OWE $";OW:M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OW ; 1730:1320:; ""&; "PLAYER"PTK; " Σ "r; " ͖^ "; " "; "  ":; PLPL(PT); 20(PN$(PL))2)"";PN$(PL)""7< :"IF ONE 'UTILITY IS OWNED PAY 4 TIMES THEAMOUNT SHOWN ON DICE"=< j< "IF BOTH OWNED PAY 10 AMOUNT ON DICE"< D1((1)6)1:D2((1)6)1< DFD1R1:D2R2< :"MORTAGE VALUE $75":< MG(PL)1"MORTAGED FOR $75":3000#=" PS(42PL)PN$(42PL)" OWNED BY PLAYER"PS(42PL):2870F=, PN$(42PL)" STILL FOR SALE."w=6 :PS(PL)"OWNED BY PLAYER#";PS(PL):2950=@ "YOU HAVE $"M(PT)=J "DO YOU WISH TO BUY IT ";B$:B$(B$,1)=T B$"N"6040:3000=^ B$"Y""":2890>h "OK YOU BOUGHT ";PN$(PL)""%>r M(PT)M(PT)1509>| PS(PL)PT:3000M> PS(PL)PT3000j> "DICE SHOW"D1"AND"D2"."> MT4:PS(13)PS(PL)PS(29)PS(PL)MT10> DF0MT10> OWMT(D1D2):"YOU OWE $";OW:M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OW? MT0:1730:1320:? ""+? " FREEK? " "k? "  ? "  ? "  ? " ˜ѕ ? "  @ " 4@ " Y@& :" PARKING":q@0 PF01730:1320:@: :" YOU GET THE FREE PARKING"@D " JACKPOT OF $"FP"!":M(PT)M(PT)FP:FP0::1730@I 1320:AN "";15);"GO TO JAIL"8AX DB3:" FOR ROLLING DOUBLES 3 TIMES IN A ROW!":hAb 16);"":I15:16);"":Ag 16);""::PL(PT)41:JF1:DB0Al KO13:T601101.7:I16:G(I),T::An DY110:Ao T110601.7:I16:G(I),T::: Bp I16:G(I),0:$Bq "";:1730:1320:QBv "";15);"LUXURY TAX"::16);"PAY $75"{B :::M(PT)M(PT)75:FPFP75:1730:B "";15);"INCOME TAX"::16);"PAY $200"B :::M(PT)M(PT)200:FPFP200:1730:1320:B CCCC1:CC16CCCC16/C PZ3PT:CC$CC$(CC):CC1CJ(1)CCCC1:CC$CC$(CC)`C " COMMUNITY CHEST":CC$""sC CC1CJ(1)PTC CC21730:3150C CC3PL(PT)1:MF1:1730:1320:1700:C CC4M(PT)M(PT)45C CC5M(PT)M(PT)50:M(PZ)M(PZ)50D CC6M(PT)M(PT)253D CC7M(PT)M(PT)150:FPFP150LD CC8M(PT)M(PT)20\D CC93430vD CC10M(PT)M(PT)10D CC11M(PT)M(PT)100D* CC12M(PT)M(PT)100D4 CC13M(PT)M(PT)100D> CC14M(PT)M(PT)200DH CC15M(PT)M(PT)50ER CC16M(PT)M(PT)100)E\ 1730:1320::Ef YP0:I140aEp PS(I)(PT)H(I)5YPYP(40H(I))Ez PS(I)(PT)H(I)5YPYP115E :"YOU PAY $"YP:M(PT)M(PT)YP:FPFPYP:E CXCX1:CH16CXCX16F PZ3PT:CH$CH$(CH):CX8CJ(2)CHCX1:CH$CH$(CH)5F " ? ? CHANCE ? ?":CH$""WF CX1M(PT)M(PT)15:FPFP15sF CX21730:1320:3150F CX3PL(PT)1:MF1:1730:1320:1700:1320:F CX4M(PT)M(PT)150F CX53670:MF1F CX63710:MF1G CX7M(PT)M(PT)50G CX8CJ(2)PT=G CX9M(PT)M(PT)50:M(PZ)M(PZ)50SGCX103730:MF1iGCX113750:MF1GCX12PL(PT)PL(PT)3:MF1G$CX133770:MF1G.CX143790G8CX153670:MF1GBCX163830:MF1GL1730:1320:$HVPL(PT)PL(PT)1:PL(PT)406540:PL(PT)PL(PT)40?H`PT$(PL(PT))"RR"3700IHj3670THtDV1:iH~PL(PT)256540yHPL(PT)25:HPL(PT)126540HPL(PT)12:1320:HPL(PT)66540HPL(PT)6:HPL(PT)40:HHDF0:YP0:I140IPS(I)(PT)H(I)5YPYP(25H(I));IPS(I)(PT)H(I)5YPYP100pI:"YOU PAY $"YP:M(PT)M(PT)YP:FPFPYP:1320:IPL(PT)PL(PT)1IPL(PT)406540:PL(PT)PL(PT)40I PT$(PL(PT))"U"3870I3830IMF1:1320:I(""I2JT(PT)JT(PT)1J<"PLAYER #"PT"IS IN JAIL"BJF:"YOU HAVE BEEN IN"JT(PT)"TURNS"_JP"YOU MAY: 1. PAY $50"JZ" 2. USE A 'GET OUT OF JAIL FREE CARD."Jd" 3. TRY TO ROLL DOUBLES."Jn:"CHOICE";I:I1I339500KxI1M(PT)M(PT)50:FPFP50:PL(PT)11:1730:1320 :JE1:gKI2CJ(1)PTCJ(1)0:PL(PT)11:1730:1320:JE1:KI2CJ(2)PTCJ(2)0:PL(PT)11:1730:1320:JE1:KI2"YOU DON'T HAVE A CARD":3950KI31620:DB4060K"YOU DIDN'T ROLL DOUBLES."BLJT(PT)2"YOU MUST PAY THE $50":M(PT)M(PT)50:PL(PT)11:JB1gLJT(PT)21730:1320:FPFP50:yL1730:1320:LPL(PT)111730:1320:JE1:L"YOU MADE IT OUT!!!":PL(PT)11:1730:1320:JB1:DB0:L6200M"":PF"MONEY IN FREE PARKING JACKPOT $";FPFM"PLAYER 1 HAS $";M(1):"PLAYER 2 HAS $";M(2)^M:"PLAYER";PT"U"vM::15);"OPTIONS"|MM"" R=REVIEW PROPERTIES"M," L=LIST ALL PROPERTIES"M6" B=BUILD HOUSES/HOTELS"N@" S=SELL PROPERTIES TO OTHER PLAYER"2NJ" M=MORTAGE PROPERTIES(SELL HOUSES)"RNT" D=DISPLAY TITLE DEEDS"mN^" Q=RETURN TO GAME"Nh" XX=END GAME":Nr"CHOICE ";C$N|C$""4210NC$"R"4320NC$"L"4490NC$"B"4640NC$"S"5080OC$"M"5440OC$"D"6510&OC$"Q"8OC$"XX"6280BO4080fO"FOR WHICH PLAYER (1 OR 2)";PNzOPN1PN24320O""O6)"PROPERTIES FOR PLAYER ";PNOOI140:PO$"":PS(I)PNPN$(I);OPS(I)PN4450O&PT$(I)"P"44307P020((PN$(I))2));" -";:H(I)5PO$(H(I))" HS"RP:H(I)5PO$" HOTEL"wPDPO$PO$"/$"((P(I,H(I)2)),2)PNMG(I)1PO$"- MORTAGED"PXPO$PbPl:CJ(1)PNCJ(2)PN"GET OUT OF JAIL FREE CARD."Pv"PLAYER"PN"HAS $";M(PN)Q:1730:1320:Q""[QTT$"NAME OWNER/#HOUSES":TT$QK140:PT$(K)"P"PT$(K)"RR"PT$(K)"U"4600QPN$(K)"";21);Q33)QP$(PS(K)):PP$((H(K)),2):H(K)4PP$"H"QPT$(K)"P"PP$"X"RMG(K)PP$"MG"$RP$P$" -"PP$RH"WHICH COLOR";C$RRI8141:C$(C$(I8),(C$))PLI8:C$C$(I8):4720S\I8Sf"ILLEGAL GROUP":4680)SpP7PTBSzP5P7:2320:MGOA0OSOA4770S"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";S" IS MORTAGED.":1730:1320:S" PROPERTY NAME # OF HOUSES(5=HOTEL)"+THS0:IPLPL4:C$C$(I)PN$(I)"";30);H(I):HSHSH(I)1TdT:"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"T"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)5)TT"YOU HAVE $"M(PT)T"HOTELS AUTOMATICALLY ADDED AFTER 4TH HOUSE"7U"HOW MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX((5PC)HS):MX")"LUHN:HNMX4850jUH7(HNPC):H8HN(H7PC)UM(P7)(HNP(PL,9))"YOU DON'T HAVE ENOUGH MONEY!":4850UHN0"OK":1730:1320:V$M(P7)M(P7)(HNP(PL,9)):EPLPL4:C$C$(E)H(E)H(E)H7 V.V8H84940"VB5070FVL"YOU HAVE"H8"HOUSES LEFT OVER"VV:K0:FPLPL4:C$C$(F)F1F11:F1,PN$(F);" "H(F)V`::G1H8Vj"WHERE DO YOU WANT HOUSE #"G;:HL:HLHO"CAN'T":4970VtF20:F10:F90W~FPLPL3:C$C$(F)F1F11:F1HLF9FWF8WF90"NO SUCH NUMBER":4970jWH20:FPLPL3:C$C$(F)H(F9)H(F)H2H21pWWH2"ILLEGAL DISTRIBUTION OF HOUSES!":4970WHOHL:H(F9)H(F9)1WGW"DONE":1730:1320:X"WHAT PLAYER HAS A PROPERTY TO SELL";P1XP101730:1320:9XP2P11:P22P2P22hX"IS IT A PROPERTY";:Q$:(Q$,1)"N"5320X"IN WHAT COLOR GROUP":PG$X :"WHICH";C$XI6141:C$(C$(I6),(C$))PLI6:C$C$(I6):5170XI6X("ILLEGAL GROUP":5130Y2"# PROPERTY";30);"OWNER"\Y<HO0:CT0:IPLPL4:C$C$(I)CTCT1:CT" "PN$(I)"";35);PS(I)kYFH(I)HO1qYPYZ:"WHAT NUMBER DOES PLAYER"P1"WANT TO SELL"YdTPYnCT0:IPLPL4:C$C$(I)CTCT1:CTTPT4I:FF1YxZFF0"ILLEGAL NUMBER":5210HZPS(T4)P1"PLAYER #"P1"DOES NOT OWN IT.":5080ZHO"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":5310Z "WHAT IS THE AGREED SELLING PRICE";SPZM(P1)M(P1)SP:M(P2)M(P2)SP:PS(T4)P2["PLAYER #"P2"BOUGHT "PN$(T4)"":"FOR $"SP&[:1730:1320:C["PROPERTY";30);"OWNER"y[I63610:NN1:N" "PN$(I)"";35);PS(I)::N0[" 5 "PN$(13)"";35);PS(13):" 6 "PN$(29)"";35);PS(29)["WHICH #";NM:NM0[NM1NM65350 \NM5PS(13)P1SN13:5410)\NM6PS(29)P1SN29:5410Z\NM0NM5SN6((NM1)10):PS(SN)P15410y\"YOU DON'T OWN IT.":5320\""AGREED PRICE";SP\,M(P1)M(P1)SP:M(P2)M(P2)SP:PS(SN)P2\61730:1320:]@"":" OPTIONS":"0 RETURN TO MAIN MENU":"1 MORTAGE PROPERTY"H]J"2 MORTAGE RAILROAD":"3 MORTAGE UTILITY"]T"4 LIFT MORTAGE(AT 10% INTEREST)":"5 SELL HOUSES":]^"CHOICE";GG:GG0GG55470]hGG01730:1320:]rGG5510,5740,5830,5910,6550]|54400^:"ON WHICH GROUP IS THE PROPERTY TO BE":"MORTAGED LOCATED?":PG$H^:"COLOR GROUP";C$^I6141:C$(C$(I6),(C$))PLI6:C$C$(I6):5560^I6^"ILLEGAL GROUP":5520^CM0:IPLPL3:C$C$(I)CMCMH(I)^_CM"CAN'T MORTAGE PROPERTIES WITH HOUSES STILL ON THAT GROUP.":5730?_"# PROPERTY";25);"OWNER"c_CT0:IPLPL4:C$C$(I)5630_CTCT1:CT" "PN$(I)"";27)PS(I);:PP$"":MG(I)PP$"MORTAGED"_PP$__:"WHAT NUMBER IS TO BE MORTAGED.";:TP_TP01730:1320:4`CT0:IPLPL4:C$C$(I)CTCT1:CTTPT4I:FF1:`&\`0FF0"ILLEGAL NUMBER":5640`:PS(T4)PT"YOU DON'T OWN IT.":1730:1320:5440`DMG(T4)1"ALREADY MORTAGED":5640`N:"OK":MG(T4)1aX"YOU GOT $"P(T4,8)"FOR YOUR MORTAGE.":M(PT)M(PT)P(T4,8)!ab1730:1320:jalRC0:I63610:PT$(I)"RR"RCRC1:RC" "PN$(I)" PLR.#"PS(I)pava"WHICH #";RXaRX1RG45760aRX6((RG1)10)aPS(RG)PT"YOU DON'T OWN IT.":1730:1320:5440bMG(RX)1"ALREADY MORTAGED.":1730:5440KbMG(RX)1:"YOU GET $100 FOR MORTAGE.":M(PT)M(PT)100]b1730:1320:qbU(1)13:U(2)29bI12:I" "PN$(U(I))"":b"WHICH?";UMbUM1UM25850bPS(U(UM))PT"YOU DON'T OWN IT.":1730:1320:5440"cMG(U(UM))1"ALREADY MORTAGED.":1730:5440]cMG(U(UM))1:"YOU GET $75 FOR MORTAGE.":M(PT)M(PT)75oc 1730:1320:c:"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTAGE."c ML0:I141:PS(I)(PT)MG(I)1MLML1:ML" "PN$(I)""c*+d4ML0"YOU HAVE NO MORTAGED PROPERTIES.":1730:132O:Zd>:"WHICH MORTAGE DO YOU WAN'T TO LIFT";LF{dHLF1LFML"ILLEGAL":5950dRML0:I141:PS(I)(PT)MG(I)1MLML1:MLLFFTId\df"THE MORTAGE IS FOR $"P(FT,8)ep"YOU MUST PAY $";:PYP(FT,8)1.10:PYAezPYM(PT)"YOU DON'T HAVE THE MONEY.":1730:1320:]eM(PT)M(PT)PY:MG(FT)0oe1730:1320:|eAF6060eePLPL(PT):PN$(PL)" WILL NOW BE AUCTIONED"e"TO THE HIGHEST BIDDER"ePZ3PT::HB0:PAPT:AC0::HB0:PAPT:AC0 fPA3PABf"PLAYER"PA"WHAT'S YOUR BID";:BD:BD(BD):ACAC1`fBD0(AC1)26140,6090fBDHB"YOU MUST BID HIGHER THAN"HB"OR BID '0'":6100fHBBD:HRPA:6090fHB06190fPN$(PL)" GOES TO"f"PLAYER"HR" FOR $"HBgM(HR)M(HR)HB:PS(PL)HRg$Bg.:PN$(PL)" HAS NOT BEEN PURCHASED.":eg8"":"PLAYER #"PT"IS BROKE!!"gB"IF YOU CAN'T RAISE $"(M(PT))"THEN YOU ARE OUT OF THE GAME."gL"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL YOU FINISH TRYING TO";hV" RAISE MONEY"h`1730:4080"hjM(PT)0NhtM(PT)0"YOU ARE BANKRUPT!!!":PT3PToh~" --PLAYER #"PT"WINS!-- ":h"GAME OVER"h"THE WINNER IS ";hM(1)M(2)"PLAYER #1 WITH $"M(1)hM(2)M(1)"PLAYER #2 WITH $"M(2)i M(2)M(1)"NEITHER, IT'S A TIE!"(i"PLAYER 1 = $";M(1)Bi"PLAYER 2 = $";M(2)Hifi54296,0:I16:G(I),0:uiJ832939iI:J,I:i 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0j 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0#j  197,185,0,218,153,0,198,185nj 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153j 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197k( 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96k<kFP412ZkPY$""PN$(PL(P4))(" ",18((PN$(PL(P4)))2))""kZMN$"$"((M(P4)),2)" ":X13:Y2P43:Z$Y$:1570kdYY1:Z$MN$:1570::kn"DISPLAY DEEDS FOR WHICH COLOR GROUP:":PG$:C$:%lxP3PL:I141:C$(C$(I),(C$))GF1:PLI:1900:GF03l:PLP3:]lM(PT)M(PT)200:"COLLECTED $200":l"ON WHICH COLOR GROUP:":PG$:C$lPL0:I4111:C$(C$(I),(C$))PLI:C$C$(I)lI:PL6590l"ILLEGAL GROUP":6550mDW0:HN0:IPLPL3:PS(I)(PT)C$C$(I)1/mC$C$(I)HNHNH(I)5mxmDW1HN0"YOU DON'T OWN HOUSES ON THESE PROPERTIES":1730:m"# PROPERTY";25);"HOUSES(5=HOTEL)"mCT0:IPLPL3:C$C$(I)CTCT1:CT" "PN$(I)"";27)H(I)m%n"WANT TO REMOVE ALL THESE HOUSES";A$:(A$,1)"Y"6800Pn:"WHAT # TO REMOVE A HOUSE FROM.";TP]nTP0 n"CT0:IPLPL3:C$C$(I)CTCT1:CTTPT4I:FF1n,n6FF0"ILLEGAL NUMBER":6670n@H(T4)0"NO HOUSES THERE.":6670oJNN0:NHH(T4):IPLPL3:H(I)NHNN1oTBo^NN"YOU CAN'T REMOVE THAT HOUSE.":6670]oh:"OK.":H(T4)H(T4)1norHMP(PL,9)2o|"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)M(PT)HMo1730:5440oHM0:IPLPL3:C$C$(I)HMHM(P(PL,9)2)H(I):H(I)0'p:"YOU GOT $"HM