DALLAS'83 57V+e779   Andres Gonzalez Carmona  Q255,131,128,128,192,195,195,255 M255,135,128,255,1,1,225,255 I24,24,24,24,24,24,24,60< H60<,60<,60<,28,28,24,24,8 K1,65A,65A,65A,65A,207,207,255 G28,60<,62>,60<,28,8,8,24 !n="a""a"+47/:x:n,x:n 81:1:7:1:0:0: n=201-1:n,7;9 ;"A.G.C.  Dic. 1983":n+1,7;1;"A.G.C.  Dic. 1983" !.01z# =,n:n "a6,10 ;"BIENVENIDO A"::::1;4;" " #01;4;" " $31;4;" " %31;4;" " &31;4;" " '8100:7: 2(:"600":236099\,235:ç:E <I;" OBJETIVO":''" VD. ES PRESIDENTE DE UNA"'" CORPORACION RIVAL DE"'" ""EWING ASSOCIATES."""'"SU META ES ARRUINAR A LOS EWING"''" LOS FALLOS RECAERAN EN USTED "''G;"!! RESIGNACION !!" PtK,D;ݼ;D$:'" 1. MODERADO"'" 2. ";G$,," 3. MUY";G$:I+J,10 ;ۼ;"ELIJA NIVEL":DF: R DF>B"80" Zx2:0,2;1;"SIMBOLOS USADOS EN EL MAPA":2,9 ;"VERSION DE 48K" [ 5,5;4;"";0;" = ARBOLES":7,5;3;"";0;" = CONCESION COMPRADA":9 ,5;1;"";0;" = TORRE PERFORACION":11 ,5;" = YACIMIENTO":13 ,5;2;"";0;" = ";P$ ] PS:PS: d0:0:7: iCP=I*DF:9 ;I,E;"ESTOY CONFIRMANDO LA"''6;"ESTRUCTURA GEOLOGICA"''''7;"ESPERE UN MOMENTO."'''9 ;1;"G R A C I A S":PS j%X=AN:Y=AN:A(X,Y)="1"+(*"2") k&A(X,Y)="2"A(X,Y)=A(X,Y)+(*"2") lY:X::"7000" nKY XA="2":B="3":C=A+A:D=A+B:E=B+B:F=B+C:G=C+C:H=C+D:I=D+D:J=D+E:K=E+E:L=E+F:M=F+F:N=F+G:O=G+G:P=G+H:R=I+H:S=I+I bA(N,N):D(N,N):T(A):C(A) lW=ç:T=W:T(1)=C:CS=T:WL=T:BPD=T:BPDA=T:CL="9100":CLS="9150":FIN="8400":DJ="8700":PS="8000":KY="9200":CON=T:LA=I*I:ST=LA:PIP=T:PL=T:MT=T:PR=T D$="NIVEL DE DIFICULTAD":E$="EWING ASSOCIATES ":L$="ESTUDIO SISMICO":M$="FONDOS INSUFICIENTES":O$="NIVEL DE PRODUCCION=":P$="INSTALACIONES":R$="BENEFICIO" QF$="PERFORANDO ":G$=" DIFICIL":H$="CONCESION ":N$="CONFIRMADO"  C.1}L,25:4:P,W;"ESTUDIO SISMICO "  "9300" EA(X,Y)>BA(X,Y)S+IP,ç;"COSTE ESTUDIO @ $1.2M.":LA=LA- H+H,W;L$;": MUESTRA "; )A(X,Y)=A(X,Y)=I"POBRE":8250: -A(X,Y)=AA(X,Y)=I+I"POSITIVA":8220  *A(X,Y)=BA(X,Y)=B*I"BUENA":8200  A(X,Y)>B*I,"NO DISPONIBLE" A(X,Y)>BA(X,Y)B*ILA=LA- LA=LA-.2~L:PS:CL $CL:H+H,W;ݼ;"OTRO ";L$;" ?":J$ J$=""J$="N"J$="n""1090" $ "1000" BKY ].1}L,25:5:CL:I+F,W;"FINANCIACION":'"ESCRIBA EL IMPORTE EN M.$" JJ JJB*I"2025" )"PEDIDOS ";JJ;"M.$":LS=+((*B)*JJ) 6LS>B*I"PRESTAMO DENEGADO":8250: :"2095" 4"PRESTAMO ";N$:8200 :LA=LA+JJ:MT=MT+JJ /PS:KY .1}L,25:0:CL +P,W;"PONGO UNA TORRE":CL+A:"9302" A(X,Y)RWLA=LA-(LN*.2~L):PC=LN*.2~L: YERW=RW*A 'LA=LA-(RW*.2~L):PC=RW*.2~L:  .1}L,25:0:CL "P,W;F$;"UN POZO":"9302" A(X,Y)R,W;"COSTO PERFORACION = ";C();"M.$":S,W;"ANALISIS = "; SD(X,Y)>S"POZO SECO":8250: :X,Y;" ":CON=CON-G:CL=CL-:"4080" PO=(*(A(X,Y)*D(X,Y))) WW=+(T()/I)*I kPO>"22"*WWۼ;"YACIMIENTO PETROLEO":8200 :X,Y;0;"":A(X,Y)=A(X,Y)*I: 3POǰ"22"*WWPO>M*WW"CAPA DE ROCAS ":8220 &POM*WW"TIERRA CALIZA":82400 PS:KY ;R+A,ç;"NO TIENES NINGUNA TORRE AHI":82400 :KY  .1}L,25:3:CL P,W;ݼ;P$:"9302" A(X,Y)<1000"5090" PP=S  YEPP=S+I ,LA-PPLAM$:X,Y;" ":PS:"7249" EVIDF>1RF=CP,W;"EWING ASSOCIATES PIERDE ";CPL;"M.$":CP=CP-CPL:8200 :PS:CL #ZT>IRF=AP,W;"EXCESO DE CRUDO-RENTA MES NULA":RVF=0:8250: :PS:CL #pT>IRF=BP,W;"COTIZACION EN BOLSA DESFAVORABLE RENTA REDUCIDA A LA MITAD":RVF=A/C:82400 :PS:CL #oTX=1+((*(5*I))/I):T>IRF=FP,W;"IMPUESTOS ESTATALES=";TX;"M.$":LA=LA-TX:82400 :PS:CL #NA>S*ILA>C*S"9920" #+CP=CP+(*(CP/D)):CP>(C*NA)/DF"9950" #LA=LA-((MT/A)/I):T=T+ #@T=AT=GT=NT=A*IT=I*BT=C*IT=E*IT=G*IT=I*IT=N*N"7080" $hLA=LA+(PR*RVF):TX=A+(*E):I+J,ç;A;;"ESTU FINAN GASE INST PERF TORRE" $'I$= $)="""9255" $,I$="P"I$="p""4000" $-I$="T"I$="t""3000" $.I$="F"I$="f""2000" $0I$="I"I$="i""5000" $2I$="E"I$="e""1000" $4I$="G"I$="g""6000" $6KY $T "9102" $VS,W;"TECLEE LA LINEA "; $YJ$= $^J$="""9305" $cX=J$ $fJ$>N"9300" $g&.5,22:.5,21 $h3.5,22:J$':"TECLEE LA COLUMNA "; $uQ$= $vQ$="""9333" $wY=Q$:.1}L,25 $xQ$>N"9333" $yQ$ $z PS:CL: &YPS::1;E,I;"NOTICIAS ":8200 :J,A;E$;"ELIMINADA":PS::"9970" &*PS::1;E,I+2;"NOTICIAS":J,B;" CONFIRMADA ABSORCION POR "'''8;"EWING ASSOCIATED":8100::C,M;"TELEX":'" AL PRESIDENTE:"'"CONTROL DE ESA CORPORACION POR EWING ASSOCIATED TIENE EFECTO IMMEDIATO."'" PRESENTE SU DIMISION DE MODOINMEDIATO"''N;"J.R." &8100:PS:PS: &SCP=CP+NA::8;"PARA EL REGISTRO"'"POSICION DE SU CORPORACION:" &_,,"NO. DE CONCESIONES= ";CS:"NO. DE POZOS EN PROD. = ";WL:"BARRILES POR DIA = ";BPDA;",000" &_"ACTIVO TOTAL =";(NA);" M.$":K,0;"HAS DURADO ";T;" MESES":"NIVEL DE DIFICULTAD=";DF &E'8;E$'"ACTIVO ACTUAL TOTAL ";(CP);" MILLONES $" & 9980& &NA=NA+CP:L;"RESULTADO" &\,,"NO. DE CONCESIONES= ";CS:"NO. DE POZOS PROD. = ";WL:"BARRILES POR DIA = ";BPDA;",000" &g"ACTIVO TOTAL ACTUAL =";(NA);" M.$":K,0;"HAS TARDADO ";T;" MESES":"NIVEL DE DIFICULTAD=";DF &=R,0;1;"QUIERES VOLVER A JUGAR? S/N" &Q$= &=""9981& &Q$="N"Q$="n"9998' ' 1 ':K,I;"FIN DEL JUEGO": '"DALLAS.83"1  jabcdefgh i j k l moprsj j  wtppd#l#i !@#o /diDNIVEL DE DIFICULTADEEWING ASSOCIATES LESTUDIO SISMICOMFONDOS INSUFICIENTESONIVEL DE PRODUCCION=P INSTALACIONESR BENEFICIOFPERFORANDO G DIFICILHCONCESION NCONFIRMADO@jA CBABCDEFGHIJKLMNGv pv JcQdS X0.0I5