ZXTape! 2qMANAGER (Side A)"ERE Informatique / Software Center1984SpanishManagement SimulatorNone Original TapeDEMOPANT l`n &0:6:0:1: A=0:B=11 A+1,B;"" A+2,B;" " (A+3,B;" " 2A+4,B;" " <A+5,B;" " F27,3;"SOFTWARE CENTER PRESENTA:" P4;9 ,2;" " Z-'" CARGA DEL PROGRAMA EN MEMORIA " _N'" TRADUCCION Y ADAPTACION DE ";19,8;"ORMIG MIGOR S.I." d 0:"" ab (MANAGER SDnU"m1""n",64@ C:i="0"̰"7":"a"+i,"0":i:"a"+"3","255":"a"+"4","255" ;ٰ"1":ڰ"6":"4"::Z$="" >I(X)=(X*"100"+"0.5")/"100":J(XY.)=(X+"0.5") `t$(a$))=(""+" "("1"(32 -a$)/2)+""+a$+(13 )) QM$(a$+P)=(" "("1"(32 -a$)/2)+""+A$) 6t(x|)=("28"-((x))+(X=0)-(X=0)) F"8","10";"***********":ٰ"2":"10","12";"MANAGER":ٰ"1":"12","10";"***********":"15","8";"ERE INFORMATIQUE":ٰ"2":"20","1";"COPY RIGHT 1983 P.ROUILLIER" K"150" P"0":ٰ"7":ڰ"0"::'''"6";"OPCIONES DE JUEGO"'"6";""''''"1... JUEGO CARGADO"'''"2... INICIAR UN NUEVO JUEGO" U""17","10";"SU ELECCION ?" Vs=:s"86" ZS="1""1600" \S="2""9750" ^"85" d<#1;"1","2";"C=continuar Z=copia impresora" iR$=:r$="""105" nR$="Z"R$="z":"105" xR$="C"r$="c""135" "105"  s#1;"1","6";"*** ORDEN EJECUTADA ***":"100":#1;"1","6";" ": g"1":ڰ"1":ٰ"6":ܰ"1"::"5";"SELECCION DE UN ARTICULO"'"5";""'' '"3"+(("15"-n*"2")/"2"),"0";""; =J="1"N:" ";ٰ"7";ڰ"0";J;".................";A$(J)'':J "19","0";Z$ (" 8........VUELTA MENU GENERAL":Z$ '" SU ELECCION: ";X:ܰ"0" X>NX<"8""225" X="8""1600" J=X &1:1::1:7  3"370" 6 Y=R1*R5 7=Y<"1.3"" SE LE NIEGA EL PRESTAMO":335O 8#" LOS BANCOS LE PRESTAN" ;*YȰ"4"" CON ALEGRIA" @2Y<"4"YȰ"2.6"" SIN PROBLEMAS" E1Y<"2.6"YȰ"1.3"" CON RETICENCIA" O"250" TY<"1.3""2000" ^ r(WA=D("11")+D("12")+D("13")+D("14") wWR1=(D("1")+D("2")+D("3")+D("4")+D("5")+D("6"))/(D("9")+D("10")+WA):r1=i(r1) |$R2=(D("5")+D("6"))/WA:r2=i(r2) *R3=D("4")+D("5")+D("6")-WA:r3=j(r3) )R4=R3/("4"*C("6","2")/CE):r4=i(r4) 7R5=(D("7")+D("8"))/(D("9")+D("10")+WA):r5=i(r5)   T$("CAMBIOS ENTRE SERVICIOS") *"ARTICULOS PRODUCCION VENTAS"''  J="1"N LA$(J);" ";"P"+(J);"(";A("1",J);")";("25");"M"+(J);"(";A("16",J);")" J !"SERVICIO ORIGEN: ";O$ '"SERVICIO DESTINATARIO: ";F$ )"NO. DE PERSONAS CAMBIADAS: ";X O$("1")="P"I="1" O$("1")="M"I="16"  J=O$("2") 7X>A(I,J)X=A(I,J):'"NO. PERSONAS CAMBIADAS: ";X :I="1"A("6",J)=A("6",J)*("1"-X/(A("1",J)+"0.01")) >I="16"A("23",J)=A("23",J)*("1"-X/(A("16",J)+"0.01")) A(I,J)=A(I,J)-X F$("1")="P"I="1" F$("1")="M"I="16"  J=F$("2") 0I="1"A("6",J)=A("6",J)*("1"+X/A("1",J)) 4I="16"A("23",J)=A("23",J)*("1"+X/A("16",J)) A(I,J)=A(I,J)+X "150"  =23692\,255:0:2:0:2: $t$("GASTOS PRODUCCION,MARKETING")  J="1"N XA("7",J)=A("3",J)*A("4",J)*A("5",J)*A("6",J):A("7",J)<"1.25"*A("3",J)"710" 7A("7",J)="1.25"*A("3",J):M1=M1+"1":GR=GR+"0.5" 1A("8",J)="3"*CH*A("1",J)*A("2",J)/A("7",J) ːA("12",J)=A("10",J)*A("11",J):A("14",J)=A("13",J)*(A("8",J)+A("9",J)+A("12",J)):A("15",J)=A("8",J)+A("9",J)+A("12",J)+A("14",J) PA("40",J)=(A("24",J)*A("40",J)+A("7",J)*A("15",J))/(A("24",J)+A("7",J)) NA("26",J)=A("18",J)*A("19",J)*A("20",J)*A("21",J)*A("22",J)*A("23",J) ,A("25",J)=A("24",J)+A("7",J)-A("26",J) OA("25",J)<"0"A("26",J)=A("24",J)+A("7",J):A("25",J)="0":M2=M2+"1" 5A("27",J)="3"*CH*A("16",J)*A("17",J)/A("26",J) >A("28",J)=U(J)/A("26",J):A("30",J)=A("27",J)*A("29",J) :A("32",J)=A("31",J)*(A("27",J)+A("28",J)+A("30",J)) 8A("33",J)=A("27",J)+A("28",J)+A("30",J)+A("32",J) "A("34",J)=A("15",J)+A("33",J) CD=CD+A("34",J)*A("26",J)  J t$("GASTOS DE ESTRUCTURA")  B("5")=IN:B("9")=AM:B("10")=PV:B("3")=CH*"3"*B("1")*B("2"):B("7")=B("6")*(D("10")+D("11"))/"4":B("8")=B("3")+B("4")+B("7")+B("9")+B("10") %t$("PRECIO DE COSTE") * J="1"N /\A("35",J)=A("34",J)*A("26",J)/CD:A("36",J)=A("34",J)+(A("35",J)*B("8"))/A("26",J) 4J t$("CARGAS DEL EJERCICIO")  I="1"̰"7":C(I,"1")="0":I  J="1"N OC("1","1")=C("1","1")+"3"*CH*(A("1",J)*A("2",J)+A("16",J)*A("17",J)) iC("2","1")=C("2","1")+"0.4"*A("12",J)*A("7",J)+"0.6"*A("14",J)*A("7",J)+A("28",J)*A("26",J) KC("3","1")=C("3","1")+A("9",J)*A("7",J)+"0.6"*A("12",J)*A("7",J) GC("4","1")=C("4","1")+A("32",J)*A("26",J)+A("30",J)*A("26",J) 7C("5","1")=C("5","1")+"0.4"*A("14",J)*A("7",J) 1C("6","1")=C("6","1")+A("37",J)*A("26",J) 1C("7","1")=C("7","1")+A("25",J)*A("40",J) J C("1","1")=C("1","1")+B("3"):C("3","1")=C("3","1")+B("4"):C("9","1")=B("7"):C("10","1")=B("9"):C("11","1")=B("10") t$("CARGAS ACUMULADAS") (C("1","2")=C("1","2")+C("1","1") (C("2","2")=C("2","2")+C("2","1") (C("3","2")=C("3","2")+C("3","1") (C("4","2")=C("4","2")+C("4","1") (C("5","2")=C("5","2")+C("5","1") (C("6","2")=C("6","2")+C("6","1") C("7","2")=C("7","1") C("8","2")=C("8","1") (C("9","2")=C("9","2")+C("9","1") +C("10","2")=C("10","2")+C("10","1") +C("11","2")=C("11","2")+C("11","1") ֠C("12","2")=C("6","2")+C("7","2")-C("1","2")-C("2","2")-C("3","2")-C("4","2")-C("5","2")-C("8","2")-C("9","2")-C("10","2")-C("11","2") /23692\,255:t$("CALCULO DEL IVA") ETT=TV*(C("6","1")-C("2","1")-C("3","1")-C("4","1")-B("5")) >23692\,255:t$("CUENTA DE PERDIDAS Y GANANCIAS")  C("13","2")=C("13","2")+PE )IP="0.5"*(C("12","2")-C("13","2")) IP<"0""1040" IM=IP-II:II=IP  "1070" IM=-II  IP="0" $II=IP .T$("CALCULO DEL BALANCE") 8D("2")=D("2")+B("5") =D("3")=D("3")-B("9") BD("4")=C("7","2") G2D("5")=D("5")+"0.3"*C("6","1")*(TV+"1")+RE LD("6")=D("6")+(TV+"1")*("0.7"*C("6","1")-C("2","1")-"0.65"*C("3","1")-C("4","1")-B("5"))-TT-C("1","1")-C("5","1")-D("10")/"40"-D("11")/"8"-B("7") QD("9")=D("9")+C("11","1") V"D("10")=D("10")-D("10")/"40" [!D("11")=D("11")-D("11")/"8" `2D("12")=D("12")+"0.35"*C("3","1")*(TV+"1") eD("14")=D("14")+IM jvD("13")=D("1")+D("2")+D("3")+D("4")+D("5")+D("6")-D("7")-D("8")-D("9")-D("10")-D("11")-D("12")-D("14") T$("CALCULO DE LOS RATIOS") "370"  "9900" O23692\,255:T$(" FIN EJERCICIO "):T$("DESPUES DE LOS CALCULOS")  J="1"N 1A("4",J)="1":A("5",J)="1":A("22",J)="1" J ?IN="0":AM="0":PV="0":CD="0":MA="0":RE="0":PE="0" "GR=GR+"0.5"*("1"-CS/CT)*"100" AEF="0":J="1"N:EF=EF+A("1",J)+A("16",J):J:EF=EF+B("1") B("1")/EF<"0.3"GR=GR+"1" H0:7:7:0::"ALTERACIONES EXTERIORES "'' "100" $S=(*"10"+"1"):S>"3""1600" ""7500"+S*"100" @ٰ"7":ڰ"0":"0"::"10","130":"235","0":"0",-"62":-"235","0":"0","62":"8","5";"PERIODO DIRECCION No: ";CE+"4"*AN-"4":"10","5";"TRIMESTRE: ";CE;" AO: ";AN:"150":: A^D("6")"9"S=0"1600" :"2000"+S*"100" F0:ٰ"0":ڰ"5":"5"::'''T$("DECISIONES DE PRODUCCION")''''' "1...VARIACION DE LA ACTIVIDAD":'"2...CONTRATACION":'"3...EMPLEO PRODUCCION":'"4...VUELTA AL MENU GENERAL" !10 ;"SU ELECCION: ";S &S>"3""1600" 0"2900"+S*"100" l_0:ٰ"0":ڰ"4":"4"::'T$("DECISIONES DE MARKETING"):5;2;Z$(22) v'''"1...FIJACION DE PRECIOS DE VENTA"''"2...CONTRATACION"''"3...CAMPAA DE PUBLICIDAD"''"4...LANZAMIENTO NUEVOS PRODUCTOS"''"5...PARADA DE UN PRODUCTO"''"6...VUELTA AL MENU GENERAL" %10 ;"SU ELECCION: ";S S>"5""1600" :"3300"+S*"100" f7:1:0:0::T$("DECISIONES FINANCIERAS"):6;2;Z$(21) ڐ'''"1...CREDITO A LARGO PLAZO":"2...CREDITO A CORTO PLAZO":"3...AMPLIACION DE CAPITAL":"4...AMORTIZACIONES" {"5...AUMENTO DE LOS SALARIOS":"6...CONTRATOS SECTOR TERCIARIO":"7...MUTACIONES ENTRE SERVICIOS" N"8...DESVIACIONES DEL BALANCE":"9...VUELTA AL MENU GENERAL" '10 ;"SU ELECCION: ";S S="9""1600"  "3900"+S*"100" 4T:"200":T$("COSTES DIRECTOS "+A$(J)):"Trimestre:";CE;" Ao:";AN:4;Z$ >"M.o produccion";t(a("8",j));A("8",J)'"Coste material";t(a("9",j));A("9",J)'"Mantenimiento";t(a("12",j));A("12",J)'"Gastos fabrica";t(a("14",j));A("14",J)'"COSTE DEL PRODUCTO";t(a("15",j));A("15",J) H"M.o ventas";t(a("27",j));A("27",J)'"Publicidad";t(a("28",j));A("28",J)'"Gastos ventas";t(a("30",j));A("30",J)'"Gastos Transporte";t(a("32",j));A("32",J)'"GASTOS MARKETING";t(a("33",j));A("33",J) WO4;z$'7;"Costes directos";t(a("34",j));A("34",J)'4;Z$ \L"Gastos estructura";:X=(A("35",J)*B("8"))/A("26",J):X=I(X):t(x);X f:"PRECIO DE COSTE";t(a("36",j));A("36",J)'4;Z$ p."PRECIO DE VENTA";t(a("37",j));A("37",J) z"100"  "1700"  :"200" hT$("CUADRO DE COSTES PRODUCCION")'""+T$(A$(J))''''""+"Trimestre: ";CE;" ao: ";AN'4;Z$ z"PRODUCCION";t(a("7",j));A("7",J)'"STOCK";t(a("25",j));A("25",J)'"VENTAS";t(a("26",j));A("26",J)'4;Z$ h"COSTES PRODUCCION";t(a("15",j));A("15",J)'"PRECIO P.U.M.P";t(a("40",j));A("40",J)'4;Z$ J"EFECTIVOS";t(a("1",j));A("1",J)'"SALARIOS";t(a("2",j));A("2",J) "100"  "1700" o:"200":T$("CUADRO DE COSTES MARKETING")'""+T$(A$(J))''''"Trimestre: ";CE;" Ao: ";AN'4;Z$ w=(A("26",J)*("1"-A("38",J))):"VENTAS INTERIOR";t(w);w:w=(A("26",J)*A("38",J)):"VENTAS EXPORTACION";t(w);w'4;Z$ "PRECIO DE COSTE";t(a("36",j));A("36",J)'"PRECIO DE VENTA";t(a("37",j));A("37",J)'"C.A TOTAL";t(a("37",j)*a("26",j));A("37",J)*A("26",J)'4;Z$ N"EFECTIVOS";t(a("16",j));A("16",J)'"SALARIOS";t(a("17",j));A("17",J) $"100" [ "1700" `s1:1:7::T$("CUADRO DE COSTES FINANCIEROS")''""+"Trimestre: ";CE;" Ao: ";AN'4;Z$ j"INFLACCION TRIMS";T(CI);CI:"INFLACCION ACUMUL";T(CT);CT:"TIPO DE INTERES";T(B("6")*"100");B("6")*"100";"%"'4;Z$ t("13");"RATIOS"'4;Z$ ~n"Solvencia";T(R1);R1'"Liquidez";T(R2);R2'"Rotacion fondos";T(R4);R4'"Autonomia";T(R5);R5'4;Z$ `"EFECT.SECT.TER";T(B("1"));B("1")'"SALARIOS";T(B("2"));B("2")'"EFECT.TOTAL";T(EF);EF "100" "1700" i1:1:7::T$("CUENTA DE EXPLOTACION")'':"Trimestre: ";CE;" Ao: ";AN'4;Z$ I="1"̰"12" I="6"4;Z$ I="8"4;Z$ C$(I);T(C(I,"2"));C(I,"2") I "100" # "1700" (l1:1:7::T$("CUENTA DE RESULTADOS")''''':"Trimestre: ";CE;" Ao: ";AN:4;Z$ 2F"RESULT.AN IMPUE";T(C(12 ,2));C("12","2")'4;Z$ <"PERDIDAS EXPLO.";T(C(13 ,2));C("13","2")'"IMPUESTOS SOCIE";T(II);II'"RESUL. DES. IMPUE";T(C(12 ,2)-C(13 ,2)-II);C("12","2")-C("13","2")-II Z"100" "1700" [1:1:7::T$("BALANCE")':"Trimestre: ";CE;" Ao: ";AN:4;Z$ I="1"̰"14" I="7"4;Z$ D$(I);T(D(I));D(I) I "100" "1700" m2:7:1:X="0"::T$("CUADRO DE WARNINGS"):"Trimestre: ";CE;" Ao: ";AN:2;Z$ T"370":M1>"0""-";M1;" taller(es) de produccion a capacidad maxima":X=X+"1" bM2>"0""-";M2;" articulo(s) donde las ventas estan limitadas por la produc- cion":X=X+"1" >CS"2""-Amenaza de huelga en la empresa" X>"3""100": 3R1<"1.5""-Su solvencia financiera es de- bil" '=R2<"1""-Su liquididez es poca frente a los vencimientos" ,MR4<"0.3""-Su fondo de rotacion es debil frente a la cifra de negocio" 1BR5<"1.2""-Sus deudas son fuertes frente los fondos propios" @"100" O "1700" Tk"2":6:0::T$("SU PUNTUACION");t$("")''':"Ao: ";AN;" Trimestre: ";CE:Z$ W-"EPIGRAFE.......PUNTUA..MAXIMO":Z$:Q="0" YFR=("4"*D("13")/C("6","2")+"1")*"1000":R=J(R):R<"0"R="0" [R>"2000"R="2000" ^-"Ganancias.......";R;("22");"2000":Q=Q+R a-R=(R1-"1")*"250":R=J(R):R<"0"R="0" cR>"500"R="500" f-"Solvencia.......";R;("22");" 500":Q=Q+R i5R=("1.43"*R2-"1")*"125":R=J(R):R<"0"R="0" kR>"250"R="250" l-"Liquidez........";R;("22");" 250":Q=Q+R o6R=("1.333"*R5-"1")*"125":R=J(R):R<"0"R="0" rR>"250"R="250" u-"Autonomia.......";R;("22");" 250":Q=Q+R x,R="250"-GR*"50":R=J(R):R<"0"R="0" {R>"250"R="250" ~-"Clima social....";R;("22");" 250":Q=Q+R 4R="1500"*(D("2")-IV)/IV:R=J(R):R<"0"R="0" R>"750"R="750" -"Pleno empleo....";R;("22");" 750":Q=Q+R Z$ &"TOTAL...........";Q;("22");"4000" "100" "1700" :"200" V0:5:5:0::T$("VARIACION DE LA ACTIVIDAD"):T$(A$(J))'' `"UNIDADES PRODUCIDAS";T(A("7",J));A("7",J):"UNIDADES VENDIDAS";T(A("26",J));A("26",J) р"CAPA. PRODUCCION MAX.";T((1.25 *A(3,J)));("1.25"*A("3",J)):"STOCK ACTUAL";T(A(25,J));A("25",J):Z$ ^'''" Introducir un coeficiente de actividad entre 0.60 (ralentiza-cion) y 1.40 (aumento)." <" Para volver a la decision de produccion hacer coef=1)" "SU DECISION ==> ";S S<"0.6""3040" S>"1.40""3040" A("4",J)=A("4",J)*S "150"  "1800" j"200":0:5:0:5::T$("CONTRATOS DE LA PRODUCCION"):T$(A$(J)):2;Z$ &/"EFECTIVO ACTUAL: ";A("1",J):2;Z$ +'" Introduzca el numero de perso- nas a contratar(+) o prescindir (-)":"Para volver a decisiones produc-cion hacer contrato=0" 0H:" SOLO DEBE VACIAR UN ATELAJE SI PARA LA PRODUCCION DEL ARTICULO." 5""NUMERO DE PERSONAS ===> ";X :X-A("1",J)'"Usted vacia el atelaje:":"1...otra proposicion":"2...mantiene la decision":"SU ELECCION ===> ";S:S="1""3125" ?X<-A("1",J)X=-A(I,J) DX<"0"GR=GR+(X/"2") NPX=(X):A("6",J)=A("6",J)*("1"+X/A("1",J)):A("1",J)=A("1",J)+X:EF=EF+X S#A("6",J)ǰ"0"A("6",J)="0.05" X"150" v "1800" i"200":0:5:5:0::t$("EMPLEO SOBRE EL ARTICULO:"):t$(A$(J)):2;Z$ EX=A("18",J)*A("19",J)*A("20",J)*A("21",J)*A("22",J)*A("23",J) "VENTAS POTENC.";T(X);X:"VENTAS REALIZADAS";T(A("26",J));A("26",J):"UNIDADES PRODUCIDAS";T(A("7",J));A("7",J)'2;Z$ *PR=(X-A("7",J))*"0.1"*A("36",J)*"12" 8PR>"0""Prop. d'invest.:";T(PR);(PR)'2;Z$ nD$("5");T(D(5));D("5"):D$("6");T(D(6));D("6"):"EMPLEO CORRIENT";T(IN);IN'2;Z$ W"1....Empleo "'"2....Vuelta decision produccion " "SU ELECCION ===> ";S S="2""1800" /2;Z$:"MONTANTE A EMPLEAR ===> ";Z "MONTANTE A EMPLE.:";T(Z);Z Z+IN ";S S="1""4000" EIN=IN+Z:A("3",J)=A("3",J)+Z/("1.2"*A("36",J)):A("10",J)="1" "150" "1800" HW"200":4:0:0:4::T$("MODIFICACION DEL PRECIO DE VENTA") RT$(A$(J)):1;Z$ W"UNIDADES PRODUCIDAS";T(A(7,J));A("7",J)'"UNIDADES VENDIDAS";T(A(26,J));A("26",J)'"UNIDADES STOCK";T(A(25,J));A("25",J)'1;Z$ \I"INFLACION TRIMS";T(CI);CI:"INFLACION ACUMUL";T(CT);CT'1;Z$ fm"PRECIO DE COSTE";T(A(36$,J));A("36",J)'"PRECIO DE VENTA";T(A(37%,J));A("37",J)'1;Z$ p["1...Modificacion de los precios 2...Vuelta decisiones marketing ":1;Z$ u"SU ELECCION ===> ";S zS>"1""1900" <"AUMENTOS (+); BAJAS (-): ";:"PORCENTAJE ===> ";X:X TX=("100"+X)/"100":A("20",J)=A("20",J)*CI/X:A("37",J)=(A("37",J)*X+"0.5") "150" "1900" `"200":4:0:0:4::T$("EMPLEO MARKETING"):T$(A$(J)):1;Z$ -"EFECTIVO ACTUAL: ";A("16",J):1;Z$ '"Introduzca el numero de personasa emplear (+) o a prescindir(-): ":'"Para volver a decision marketinghacer empleo=0. " T'"SOLO DEBE ANULAR UN SERVICIO SI PARA LA PRODUCCION DEL ARTICULO.":1;Z$ "NO.DE PERSONAS ===> ";X ԳX-A("16",J)"Usted anula el servicio":"1...Otra proposicion 2...Mantiene la decision ":1;z$:"SU ELECCION ===> ";S:S="1""3530" X<-A("16",J)X=-A("16",J) X<-"1"GR=GR+(X/"2") Y=(*"40"+"81")/"100" kY<"0.9"X>"0":'''" CONTRATACION DE PERSONAL NO COMPETENTE ":150 bY>"1.1"X>"0":'''" CONTRATACION DE PERSONAL MUY COMPETENTE " UA("23",J)=A("23",J)*Y*(X+A("16",J))/A("16",J):A("16",J)=A("16",J)+X:EF=EF+X %A("23",J)ǰ"0"A("23",J)="0.05" "150"  "1900" e"200":4:0:4:0::T$("CAMPAA DE PUBLICIDAD"):T$(A$(J)):1;Z$ "PRESU. PUB. ACT.";T(U(J));U(J):"UNIDADES PRODUCIDAS";T(A(7,J));A("7",J):"UNIDADES VENDIDAS";T(A(26,J));A("26",J):"UNIDADES EN STOCK";T(A(25,J));A("25",J):1;Z$ $["1...Modificacion del pres. pub 2...Vuelta decisiones marketing ":1;z$ ."SU ELECCION ===> ";S 3S>"1""1900" 87'"NUEVO PRESUPU. PUB: ";:"MONTANTE ===> ";X:X B9A("19",J)=A("19",J)*("1"+(X-U(J))/("1.5"*(X+U(J)))) LU(J)=X j"150" o "1900" tI0:4:4:0::T$("LANZAMIENTO DE UN PRODUCTO") ymN=M9 ,0;"NINGUN PRODUCTO ESTA DISPONIBLE PARA UN LANZAMIENTO.":"150":"1900" ['"EL PRODUCTO '";A$(N+"1");"'"'"ESTA DISPONIBLE PARA LANZARLO ":'T$("ESTO IMPLICA:") 1;Z$:"EMPLEO PROD.";T(A(1,N+1));A("1",N+"1"):"EMPLEO MARKET";T(A(16,N+1));A("16",N+"1"):"PREV. VENTAS (UNIDADES)";T(A(18,N+1));A("18",N+"1") "EMPLEO";T(A(39',N+1));A("39",N+"1")'"PRECIO DE COSTE";T(A(36$,N+1));A("36",N+"1")'"PRECIO DE VENTA";T(A(37%,N+1));A("37",N+"1"):1;Z$ \"1...Lanzamiento del producto 2...Volver decisiones marketing ":1;Z$ "SU ELECCION ===> ";S S>"1""1900" -IN+A("39",N+"1") ";S S="1""4000" S="3""1900" GIN=IN+A("39",N+"1"):EF=EF+A("1",N+"1")+A("16",N+"1"):N=N+"1" "150"  "1900" \"200":4:4:0:0::T$("PARO DEL PRODUCTO "+A$(J)):1;Z$ F'''"LA PERDIDA DE STOCK SERA ALREDE-DOR DE: ";A("25",J)*A("40",J) ޚA("1",J)>"0"A("16",J)>"0"'''" ANTES DE PARAR EL PRODUCTO, SE HA DE CAMBIAR O DESPEDIR EL PERSONAL. ":"300":"2000"  1;Z$ ["1...Decision de paro 2...Volver decisiones marketing ":1;z$ "SU ELECCION ===> ";S S>"1""1900" PE=A("25",J)*A("40",J) K=J I="1"̰"40"  J=KM-"1" A(I,J)=A(I,J+"1") J I  AJ=KM-"1":A$(J)=A$(J+"1"):U(J)=U(J+"1"):P(J)=P(J+"1"):J I="1"̰"40":A(I,M)="0":I *U(M)="0":P(M)="0":A$(M)=" " "N=N-"1":M=M-"1":GR=GR+"0.5" "150" ( "1900" ;0:0:7::T$("CREDITO A LARGO PLAZO") M'''2;Z$:"FONDOS PROPIOS";T(D(7)+D(8));D("7")+D("8") D$("10");T(D(10 ));D("10"):D$("11");T(D(11 ));D("11"):"DEUDA TOTAL";:WW=D("10")+D("11")+D("12")+D("13")+D("14"):T(WW);WW b2;Z$:"1...Decision de credito 2...Volver decision financieras ":2;z$ "SU ELECCION ===> ";S S>"1""2000" ~" QUE SUMA QUIERE PEDIR   DE CREDITO: ":"===> ";X:'T$(X):2;Z$:"300" (D("6")=D("6")+X:D("10")=D("10")+X "150"  "2000" Q7:0:0:0::T$("CREDITO A CORTO PLAZO"):2;Z$ pD$("5");T(D(5));D("5"):D$("6");T(D(6));D("6"):"DESCUB. AUTORIZ.";T(DC);DC:2;Z$ U"1...Decision de credito 2...Volver decision financieras ":2;z$ ""SU ELECCION ===> ";S ,S>"1""2000" 6u" QUE SUMA QUIERE PEDIR   DE CREDITO: ":"===> ";X:'T$(X):2;Z$ ;"300" @(D("6")=D("6")+X:D("11")=D("11")+X J"150" T "2000" h7:1:0:0::AUȰ"2"9 ,0;"NO HA ENCONTRADO CO-SOCIOS PARA FINANCIARSE. SI NO PUEDE TOMAR MAS PRESTAMOS DE LOS BANCOS,SERA NECESARIO IR A LA QUIEBRA. ":"250":"2000" m-:T$("AMPLIACION DE CAPITAL"):2;Z$ rD$("7");T(D(7));D("7"):D$("8");T(D(8));D("8"):2;Z$("1"̰"12");"RATIOS";Z$("1"14) |q"Solvencia";T(R1);R1:"Liquidez";T(R2);R2:"Rotacion fondos";T(R4);R4:"Autonomia";T(R5);R5'2;Z$ J8;"SU PROPOSICION:":"===> ";X:'T$(X):2;Z$ X>(D("7")+D("8"))/"3""Solo encuentra financiacion para: ";0;3;(D("7")+D("8"))/"3":2;Z$:X=(D("7")+D("8"))/"3" h"1...Decision de ampliacion 2...Otra proposicion 3...Volver decision financiera " "SU ELECCION ===> ";S S="3""2000" S="2":"4205" 2D("6")=D("6")+X:D("7")=D("7")+X:AU=AU+"1" "150"  "2000" J0:1:0:7::T$("AMORTIZACIONES"):2;Z$ CMA="1"'''" AMORTIZACIONES YA EFECTUADAS":"200":"2000" ьD$("2");T(D(2));D("2"):D$("3");T(D(3));D("3"):"AMORTI.POSIBLE";:WW=(D("2")+D("3"))/"40":T(WW);WW:2;Z$ U"1...Decision de amortizacion 2...Volver decision financieras ":2;Z$ "SU ELECCION ===> ";S S>"1""2000" C5;"CANTIDAD A AMORTIZAR:":"===> ";X:'T$(X) LX>(D("2")+D("3"))/"40"5;"AMORTIZACION EXCESIVA"'':"4330" AM=X:MA=MA+"1" "150"  "2000" 0P7:0:0:1::T$("REVISION DE SALARIOS"):2;Z$ 5"INFLACION TRIMS";25;"100"*(CI-"1");"%":"INFLACION ACUMULADA";25;"100"*(CT-"1");"%":"VARIAC. SALARIOS";25;I("100"*(CS-"1"));"%":2;Z$:"DIF. INFLA-SALARIOS: ";I("100"*(CT-CS));"%" Db2;Z$:"1...Revision de salarios 2...Volver decision financieras ":2;Z$ N"SU ELECCION ===> ";S XS>"1""2000" bK4;"% DE AUMENTO DECIDIDO:":"===> ";X:X<"0""4450" l'T$(X):X="1"+X/"100" vCJ="1"M:A("2",J)=(A("2",J)*X):A("17",J)=(A("17",J)*X):J =B("2")=(B("2")*X):CS=CS*X:GR=GR-"0.5"*"100"*(X-"1") "150"  "2000" S0:0:1:7::T$("EMPLEO SECTOR TERCIARIO"):2;Z$ U"EFECTIVO ACTUAL";T(B(1));B("1"):"EFECTIVO TOTAL";T(EF);EF:2;Z$ U"1...Decision de empleo 2...Volver decision financieras ":2;z$ 6"SU ELECCION ===> ";S:S>12000 e"NO. DE PERSONAS A EMPLEAR (+) O A DESEMPLEAR (-): ":"===> ";X:'T$(X) &X=(X):X<-B(1)X=-B(1) :X=(X):B("1")=B("1")+X:EF=EF+X:X<"0"GR=GR-X/"4" "150"  "2000" V0:0:7:1::T$("MUTACIONES ENTRE SERVICIOS"):2;Z$ "Puede cambiar el personal entre los servicios de produccion(Pi) y los servicios marketing(Mi) SIN RESTRICCIONES.":2;Z$  "200":"400" a"19","0";2;Z$:"1...Otras mutationes 2...Volver decision financieras "  "SU ELECCION ===> ";S *S>"1""2000" 4 "4600" \:T$("QUIEBRA TOTAL"): f<D("6")D("6")DC"-SUS FINANZAS SON SUFICIENTES":"150":"2000" p<R1*R5<"1.3""-NO PUEDE PEDIR MAS CREDITO A LOS BANCOS" u?R1*R5Ȱ"1.3""-LOS BANCOS LE DAN CONFIANZA":"150":"2000" z9AUȰ"2""-NO ENCUENTRA MAS SOCIOS PARA FINANCIARSE" 7AU<"2""-AMPLIACION DE SU CAPITAL":"150":"2000" 14,7;"";15,7;"!!QUIEBRA TOTAL!!";16,7;"" 5"OTRA PARTIDA (S/N): ";R$:R$="S"R$="s"  p^23692\,255:0:2:2::"SUCESOS EXT. DESPUES DECISIONES "'' z#S=(*"15"+"1"):S>"6"S="6" S="6""8000" "7000"+S*"100" +X=(*"7"+"97")/"100":X="1""8000" 36;M$("VARIACION DE TIPOS DE DESCUENTO")'' FX<"1"W$="Diminucion de ":Y$=(("1"-X)*"100")+"%":M$(W$+Y$)'' CX>"1"W$="Aumento de ":Y$=((X-"1")*"100")+"%":M$(W$+Y$)'' B("6")=B("6")+(X-"1") "250":"8000"  ,X=(*"11"+"95")/"100":X="1""8000" %)M$("VARIAcION DE CARGAS PATRONALES"): *5X<"1"M$("Alivio de: "+("100"*("1"-X))+"%")'' 46X>"1"M$("Aumento de: "+("100"*(X-"1"))+"%")'' >CH=CH+(X-"1"):"200" H "8000" +X=(*"5"+"98")/"100":X="1""8000" M$("VARIACION DEL T.V.A"): 5X<"1"M$("Alivio de: "+("100"*("1"-X))+"%")'' 6X>"1"M$("Aumento de: "+("100"*(X-"1"))+"%")'' TV=TV+(X-"1") "200":"8000" ,X=(*"13"+"91")/"100":X="1""8000" )M$("VARIACION PARIDAD DE LA MONEDA")'' :X<"1"M$("Devaluacion de: "+("100"*(X-"1"))+"%")'' =X>"1"M$("Revalorizacion de: "+("100"*(X-"1"))+"%")'' X="1"+("1"-X)/"2" oJ="1"M:A("9",J)=A("9",J)*X:A("20",J)=A("20",J)*X:A("31",J)=A("31",J)*X:A("38",J)=A("38",J)*X:J "200":"8000" L"X=(*"20"+"1"):J=(*N+"1") VCT$("INCIDENTE EN PRODUCCION SOBRE"):M$("EL ARTICULO "+A$(J))'' `-:M$("CAIDA DE PRODUCTION DE "+(X)+"%")'' j'A("4",J)=A("4",J)*("100"-X)/"100" t"200":"8000" M$("CREDITOS DUDOSOS")'' CR="1""7650" ^CX="1000"*(*"101"+"50"):M$("UN CREDITO DE "+CX+" PTS")'M$("PARECE IRRECUPERABLE")'' !T$("ESTA GARANTIZADO AL 100%") $PV=PV+CX:CR="1":"200":"1600" +B("6")=B("6")+(X-"1"):"200":"8000" $Y=(*"10"+"1"):Y>"5""7675" AM$("SU CLIENTE HA REGULADO")'M$("LA DEUDA DE "+CX+" PTS.")'' PV=PV-CX:D(5)=D(5)-CX*(1+TV):D(6)=D(6)+CX*(1+TV):D(5)=I(D(5)):D(6)=I(D(6)):CR=0:200  "1600" JM$("LA DEUDA DE "+CX+" PTS")'M$("ES DEFINITIVAMENTE IRRECUPERABLE")'' PV=PV-CX:PE=PE+CX:X=CX*(1+TV):X=I(X)::D(6)=D(6)+X:D(5)=D(5)-X:CR=0:M$("RECUPERACION T.V.A: "+(I(CX*TV)))'' "150"  "1600" J=(*N+"1") J>N"7700" [" APARICION DE UN MATERIAL COMPETIDOR DE ";6;0;A$(J);" "'' (9X=(*"30"+"1"):M$("LAS VENTAS BAJAN UN "+X+"%")'' 2)A("18",J)=A("18",J)*("100"-X)/"100" F"200":"1600" xsX=(*"7"+"2"):E="0":T$("HUELGA NACIONAL"):"Acuerdo para un aumento de los"'M$("salarios de "+X+"%")'' z"200":"7880" }bGRȰ"5"" LA HUELGA CONTINUA, PERDIDA DE LA PRODUCCION 10% ":"200":"7820" dGR<"5""LA HUELGA ESTA TERMINADA , PER-DIDA DE LA PRODUCCION 10% "'':"200":"1600" =ٰ"2":ڰ"7":"7"::" HUELGA INTERNA EN LA EMPRESA "' *X=("100"*("1"-CS/CT)):X<"0"X="0" )E=("0.35"*EF-B("1")):E<"0"E="0" 3X+E>"0"Z$:T$("PLIEGO DE REIVINDICACIONES"): /X>"0""Aumento de los salarios de ";X;"%" (E>"0""Empleo sector terciario:";E _Xǰ"0"Eǰ"0""REIVINDICACION: auento de los salarios del 3% ":X="3" iZ$:"QUIERE SI O NO ACORDAR ESTAS VENTAJAS: ":"===> ";R$:'T$(R$)  R$("1")="S""7880":"7857" R$("1")"N""7835" WZ$:"1...Visualizacion de los cuadros2...Sus contraproposiciones ":Z$ "SU ELECCION ===> ";S S<"2""1700" NX>"0"" % DE AUMENTO PROPUESTO: "'':"===> ";X:T$(X+"%") GE>"0"" NUMERO DE EMPLEOS PROPUESTOS:";:"===>";E:'T$(E)  "7880" bGRȰ"5"" LA HUELGA CONTINUA, PERDIDA DE LA PRODUCCION 10% ":"200":"7820" bGR<"5""LA HUELGA ESTA TERMINADA, PERDI-DA DE LA PRODUCCION 10% ":"200":"1600" X="1"+X/"100":J="1"M:A("2",J)=(A("2",J)*X):A("17",J)=(A("17",J)*X):J:B("2")=(B("2")*X):CS=CS*X:B("1")=B("1")+E:GR=GR-"0.5"*("100"*(X-"1")):E>"0"GR=GR-"1":EF=EF+E ZJ=1N:A(5,J)=A(5,J)*.9ffff:A(22,J)=A(22,J)*.9ffff:J  150  @,"R.A.J PRIN. EJERCICIO TRIMESTRAL"'' J CE=CE+"1" T'CI="1"+((*"200"+"151"))/"10000" ^ CT=CT*CI h J="1"N r(A("24",J)=A("25",J):A("25",J)="0" |LA("9",J)=A("9",J)*CI:A("10",J)=A("10",J)*CI:A("11",J)=A("11",J)*CI 8P(J)=P(J)+"0.05236":P(J)>"3.14159"P(J)="3.14159" A("21",J)=(P(J))+"0.1" J &M1="0":M2="0":B("4")=B("4")*CI +D("6")=D("6")+D("5")-D("12")-D("14") ,D("5")="0":D("12")="0":D("14")="0" CEǰ"4""670" +"* R.A.J PRIN. EJERCICIO ANUAL *"''' JCE="1":AN=AN+"1":C("8","1")=C("7","1"):D("8")=D("8")+D("13") !I="1"̰"13":C(I,"2")="0":I IP="0":II="0" "670" #(L:"10","0";T$("SAVE DE MANAGER")'T$("TRIMESTRE: "+CE+" - AO: "+AN) #2B"15","0";T$("PREPARE EL CASSETTE Y"):T$("PULSE UNA TECLA") #7 10 #<*"MANAGER"ʰ"4":"m1""n","64":"1600" #AN"NOMBRE DEL PROGRAMA";j$:*"m";1;j$ʰ"1":*"m";1;"m1""n","64" #F "1600" &i:"0":ڰ"6"::"9","0";"INICIALIZACION DE LAS VARIABLES "''" UN MOMENTO, POR FAVOR " &vA("40","7"):B("10"):C("13","2"):C$("13","15"):D$("14","15"):D("14"):A$("7","10"):U("7"):P("7") &I="1"̰"40" & J="1"̰"7" &!A(I,J) &#J &%I &'I="1"̰"10":B(I):I &)I="1"̰"13" &+ J="1"̰"2" &-C(I,J) &/J &1I &3I="1"̰"13":C$(I):I &5I="1"̰"14":D(I):I &7I="1"̰"14":D$(I):I &9J="1"̰"7":A$(J):J &;J="1"̰"7":U(J):P(J):J &=M,N,CH,TV,TT &?AM,IN,PV,CD,CE,AN &A CI,CT,GR,CS &CIP,IM,II,M1,M2 &EEF,DC,AU,MA,RE,PE,CR &GR1,R2,R3,R4,R5 &HIV=D("2"):"1600" &K"12","9","11","5","5","18","5","4800","5000","4900","4500","4500","4600","4500","610","210","242","2000","1800","1400","1500","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1" &Mx"610","210","242","2000","1800","1400","1500","354.10","803.57","835.23","42.18","46.87","221.8","56.25" &R#"530.19","514.90","550.58","12.23","12.23","270","12","1.0196","1.0196","1.0196","1.0196","1.0196","1","1","25.49","20.392","22.431","5.098","4.0784","16","5","25.99","20.79","22.87","5.20","4.16","16","5","0.15","0.15","0.15","0.15","0.15","0.15","0.15" &T"136.54","200.90","211.30","8.94","9.49","76.17","10.98","1046.82","1540.15","1619.98","68.56","72.76","583.97","84.23","8","6","5","4","4","10","4" &VX"5200","5300","5300","5200","5200","5400","5200","580","189","210","1800","1600","1000","1200","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1.085","1.0497","1.0497","1.0641","1.0641","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","1","0","0","0","0","0","0","0" &X"0","12","21","84","97","400","300","610","198","220","1915","1702","1000","1200","255.73","601.06","450.79","40.72","45.81","202","65" &Z"147.54","327.62","226.82","41.76","41.11","100","75","0.3","0.3","0.3","0.3","0.3","0.3","0.3","76.72","180.32","135.24","12.21","13.74","60.75","19.5","0.05","0.05","0.05","0.05","0.05","0.05","0.05" &\"24","55.45","40.64","4.73","5.03","18.16","7.9","504","1164.46","853.49","99.43","105.70","381.41","167.47","1550.82","2704.61","2473.48","167.99","178.45","965.38","251.7" &^"0.356","0.2022","0.2054","0.1212","0.1145","0.12","0.12","2664.79","4647.35","4250.20","288.67","306.64","1400","350","2850","4995","4600","350","350","1600","450","0.3","0.3","0.3","0.25","0.25","0.4","0.35" &`t"0","0","0","0","0","600000","300000","1046.82","1540.15","1619.98","68.56","72.75","583.97","84.23" &bT"46","7100","1224750","171292.8","0","0.17","510000","1906042.8","0","0" &d"2511000","2511000","499402.92","499402.92","808754.89","808754.89","211428.12","211428.12","84632.47","84632.47","5009916.95","5009916.95","65661.95","65661.95","0","0","510000","510000","0","0","0","0","0","450360.48","0","0" &f"SALARIOS PAGADOS","T.F.S.E","COMPRAS","TRANSP.DESPLAZM","IMPUESTOS TASAS","VENTAS","STOCK FINAL","STOCK INICIAL","GASTOS FINANCIEROS","AMORTIZACIONES","PREVISIONES","resultados","PERDIDAS" &h"5000","26000000",-"5005000","65661.95","1782528.45","2437884.24","14000000","0","0","8750000","1750000","335714.15","225180.25","225180.25" &j"GASTOS ESTABLECI","INMOVILIZADO","AMORTIZACIONES","STOCKS","REALIZABLE","DISPONIBLE","CAPITAL SOCIAL","RESERVA/REPORT","PREVISIONES","DEU. LAR. PLAZO","DEU. COR. PLAZO","PROVEEDORES","resultados","IMPUESTOS TASAS" &l\"MICRO-X100","FLOP-DISKO","AZ-PRINTER","LOGICOMPTA","LOGISTOCKS","MINI-MICRO","SUPER-FILE" &n"90000","1.40236","65000","1.25236","50000","1.25236","80000","1.30236","70000","1.30236","100000","0.78","90000","0.78" &p*"7","5","1.25","0.186","649201.569" &r"0","0","0","0","1","1" &t!"1.02","1.02","0.96116","1" &v5"225180.243","225180.243","225180.243","0","1" &x,"115",-"150000","0","0","0","0","0" &z/"2.24","1.66","3749999.99","0.09","1.24" &323692\,255:T$("CALCULO DE REDONDEO") &*I="1"̰"13":C(I,"2")=I(C(I,"2")):I & I="1"̰"14":D(I)=I(D(I)):I &I="1"̰"40" & J="1"N &A(I,J)=I(A(I,J)) &J &I &J="1"N:A("3",J)=J(A("3",J)):A("7",J)=J(A("7",J)):A("18",J)=J(A("18",J)):A("26",J)=J(A("26",J)):A("24",J)=J(A("24",J)):A("25",J)=J(A("25",J)):J & I="2"̰"10":B(I)=I(B(I)):I &!CI=I(CI):CT=I(CT):CS=I(CS) ' ' #n=07:a:"n"+n,a:n s&mn ~>vȴ\)\)v[[[s㒒|\(TzHd}8Q녲QF]@r}( $bxbx1 ͊HzPθR(Q;zG]͆a( C{C{ @@5     IK &&Z 2m1 @_=BBbRJFB