MONOPOLIO Nx Ym}Px """A",21*8 0:0: 9700% 236099\,20 23658j\,8 *2000  J=0 FREE=0 DOUBLE=0 X=5000  Y=40(  Z=0  ONE=1 TEN=10 THIRD=ONE/3 !PAYT=4E3 "PAY=Z #MORT=2E3 $UMORT=8E3@ (BUILD=5E3 -SELL=6500d 2QBUY=900 7 A$(ONE) <RENT=1E3 AM(Y) BLIST=3E3 FCHANCE=7E3X KPASSGO=8900" PINCOME=8950" USUPER=8980# ZQUIT=8400 _CHEST=7500L `BUY=6E3p aTRANS=6250j bPROP=700 cQPRO=6010z eP$(Y,23) fINIT=9E3(# gPLAY=500 jJAIL=85004! kFLAG=Z !"CUANTOS JUGADORES? (2 A 6) ";N =0,23;" ";1,23;" " N<2N>6130 T(N) S(N) J(N) E(N) F(N) I(N) 4,4;"O.K." INIT PL=PLAYER PLAYER=PLAYER+ONE PLAYER>N PLAYER=1 S(PLAYER)210 (I(PLAYER)I(PLAYER)=I(PLAYER)+1 DOUBLEPL=PLAYERQUIT DOUBLE=Z TURN=ONE ,6c=418:c,3;" ":c -22:7:9 ,23;"OPCIONES" .11 ,23;"L:LISTA ";12 ,23;"M:HIPOT.";13 ,23;"B:COMPRA";14,23;"S:VENDER";15,23;"H:CASAS ";16,23;"U:RECOB.";17,23;"Q:QUITA " 0[18,23;"T:CINTA ";19,23;"R:RESET ";20,23;" " 10:9 7T(PLAYER)=B(PLAYER)+V(PLAYER) @A(PLAYER);9 ;3,3;"JUGADOR NO. ";PLAYER;" " J&5,3;"PTAS :";B(PLAYER) T%6,3;"P'DAD:";V(PLAYER) ^%7,3;"TOTAL:";T(PLAYER) cNB(PLAYER)YPASSGO l+J=1502:J=0:200 n11 ,3;1;"AHORA SOBRE ";1;L(PLAYER);12 ,3;1;P$(L(PLAYER))(4):P$(L(PLAYER))(1)="0"1;11 ,18;" " q 20 vXGROUP=(P$(L(PLAYER))(3)):GROUP=GROUP-127:GROUP=-25GROUP=0 GROUP=24 CHEST GROUP=15CHANCE GROUP=25SUPER #GROUP=74JFREE=0JAIL FREE=0 GROUP=23INCOME GROUP=37%980 GROUP980 PROP  8215 QQ=700+(GROUP*TEN) QQ HP=X  GS=.5  8204 HP=Z GS=.25~  8204 HP=X  GS=THIRD  8204 HP=10000'  GS=THIRD  8204 HP=Z  GS=.5  8204 HP=10000'  GS=THIRD  8204 HP=15000:  GS=THIRD  8204  HP=15000:  GS=THIRD  8204 HP=20000 N  GS=THIRD  8204  HP=20000 N ! GS=.5 4 5O(L(PLAYER))QBUY >O(L(PLAYER))PLAYERRENT H"13 ,3;"SU PROPIEDAD" M!"PULSAR ENTER PARA SEGUIR ";A$ RD O14,3;" EN VENTA ";15,3;"A PTAS ";P(L(PLAYER)) #B(PLAYER)P(L(PLAYER))930 514,3;1;2;"FALTA DINERO "  FLAG=ONE  "PULSAR ENTER PARA SEGUIR ";A$ D  "QUIERE COMPRAR? (S o N) ";A$; A$"S"A$"B"D Q17,3;" VENDIDO ":502:B(PLAYER)=B(PLAYER)-P(L(PLAYER)) O(L(PLAYER))=PLAYER "V(PLAYER)=V(PLAYER)+P(L(PLAYER)) $G(GROUP,PLAYER)=G(GROUP,PLAYER)+GS /G(GROUP,PLAYER).9ffffG(GROUP,PLAYER)=ONE _G(GROUP,PLAYER)=ONE16,3;" SU GRUPO ";17,3;" ESTA COMPLETO "  30 D OWNER=O(L(PLAYER)) 13 ,3;"ES PROPIEDAD DEL";14,3;"JUGADOR NO. ";OWNER;;15,3;"PAGUE ";16,3;"PTAS "; M(L(PLAYER))1020 +"O";16,3;"PTAS 0:(HIPOTECA)"  1098J GROUP=21100L GROUP=51200  1250 8REN BB(PLAYER)=B(PLAYER)-REN EB(OWNER)=B(OWNER)+REN J""PULSAR ENTER PARA CONTINUAR";A$ KD L)SN=(4*G(2,OWNER)+.5) VREN=1250 ` C=ONESN jREN=REN*2 tC y"16,3;"(";SN;" EST"; zSN>ONE"S"; { ") "; ~ 10808 +G(5,OWNER).6FACT=300, ,G(5,OWNER).9ffffFACT=1000 REN=FACT*(D1+D2)  10808 REN=L(PLAYER)*100d REN=REN+(REN/10 ) H(L(PLAYER))>Z1290  *G(GROUP,OWNER).9ffffREN=REN*2  10808  7REN=REN+(HP*1.43333^H(L(PLAYER))*1.02\)^GROUP) n 10808 &10 ,3;"HIPOTECARIO " QPRO PLAYERO(C)6900 M(C)2500 PROP H(C)2600( 4 M(C)=ONE >"V(PLAYER)=V(PLAYER)-P(C)/2 HPAY=P(C)/2 RPAYT D 216,3;1;2;"HIPOTECADO" A$ D (*15,3;"TIENE ";H(C);" CASAS" 2&16,3;"EN QUE PRECIO? "; <A FA GPA>H(C)18,3;1;" IMPOSIBLE ":100d:300, HXH(C)=5F(PLAYER)=F(PLAYER)-1:E(PLAYER)=E(PLAYER)+(5-A):2640P J%H(C)<5E(PLAYER)=E(PLAYER)-A P H(C)=H(C)-A UV(PLAYER)=V(PLAYER)-A*HP ZPAY=A*HP/2 dPAYT ""PULSAR ENTER PARA CONTINUAR";A$ D YES=0 63,3;PLAYER;"JUGADOR ";PLAYER;" POSEE;" 6c=418:c,3;" ":c q=4 C=ONEY O(C)PLAYER3020 YES=YES+1 C C=1Y O(C)PLAYER3200 ]q,3;PLAYER;P$(C)(12):q=q+1:1;q,3;p$(C)(4) YES=YES-1 4M(C)q+1,3;"HIPOTECADO":q=q+1 ֊H(C)q=q+1:4;q,5;"CON :";H(C);" CASA ";:H(C)>14;"S":H(C)=52;q,10 ;"UN HOTEL" q=q+1 q16C Dq17YES>0"PULSAR ENTER PARA SEGUIR ";A$:3080  3200 Dq=4:w=418:W,3;" ":w:C C=Y C "O.K.? ";A$ D B(PLAYER)=B(PLAYER)+PAY  PAY=0   4  xx=23  Gc=05:4500+(5*((*6))):4530:c #((d1-1)*5)+4500 , xx=27 1Gc=05:4500+(5*((*6))):4530:c 6#((d2-1)*5)+4500  7  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  10 ,3;"SOBRE" QPRO M(C)5030  2500 &G(GROUP,PLAYER)<.9ffff6400 H(C)56400 PROP B(PLAYER)>HP5080 @17,3;2;1;"FALTA DINERO ":100d D H(C)=H(C)+ONE B(PLAYER)=B(PLAYER)-HP V(PLAYER)=V(PLAYER)+HP H(C)=55150 E(PLAYER)=E(PLAYER)+ONE  D F(PLAYER)=F(PLAYER)+ONE (E(PLAYER)=E(PLAYER)-4 2D p10 ,3;"COMPRA" rQPRO s 6080 yQPRO z12 ,3;" ";13 ,3;" ";11 ,17;" ";11 ,3;"NO. PROPIEDAD?"; C:C>40(6020 C<2C=3C=5C=8C=11 C=18C=21C=23C=31C=34"C=37%C=39'17,3;2;1;" IMPOSIBLE ":1;18,3;P$(C)(4):100d:300, C ,1;12 ,3;P$(C)(4) 13 ,3;"ESTA?" "(S o N) ";A$ !A$="S"13 ,13 ;"SI" ,A$="N"13 ,13 ;"NO ":30 A$"S"6010z PGROUP=(P$(C)(3)):GROUP=GROUP-127:GROUP=-95_GROUP=0  GROUP6400 GROUP>TEN6400  OWNER=O(C) )17,3;"DUENO ES NO. ";OWNER OWNER FLAG6400 OWNERPLAYER62008 C17,3;2;1;"ES SU PROPIEDAD ":20  D 8PROP 9BUYER=PLAYER BTRANS GFLAG=Z LD t"INDICA PRECIO";PRICE OWNER6290 PRICE>B(BUYER)6420 B(OWNER)=B(OWNER)+PRICE "G(GROUP,OWNER)=G(GROUP,OWNER)-GS 5V(OWNER)=V(OWNER)-P(C)+(P(C)*M(C)/2)-H(C)*HP H(C)>46288 E(OWNER)=E(OWNER)-H(C) B(BUYER)=B(BUYER)-PRICE  O(C)=BUYER "G(GROUP,BUYER)=G(GROUP,BUYER)+GS 5V(BUYER)=V(BUYER)+P(C)-(P(C)*M(C)/2)+H(C)*HP H(C)>46370 E(BUYER)=E(BUYER)+H(C)  F(BUYER)=F(BUYER)+ONE F(OWNER)=F(OWNER)-1 D 717,3;1;2;" IMPOSIBLE "  100d  D 517,3;1;2;"FALTA DINERO " 018,3;"ES ";B(BUYER);" BASTANTE?" ("(S O N) ";A$ 2A$"S"6490Z <PRICE=B(BUYER) F 6280 Z d10 ,3;"VENDA" nQPRO xO(C)PLAYER6900 }PROP OWNER=PLAYER E15,3;"VEND. A JUGADOR";16,3;"NUMERO?..."; A A AN6400  BUYER=A TRANS D 516,3;1;2;"NO ES SUYO "  150 D ['9 ,23;1;" SUERTE " \9C=11 20:C,23;1;" ":C ^@CARD=(*16)+ONE:1:CHANCE+CARD*10 :0 _PAYT ` "PULSAR ENTER PARA SEGUIR ";A$ aD b11 ,23;"LA BANCA";12 ,23;"PAGA VD.";13 ,23;" UN";14,23;"DIVIDEND";15,23;" DE 5000" cPAY=5000 k l11 ,23;"EXCESO ";12 ,23;"DE VELO-";13 ,23;"CIDAD";14,23;"MULTA DE";15,23;"1500" mPAY=-1500 u vY11 ,23;"AVANZA ";12 ,23;"A CEA -";13 ,23;"BERMUDEZ" wDEP=L(PLAYER) xL(PLAYER)=25 y"DEP<250:620l zL(PLAYER)=65A {0:610b x11 ,23;"AVANZA ";12 ,23;"A PASEO ";13 ,23;" DEL ";14,23;" PRADO "  L(PLAYER)=Y 0:620l p11 ,23;"MULTA ";12 ,23;" POR ";13 ,23;"BORRACHO";14,23;"2000" PAY=-2000  [11 ,23;"AVANZA ";12 ,23;" A ";13 ,23;"GLORIETA" DEP=L(PLAYER) L(PLAYER)=12 "DEP<12 0:620l L(PLAYER)=524 0:610b v11 ,23;" QUEDA ";12 ,23;" LIBRE ";14,23;" DE LA ";15,23;" CARCEL " J(PLAYER)=J(PLAYER)-ONE  11 ,23;"SUS ";12 ,23;"INMUEBLE";13 ,23;"Y STOCK";14,23;"PRODUCEN";15,23;" 15000 " !B(PLAYER)=B(PLAYER)+15000:  =11 ,23;"VUELVASE";12 ,23;"3LUGARES" L(PLAYER)=L(PLAYER)-3 &L(PLAYER)T(C)8460 ! TOPT=T(C) ! WINNER=C ! C !?c=318:c,3;2;" ":c !6,3;1;2;" JUGADOR ";WINNER;" GANA ";0;8,3;" CON INMUEBLES";9 ,3;" PTAS ";TOPT ! "OTRO JUEGO?(S o N)";A$ !*A$="S"10 !/7A$="N""SAVE A CINTA?(S o N)";A$:A$="S"9900& !0 A$="N" !1A$"N"A$"S"8480 ! !4I(PLAYER)=I(PLAYER)+1 !5L(PLAYER)=11 !7GA=14:B=11 9 -1.9s333:0.405O\(,B:B:A !I 8630! !J 620l !RB(PLAYER)49117,3;1;2;"FALTA DINERO":100d:I(PLAYER)=4S(PLAYER)=0:200 !%17,3;" PAGUE 5000" !%18,3;" LIBERTAD " !X=5000:PAY=-X !PAYT !J=0:I(PLAYER)=Z !X4,23;" ";5,23;" ";6,23;" " !+DOUBLE=3DOUBLE=0:200 ! !J(PLAYER)-117,3;" QUEDA LIBRE ";18,3;" DE LA CARCEL ":"PULSAR ENTER PARA CONTINUAR ";A$:J(PLAYER)=J(PLAYER)+1:FREE=1:I(PLAYER)=0:620l !9 ,3;" CARCEL CARCEL ";8,11 ;"EN":"PULSAR ENTER PARA CONTINUAR ";A$:DOUBLE<3DOUBLE>0I(PLAYER)=0 !h4,23;"ESO ES ";5,23;"VUELTA ";I(PLAYER)-1;6,23;"ENCARCEL" !"APRETAR P PARA LIBERTAD ";A$ !X4,23;" ";5,23;" ";6,23;" " ! J=1 !A$="P"8530R! ! "L(PLAYER)=L(PLAYER)-Y "PAY=20000 N "PAYT "/.5,25:G=40-1 "V=04:V;9 ;4,23;" COBRE ";5,23;" 20000 ";6,23;"POR PASE";7,23;" SALIDA " "V "G "u4,23;" ";5,23;" ";6,23;" ";7,23;" " " "c13 ,3;"IMPUESTOS 20000";14,3;"AUTOMATICO";15,3;" PAGUE " #PAY=-20000 N #PAYT # #"PULSAR ENTER PARA CONTINUAR ";A$ # 300, #a13 ,3;"IMPUESTOS 10000";14,3;"AUTOMATICO";15,3;" PAGUE " #PAY=-10000' #PAYT #A$ # 300, #(B(N) #*V(N) #+L(N) #, G(TEN,N) #- PLAYER=Z #. D=300, #/O(Y) #0P(Y) #1 C=ONEN #2B(C)=150000| #AT(C)=B(C)+V(C) #F L(C)=ONE #K S(C)=ONE #ZC #[H(Y) #d#P$(ONE)="01SALIDA " #n'P$(2)="02RDA.DE VALENCIA " #x'P$(3)="03CAJA DE COM'DAD " #'P$(4)="04PLA.DE LAVAPIES " #'P$(5)="05IMPUESTOS 20000 " #'P$(6)="06EST.DE GOYA " #'P$(7)="07CUATRO CAMINOS " #'P$(8)="08SUERTE " #'P$(9 )="09REINA VICTORIA " #(P$(10 )="10BRAVO MURILLO " #(P$(11 )="11CARCEL LIBRE " #(P$(12 )="12GLORIETA " #(P$(13 )="13ELECTRICIDAD S A" #(P$(14)="14ALBERTO AGUILERA" #(P$(15)="15FUENCARRAL " #(P$(16)="16EST. DELICIAS " $(P$(17)="17AV.FELIPE II " $(p$(18)="18CAJA DE COM'DAD " $(P$(19)="19VELAQUEZ " $"(P$(20)="20SERRANO " $,(P$(21)="21PARQUE GRATUITO " $6(P$(22)="22AV.DE AMERICA " $@(P$(23)="23SUERTE " $J(P$(24)="24MARIA DE MOLINA " $T(P$(25)="25CEA BERMUDEZ " $^(P$(26)="26EST.DE MEDIODIA " $h(P$(27)="27REYES CATOLICOS " $r(P$(28)="28CALLE DE BAILEN " $|(P$(29)="29HIDRAULICA S A " $(P$(30)="30PLAZA DE ESPANA " $) P$(31)="31 VA.ALA CARCEL" $(P$(32 )="32PUERTA DEL SOL " $(P$(33!)="33ALCALA " $(P$(34")="34CAJA DE COM'DAD " $(P$(35#)="35GRAN VIA " $(P$(36$)="36EST.DEL NORTE " $(P$(37%)="37SUERTE " $(P$(38&)="38CASTELLANA " $(P$(39')="39IMPUESTOS 10000 " $!P$(Y)="40PASEO DEL PRADO " %P(2)=6000p %P(4)=6000p %P(6)=20000 N %P(7)=10000' %P(9 )=10000' %P(TEN)=12000. %P(12 )=140006 %P(13 )=15000: %P(14)=140006 %P(15)=16000> %P(16)=20000 N %P(17)=18000PF %P(19)=18000PF %P(20)=20000 N %P(22)=22000U %P(24)=22000U %P(25)=24000] %P(26)=20000 N %P(27)=26000e %P(28)=26000e %P(29)=15000: %P(30)=28000`m %P(32 )=300000u %P(33!)=300000u %P(35#)=32000} %P(36$)=20000 N %P(38&)=35000 %P(Y)=40000@ % % 9745& %0,0 %N0,175:177,0:0,-175:-177,0 %%0,17:175,0 %&0,159:175,0 %&159,0:0,175 %%17,0:0,175 %$0,33!:17,0 %$0,491:17,0 %$0,65A:17,0 %$0,81Q:17,0 %$0,96`:17,0 %%0,112p:17,0 %%0,128:17,0 %%0,143:17,0 %$33!,0:0,17 %$491,0:0,17 %$65A,0:0,17 %$81Q,0:0,17 %$96`,0:0,17 %%112p,0:0,17 %%128,0:0,17 %%145,0:0,17 &&33!,159:0,16 &&491,159:0,16 &&65A,159:0,16 &&81Q,159:0,16 &&96`,159:0,16 &'112p,159:0,16 &'128,159:0,16 &'143,159:0,16 &'176,33!:-17,0 & '176,491:-17,0 & '176,65A:-17,0 & '176,81Q:-17,0 & '176,96`:-17,0 & (176,112p:-17,0 &(176,128:-17,0 &(176,143:-17,0 & &\0,4;"";1,4;"":20,6;"";21,6;"" &112 ,20;"";13 ,20;"" &!1:21,0;"||" &20,0;"" & 4:0,0;"P " &1,0;" G" &%7:20,16;"C" &21,17;"C" &6,20;"C" &7,21;"C" &6,0;"C" &7,1;"C" &+0:6:16,1;"" &17,1;"" & *1:6:16,20;"" &!20,12 ;"" &"0,16;"" &#+2:7:10 ,20;"" &$20,10 ;"" &%10 ,0;"" &&0,10 ;"" &'20,20;" 1" &(21,20;"" &)/0,20;"";1,20;" " &*"20,18;3;" 2" &+"20,14;3;" 4" &,!20,2;5;"10" &-!20,4;5;" 9" &.!20,8;5;" 7" &/!18,0;3;"12" &0!12 ,0;3;"15" &1!14,0;3;"14" &2 4,0;2;"19" &3 8,0;2;"17" &4 0,2;2;"22" &5 2,0;2;"20" &6 0,8;2;"25" &7 0,6;2;"24" &8!0,12 ;6;"27" &9!0,18;6;"30" &:!0,14;6;"28" &;!2,20;4;"32" &"18,20;1;"40" &?"14,20;1;"38" &@_180,0:75K,0:0,105i:-75K,0:0,-105i &A&180,92\:75K,0 &Bg0,23;1;7;"  1984 ";1,23;1;7;"LEONSOFT " &D 0: 'H"GAME"9995 ':.5,20:"GRAPHICS""a",21*8 '.5,20: '10 ,10 ;"SAVED" ' -21,0;"USE VERIFY"""" TO CHECK" '  ' """:0:0:7: ' 9700%:300, ' "MONOPOLIO"9 '""GRAPHICS""A",21*8 jreoublxy(zne hir*ayaormor@uileldbuenis hancXassg"ncom"upe#ui hesLupranjroprzni(#laai4!lanlayed,1urrou'*ar ewnee""eq7!uyericfffh 3337!op'3inneac e (Н(01SALIDA 02RDA.DE VALENCIA 03CAJA DE COM'DAD 04PLA.DE LAVAPIES 05IMPUESTOS 20000 06EST.DE GOYA 07CUATRO CAMINOS 08SUERTE 09REINA VICTORIA 10BRAVO MURILLO 11CARCEL LIBRE 12GLORIETA 13ELECTRICIDAD S A14ALBERTO AGUILERA15FUENCARRAL 16EST. DELICIAS 17AV.FELIPE II 18CAJA DE COM'DAD 19VELAQUEZ 20SERRANO 21PARQUE GRATUITO 22AV.DE AMERICA 23SUERTE 24MARIA DE MOLINA 25CEA BERMUDEZ 26EST.DE MEDIODIA 27REYES CATOLICOS 28CALLE DE BAILEN 29HIDRAULICA S A 30PLAZA DE ESPANA 31 VA.ALA CARCEL32PUERTA DEL SOL 33ALCALA 34CAJA DE COM'DAD 35GRAN VIA 36EST.DEL NORTE 37SUERTE 38CASTELLANA 39IMPUESTOS 10000 40PASEO DEL PRADO |||||||| ((pp N''.6:6> NPFPF NUU] Nee:`m0u0u} N@(GRAPHICS XYyR"("]UU6@Ph8-><  `000`vEeFEEEwDDfDDwbUUeGEEeUUfUUU"UEEUU2r%%%%%"8|8||8  |8