d MONOPOLY 2001*i (C)JOHN O'HAREDk LAST UPDATED 3/9/81nn"":53,115:52,57::59468,12:1730sPG$" PURPLE, LT. BLUE, MAROON, ORANGE, RED, YELLOW, GREEN, DK. BLUE"xPN$(42),D(42,1),CH$(16),CC$(16),P(42,9),PT$(42),C$(42),PS(42),H(42),MG(42)7 P$(2),PL(2),O(2),JT(2),M(2),CJ(2)z320:"DO YOU WANT AUCTION RULE (Y OR N)";Q$:(Q$,1)"Y"AF1"WANT FREE PARKING JACKPOT OPTION ";Q$:(Q$,1)"Y"PF1:FP500M(1)1500:M(2)1500:PL(1)1:PL(2)1:DV2?CD$"":CR$""wX18:Y110:X223:Y210:RX6:RY18:TN29500:TT30000E$" ":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)755CH((1)16)1:CC((1)16)1TI141:J01:D(I,J)::P$(1)" PLAYER 1":P$(2)" PLAYER 2"I141:PN$(I)::I141:PT$(I):PT$(I)"P"290C$(I):J19:P(I,J):J"I ,I116:CH$(I)::I116:CC$(I)::450-@7)"ΥЧ Ч "NJ7)" ̺ ̺ͥ ϣ ̺ "^:12)" ":12)" ":12)" ":17);"BY":13);"JOHN O'HARE"::"HIT 'R' TO ROLL DICE AND 'T' FOR TRANSACTION MENU."4 " '0' CAN BE USED TO RETURN FROM MOST SUBROUTINES"i :"DEVELOPED PROPERTIES MAY NOT BE TRADED.":: 59467,16:59466,15:59464,0:(29500)1607290 1460:PK12:D(1,PK1),48PK:O(PK)D(1,PK1):PTPK::8000 1760:R1R2490 PT(R1R2)2( D(PL(1),0),49:D(PL(2),1),506 PT$(PT)W MS$"PLAYER"PT$" STARTS" &XRX:YRY:Z$MS$:1710:DE11500::Z$E$:1710:830 DDV2:MF0:JB0 NPL(PT)41700 XJT(PT)0 b1760:DF1 l DB3TN:3410:TT:8000:760 vM1DR:PL(PT)PL(PT)1K O(PT),160:PL(PT)40PL(PT)PL(PT)40:TN:1870:TTe D(PL(PT),PT1),48PT~ O(PT)D(PL(PT),PT1) 59464,11750(PT1) 59464,0:UD(99):59464,11750(PT1)  DE1100:DE:59464,0:M  D(PL(PT),PT1),48PT:8000- TN:1960:TT:8000:M(PT)07120:TT^ PL(PT)11D(41,PT1),160:D(11,PT1),48PT JBJB0:O(PT),160:O(PT)D(PL(PT),PT1):630 MFMF0:O(PT),160:O(PT)D(PL(PT),PT1):700 JEJE0:O(PT),160:O(PT)D(PL(PT),PT1):8307 JFJF0:D(PL(PT),PT1),48PT:O(PT),160:O(PT)D(PL(PT),PT1)C *DB830O 4PT3PTo >Z$P$(PT):XRX:YRY1:1710 CZ$RM$:XRX:YRY:1710 HBC$:BC$""840 RA$:A$""850 \ A$"T"TN:4700:TT:8000:830 fZ$E$:XRX:YRY:1710 p580Iz33722,33682,33718,33717,33675,33674,33712,33711,33669,33668,33666,3366533703,33702,33700,33699,33697,33696,33694,33693,33688,3364833568,33569,33488,33489,33408,33409,33328,33329,33249,33250,33168,33169 33090,33091,33008,33009,32928,32929,32848,32849Y32773,32774,32776,32777,32779,32780,32782,32783,32825,32826,32788,3278932791,32792,32874,32875,32797,32798,32840,3284132961,32962,33041,33042,33121,33122,33201,33202,33280,33281,33361,3336233441,33442,33521,33522,33601,33602,33650,33651U >GO<,MEDITERRANEAN AVE.,COMMUNITY CHEST,BALTIC AVE.,INCOME TAX READING R.R.,ORIENTAL AVE.,CHANCE,VERMONT AVE.,CONNECTICUT AVE. JUST VISITING,ST. CHARLES PLACE,ELECTRIC COMPANY,STATES AVE.$ VIRGINIA AVE.,PENNSYLVANIA R.R.,ST. JAMES PLACE,COMMUNITY CHESTi TENNESSEE AVE.,NEW YORK AVE.,FREE PARKING,KENTUCKY AVE.,CHANCE INDIANA AVE.,ILLINOIS AVE.,B & O R.R.,ATLANTIC AVE.,VENTNOR AVE. WATER WORKS,MARVIN GARDENS,GO TO JAIL,PACIFIC AVE.4 N. CAROLINA AVE.,COMMUNITY CHEST,PENNSYLVANIA AVE,SHORT LINE,CHANCEb 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,320.450,30,50,IT,RR,P,LT. BLUE,100,6,30,90,270,400,550,50,50,CH,P,LT. BLUEH8 100,6,30,90,270,400,550,50,50,P,LT. BLUE,120,8,40,100,300,450,600,60,50BJV,P,MAROON,140,10,50,150,450,625,750,70,100,U,P,MAROON,140,10,50,150,450L625,750,70,100,P,MAROON,160,12,60,180,500,700,900,80,100,RRVP,ORANGE,180,14,70,200,550,750,950,90,100,CC,P,ORANGE:` 180,14,70,200,550,750,950,90,100tjP,ORANGE,200,16,80,220,600,800,1000,100,100,FP,P,REDt 220,18,90,250,700,875~1050,110,150,CH,P,RED,220,18,90,250,700,875,1050,110,150,P,RED,240 20,100,3003750,925,1100,120,150,RR,P,YELLOW,260,22,110,330,800,975,1150,130,150F P,YELLOW,26022,110,330,800,975,1150,130,150,U,P,YELLOW,280,24,120,360,850,1025,1200 140150,GTJ,P,GREEN,300,26,130,390,900,1100,1275,150,200,P,GREEN 300,26,130,390,90081100,1275,150,200,CC,P,GREEN,320,28,150,450,1000,1200,1400L 160,200,RR,CHP,DK. BLUE,350,35,175,500,1100,1300,1500,175,200,LT,P,DK. BLUE 400,50,200,600,14001700,2000,200,200,IJ  PAY POOR TAX $15,GO DIRECTLY TO JAIL,ADVANCE TO GO(COLLECT $200)I  YOUR BUILDING AND LOAN MATURES COLLECT $150 ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENTADVANCE TO ILLINOIS AVE.,BANK PAYS YOU DIVIDEND OF $50(GET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACE_2TAKE A RIDE ON THE READING,GO BACK THREE SPACES,ADVANCE TO BOARDWALK<MAKE GENERAL REPAIRS $25 FOR EACH HOUSE$100 FOR EACH HOTELF ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENT.P ADVANCE TOKEN TO NEAREST UTILITY ROLL DICE & PAY 10*# SHOWNpZ GET OUT OF JAIL FREE,GO TO JAIL,ADVANCE TO GO(COLLECT $200)d FROM SALE OF STOCK YOU GET $45,COLLECT $50 FROM EVERY PLAYERn RECEIVE FOR SERVICES $25,PAY SCHOOL TAX OF $150,TAX REFUND COLLECT $20=x 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 $100 BANK ERROR IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $502 LIFE INSURANCE MATURES COLLECT $100<7280j" WWGTJ""FP? ""  B&O   "" ϣ "."   "_" 1- "" C C  "" 2- ϣ""CC CC ""  "L"   "y""PR MONOPOLY SL"," 2001 "6"  ϣ"@"  ? "5J" "fT"   "^"EC ??? LT"h" "r"  ""|"   "W"ϣ ϣ RRϣ ϣ ϣ"" ? GO "" ITX CC _ """;(CR$,X);(CD$,Y);Z$ DC$(1)"   ":DC$(2)"   "W DC$(3)"   ђ":DC$(4)"   ђ" DC$(5)"   ђ":DC$(6)"   ђ": CT0 R1((1)6)1:R2((1)6)1:DRR1R2:59464,DR20 "";(CR$,X1);(CD$,Y1);DC$(R1)"!"";(CR$,X2);(CD$,Y2);DC$(R2)Q!&59464,0:CTCT1:CT7DELAY175::1770k!0 R1R2DBDB1:1860t!:DB0z!D!N"":!X" COLLECT $200 AS YOU PASS "!bM(PT)M(PT)200:::!v"HIT ANY KEY TO CONTINUE""W$:W$""1920"K$:K$""1930""="158,0:PT$PT$(PL(PT))P" PT$"P"2100d" PT$"RR"2520u" PT$"GO"" PT$"U"2870" PT$"FP"3230" PT$"JV"" PT$"GTJ"3410" PT$"IT"3600" PT$"LT"3540"  PT$"CC"3670# PT$"CH"3990%# PT$"IJ"4500@#4"";15);"TITLE DEED"M#9GF2130]#>"PLAYER"PTi#HPO3PT}#MPLPL(PT):P7PT#R20((PN$(PL))1)2)"";PN$(PL)""#\#f" RENT $";P(PL,2)#p" WITH 1 HOUSE $";P(PL,3) $z" WITH 2 HOUSES ";P(PL,4))$" WITH 3 HOUSES ";P(PL,5)I$" WITH 4 HOUSES ";P(PL,6)i$" WITH HOTEL $";P(PL,7)o$$" MORTAGE VALUE $";P(PL,8)$" HOUSES COST $";P(PL,9);"EACH"$"HOTELS, $";P(PL,9);". PLUS 4 HOUSES"$GF::1910:%:I141: C$(PL)C$(I)IPL2270+%:2290\% PS(I) PN$(I)" OWNED BY PLAYER #"PS(I):|%PN$(I)" STILL FOR SALE.":%% MG(PL)1"MORTAGED FOR $"P(PL,8)% "COST $";P(PL,1)% PS(PL)02350& "OWNED BY PLAYER"PS(PL):H(PL)"WITH";!&$ H(PL)5H(PL)"HOUSES.";&) H(PL)5"A HOTEL"E&+ 2390]&. "YOU HAVE $";M(P7)&8 "DO YOU WISH TO BUY THIS PROPERTY";:" ";A$:A$(A$,1)&= A$"N"2450&B A$"Y""":2360 'L "OK YOU BOUGHT ";PN$(PL):M(P7)M(P7)P(PL,1):PS(PL)PT:2440/'V OWP(PL,H(PL)2):PS(PL)PT2440@'` MG(PL)2440o'j P5PO:P6PS(PL):2460:OAH(PL)0OWOW2't M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OW:"YOU OWE $";OW'~ M(PS(PL))M(PS(PL))OW' 1910:' 6850:2440'( MG0:OA0:PC0:I141:C$(PL)C$(I)PS(I)P5PCPC1:MG(I)MGMG-( O( PC2C$(PL)"PURPLE"OA1:s( PC2C$(PL)"DK. BLUE"OA1:( PC3OA1:( ( "":PLPL(PT)( "PLAYER"PT( " "( "  " ) " ") 7) 20(PN$(PL))2)"";PN$(PL)""]) :"RENT $25")( "IF 2 R.R.'S ARE OWNED 50")2 "IF 3 R.R.'S ARE OWNED 100")< "IF 4 R.R.'S ARE OWNED 200")F )P "MORTAGE VALUE $100" *d : MG(PL)1"MORTAGED FOR $100":28603*n "COST $200"T*x :I141:PT$(I)"RR"2700`* :2720* PS(I)PN$(I)" OWNED BY PLAYER #";PS(I):* PN$(I)" STILL FOR SALE.":* PS(PL)"OWNED BY PLAYER#";PS(PL):2800* "YOU HAVE $"M(PT),+ "DO YOU WISH TO BUY IT";:" ";B$:B$(B$,1)D+ B$"N"6850:2860]+ B$"Y""":2740{+ M(PT)M(PT)200:PS(PL)PT+ "OK YOU BOUGHT IT"+ 2860+ OW0:O70+ PS(PL)PT2860+ OW25:I63610:PT$(I)"RR"PS(I)PS(PL)OWOW2<, :OWOWDV:"YOU OWE $";OW:M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OWH,, 1910:Q,6 ""a,@ "PLAYER"PT,J " Σ ",T " ^ ",^ " ",h " ":,| PLPL(PT)- 20(PN$(PL))2)"";PN$(PL)""X- :"IF ONE 'UTILITY IS OWNED PAY 4 TIMES THEAMOUNT SHOWN ON DICE"^- - "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":3220>. PS(42PL)PN$(42PL)" OWNED BY PLAYER"PS(42PL)`. PN$(42PL)" STILL FOR SALE.". : PS(PL)"OWNED BY PLAYER#";PS(PL):3150. "YOU HAVE $"M(PT). "DO YOU WISH TO BUY IT ";B$:B$(B$,1).& B$"N"6850:3220 /+ B$"Y""":3090*/0 "OK YOU BOUGHT ";PN$(PL)>/: M(PT)M(PT)150R/D PS(PL)PT:3220f/N PS(PL)PT3220/X "DICE SHOW"D1"AND"D2"."/b MT4:PS(13)PS(PL)PS(29)PS(PL)MT10/l DF0MT100v OWMT(D1D2):"YOU OWE $";OW:M(PT)M(PT)OW:M(PS(PL))M(PS(PL))OW0 MT0:1910:!0 ""60 " FREEN0 " "e0 " |0 " 0 " 0 " 0 " 0 " 0 " 1 :" PARKING":#1 PF01910:E1* :"YOU GET THE FREE PARKING"|1> "JACKPOT OF $"FP"!":M(PT)M(PT)FP:FP0::1910:1R " GO TO JAIL"1W DB3:"FOR ROLLING DOUBLES 3 TIMES IN A ROW!":2f " ":I15:" "::" "::PL(PT)41:JF1:DB0 2 1910:M2 "";15);"LUXURY TAX"::16);"PAY $75"w2 :::M(PT)M(PT)75:FPFP75:1910:2"";15);"INCOME TAX"::16);"PAY $200"2.:::M(PT)M(PT)200:FPFP200:1910:2VCCCC1: CC16CCCC16&3`PO3PT:CC$CC$(CC):CC1CJ(1)CCCC1:CC$CC$(CC)Q3~" COMMUNITY CHEST":::CC$e3 CC1CJ(1)PT|3 CC21910:34103 CC3PL(PT)1:MF1:1910:1870:3 CC4M(PT)M(PT)453 CC5M(PT)M(PT)50:M(PO)M(PO)504 CC6M(PT)M(PT)25%4 CC7M(PT)M(PT)150:FPFP150?4 CC8M(PT)M(PT)20P4 CC93920k4 CC10M(PT)M(PT)104  CC11M(PT)M(PT)1004 CC12M(PT)M(PT)1004 CC13M(PT)M(PT)1004( CC14M(PT)M(PT)20042 CC15M(PT)M(PT)505< CC16M(PT)M(PT)100"5F::1910:35PYP0:I140Z5ZPS(I)(PT)H(I)5YPYP(40H(I)){5dPS(I)(PT)H(I)5YPYP1155n:"YOU PAY $"YP:M(PT)M(PT)YP:FPFPYP:5CHCH1:CH16CHCH165PO3PT:CH$CH$(CH):CH8CJ(2)CHCH1:CH$CH$(CH)(6" ? ? CHANCE ? ?":CH$K6 CH1M(PT)M(PT)15:FPFP15b6 CH21910:34106 CH3PL(PT)1:MF1:1910:1870:6 CH4M(PT)M(PT)1506 CH54230:MF16 CH64290:MF16 CH7M(PT)M(PT)506" CH8CJ(2)PT'7, CH9M(PT)M(PT)50:M(PO)M(PO)50>76 CH104320:MF1U7@ CH114340:MF1v7J CH12PL(PT)PL(PT)3:MF17T CH134360:MF17^ CH1443807h CH154230:MF17r CH164450:MF17|1910:8PL(PT)PL(PT)1: PL(PT)409000:PL(PT)PL(PT)40,8 PT$(PL(PT))"RR"4280684230A8DV1:V8PL(PT)259000f8PL(PT)25:{8PL(PT)1290008PL(PT)12:8 PL(PT)690008PL(PT)6:8PL(PT)40:88DF0:YP0:I1409&PS(I)(PT)H(I)5YPYP(25H(I))#90PS(I)(PT)H(I)5YPYP100R9::"YOU PAY $"YP:M(PT)M(PT)YP:FPFPYP:f9bPL(PT)PL(PT)19l PL(PT)409000:PL(PT)PL(PT)409v PT$(PL(PT))"U"44909 44509MF1:9""9JT(PT)JT(PT)19"PLAYER #"PT"IS IN JAIL"!::"YOU HAVE BEEN IN"JT(PT)"TURNS">:"YOU MAY: 1. PAY $50":" 2. USE A 'GET OUT OF JAIL FREE CARD.":" 3. TRY TO ROLL DOUBLES.":: "CHOICE";I:I1I34570 ; I1M(PT)M(PT)50:FPFP50:PL(PT)11:1910:JE1:<; I2CJ(1)PTCJ(1)0:PL(PT)11:1910:JE1:n; I2CJ(2)PTCJ(2)0:PL(PT)11:1910:JE1:; I2"YOU DON'T HAVE A CARD":4570;  I31760:DB4680;"YOU DIDN'T ROLL DOUBLES."< JT(PT)2"YOU MUST PAY THE $50":M(PT)M(PT)50:PL(PT)11:JB14<* JT(PT)21910:FPFP50:@<41910:]<> PL(PT)111910:JE1:" D=DISPLAY TITLE DEEDS")>" Q=RETURN TO GAME"@>" XX=END GAME":X> "CHOICE ";C$i>C$""4840|> C$"R"4940> C$"L"5100> C$"B"5260> C$"S"5750>$ C$"M"6130>) C$"D"8700>. C$"Q">8 C$"XX"7200?B4700,?L "FOR WHICH PLAYER (1 OR 2)";PNA?V PN1PN24940K?`""o?j6)"PROPERTIES FOR PLAYER ";PNu?t?~I140:PO$"": PS(I)PNPN$(I);?PS(I)PN5050?PT$(I)"P"5030?" ("C$(I)")";" -";:H(I)5PO$(H(I))" HS"@H(I)5PO$" HOTEL"8@PO$PO$"/$"((P(I,H(I)2)),2)V@MG(I)1PO$"- MORTAGED"_@PO$e@@:CJ(1)PNCJ(2)PN"GET OUT OF JAIL FREE CARD."@"PLAYER"PN"HAS $";M(PN)@:1910:@""ATT$"NAME COLOR OWNER/#HOUSES":TT$KAK140:PT$(K)"P"PT$(K)"RR"PT$(K)"U"5220qAPN$(K);21);:PT$(K)"P"C$(K);{A33)A(P$(PS(K)):PP$((H(K)),2):H(K)4PP$"H"A2PT$(K)"P"PP$"X"A<MG(K)PP$"MG"AFP$P$" -"PP$BPPS(K)0P$" NONE"BZP$*BdK20:1910:"":TT$1BnK=Bx:1910CBNB""WBHO0sB" ON WHICH GROUP":PG$yBB "WHICH COLOR";C$BI8141: C$(C$(I8),(C$))PLI8:C$C$(I8):5350BI8B"ILLEGAL GROUP":5310BP7PTCP5P7:2460:MGOA0C OA5400gC"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";C" IS MORTAGED.":1910:C" PROPERTY NAME # OF HOUSES(5=HOTEL)"C"HS0:IPLPL4:C$C$(I)PN$(I);30);H(I):HSHSH(I)C,(D6:"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"aD@"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)5)gDJ~DT"YOU HAVE $"M(PT)D^"HOTELS AUTOMATICALLY ADDED AFTER 4TH HOUSE"Dh"HOW MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX((5PC)HS):MX")"Er HN:HNMX5480/E|H7(HNPC):H8HN(H7PC)mEM(P7)(HNP(PL,9))"YOU DON'T HAVE ENOUGH MONEY!":5480E HN0"OK":1910:EM(P7)M(P7)(HNP(PL,9)):EPLPL4:C$C$(E)H(E)H(E)H7EE H85590E5740F"YOU HAVE"H8"HOUSES LEFT OVER"CF:F10:FPLPL4:C$C$(F)F1F11:F1,PN$(F);" "H(F)SF::G1H8F"WHERE DO YOU WANT HOUSE #"G;:HL:HLHO"CAN'T":5620FF20:F10:F90FFPLPL3:C$C$(F)F1F11:F1HLF9FFFFF90"NO SUCH NUMBER":5620+G&H20:FPLPL3:C$C$(F)H(F9)H(F)H2H211G0bGNH2"ILLEGAL DISTRIBUTION OF HOUSES!":5620zGXHOHL:H(F9)H(F9)1GbGGl"DONE":1910:Gv "WHAT PLAYER HAS A PROPERTY TO SELL";P1G P101910:GP2P11:P22P2P22H"IS IT A PROPERTY";:Q$:(Q$,1)"N"6010?H"IN WHAT COLOR GROUP":PG$RH: "WHICH";C$HI6141:C$(C$(I6),(C$))PLI6:C$C$(I6):5850HI6H"ILLEGAL GROUP":5810H"# PROPERTY";30);"OWNER"IHO0:CT0:IPLPL4:C$C$(I)CTCT1:CT" "PN$(I);35);PS(I)!I H(I)HO1'IbI:"WHAT NUMBER DOES PLAYER"P1"WANT TO SELL."kI  TPICT0:IPLPL4:C$C$(I)CTCT1:CTTPT4I:FF1I I*FF0"ILLEGAL NUMBER":5890J4PS(T4)P1"PLAYER #"P1"DOES NOT OWN IT.":5750BJ>HO"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":6000nJH "WHAT IS THE AGREED SELLING PRICE";SPJRM(P1)M(P1)SP:M(P2)M(P2)SP:PS(T4)P2J\"PLAYER #"P2"BOUGHT "PN$(T4):"FOR $"SPJp:1910:Jz"PROPERTY";30);"OWNER"!KI63610:NN1:N" "PN$(I);35);PS(I):]K" 5 "PN$(13);35);PS(13):" 6 "PN$(29);35);PS(29)xK "WHICH #";NM:NM0KNM1NM66040KNM5PS(13)P1SN13:6100KNM6PS(29)P1SN29:6100KNM0NM5SN6((NM1)10):PS(SN)P16100L"YOU DON'T OWN IT.":60103L"AGREED PRICE";SP_LM(P1)M(P1)SP:M(P2)M(P2)SP:PS(SN)P2kL1910:L"":" OPTIONS":"0 RETURN TO MAIN MENU":"1 MORTAGE PROPERTY"L"2 MORTAGE RAILROAD":"3 MORTAGE UTILITY"!M$"4 LIFT MORTAGE(AT 10% INTEREST)":"5 SELL HOUSES":CM8 "CHOICE";GG:GG0GG56200VMB GG01910:wMGGG6230,6550,6640,6720,9100ML6130MV:"ON WHICH GROUP IS THE PROPERTY TO BE":"MORTAGED LOCATED?":PG$Mt:"COLOR GROUP";C$N~I6141:C$(C$(I6),(C$))PLI6:C$C$(I6):6292 NI6;N"ILLEGAL GROUP":6260dNCM0:IPLPL3:C$C$(I)CMCMH(I)jNNCM"CAN'T MORTAGE PROPERTIES WITH HOUSES STILL ON THAT GROUP.":6140N"# PROPERTY";25);"OWNER"NCT0:IPLPL4:C$C$(I)6320>OCTCT1:CT" "PN$(I)27)PS(I);:PP$"":MG(I)PP$"MORTAGED"GOPP$MOzO:"WHAT NUMBER IS TO BE MORTAGED.";:TPOTP01910:OCT0:IPLPL4:C$C$(I)CTCT1:CTTPT4I:FF1OOFF0"ILLEGAL NUMBER":6330PPS(T4)PT"YOU DON'T OWN IT.":1910:6130DPMG(T4)1"ALREADY MORTAGED":6330YP :"OK":MG(T4)1Pd"YOU GOT $"P(T4,8)"FOR YOUR MORTAGE.":M(PT)M(PT)P(T4,8)P1910:PRC0:I63610:PT$(I)"RR"RCRC1:RC" "PN$(I)" PLR.#"PS(I)PQ "WHICH #";RGQ RG1RG46570/QRG6((RG1)10)aQ PS(RG)PT"YOU DON'T OWN IT.":1910:6130Q MG(RG)1"ALREADY MORTAGED.":1910:6130QMG(RG)1:"YOU GET $100 FOR MORTAGE.":M(PT)M(PT)100Q1910:QU(1)13:U(2)29RI12:I" "PN$(U(I)):R "WHICH?";UM.RUM1UM26660bRPS(U(UM))PT"YOU DON'T OWN IT.":1910:6130R" MG(U(UM))1"ALREADY MORTAGED.":1910:6130R,MG(U(UM))1:"YOU GET $75 FOR MORTAGE.":M(PT)M(PT)75R61910:S@:"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTAGE."SSJML0:I141:PS(I)(PT)MG(I)1MLML1:ML" "PN$(I)YSTS^ ML0"YOU HAVE NO MORTAGED PROPERTIES.":1910:Sh:"WHICH MORTAGE DO YOU WAN'T TO LIFT";LFSrLF1LFML"ILLEGAL":6760T|ML0:I141:PS(I)(PT)MG(I)1MLML1:MLLFFTITBT"THE MORTAGE IS FOR $"P(FT,8)mT"YOU MUST PAY $";:PYP(FT,8)1.10:PYT PYM(PT)"YOU DON'T HAVE THE MONEY.":1910:TM(PT)M(PT)PY:MG(FT)0T1910:TAF6870T UPLPL(PT):PN$(PL)" WILL NOW BE AUCTIONED"(U"TO THE HIGHEST BIDDER"XUPO3PT::HB0:PAPT:AC0::HB0:PAPT:AC0dU&PA3PAU0"PLAYER"PA"WHAT'S YOUR BID";:BD:BD(BD):ACAC1U:BD0(AC1)27000,6950UDBDHB"YOU MUST BID HIGHER THAN"HB"OR BID '0'":6960 VNHBBD:HRPA:6950VXHB071001VbPN$(PL)" GOES TO"KVl"PLAYER"HR" FOR $"HBhVvM(HR)M(HR)HB:PS(PL)HRnVV:PN$(PL)" HAS NOT BEEN PURCHASED.":V"":"PLAYER #"PT"IS BROKE!!"W"IF YOU CAN'T RAISE $"(M(PT))"THEN YOU ARE OUT OF THE GAME."EW"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL YOU FINISH TRYING TO";YW" RAISE MONEY"iW1910:4700yWM(PT)0W M(PT)0"YOU ARE BANKRUPT!!!":PT3PTW" --PLAYER #"PT"WINS!-- ":W "GAME OVER"W*"THE WINNER IS ";X4M(1)M(2)"PLAYER #1 WITH $"M(1)M(2)M(1)"PLAYER #2 WITH $"M(2)eXH M(2)M(1)"NEITHER, IT'S A TIE!"XR"PLAYER 1 = $";M(1)X\"PLAYER 2 = $";M(2)XfXp59467,0:59466,0:XzJ29500:FT1XI:J,I:JJ1:(I96)27410,7300=Y 160,250,185,237,130,153,6,124,136,208,247,160,250,185,243,129,153,12,123Y 136,208,247,160,250,185,249,128,153,18,122,136,208,247,160,250,185,255Y 127,153,24,121,136,208,247,96Y 160,250,185,6,124,153,237,130,136,208,247,160,250,185,12,123,153,243,129IZ 136,208,247,160,250,185,18,122,153,249,128,136,208,247,160,250,185,24nZ 121,153,255,127,136,208,247,96Z FT1 FT2:J30000: 7300ZZ@P412ZBY$""PN$(PL(P4))(" ",18(PN$(PL(P4))))""![EMN$"$"((M(P4)),2)" ":X13:Y2P43:Z$Y$:1710<[JYY1:Z$MN$:1710::u[!"DISPLAY DEEDS FOR WHICH COLOR GROUP:":PG$:C$:["P3PL:I141:C$(C$(I),(C$))GF1:PLI:2100:GF0[":PLP3:[(#M(PT)M(PT)200:"COLLECTED $200": \#"ON WHICH COLOR GROUP:":PG$:C$B\#PL0:I4111:C$(C$(I),(C$))PLI:C$C$(I)R\#I:PL9140m\#"ILLEGAL GROUP":9100\#DO0:HN0:IPLPL3:PS(I)(PT)C$C$(I)DO1\#C$C$(I)HNHNH(I)\#]#DO1HN0"YOU DON'T OWN HOUSES ON THESE PROPERTIES":1910:-]#"# PROPERTY";25);"HOUSES(5=HOTEL)"j]#CT0:IPLPL3:C$C$(I)CTCT1:CT" "PN$(I)27)H(I)p]#]# "WANT TO REMOVE ALL THESE HOUSES";A$:(A$,1)"Y"9310]#:"WHAT # TO REMOVE A HOUSE FROM.";TP]#TP0 ^#CT0:IPLPL3:C$C$(I)CTCT1:CTTPT4I:FF1"^#D^$FF0"ILLEGAL NUMBER":9180k^$H(T4)0"NO HOUSES THERE.":9180^$NN0:NHH(T4):IPLPL3:H(I)NHNN1^"$^,$NN"YOU CAN'T REMOVE THAT HOUSE.":9180^6$:"OK.":H(T4)H(T4)1^@$HMP(PL,9)2(_J$"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)M(PT)HM8_T$1910:6130t_^$HM0:IPLPL3:C$C$(I)HMHM(P(PL,9)2)H(I):H(I)0_h$:"YOU GOT $"HM"FOR YOUR HOUSES":M(PT)M(PT)HM:9300