""16384@ bolsa [@: [? @>?@s8 |8_?` @>}?@G`x?B@@~1 x?o'0A=?0?@. #  ?@ ?@;? `? o?<@'!8p @}? ?|@ GA8`?: ހ>@>8@y?U# O@j? @?SUW UW@GW5WUUUU?U UUU@VUUU@UUUUUU@`UU@U@_*直 j0? @ UU WUUU?UUW烏UPUUUU@|VUUU_U?UUUU?PUWP U !?P j猪?!0j    ?UU@ W'UUU_UW_UUU@VUUWUUU_q5UW W @@?@G? ? * ? W@ UU? W OUUUUUaUUUPUUUU_@VUUUU@ UUU_@_0?000 ?0 00 00 0 0 00 0 A00 0 0 000 0?0 0 0 ??0 ??0 !00 0 0 000 0?0 0 0 ??0 ??0  800 0 0 000 0?0 0 0 ??0 ??0  x00 0 0 000 0?0 0 0 ??0 ??0 0?000 ?0 00 00 0 0 00 0 0?000 ?0 00 00 0 0 00 0 0?000 ?0 00 00 0 0 00 0 xxxxxxxxxxxxxxxxxxxxHHHHxxxxHHHHHpppppHHHHHpppppHHHHHxxxxxxxxxxxxxxxxxxxxx(((((((xx(((((((xx(((((((xx(((((((xx(((((((xx(((((((xx(((((((xxxxxxxxxxxxxxxxxxxxxxxxx(((((((xxWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW________________________________oooooooooooooooooooooooooooooooogggggggggggggggggggggggggggggggg0000000000000000000000000000000000000000000000000000000000000000 # # <@TT''0'잶\\\'`49=ARR[\HC7X![!@P!!00'#0W K SR PKdes=23613=\+256*23614>\:des,0:des+1,0 {0:0:7::10 ,10 ;"PARE LA CINTA":F=1500:F:"N",24:100d -A=17:.15~,-10 :A: +A=14:.1}L,18:A: DA=16:B=8248:.05|L,B:B:A: (?A=16:.15~,20:.1}L,30:A: 2/A=2032 2:.05|L,A:A: <=A=13:.1}L,0:.1}L,-6:A: nW$(32 ):H$(4,4):H(6,4):B(6):P(4):N$(6,8):Q(6):L(6):R(6):N(6):T(6) xA(X)=(*X+1) #B(X )=(*X+1)-1 :I=14:H$(I):I "PLOMO","ZINC","ESTAO","ORO" oP(1)=10 :P(2)=502:P(3)=250:P(4)=1250:TU=0:SU=0 'I=16:B(I)=1000:I x6:6::2;7;1;5,0;W$;W$;W$;W$;W$;7,3;"DESEA INSTRUCCIONES?" 2050 AN=15000 ,|2;7;1;5,0;W$;W$;W$;W$;W$;7,3;"JUGADORES? (Max. 6)":.15~,30:U$ J((U$)>1U$<"1"U$>"6"300, T NU=(U$) ^K=1NU hM8;8;1;7,3;" ENTRE NOMBRE JUGADOR ";K;" " r.15~,30:N$(K) |N$(K)=32 370r K I8;8;1;7,3;"SELECCIONE EL NIVEL " 8.15~,30:"1(FACIL) HASTA 4(DIFICIL) ..";D$ ((D$)>1D$<"1"D$>"4"420 DI=(D$-5) +1:1:7::P=1NU CH=0:2300 R(P)=-12;7;1;18,11 ;"++++++++++";19,11 ;"+ARRUINADO";20,11 ;"++++++++++":40(:150:700  RX=14:Y=6:2120H:2600( :X=14:Y=6:2120H 16,1;4;0;1;" TIPO ""B""COMPRAR, ""S""VENDER ";18,3;" O ""Q"" FIN DE TURNO "  20 B$= &B$="Q"700 0B$="B"3500 :525  :B$="S"3700t:515 D 540 P P=NU /X=13 :Y=9 :2120H:4000 $6000p:AN=11000 0:4:4: G6;0;5,0;"********************************" GQ=611 :6;0;Q,0;"*";31;"*":Q H6;0;12 ,0;"********************************" ?6;0;7,2;"FIN DE TURNO........ ";TU $Q=14:Q(Q)=0:Q L6;0;10 ,2;"DESEA TERMINAR DE JUGAR?":2050  AN1500 K=1NU J=14 B(K)=B(K)+H(K,J)*P(J) J B(K)=B(K)-L(K) $K .6:0:6: 87:1;2;W$;W$;W$;W$;W$;1,5;">> F I N J U E G O <<":38&,169:180,0:0,-12 :-180,0:0,12 BF0;1;3,1;"DIV. VENTA ESTA ES LA SITUACION" L1;6,1;1;"JUGADOR ";6,10 ;3;" IMPORTACION ";6,24;4;" PUNT. ":0 V:K=1NU `IPM=(100d*(B(K)-1000))/100d:SC=(B(K)/(TU+DI*5)) j*" ";N$(K);11 ;"P ";PM;25;SC t:K vC1146z:L=13:Q:0,Q:255,0:L x:L=14:Q:Q,130:0,-110n:L zC131,115s,19,0,76L,188,255 ~tB=12:A=0242:.05|L,A:A:B:5;1;"DESEA JUGAR OTRA VEZ? ";A$ A$="S"A$="s" `5:3:7:1::8,5;1;"ADIOS Y GRACIAS":200: 5.15~,30:23658j\,8:AN=0 A$=  A$="S"A$="s"AN=1: * A$="N" 4 2070 H X,0; RL=1Y:W$ \L:  66;0;" DIVIDENDO " .q6;0;"NOMB";N$(P);17;"MERCADO CENTRAL";6;1;"" B2"PLOMO";13 ;6;"";7;" PLOMO" L-13 ;6;"";7;" MINAS(+)" V4"ZINC";13 ;6;"";7;" T.I.A.F." `.13 ;6;"";7;" Zinc Inc." j5"ESTAO";13 ;6;"";7;" PRINCP." t/13 ;6;"";7;" Est. Plata" ~2"ORO";13 ;6;"";7;" S. Bre." -13 ;6;"";7;" Mina oro" "BANCO";13 ;6;"" V12 ,0;6;"";12 ,13 ;"" I=14 D$="":P(I)=P(I)D$=".00" 3P1=P(I):P1=P1*100d:P1=P1:P1=P1/100d P$=(P1)+D$ KI*2+2,24;" ";I*2+2,32 -P$;P$ I 3000 I=14 #I*2+1,5;H(P,I) I JL(P)>02;13 ,0;" DEBE AL BANCO PTS. ";L(P);" "  (R=B(10 ):R<5 2D1;3;17,7;" !! NUEVOFLASH !! ":30 12 28706 PCH>10 2950 ZR>4+DI2810 dR=B(10 ) nR=02790 xR>42750 `17,0;5;0;1;"Bonos para todos ";H$(R);" DIVIDENDOS":502 150:R1=B(10 ) UR1=02;17,0;"SUSPENSION DE PAGOS":10 :150: Y5;0;1;19,1;"Pagos = ";R1*10 ;"% dividendos tasa" 4I=1NU:B(I)=B(I)+.1}L*R1*H(I,R)*P(R):I 3000 :150: O5;0;1;17,10 ;" AVISOS ":502:150 R=B(10 ) [R=02;17,0;"ERROR EN TASAS OFICIALES! ":10 :150: X5;0;1;19,1;" DEVL. = ";10 *R;"% CIERRE BALANCE" 4B(P)=B(P)+.1}L*R*B(P):3000 :150: %I=14:Q(I)=-1:I Z2;1;17,1;" TODO EL MERCADO SUSPENDIDO ":10 :SU=1 150: R=B(10 ) R=02930r R>428706 R5;0;1;17,2;" ";H$(R);"BONOS DESPACHADOS 1 DV." S5;0;1;19,2;"DIVIDENDOS PARA CADA UNO":502 "2I=1NU:H(I,R)=H(I,R)+(H(I,R)/2):I ,X=R:3100 :150: 6I2;17,0;"CAPITAL GAND. TAS. INVESTIGACION":60< @R=B(10 ):150 JnR=05;0;1;17,0;"TAS. CEDIDAS! - SINDEMANDAS":502:150: TK2;19,0;" DEMAND. CERR. ";10 *R;"% BALANCE BANCO" ^'B(P)=B(P)-.1}L*R*B(P):3000 h 150: rM3;1;1;17,6;" MERCADO MUY DEVIL":60< | 150: j2;16,2;"COMERCIO SUSPEND. ";18,2;"TAS. OFICIALES INVESTIGAD.":60< CH=100d:150: D$="":B(P)=B(P)D$=".00" SB1=B(P):B1=B1*100d:B1=B1:B1=B1/100d:B1>999999t#B1=B1:D$="" B$=(B1)+D$ 811 ,4;" ";11 ,13 -B$;B$  HX*2+1,5;" ";X*2+1,5;H(P,X) 0 D$="":P(X)=P(X)D$=".00" 3P1=P(X):P1=P1*100d:P1=P1:P1=P1/100d P$=(P1)+D$ KX*2+2,24;" ";X*2+2,32 -P$;P$  =CH=CH+1:J=0:X=16:Y=3:2120H 16,0;4;0;1;" QUE PRODUCTOS ";A$;" Sr.?";18,6;1;"L";18,7;0;"PLOMO,";1;"Z";0;"ZINC,";1;"G";0;"ORO";1;"T";0;"ESTAO";19,7;" o STOP ";A$;" " 20 B$=:B$=""3350 B$="L"J=1 *B$="Z"J=2 4B$="T"J=3 >B$="G"J=4 HB$="S"J=5 RJ=03350 W0X=16:Y=4:2120H:J=5 \Q(J)=-12;18,0;" VENTAS ";H$(J);" SUSPENDED SR. ":10 :150:18,0;W$:3300 f4;0;1;15,0;W$;W$;15,1;"varios ";H$(J);" Sus Dividendos "," ";A$;" Sr.? (si termino ponga 0)" p 20 qS$:(S$)<13441q rS$="0"SS=(S$):3470 tBI=1̱(S$):S$(II)<480ůS$(II)>5793441q uI z SS=(S$) SS<13440p %X=15:Y=3:2120H: A$="compra":3300 J=5 B=SS*P(J):BB(P)3620$ |CR=(.5*(H(P,1)*P(1)+H(P,2)*P(2)+H(P,3)*P(3)+H(P,4)*P(4)+B(P))-L(P)) %B02;13 ,0;" le debe al banco pts. ";L(P);" " .3000 :X=J:3100 8 tA$="vende":3300 ~$J=5L(P)>03785  J=5 \SS>H(P,J)2;1;17,3;"vd debe de varios!":10 :150: %H(P,J)=H(P,J)-SS:B(P)=B(P)+SS*P(J) 3000 :X=J:3100 L(P)=0 L(P)>B(P)2;1;17,0;"No puede hacerse efectivo":60<:150:17,0;W$:3700t L(P)B(P)2;18,0;" BANCO COGE PREST.REPARTIDOS ";W$;19,10 ;"PTS";L(P):X=13 :Y=8:150:B(P)=B(P)-L(P):L(P)=0:3000 :2120H e1;1;17,5;"BANCO INFELIZ ....":60<:150:17,0;W$ ,2;"VS. HACE LIQUIDACION!":10 ZJ=14:B(P)=B(P)+H(P,J)*P(J):H(P,J)=0:X=J:3100 :3000 :J B(P)-L(P)03785 B(P)=B(P)-L(P) ~B(P)<0L(P)=-1:2;1;1;18,0;W$;W$;W$;19,10 ;" EN BANCARROTA SR.! " 7B(P)<0B(P)=0:L(P)=0:150: ;L(P)=0:13 ,0;W$:3000 :150   I=14 N(I)=0:I z4;7;1;13 ,0;W$;W$;W$;W$;W$;W$;W$;W$;14,0;" ===MERCADO NUEVO.=== " :I=14:R=B(10 ):R=04500 SU=14170J Q(I)=-14170J #K=1NU:N(I)=N(I)+H(K,I):K TC=N(I)-T(I) aR=R-1*(TC>10 )-1*(TC>100d)+1*(TC<-10 )+1*(TC<-100d) !T(I)=N(I):R<0R=0 R>9 R=9 nPC=R*(5^(I-1))-.4L*P(I):PC=(100d*PC)/100d:PC<.1}LPC>-.1}LPC=0 /A$=H$(I):X=0:Y=15+I:44000 "IPC=0A$="HOLDING CON TASAS":X=5:Y=15+I:44000 ' C$=(PC) ,fPC>0A$=" ^ ":X=5:Y=15+I:44000:100d:A$=C$:X=20:44000 6hPC<0A$="BAJA ":X=5:Y=15+I:44000:100d:A$=C$:X=20:44000 @P(I)=P(I)+PC:X=I:3200 JI:SU=0 TBR=A(20)+A(21) ^BR>24230 hsR=B(10 ):R02;21,0;"BANCO CASI ABANDONADO - NO INTERES.":10 :4290 re2;21,9 ;" BANCO FUERA!! ":60<:K=1NU:B(K)=0:L(K)=0:K |3000 :150 \5;0;1;21,1;" NUEVO BANCO EN ALZA ":502:4290 FA$="BANCO INTERESES ":X=3:Y=21:44000:100d .A$=(BR):X=23:Y=21:44000 4;1;"% " OK=1NU:B(K)=B(K)+B(K)*(BR/100d):B(K)=(B(K)*100d)/100d 5L(K)=L(K)+L(K)*((BR+2)/100d):L(K)=L(K) K TU=TU+1:150  0C1=A$ :Q=1C1 D!4;1;Y,X+Q;A$(Q); N.005y# =,32 :Q X 2R=B(10 ):SU>0R>1R<6 I1;3;16+I,0;" !! NUEVOFLASH !! " 30:150 *4;1;16+I,0;W$ R>54600 R>12;16+I,0;"TODO COMERCIO ";H$(I);" SUSPENDID.":Q(I)=-1:60<:150:16+I,0;4;1;W$: J2;16+I,0;H$(I);"BANCARROTA-SIN DIVIDENDOS":10 !K=1NU:H(K,I)=0:K FX=I:3100 :150:16+I,0;4;1;W$ a80P:5;0;1;16+I,4;" ";H$(I);" NUEVO COMERCIO ":502 kP(I)=10 *(5^(I-1)):X=I:3200 :150:4;1;16+I,0;W$  _6;0;1;16+I,0;" ";H$(I);" TOMA UN NUEVO CONSORCIO":60< &150:R=((*10 )+1)  R=06;0;1;16+I,0;"TOMELO - FELICIDADES! ":10 :150:4;1;16+I,0;W$: 4;1;16+I,0;W$:2;1;16+I,0;"DIVID. VENDIDOS A ";20*R;"% ":10  CK=1NU:B(K)=B(K)+.2~L*R*P(I)*H(K,I):H(K,I)=0:K *(3000 :X=I:3100 :150 4*16+I,0;4;1;W$ > 6:6:0: b2;7;1;"* I N S T R U C C I O N E S *";" * ======================= * " '"EL JUEGO CONSISTE EN COMERCIAR CON SUS PRODUCTOS PARA QUE ESTOSLES GENEREN BUENOS DIVIDENDOS, PARA LO CUAL SOLO TENDRA QUE COMPRAR O VENDER ESTOS"'"AL JUEGO PODRAN PARTICIPAR UNO O MAS JUGADORES SEGUN SE ELIJA BUENA SUERTE" 6'"SU CANTIDAD DE PARTIDA SERA DE 1000 PTS. " V.1}L,30:5;7;1;" PULSE ENTER PARA CONTINUAR ";X$ ''" ESTE PENDIENTE EN TODO MOMENTO DE LOS NUEVOSFLASH "''''"Y TAMBIEN POR SUPUESTO DE SU CAPITAL GANADO Y LOS DIVIDENDOS"''''" SI CONSIGUE DE BENEFICIOS: PTS. 1000000  " '"EL JUEGO HABRA TERMINADO"  Z.1}L,30:5;7;1;" PULSE ENTER PARA EMPEZAR ";X$:: p AN=0 zQ=1NU 5XX=0:V=14:XX=XX+H(Q,V)*P(V):V XX=XX+B(Q)-L(Q) 7XX0B(Q)=0:L(Q)=0:R(Q)=-1 XXX1000000t$AN=1:1:3::I=15:1;7;2;1;4+I,7;" ":I:1;2;7;1;6,13 ;N$(Q);8,8;"ES MILLONARIO":E=10 :A=19 :B=2.5 39'E:.047|@n,B:B:E=E-2.99:A:150 0:Q: '923627K\+256*23628L\+2-16384@ '("":"bolsa"16384@,23303[: 8