d MONOPOLE CBM-64;"":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) P$(2),PL(2),O(2),JT(2),M(2),CJ(2)G 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$""K 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)75 CH((1)16)1:CC((1)16)1* I141:J01:D(I,J)::Z 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)::390 @"  Ъ "F B"  "t D" " J" " 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,79 54278,248:54286,248:54292,248 54276,33:54288,33:54290,33 G(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::64701620:R1R2410PT(R1R2)2D(PL(1),0),49:D(PL(2),1),50PT$(PT)MS$"PLAYER"PT$" STARTS"3XRX:YRY:Z$MS$:1570:DE11500::Z$E$:1570:680FDV2:MF0:JB0YPL(PT)41590fJT(PT)0u1620:DF1DB3TN:3150:TT:6470:620M1DR:PL(PT)PL(PT)1O(PT),160:PL(PT)40PL(PT)PL(PT)40:TN:1700:TTD(PL(PT),PT1),48PT &O(PT)D(PL(PT),PT1)D0T1506PT:I16:G(I),T::\DI16:G(I),0::M|ND(PL(PT),PT1),48PT:6470XTN:1770:TT:6470:M(PT)06200:TTbPL(PT)11D(41,PT1),160:D(11,PT1),48PT lJBJB0:O(PT),160:O(PT)D(PL(PT),PT1):520<vMFMF0:O(PT),160:O(PT)D(PL(PT),PT1):590nJEJE0:O(PT),160:O(PT)D(PL(PT),PT1):680JFJF0:D(PL(PT),PT1),48PT:O(PT),160:O(PT)D(PL(PT),PT1)DB680PT3PTZ$P$(PT):XRX:YRY1:1570Z$RM$:XRX:YRY:1570BC$:BC$""700-A$:A$""710RA$"T"TN:4080:TT:6470:680lZ$E$:XRX:YRY:1570u4701978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,19211959,1958,1956,1955,1953,1952,1950,1949,1944,1904.1824,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,1618741697,1698,1777,1778,1857,1858,1906,1907>">GO<","MEDITERRANEAN AVE.","COMMUNITY CHEST","BALTIC AVE."C"INCOME TAX"H"READING R.R.","ORIENTAL AVE.","CHANCE","VERMONT AVE."M"CONNECTICUT AVE."CR"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."Du"ATLANTIC AVE."z"VENTNOR AVE.","WATER WORKS","MARVIN GARDENS","GO TO JAIL""PACIFIC AVE.""N. CAROLINA AVE.","COMMUNITY CHEST","PENNSYLVANIA AVE.""SHORT LINE"F"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,320450,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,450625,750,70,100,P,MAROON,160,12,60,180,500,700,900,80,100,RRP,ORANGE,180,14,70,200,550,750,950,90,100,CC,P,ORANGE 180,14,70,200,550,750,950,90,100XP,ORANGE,200,16,80,220,600,800,1000,100,100,FP,P,REDt 220,18,90,250,700,8751050,110,150,CH,P,RED,220,18,90,250,700,875,1050,110,150,P,RED,240 20,100,300750,925,1100,120,150,RR,P,YELLOW,260,22,110,330,800,975,1150,130,150* P,YELLOW,260w22,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,GREEN8 300,26,130,390,900B1100,1275,150,200,CC,P,GREEN,320,28,150,450,1000,1200,14000L 160,200,RR,CHtVP,DK. BLUE,350,35,175,500,1100,1300,1500,175,200,LT,P,DK. BLUE` 400,50,200,600,1400j1700,2000,200,200,IJt PAY POOR TAX $15,GO DIRECTLY TO JAIL,ADVANCE TO GO(COLLECT $200)-~ YOUR BUILDING AND LOAN MATURES COLLECT $150r ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENTADVANCE TO ILLINOIS AVE.,BANK PAYS YOU DIVIDEND OF $50GET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACECTAKE 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*# SHOWNT GET OUT OF JAIL FREE,GO TO JAIL,ADVANCE TO GO(COLLECT $200) FROM SALE OF STOCK YOU GET $45,COLLECT $50 FROM EVERY PLAYER RECEIVE FOR SERVICES $25,PAY SCHOOL TAX OF $150,TAX REFUND COLLECT $20! ASSESSED FOR REPAIRS $40 PER HOUSE $115 PER HOTELc YOU HAVE WON SECOND PRIZE IN A BEAUTY CONTEST COLLECT $10 YOU INHERIT $100,XMAS FUND MATURES COLLECT $100,PAY HOSPITAL $100  BANK ERROR IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $50  LIFE INSURANCE MATURES COLLECT $100 6360U (" WWGTJ" 2"FP? " <"   B&O  " F"Ϸ"$!P"  "W!Z" 1- "!d" ΞC C "!n"͞ 2- "!x"CC CC """ "P""   """PR  MONOPOLY  SL"""  CBM-64  """ "#" ? "M#" "#" ͪ"#" EC Ζ???ΪTAX "#" ͖ "$" "D$"̯"}$" RR   "$" ? GO "$" TAX CC _ "$%""";(CR$,X);(CD$,Y);Z$;""%,T%6DC$(1)"   ":DC$(2)"   "%@DC$(3)"   ђ":DC$(4)"   ђ"%JDC$(5)"   ђ":DC$(6)"   ђ":%TCT0&^R1((1)6)1:R2((1)6)1:DRR1R2&cI16:G(I),DR10:D&h"";(CR$,X1);(CD$,Y1);DC$(R1)i&r"";(CR$,X2);(CD$,Y2);DC$(R2)~&wI16:G(I),0:&|CTCT1:CT7DELAY175::1630&R1R2DBDB1:1690&DB0&&"":'" COLLECT $200 AS YOU PASS "('M(PT)M(PT)200:::Q'"HIT ANY KEY TO CONTINUE"f'W$:W$""1740z'K$:K$""1750''198,0:PT$PT$(PL(PT))'PT$"P"1900'PT$"RR"2380'PT$"GO"'PT$"U"2700'PT$"FP"3010(&PT$"JV"(0PT$"GTJ"3150,(:PT$"IT"3210?(DPT$"LT"3190R(NPT$"CC"3230e(XPT$"CH"3470x(bPT$"IJ"3880(l"";15);"TITLE DEED"(vGF1950(" PLAYER"PT(PO3PT(PLPL(PT):P7PT(20((PN$(PL))1)2)"";PN$(PL)""')(PN$(PL),1):QR(646):53280,QR:""-)T)" RENT $";P(PL,2)~)" WITH 1 HOUSE $";P(PL,3))" WITH 2 HOUSES ";P(PL,4))" WITH 3 HOUSES ";P(PL,5))" WITH 4 HOUSES ";P(PL,6)$*" WITH HOTEL $";P(PL,7)**U*" MORTAGE VALUE $";P(PL,8)*" HOUSES COST $";P(PL,9);"EACH"* " HOTELS, $";P(PL,9);". PLUS 4 HOUSES"*GF::1730:53280,0:* :I141:C$(PL)C$(I)IPL2100+*:21209+4PS(I)" "PN$(I)" OWNED BY PLAYER #"PS(I):]+>" "PN$(I)" STILL FOR SALE.":c+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"),2250B," YOU HAVE $";M(P7)," DO YOU WISH TO BUY THIS PROPERTY";:" ";A$:A$(A$,1),A$"N"2310,A$"Y""":2210," 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)2300Y-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:- 6040:2300. MG0:OA0:PC0:I141:C$(PL)C$(I)PS(I)P5PCPC1:MG(I)MGMG!. B.$ PC2C$(PL)"PURPLE"OA1:e.. PC2C$(PL)"DK. BLUE"OA1:v.8 PC3OA1:|.B .L "":PLPL(PT).V "PLAYER"PT.` " ؘ ".j "  "/t " Ε "/~ -/ 20(PN$(PL))2)"";PN$(PL)""P/ 54276,129:54288,17:54290,17/ KO129:T12:I16:G(I),KO::DL1400:/ I16:G(I),0::DL160::/ 54276,33:54288,33:54290,33 / :"RENT $25"0 "IF 2 R.R.'S ARE OWNED 50"70 "IF 3 R.R.'S ARE OWNED 100"[0 "IF 4 R.R.'S ARE OWNED 200"a0 0 "MORTAGE VALUE $100"0 :MG(PL)1"MORTAGED FOR $100":26900 "COST $200"0 :I141:PT$(I)"RR"25500 :2570!1 PS(I)PN$(I)" OWNED BY PLAYER #";PS(I):B1 PN$(I)" STILL FOR SALE.":q1 PS(PL)"OWNED BY PLAYER#";PS(PL):26501 "YOU HAVE $"M(PT)1 "DO YOU WISH TO BUY IT";:" ";B$:B$(B$,1)1( B$"N"6040:269012 B$"Y""":2590 2< M(PT)M(PT)200:PS(PL)PT%2F "OK YOU BOUGHT IT"/2P 2690=2Z OW0:O70Q2d PS(PL)PT26902n OW25:I63610:PT$(I)"RR"PS(I)PS(PL)OWOW22x :OWOWDV:"YOU OWE $";OW:M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OW2 1730:2 ""2 "PLAYER"PT3 " Σ ">3 " ͖^ "c3 " "3 "  ":3 PLPL(PT)3 20(PN$(PL))2)"";PN$(PL)""4 :"IF ONE 'UTILITY IS OWNED PAY 4 TIMES THEAMOUNT SHOWN ON DICE" 4 64 "IF BOTH OWNED PAY 10 AMOUNT ON DICE"X4 D1((1)6)1:D2((1)6)1l4 DFD1R1:D2R24 :"MORTAGE VALUE $75":4 MG(PL)1"MORTAGED FOR $75":30004" PS(42PL)PN$(42PL)" OWNED BY PLAYER"PS(42PL):28705, PN$(42PL)" STILL FOR SALE."C56 :PS(PL)"OWNED BY PLAYER#";PS(PL):2950Z5@ "YOU HAVE $"M(PT)5J "DO YOU WISH TO BUY IT ";B$:B$(B$,1)5T B$"N"6040:30005^ B$"Y""":28905h "OK YOU BOUGHT ";PN$(PL)""5r M(PT)M(PT)1506| PS(PL)PT:30006 PS(PL)PT300066 "DICE SHOW"D1"AND"D2"."b6 MT4:PS(13)PS(PL)PS(29)PS(PL)MT10r6 DF0MT106 OWMT(D1D2):"YOU OWE $";OW:M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OW6 MT0:1730:6 ""6 " FREE7 " "17 "  Q7 "  q7 "  7 " ˜ѕ 7 "  7 " 7 " 8& :" PARKING":180 PF01730:Z8: :" YOU GET THE FREE PARKING"8D " JACKPOT OF $"FP"!":M(PT)M(PT)FP:FP0::1730:8N "";15);"GO TO JAIL"8X DB3:" FOR ROLLING DOUBLES 3 TIMES IN A ROW!":9b 16);"":I15:16);"":I9g 16);""::PL(PT)41:JF1:DB0v9l KO13:T601101.7:I16:G(I),T::9n DL110:9o T110601.7:I16:G(I),T:::9p I16:G(I),0:9q "";:1730::v "";15);"LUXURY TAX"::16);"PAY $75"+: :::M(PT)M(PT)75:FPFP75:1730:Y: "";15);"INCOME TAX"::16);"PAY $200": :::M(PT)M(PT)200:FPFP200:1730:: CCCC1:CC16CCCC16: PO3PT:CC$CC$(CC):CC1CJ(1)CCCC1:CC$CC$(CC); " COMMUNITY CHEST":U0500:U:CC$""); CC1CJ(1)PT?; CC21730:3150e; 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)25; CC7M(PT)M(PT)150:FPFP150; CC8M(PT)M(PT)20 < CC93430&< CC10M(PT)M(PT)10A< CC11M(PT)M(PT)100\<* CC12M(PT)M(PT)100w<4 CC13M(PT)M(PT)100<> CC14M(PT)M(PT)200 CH1M(PT)M(PT)15:FPFP15#> CH21730:3150I> CH3PL(PT)1:MF1:1730:1700:c> CH4M(PT)M(PT)150x> CH53670:MF1> CH63710:MF1> CH7M(PT)M(PT)50> CH8CJ(2)PT> CH9M(PT)M(PT)50:M(PO)M(PO)50>CH103730:MF1 ?CH113750:MF1-?CH12PL(PT)PL(PT)3:MF1C?$CH133770:MF1T?.CH143790j?8CH153670:MF1?BCH163830:MF1?L1730:?VPL(PT)PL(PT)1:PL(PT)406540:PL(PT)PL(PT)40?`PT$(PL(PT))"RR"3700?j3670?tDV1:@~PL(PT)256540@PL(PT)25:,@PL(PT)126540<@PL(PT)12:P@PL(PT)66540_@PL(PT)6:o@PL(PT)40:u@@DF0:YP0:I140@PS(I)(PT)H(I)5YPYP(25H(I))@PS(I)(PT)H(I)5YPYP100A:"YOU PAY $"YP:M(PT)M(PT)YP:FPFPYP:APL(PT)PL(PT)1 JH"WHICH COLOR";C$WJRI8141:C$(C$(I8),(C$))PLI8:C$C$(I8):4720_J\I8zJf"ILLEGAL GROUP":4680JpP7PTJzP5P7:2320:MGOA0JOA4770J"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";K" IS MORTAGED.":1730:BK" PROPERTY NAME # OF HOUSES(5=HOTEL)"KHS0:IPLPL4:C$C$(I)PN$(I)"";30);H(I):HSHSH(I)KK:"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"K"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)5)KL"YOU HAVE $"M(PT)DL"HOTELS AUTOMATICALLY ADDED AFTER 4TH HOUSE"L"HOW MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX((5PC)HS):MX")"LHN:HNMX4850LH7(HNPC):H8HN(H7PC)LM(P7)(HNP(PL,9))"YOU DON'T HAVE ENOUGH MONEY!":4850MHN0"OK":1730:TM$M(P7)M(P7)(HNP(PL,9)):EPLPL4:C$C$(E)H(E)H(E)H7ZM.gM8H84940qMB5070ML"YOU HAVE"H8"HOUSES LEFT OVER"MV:F10:FPLPL4:C$C$(F)F1F11:F1,PN$(F);" "H(F)M`::G1H8Nj"WHERE DO YOU WANT HOUSE #"G;:HL:HLHO"CAN'T":49701NtF20:F10:F90^N~FPLPL3:C$C$(F)F1F11:F1HLF9FeNFNF90"NO SUCH NUMBER":4970NH20:FPLPL3:C$C$(F)H(F9)H(F)H2H21NNH2"ILLEGAL DISTRIBUTION OF HOUSES!":4970OHOHL:H(F9)H(F9)1OG#O"DONE":1730:PO"WHAT PLAYER HAS A PROPERTY TO SELL";P1bOP101730:|OP2P11:P22P2P22O"IS IT A PROPERTY";:Q$:(Q$,1)"N"5320O"IN WHAT COLOR GROUP":PG$O :"WHICH";C$PI6141:C$(C$(I6),(C$))PLI6:C$C$(I6):5170PI67P("ILLEGAL GROUP":5130WP2"# PROPERTY";30);"OWNER"P<HO0:CT0:IPLPL4:C$C$(I)CTCT1:CT" "PN$(I)"";35);PS(I)PFH(I)HO1PPPZ:"WHAT NUMBER DOES PLAYER"P1"WANT TO SELL"PdTP-QnCT0:IPLPL4:C$C$(I)CTCT1:CTTPT4I:FF13QxUQFF0"ILLEGAL NUMBER":5210QPS(T4)P1"PLAYER #"P1"DOES NOT OWN IT.":5080QHO"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":5310Q "WHAT IS THE AGREED SELLING PRICE";SP%RM(P1)M(P1)SP:M(P2)M(P2)SP:PS(T4)P2UR"PLAYER #"P2"BOUGHT "PN$(T4)"":"FOR $"SPcR:1730:R"PROPERTY";30);"OWNER"RI63610:NN1:N" "PN$(I)"";35);PS(I)::N0R" 5 "PN$(13)"";35);PS(13):" 6 "PN$(29)"";35);PS(29)S"WHICH #";NM:NM0&SNM1NM65350FSNM5PS(13)P1SN13:5410fSNM6PS(29)P1SN29:5410SNM0NM5SN6((NM1)10):PS(SN)P15410S"YOU DON'T OWN IT.":5320S""AGREED PRICE";SPS,M(P1)M(P1)SP:M(P2)M(P2)SP:PS(SN)P2T61730:NT@"":" OPTIONS":"0 RETURN TO MAIN MENU":"1 MORTAGE PROPERTY"TJ"2 MORTAGE RAILROAD":"3 MORTAGE UTILITY"TT"4 LIFT MORTAGE(AT 10% INTEREST)":"5 SELL HOUSES":T^"CHOICE";GG:GG0GG55470ThGG01730:UrGG5510,5740,5830,5910,6550U|5440aU:"ON WHICH GROUP IS THE PROPERTY TO BE":"MORTAGED LOCATED?":PG$yU:"COLOR GROUP";C$UI6141:C$(C$(I6),(C$))PLI6:C$C$(I6):5560UI6U"ILLEGAL GROUP":5520UCM0:IPLPL3:C$C$(I)CMCMH(I)VPVCM"CAN'T MORTAGE PROPERTIES WITH HOUSES STILL ON THAT GROUP.":5730pV"# PROPERTY";25);"OWNER"VCT0:IPLPL4:C$C$(I)5630VCTCT1:CT" "PN$(I)"";27)PS(I);:PP$"":MG(I)PP$"MORTAGED"VPP$VW:"WHAT NUMBER IS TO BE MORTAGED.";:TP(WTP01730:_WCT0:IPLPL4:C$C$(I)CTCT1:CTTPT4I:FF1eW&W0FF0"ILLEGAL NUMBER":5640W:PS(T4)PT"YOU DON'T OWN IT.":1730:5440WDMG(T4)1"ALREADY MORTAGED":5640WN:"OK":MG(T4)14XX"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 #";RGXRG1RG45760XRG6((RG1)10)XPS(RG)PT"YOU DON'T OWN IT.":1730:5440*YMG(RG)1"ALREADY MORTAGED.":1730:5440dYMG(RG)1:"YOU GET $100 FOR MORTAGE.":M(PT)M(PT)100pY1730:YU(1)13:U(2)29YI12:I" "PN$(U(I))"":Y"WHICH?";UMYUM1UM25850YPS(U(UM))PT"YOU DON'T OWN IT.":1730:5440/ZMG(U(UM))1"ALREADY MORTAGED.":1730:5440jZMG(U(UM))1:"YOU GET $75 FOR MORTAGE.":M(PT)M(PT)75vZ 1730:Z:"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTAGE."Z ML0:I141:PS(I)(PT)MG(I)1MLML1:ML" "PN$(I)""Z*,[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) \p"YOU MUST PAY $";:PYP(FT,8)1.10:PY<\zPYM(PT)"YOU DON'T HAVE THE MONEY.":1730:X\M(PT)M(PT)PY:MG(FT)0d\1730:q\AF6060w\\PLPL(PT):PN$(PL)" WILL NOW BE AUCTIONED"\"TO THE HIGHEST BIDDER"\PO3PT::HB0:PAPT:AC0::HB0:PAPT:AC0]PA3PA7]"PLAYER"PA"WHAT'S YOUR BID";:BD:BD(BD):ACAC1U]BD0(AC1)26140,6090]BDHB"YOU MUST BID HIGHER THAN"HB"OR BID '0'":6100]HBBD:HRPA:6090]HB06190]PN$(PL)" GOES TO"]"PLAYER"HR" FOR $"HB^M(HR)M(HR)HB:PS(PL)HR ^$7^.:PN$(PL)" HAS NOT BEEN PURCHASED.":Z^8"":"PLAYER #"PT"IS BROKE!!"^B"IF YOU CAN'T RAISE $"(M(PT))"THEN YOU ARE OUT OF THE GAME."^L"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL YOU FINISH TRYING TO";^V" RAISE MONEY"_`1730:4080_jM(PT)0C_tM(PT)0"YOU ARE BANKRUPT!!!":PT3PTd_~" --PLAYER #"PT"WINS!-- ":u_"GAME OVER"_"THE WINNER IS ";_M(1)M(2)"PLAYER #1 WITH $"M(1)_M(2)M(1)"PLAYER #2 WITH $"M(2)` M(2)M(1)"NEITHER, IT'S A TIE!"`"PLAYER 1 = $";M(1)7`"PLAYER 2 = $";M(2)=`[`54296,0:I16:G(I),0:j`J832939x`I:J,I:` 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0` 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0a  197,185,0,218,153,0,198,185ca 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153a 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197a( 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96a<bFP412PbPY$""PN$(PL(P4))(" ",18((PN$(PL(P4)))2))""bZMN$"$"((M(P4)),2)" ":X13:Y2P43:Z$Y$:1570bdYY1:Z$MN$:1570::bn"DISPLAY DEEDS FOR WHICH COLOR GROUP:":PG$:C$:cxP3PL:I141:C$(C$(I),(C$))GF1:PLI:1900:GF0)c:PLP3:ScM(PT)M(PT)200:"COLLECTED $200":yc"ON WHICH COLOR GROUP:":PG$:C$cPL0:I4111:C$(C$(I),(C$))PLI:C$C$(I)cI:PL6590c"ILLEGAL GROUP":6550 dDO0:HN0:IPLPL3:PS(I)(PT)C$C$(I)DO1&dC$C$(I)HNHNH(I),dodDO1HN0"YOU DON'T OWN HOUSES ON THESE PROPERTIES":1730:d"# PROPERTY";25);"HOUSES(5=HOTEL)"dCT0:IPLPL3:C$C$(I)CTCT1:CT" "PN$(I)"";27)H(I)de"WANT TO REMOVE ALL THESE HOUSES";A$:(A$,1)"Y"6800Ge:"WHAT # TO REMOVE A HOUSE FROM.";TPTeTP0 e"CT0:IPLPL3:C$C$(I)CTCT1:CTTPT4I:FF1e,e6FF0"ILLEGAL NUMBER":6670e@H(T4)0"NO HOUSES THERE.":6670fJNN0:NHH(T4):IPLPL3:H(I)NHNN1 fT9f^NN"YOU CAN'T REMOVE THAT HOUSE.":6670Tfh:"OK.":H(T4)H(T4)1efrHMP(PL,9)2f|"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)M(PT)HMf1730:5440fHM0:IPLPL3:C$C$(I)HMHM(P(PL,9)2)H(I):H(I)0g:"YOU GOT $"HM"FOR YOUR HOUSES":M(PT)M(PT)HM:6790