METROPOL /j/j1j&63999:""64000:"""A" 236077\,249 0:0:7: Z=0:9700% +236099\,20:23658j\,8 *2000 h PGRAT=0:DOUBLE=0:X=5000:Y=40(:ONE=1:TEN=10 :THIRD=ONE/3 D$(6,6) D$(1)="" D$(2)="" D$(3)="" D$(4)="" D$(5)="" D$(6)="" CASILLAS=28 PASO=0 !PAYT=4E3 "PAY=Z #MORT=2E3 $UMORT=8E3@ (BUILD=5E3 -SELL=6500d 2QBUY=900 <RENT=1E3 BLIST=3E3 FCHANCE=7E3X KPASSGO=8900" MFINAL=8480 ! PINCOME=8950" USUPER=8980# ZQUIT=8420 _CHEST=7500L `BUY=6E3p aTRANS=6250j bPROP=700 cQPRO=6010z eP$(Y,23) fINIT=9E3(# gPLAY=500 jJAIL=85004! ""CUANTOS JUGADORES (2 A 4)? ";N =0,23;" ";1,23;" " N<2N>4130 *T(N):S(N):J(N):E(N):F(N):I(N):Q(N) 10 ,6;"PREPARADOS" >ONE,Z;"e":N>2ONE,ONE;"f":N=3ONE,ONE;"c" INIT EGAN=0:A=1N:GAN=GAN+Q(A):A:GANN-1210 /A=1N:GAN=A*(Q(A)=0):GANFINAL A PLAYER=PLAYER+ONE PLAYER>N PLAYER=ONE Q(PLAYER)210 DOUBLE=Z:TURN=ONE ,A=03:A,23;" ":A:A=418:A,3;" ":A:4,23;" PARQUE ";5,23;"GRATUITO";6,24;"000000";6,30-((PGRAT));PGRAT -f0;4;7,23;"CAS.: 00";7,30-1*(CASILLAS>9 );CASILLAS .22:7:9 ,23;"OPCIONES" /11 ,23;" ";12 ,23;"L:LISTA ";13 ,23;"H:HIPOT.";14,23;"C:COMPRA";15,23;"V:VENTA ";16,23;"E:EDIFI.";17,23;"R:RECOB.";18,23;"Q:QUITA " 0=19,23;"X:VISUAL";20,23;" " 10:9 7T(PLAYER)=B(PLAYER)+V(PLAYER) @A(PLAYER);9 ;3,3;" JUGADOR No. ";PLAYER;" " JL4,3;"PTAS.:";4,17-((B(PLAYER)));B(PLAYER);" `" TL5,3;"PROP.:";5,17-((V(PLAYER)));V(PLAYER);" `" ^L6,3;"TOTAL:";6,17-((T(PLAYER)));T(PLAYER);" `" hv8,3;"CASILLA ";1;P$(L(PLAYER))(2);0;9 ,3;P$(L(PLAYER))(4) kT(PLAYER)YL(PLAYER)=L(PLAYER)-Y:PASO=1 c89850z&:AUX1,AUX2;Z$:9820\&:COOR1,COOR2;Z$ fx11 ,3;"AHORA SOBRE ";1;P$(L(PLAYER))(2);0;12 ,3;P$(L(PLAYER))(4) gDOUBLE=3200 hL(PLAYER)=21PGRAT>0B(PLAYER)=B(PLAYER)+PGRAT:17,3;2;0;"PARQUE GRATUITO!";18,5; 5;"COBRAS ";PGRAT;:0:A=12:B=10 30:.01z# =,B:B:A:PGRAT=0 jPASOPASSGO:PASO=Z vXGROUP=(P$(L(PLAYER))(3)):GROUP=GROUP-127:GROUP=-25GROUP=0 GROUP=24 CHEST GROUP=15CHANCE GROUP=25SUPER !GROUP=74JJAIL:610b GROUP=23INCOME GROUP=37%502:D GROUP502:D PROP  8259 QQ=700+(GROUP*TEN) QQ HP=X:GS=.5:8204 HP=Z:GS=.25~:8204 HP=X:GS=THIRD:8204 #HP=X*2:GS=THIRD:8204 HP=Z:GS=.5:8204 #HP=X*2:GS=THIRD:8204 #HP=X*3:GS=THIRD:8204  #HP=X*3:GS=THIRD:8204 #HP=X*4:GS=THIRD:8204  HP=X*4:GS=.5: 4 9PROPIEDAD CASILLA >UO(L(PLAYER))=PLAYER17,3;" DE TU PROPIEDAD":100d:D HO(L(PLAYER))>ZRENT U15,3;" EN VENTA ";16,4;"POR PTAS ";P(L(PLAYER)) PB(PLAYER)1M$=M$+"S" j 1050 ;G(5,OWNER).6FACT=400:M$="UNA CARTA" =G(5,OWNER).9ffffFACT=1000:M$="DOS CARTAS" REN=FACT*(D1+D2)  1050 REN=L(PLAYER)*100d H(L(PLAYER))>Z1290  *G(GROUP,OWNER).9ffffREN=REN*2 M$="ALQUILER"  1050  dREN=REN+(HP*1.43333^H(L(PLAYER))*(1+L(PLAYER)/100d)):REN=(REN/100d)*100d &H(L(PLAYER))=5 M$="UN HOTEL" SH(L(PLAYER))<5M$=(H(L(PLAYER)))+" CASA":H(L(PLAYER))>1M$=M$+"S" n 1050 .12 ,3;"*** HIPOTECA ***"  QPRO:CD RPLAYERO(C)17,4;"[ NO ES TUYO !":100d:8618!:MORT LM(C)17,4;"[YA HIPOTECADO!":100d:8618!:MORT PROP H(C)2600( 4 M(C)=ONE >V(PLAYER)=V(PLAYER)-P(C) HPAY=P(C)/2 RPAYT D (:16,3;"TIENES ";H(C);" CASA";:H(C)>ONE"S" 2"]CUANTAS VENDES? ";A <AH(C)26102 FHH(C)=5F(PLAYER)=F(PLAYER)-ONE:E(PLAYER)=E(PLAYER)+(5-A) 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 D YES=0 6C=318:C,3;" ":C 63,3;PLAYER;"JUGADOR ";PLAYER;" TIENES" Q=5 C=ONEY O(C)=PLAYERYES=YES+1 C C=1Y O(C)PLAYER3200 %Q,3;PLAYER;P$(C)(2); M(C)" HIPOTECADO"; VH(C)" CON ";H(C);" CASA";:H(C)>1"S":H(C)=5Q,10 ;"UN HOTEL" M(C)H(C) )Q=Q+1:Q,3;P$(C)(4) Q=Q+1:YES=YES-1 Q18C *Q17YES>Z9900&:3080  3200 DQ=5:W=418:W,3;" ":W:C C=Y C 9900& D B(PLAYER)=B(PLAYER)+PAY PAY=Z  TIRADA DE DADOS  7 !V=23:44000:D1=DADO ,!V=27:44000:D2=DADO 6 0C=05:DADO=(*6)+1:4500+5*(DADO-1):4530:C:4500+5*(DADO-1): UZ,V;D$(1);ONE,V;D$(2);2,V;D$(1);3,V;D$(6): UZ,V;D$(3);ONE,V;D$(1);2,V;D$(4);3,V;D$(6): UZ,V;D$(3);ONE,V;D$(2);2,V;D$(4);3,V;D$(6): UZ,V;D$(5);ONE,V;D$(1);2,V;D$(5);3,V;D$(6): UZ,V;D$(5);ONE,V;D$(2);2,V;D$(5);3,V;D$(6): UZ,V;D$(5);ONE,V;D$(5);2,V;D$(5);3,V;D$(6): UZ,V;D$(1);ONE,V;D$(1);2,V;D$(1);3,V;D$(6): .12 ,3;"*** EDIFICAR ***"  QPRO:CD XGROUP=2GROUP=517,3;"[NO EDIFICABLE!":100d:BUILD GO(C)PLAYER17,4;"[ NO ES TUYO !":100d:BUILD @M(C)17,4;"[ HIPOTECADO !":100d:BUILD UG(GROUP,PLAYER)<.9ffff17,3;"SIN GRUPO COMP.":100d:BUILD JH(C)517,3;"[ HAY UN HOTEL !":100d:BUILD PROP B(PLAYER)>HP5080 C17,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 p-12 ,3;"*** COMPRAR ***" r QPRO:CD s 6080 yQPRO z8A=13 18:A,3;" ":A #"No. CASILLA (0=SALIR): ";C:C "C<0C>40(6010z C=1C=3C=5C=8C=11 C=18C=21C=23C=31C=34"C=37%C=39'17,3;"[CAS. NO VALIDA!":100d:QPRO #14,3;P$(C)(2) #15,3;P$(C)(4) "]CORRECTO (S/N)? ";A$ A$"S"QPRO PGROUP=(P$(C)(3)):GROUP=GROUP-127:GROUP=-95_GROUP=0    OWNER=O(C) AOWNER17,4;"[AUN SIN DUE^O!":100d:BUY IOWNER=PLAYER17,3;"ES SU PROPIEDAD!":100d:BUY iH(C)17,3;"IMPOSIBLE COMPRA";18,3;"PROP. CON CASAS.":100d:BUY '17,3;"DUE^O JUG. ";OWNER 8PROP 9BUYER=PLAYER BTRANS LD j TRANSACCION t"IMPORTE: ";PRICE ~PRICE<1 GPRICE>B(BUYER)17,3;"IMPORTE EXCESIVO":100d: B(OWNER)=B(OWNER)+PRICE "G(GROUP,OWNER)=G(GROUP,OWNER)-GS $V(OWNER)=V(OWNER)-P(C)*(M(C)-ONE) B(BUYER)=B(BUYER)-PRICE  O(C)=BUYER "G(GROUP,BUYER)=G(GROUP,BUYER)+GS $V(BUYER)=V(BUYER)+P(C)*(M(C)-ONE)  d.12 ,3;"*** VENDER ***" n QPRO:CD xFO(C)PLAYER17,4;"[ NO ES TUYO !":100d:SELL zhH(C)17,4;"DEBES QUITAR LAS";18,4;"EDIFICACIONES.":100d:SELL }PROP OWNER=PLAYER "VENDE A JUG. No.:";A  ASELL AN6540 QQ(A)17,4;"[YA ELIMINADO!":100d:8618!:6540 VA=PLAYER17,4;"[ERES TU MISMO!":100d:8618!:6540  BUYER=A TRANS D XTARJETAS SUERTE ['9 ,23;1;" SUERTE " \9C=11 20:C,23;1;" ":C ^@CARD=(*16)+ONE:1:CHANCE+CARD*10 :0 _PAYT ` 125} aD b12 ,23;"LA BANCA";13 ,23;" ARROJA ";14,23;"UN DIVI-";15,23;"DENDO DE";16,23;"5000 PTS" cPAY=5000 k l12 ,23;" MULTA";13 ,23;"POR EX -";14,23;"CESO DE ";15,23;"VELOCI -";16,23;"DAD. ";18,23;"1500 PTS" mPAY=-1500 qPGRAT=PGRAT-PAY u v13 ,23;" VAYA A ";14,23;" LA ";15,23;"CASILLA";16,23;" No. 25";17,23;" CEA";18,23;"BERMUDEZ" wQ9810R&:DEP=L(PLAYER):L(PLAYER)=25:DEP>25L(PLAYER)=65A {0:610b 13 ,23;" VAYA A ";14,23;" LA ";15,23;"CASILLA";16,23;" No. 40";17,23;" PASEO";18,23;" DEL";19,23;" PRADO" 9810R&:L(PLAYER)=Y 0:610b 14,23;" MULTA ";15,23;" POR ";16,23;"EMBRIA -";17,23;"GUEZ. ";19,23;"2000 PTS" PAY=-2000 PGRAT=PGRAT-PAY  13 ,23;"ADELANTE";14,23;"HASTA LA";15,23;"CASILLA";16,23;" No. 12";17,23;"GLORIETA";18,23;"BILBAO." Q9810R&:DEP=L(PLAYER):L(PLAYER)=12 :DEP>12 L(PLAYER)=524 0:610b v14,23;" QUEDA ";15,23;" LIBRE ";16,23;" DE LA ";17,23;"CARCEL. " J(PLAYER)=J(PLAYER)+ONE  13 ,23;" SU ";14,23;"INMUEBLE";15,23;" Y SU ";16,23;"PRODUCEN";17,23;"15000 `." PAY=15000:  Z14,23;"RETROCE-";15,23;"DA TRES";16,23;"CASILLAS" )9810R&:L(PLAYER)=L(PLAYER)-3 0:610b x13 ,23;"ADELANTE";14,23;"HASTA LA";15,23;"CASILLA";16,23;" SALIDA "  9810R&:L(PLAYER)=41) 0:610b 12 ,23;" HA";13 ,23;" GANADO ";14,23;"EL CON -";15,23;"CURSO DE";16,23;"PALABRAS";17,23;"CRUZADAS";18,23;"COBRE :";19,23;"10000 `" PAY=10000'  б13 ,23;" VAYA A ";14,23;" LA ";15,23;"CASILLA";16,23;" No. 16";17,23;"EST. DE";18,23;"DELICIAS" Q9810R&:DEP=L(PLAYER):L(PLAYER)=16:DEP>16L(PLAYER)=568 0:610b ڕ13 ,23;" PAGUE";14,23;"POR GAS-";15,23;"TOS ES -";16,23;"COLARES.";17,23;"15000 `." PAY=-15000: PGRAT=PGRAT-PAY   12 ,23;" VAYA A";13 ,23;" LA ";14,23;"CARCEL ";15,23;"SIN PA-";16,23;"SAR POR ";17,23;"LA SALI-";18,23;"DA Y SIN";19,23;"COBRAR ";20,23;"20000 `." &9810R&:0:JAIL:610b 14,23;" PAGAS ";15,23;"POR CADA";16,23;" CASA";17,23;"4000 PTS";18,23;" HOTEL";19,23;"11000 `." 0PAY=4000*E(PLAYER)+11000**F(PLAYER) 95;17,9 -((PAY));"TOTAL: ";PAY;" `" PGRAT=PGRAT+PAY:PAY=-PAY  14,23;" PAGAS ";15,23;"POR CADA";16,23;" CASA";17,23;"2500 PTS";18,23;" HOTEL";19,23;"10000 `." 0PAY=2500 *E(PLAYER)+10000'*F(PLAYER) 95;17,9 -((PAY));"TOTAL: ";PAY;" `" PGRAT=PGRAT+PAY:PAY=-PAY  LCAJA DE COMUNIDAD N'9 ,23;3;"C.DE C. " O9C=11 20:C,23;3;" ":C Q?CARD=(*15)+ONE:3:CHEST+CARD*10 :0 SPAYT T 150 UD V12 ,23;"SITUESE";13 ,23;" EN LA ";14,23;"CASILLA";15,23;" No. 2 ";16,23;"RONDA DE";17,23;"VALENCIA" W9810R&:L(PLAYER)=2 X0:610b `w13 ,23;" COBRA ";14,23;" UNA ";15,23;"HERENCIA";16,23;"10000 `." a PAY=10000' i jx13 ,23;"LA VENTA";14,23;"DE STOCK";15,23;"PRODUCE";16,23;" 5000 `." k PAY=X s t12 ,23;" RECIBA ";13 ,23;"INTERES ";14,23;" DEL 7 %";15,23;" POR ";16,23;"PRESTAMO";17,23;" 2500 `." uPAY=2500 } ~13 ,23;"PAGUE SU";14,23;" POLIZA";15,23;" DEL ";16,23;" SEGURO.";17,23;" 5000 `." PGRAT=PGRAT+X:PAY=-X  w14,23;" QUEDA";15,23;"LIBRE DE";16,23;" LA ";17,23;" CARCEL."  J(PLAYER)=J(PLAYER)+ONE  x13 ,23;" RECIBA ";14,23;"SU RENTA";15,23;" ANUAL.";16,23;"10000 `." PAY=10000'  12 ,23;"EN SU A-";13 ,23;"NIVERSA-";14,23;"RIO ";15,23;" RECIBA ";16,23;"1000 `. ";17,23;"DE CADA ";18,23;"JUGADOR."  C=1N 3Q(C)B(C)=B(C)-1000:B(C)=B(C)+1000 C  13 ,23;" GANO ";14,23;"SEGUNDO ";15,23;" PREMIO ";16,23;" DE ";17,23;"BELLEZA.";18,23;" RECIBA";19,23;"1000 `." PAY=1000  13 ,23;" PAGUE ";14,23;" MULTA ";15,23;" 1000 ` ";16,23;"O SAQUE ";17,23;"CARTA DE";18,23;"SUERTE. "  "M o S ";A$ A$="S" CHANCE PAY=-1000 PGRAT=PGRAT-PAY  13 ,23;"PAGUE LA";14,23;"FACTURA ";15,23;" DEL ";16,23;" MEDICO.";17,23;" 5000 `." PAY=-X PGRAT=PGRAT+X  [14,23;"PAGUE AL";15,23;"HOSPITAL";16,23;"10000 `." PAY=-10000' PGRAT=PGRAT-PAY   12 ,23;" VAYA A";13 ,23;" LA ";14,23;"CARCEL ";15,23;"SIN PA-";16,23;"SAR POR ";17,23;"LA SALI-";18,23;"DA Y SIN";19,23;"COBRAR ";20,23;"20000 `." &9810R&:0:JAIL:610b x13 ,23;"ADELANTE";14,23;"HASTA LA";15,23;"CASILLA";16,23;" SALIDA "  9810R&:L(PLAYER)=41) 0:610b 13 ,23;" ERROR";14,23;" DE LA ";15,23;"BANCA A";16,23;"SU FAVOR";17,23;" RECIBA";18,23;"20000 `." PAY=20000 N  @.12 ,3;"*** RECOBRAR ***" J QPRO:CD TSPLAYERO(C)17,4;"[ NO ES TUYO !":100d:8618!:UMORT ^NM(C)17,4;"[NO HIPOTECADO!":100d:8618!:UMORT hM(C)=Z rPAY=-(P(C)*.55 ) wLPAY>B(PLAYER)17,3;"TE FALTA DINERO!":100d:UMORT |PAYT V(PLAYER)=V(PLAYER)+P(C) vD ELIMINACION JUGADOR " ] SEGURO (S/N) ? ";A$ A$"S"D @O(L(PLAYER))=PLAYERO(L(PLAYER))=ZB(PLAYER)>-1OWNER=Z q17,4; 2;1;"JUGADOR No. ";PLAYER;18,4;"[ ELIMINADO ! ":Z:Z:200 Q(PLAYER)=ONE:L(PLAYER)=Z:OWNERB(OWNER)=B(OWNER)+B(PLAYER):V(OWNER)=V(OWNER)+V(PLAYER):T(PLAYER)=0:T(OWNER)=B(OWNER)+V(OWNER) 9810R&:AUX1,AUX2;Z$ "A=ONEY:O(A)PLAYER8470! !wGROUP=(P$(A)(3)):GROUP=GROUP-127:PROP:OWNERO(A)=OWNER:G(GROUP,OWNER)=G(GROUP,OWNER)+GS:8470! ! 3O(A)=Z:M(A)=Z:H(A)=Z:CASILLAS=CASILLAS+1 !A:8618!:200 ! FINAL DE PARTIDA !%6A=318:A,3;" ":A !*]8,5;"EL GANADOR ES";10 ,5;GAN;"JUGADOR No. ";GAN;0 !/9900&:10 !4JUGADOR A CARCEL !5 9810R& !7GA=13:B=11 9 -1.9s333:0.405O\(,B:B:A !81L(PLAYER)=11 :I(PLAYER)=I(PLAYER)+1 !9 !HJUGADOR EN CARCEL !I*16,3;" ENCARCELADO ! " !JJ(PLAYER)17,4;" QUEDAS LIBRE ";18,4;" DE LA CARCEL ":100d:J(PLAYER)=J(PLAYER)-1:S(PLAYER)=Z:I(PLAYER)=Z:8618! !M.17,4;"CARCEL VUELTA ";I(PLAYER) !O"PULSA P PARA LIBERTAD ";A$ !PA$="P"8550f! !R?I(PLAYER)=I(PLAYER)+ONE:I(PLAYER)=4S(PLAYER)=1 !\ 8618! !fXB(PLAYER) %P(16)=2E4 N %P(17)=18E3PF %P(19)=18E3PF %P(20)=2E4 N %P(22)=22E3U %P(24)=22E3U %P(25)=24E3] %P(26)=2E4 N %P(27)=26E3e %P(28)=26E3e %P(29)=15E3: %P(30)=28E3`m %P(32 )=3E40u %P(33!)=3E40u %P(35#)=32E3} %P(36$)=2E4 N %P(38&)=35E3 %P(Y)=4E4@ % %DIBUJO TABLERO &F Z,Z;"0204070910" &*A=Z202:1,A;"gh":A & 2,Z;"40";4,Z;"";6,Z;"38";8,Z;"";10 ,Z;"";12 ,Z;"35";14,Z;"";16,Z;"33";18,Z;"32" &* 2,20;"12";4,20;"";6,20;"14"; 8,20;"15";10 ,20;"";12 ,20;"17";14,20;"";16,20;"19";18,20;"20" &/;A=3192:A,Z;"gh";A,20;"gh":A &4C 20,Z;"302827252422" &91A=0202:21,A;"gh":A &@_180,0:75K,0:0,105i:-75K,0:0,-105i &A&180,92\:75K,0 &D 0: &HCALCULOS FICHAS &RSALIDA DE CASILLA &T 9840p& &U$9850z&:AUX1=COOR1:AUX2=COOR2 &V=L(PLAYER+CONT)=L(PLAYER)MM=96`+PLAYER+CONT:Z$=(MM) &XKL(PLAYER+CONT)L(PLAYER)MM=103g+1*(PLAYER>2):Z$=(MM) &Z &\ENTRADA EN CASILLA &^ 9840p& &`KL(PLAYER+CONT)=L(PLAYER)MM=101e+1*(PLAYER>2):Z$=(MM) &b8L(PLAYER+CONT)L(PLAYER)MM=96`+PLAYER:Z$=(MM) &d &p CONTROL OCUP CASILLA &s9PLAYER/2-(PLAYER/2)=0CONT=-1 &v8PLAYER/2-(PLAYER/2)0CONT=1 &x &zCALCULO COOR CAS &NUMCAS=L(PLAYER) &UNUMCAS<12 COOR2=(NUMCAS-1)*2+1*(PLAYER>2):COOR1=ONE &sNUMCAS>11 NUMCAS<21COOR1=3+(NUMCAS-12 )*2:COOR2=20+1*(PLAYER>2) &tNUMCAS<32 NUMCAS>20COOR2=20-(NUMCAS-21)*2+1*(PLAYER>2):COOR1=21 &]NUMCAS>31COOR1=19-(NUMCAS-32 )*2:COOR2=Z+1*(PLAYER>2) & &% "PULSA ENTER PARA CONTINUAR ";A$: 'I "METROPOL"5:"CHR"64000,768:"GRAF""A",168 CHR /,ff$~$$~$>(> >cf 3c(*D:   00f<~> > 0`~BFF~~~@~|~~`f~~@~~|@~F~~ <$~f~~B~  0 <<0 0