ZXTape! 2+EL GERENTE. JUEGO DE ESTRATEGIA EMPRESARIALDIMensionNew / IDEALOGIC S.A.1984SPANISHSTRATEGYNONEORIGINAL TAPE / NOT D.L.0IDEALOGIC S.A. C/ Valencia, 85 08029 Barcelona EL GERENTE%"" :2:4 IJC=2.45:JG=6:G=10 :I$=" DIMensionNEW":9999'  0 IJC=2.45:JG=1:G=58::I$=" ************":9999'  1 LJC=2.45:JG=8:G=70F:I$=" $ EL GERENTE $":9999' (JJC=1.5@:JG=2:G=140:I$="Competicion ":9999' 2KJC=1.5@:JG=2:G=160:I$=" Empresarial ":9999' %"" %8" DIM/NEW"1:"cm DIM/NEW"32256~,300, % "":"" 'C=23306 [:C,(256-8*JC*I$)/2:C+1,G:C+2,JC:C+3,JG:C+4,8:C=C+4:H=1̱I$:C+H,I$(H):H:C+H,255:32256~: @gc[' I Empresarial c/m `(![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[c2[: [G: [2 [*[À2[: [G: [2[: [O:[<2[ :[<2[ :[Ð@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// ǖDɖ ============================ Si el programa se interrumpe pulsa GO TO 1850 ============================ COPYRIGHT DIMensionNEW 1.984 Deposito Legal B-23543/84 ============================ RESERVADOS TODOS LOS DERECHOS Terminantemente prohibida la duplicacion y/o reproduccion de esta cinta y programa. ============================ Distribuidor exclusivo SUMINISTROS VALLPARADIS Pasteur, 3 TERRASSA (Barna). ""  0  d236099\,75K  x=0 R t(3) S23674z\,0 T23673y\,0 U23672x\,0 Vhora=0 pmp=100d  any=1 mpm=65A  emp=0 ind=750 com=750 ppa=pmp*10  0 ("cuantos empresarios participan ?";jug =jug>6" MAXIMO 6 JUGADORES ":1000 jug<11000 A$(JUG+1,20) y=1JUG $"escriba cada uno su nombre",A$(y) y Lx=112 ty=1JUG wemp=0:11 ,4;1;" EMPIEZA LA PARTIDA ":a=066B:.01z# =,a:a:a=66B0-1:.01z# =,a:a:100d:6,36$:1,-42*:9000(# y}:emp=112 ,5;1;" SIGUIENTE JUGADOR ";0:a=24480:.04|# =,a:a:9000(# { emp=1 ~tir=(*41))+1 236099\,75K tir232000 'tir>23tir32 3000 tir>32 4000 ,i(y)>0x=12 i(y)=i(y)+1 ,j(y)>0x=12 j(y)=j(y)+1  l(y)>a(y):imp=l(y)-a(y):a(y)=a(y)-l(y):0,0;1;" CAPITAL INSUFICIENTE ";2,0;"para el pago de gastos mensuales";0:100d:5000:1310 a(y)=a(y)-l(y) F x=12 m(y)>a(y):imp=m(y)-a(y):a(y)=a(y)-m(y):0,0;1;" CAPITAL INSUFICIENTE ";2,0;" para el pago anual del credito ";0:5000:k(y)=(k(y)-m(y)/1.1 ):m(y)=((k(y)/10 )*1.1 ):1400x P\x=12 a(y)=a(y)-m(y):k(y)=(k(y)-m(y)/1.1 ):m(y)=((k(y)/10 )*1.1 ) xSx=12 r(y)>0g(y)0:5,0;1;" NO TIENES POINTS PARA PAGAR EL ";7,0;" ALQUILER ANUAL DEL ORDENADOR ";0:100d:2,-45-:10 ,0;"LA CIA. ARRENDADORA TE LO RETIRA":100d:h(y)=0:n(y)=0:r(y)=0:f(y)=(f(y)/.6):1450 ,x=12 r(y)>0g(y)=g(y)-1 x=12 g(y)=g(y)-1 @x=12 any=1:5,0;"Como premio por haber conseguidomantener tu Empresa a flote durante un anyo, recibes una subvencion de";10 ,12 ;1;"5000 $";0:a(y)=a(y)+5000:.06|u\,0:.3,5:200 Jx=12 any=2:5,0;"Como premio por haber conseguidomantener tu Empresa a flote durante dos anyos, recibes una subvencion de";10 ,12 ;1;"5000 $";0:a(y)=a(y)+5000:.06|u\,0:.3,5:200 *x=12 i(y)>0:5,0;"Tu tecnico industrial tiene en la actualidad un sueldo de";8,10 ;1;o(y);" $ mensuales";0;10 ,0;"Para el proximo anyo, y habiendovalorado su gestion, le aumentasel sueldo en un":aum=(*10 )+6:100d:14,14;1;aum;" %";0;16,0;"Su sueldo para el proximo anyo sera de":l(y)=l(y)-o(y):aum=1+(aum/100d):o(y)=(o(y)*aum):502:18,10 ;1;o(y);" $ mensuales";0:l(y)=l(y)+o(y) Cx=12 i(y)>021,9 ;"Pulsa ENTER":0 *x=12 j(y)>0:5,0;"Tu tecnico comercial tiene en la actualidad un sueldo de";8,10 ;1;p(y);" $ mensuales";0;10 ,0;"Para el proximo anyo, y habiendovalorado su gestion, le aumentasel sueldo en un":aum=(*10 )+6:100d:14,14;1;aum;" %";0;16,0;"Su sueldo para el proximo anyo sera de":l(y)=l(y)-p(y):aum=1+(aum/100d):p(y)=(p(y)*aum):502:18,10 ;1;p(y);" $ mensuales";0:l(y)=l(y)+p(y) Cx=12 j(y)>021,9 ;"Pulsa ENTER":0  9000(# :x=12 y=jugany=any+1:ind=(ind*(1+((*10 )+5)/100d)):com=(com*(1+((*10 )+5)/100d)) Dx=12 y=jug2800 Xy bx l 1100L y 4:1,0;"Anyo ";any;1,9 ;"Mes ";x;3,0;"Empresario:";1;A$(y);0;5,0;"DEBES TOMAR UNA DECISION";7,5;"0- DE MOMENTO ESPERAR";9 ,5;"1- COMPRAR MATERIA PRIMA";11 ,5;"2- FABRICAR";13 ,5;"3- VENDER";15,5;"4- COMPRAR MAQUINARIA";17,5;"5- DEVOLVER CREDITO";19,5;"G- GRABAR JUEGO";20,5;"F- FIN DEL JUEGO" > 0 C/B$=:B$="m"B$="M"9000(#:21004 RB$="g"B$="G"9500% \GB$="f"B$="F":11 ,5;"Estas seguro ? (s/n)":2186 fB$=:B$=""2115C kB$>"5"B$<"0"2115C pB$="0":5,0;"UNA ESPERA PARA VER COMO SE DESARROLLAN LOS ACONTECIMIENTOS TAMBIEN PUEDE SER UNA BUENA DECISION":300,: u dec=B$ z$(dec+1)*100d+2000 B$= B$="s"B$="S"2800 : B$="n"B$="N"21004 B$=""2186 rmpm=0:5,0;"NO HAY MATERIA PRIMA EN MERCADO ":2,-45-:100d:21004 :5,0;"El precio oficial de materia prima, esta en este momento a ";pmp;" Ptas. unidad.";10 ,0;"Cuantas unidades vas a comprar ?" cm Ocm*pmp>a(y)15,0;"No tienes suficiente dinero ":2202 Jcm>mpm15,0;"mercado bajo en existencias ":2202 i15,0;"Dispones en este momento de ";b(y)+cm;" unidades de materia prima":200  mpm=mpm-cm  a(y)=a(y)-cm*pmp:b(y)=b(y)+cm  6100  q:d(y)=0e(y)=0"NO PUEDES FABRICAR SIN MAQUINAS ":2,-45-:100d:21004 :5,0;"Tu capital en este momento asciende a ";a(y);" Ptas.";8,0;"Dispones de ";d(y);" maqs. manuales" Be(y)>09 ,0;"y ";e(y);" maquinas automaticas" P11 ,0;"Tu coste por unidad producida asciende a ";f(y);" Ptas." 14,0;"Actualmente tienes una capacidadmaxima de produccion de";16,5;d(y)+e(y)*2;" unidades mensuales." Ra(y)(d(y)+e(y)*2)*f(y)18,0;"Tienes capital para cubrirla." posfab=(a(y)/f(y)) va(y)<(d(y)+e(y)*2)*f(y)18,0;"Tu capital te permite producir solo ";posfab;" unidades este mes" $#"Indica cantidad a fabricar ";fab )pfab>d(y)+e(y)*221,0;"NO TIENES SUFICIENTE MAQUINARIA ":2,-45-:2340$ ,cfab>b(y)21,0;"NO TIENES SUFICIENTE MAT. PRIMA ":2,-45-:2340$ .efab>posfab21,0;" NO TIENES SUFICIENTE DINERO ":2,-45-:2340$ 3a(y)=a(y)-fab*f(y) 8b(y)=b(y)-fab =c(y)=c(y)+fab V jy:c(y)=05,0;" NO TIENES PRODUCTO QUE VENDER ":2,-45-:100d:21004 o:5,0;"Dispones de ";c(y);" unidades de";6,0;"producto acabado";9 ,0;"Actualmente el precio oficial deventa es de ";ppa;" Ptas. unidad." qj(y)>0markt=(*15)+5:15,0;"Tu TECNICO COMERCIAL a conseguido que puedas vender aun ";markt;" % mas sobre el precio oficial en esta operacion" t "Indica cantidad a vender";ven yven>c(y):5,0;" NO PUEDES VENDER UNA CANTIDAD  QUE NO TIENES":2,-45-:100d:2420t ~Ij(y)=0c(y)=c(y)-ven:a(y)=a(y)+ppa*ven:mpm=mpm+ven:6100 cj(y)>0c(y)=c(y)-ven:a(y)=a(y)+((ppa+(ppa*markt/100d))*ven):mpm=mpm+ven:6100  pmaq=10000' έ:y:5,0;"Tienes ";a(y);" Ptas. de capital";7,0;d(y);" Maquinas manuales y";8,0;e(y);" Maquinas automatizadas";12 ,0;"El precio de cada maquina manuales de ";pmaq;" Ptas.";15,0;"--------------------------------";17,0;"Deseas";19,5;"1- COMPRAR AL CONTADO";20,5;"2- COMPRAR A CREDITO":0:C$=:c$=""2510 C$>"2"C$<"1"2510 "C$="2"cred=1:62008 C$="1"2550  _pmaq>a(y):" NO TIENES SUFICIENTE DINERO ":2,-45-:100d:2500 5pmaqa(y)d(y)=d(y)+1:a(y)=a(y)-10000' h:5,0;"Dispones en este momento de";7,0;d(y);" Maquinas MANUALES":100d  2:k(y)=01,5;1;" BANCO DEL SPECTRUM ";0;5,0;"El Banco del SPECTRUM tiene el placer de indicarle que, una vez comprobado su saldo, en el momento actual no tiene Ud. ninguna deuda con el mismo.";11 ,0;"Atentamente";15,15;"C.Sinclair";16,16;"DIRECTOR";21,10 ;"Pulsa ENTER":0: 7:1,5;1;" BANCO DEL SPECTRUM ";0;5,0;"Saldo actual ";a(y);7,0;"Credito pendiente ";k(y);14,0;"Indique cantidad a devolver":.06|u\,0:.3,5:B$ 9 dev=B$ a(y):5,0;" NO TIENES TANTO DINERO ":2,-45-:100d:2600( Aodev>k(y):5,0;" NO DEBES TANTO DINERO ":2,-45-:100d:26157 FAa(y)=a(y)-dev:k(y)=k(y)-dev:m(y)=((k(y)/10 )*1.1 ) K6502:14,0;" ":502:9 ,0;"Cantidad devuelta ";1;dev;0:502:7,18;1;k(y);0;" ":502:5,13 ;1;a(y);0;" ":400:.1}L,16:.2~L,14: :y=1jug:1,7;1;" B A L A N C E ";0;'';A$(y);''"Saldo Actual ";a(y);" "'"Valor materia prima ";b(y)*100d;" "'"Valor prod. acabado ";c(y)*1000;" "'"Valor maquinaria ";(d(y)+e(y))*10000';" "'"Valor ordenador ";(h(y)-r(y))*20000 N;" "''"CREDITO PENDIENTE ";k(y);" "'"CREDITO ESPECIAL ";s(y);" "'''" Pulsa ENTER":0:y :1,7;" B A L A N C E ":z=5:y=1jug:z,0;A$(y);" ";(a(y))+(b(y)*100d)+(c(y)*1000)+((d(y)+e(y))*10000')+((h(y)-r(y))*20000 N)-k(y)-s(y):z=z+2:y R20,10 ;"Pulsa ENTER":.06|u\,0:.3,5:0: 3950n :z=(*20)+1 z*20+3100 0c(y)=03140D 2:3,0;1;" PRODUCTO PASADO DE MODA ";0;5,1;"Las existencias de su almacen de producto acabado se han pasado de moda, por lo tanto van a ser eliminadas.":250 4g(y)<231299 5g(y)212 ,1;"Pagando 2 POINTS las puede recuperar.";16,1;"Le interesa ? (s/n)":B$=:B$="s"B$="S"g(y)=g(y)-2: 8!g(y)2B$=""31255 9e12 ,1;"Con 2 POINTS las hubiera podido salvar":mpm=mpm+c(y):c(y)=0:150: Dc(y)=03160X I 31211 Zi(y)=03180l ]:3,0;1;"EL TECNICO INDUSTRIAL SE DESPIDE";0:comp=(*15)+10 :sub=(o(y)*(1+comp/100d)):5,1;"Una firma de la competencia le ofrece un sueldo de ";sub;" $";8,1;"Tu le estas pagando ";o(y);" $";10 ,1;"Esta dispuesto a quedarse si le igualas la cantidad.";14,0;"Te interesa conservarlo ? (s/n)" ^B$= _a(y)l(y)+subi(y)=0:l(y)=l(y)-o(y):o(y)=0:14,0;" NO VAS A PODER AFRONTAR GASTOS ":2,-45-:200: bB$="s"B$="S"l(y)=l(y)-o(y):o(y)=sub:l(y)=l(y)+o(y):17,8;1;" NO SE MARCHA ":2,24:0:200: dB$=""3166^ gi(y)=0:f(y)=f(y)/.8L:l(y)=l(y)-o(y):o(y)=0:16,8;" SE MARCHA ":2,-45-:200: mj(y)=03200 q:3,0;1;"EL TECNICO COMERCIAL SE DESPIDE ";0:comp=(*15)+10 :sub=(p(y)*(1+comp/100d)):5,1;"Una firma de la competencia le ofrece un sueldo de ";sub;" $";8,1;"Tu le estas pagando ";p(y);" $";10 ,1;"Esta dispuesto a quedarse si le igualas la cantidad.";14,0;"Te interesa conservarlo ? (s/n)" rB$= sa(y)l(y)+subj(y)=0:l(y)=l(y)-p(y):p(y)=0:14,0;" NO VAS A PODER AFRONTAR GASTOS ":2,-45-:200: vB$="s"B$="S"l(y)=l(y)-p(y):p(y)=sub:l(y)=l(y)+p(y):17,8;1;" NO SE MARCHA ":2,24:0:200: xB$=""3186r {sj(y)=0:l(y)=l(y)-p(y):p(y)=0:16,8;" SE MARCHA ":2,-45-:200: :3,0;1;" OBSEQUIO DE LA CIA. DE SEGUROS ";0;5,0;"Como la condiciones de Seguridade Higiene en tu Empresa son altamente satisfactorias, la Cia. de Seguros te obsequia con 1 POINT":g(y)=g(y)+1:.3,15:400: 3200 :3,0;1;" DECLARACION DE RENTA ";0;5,0;"Ha cometido un error al efectuarla declaracion de la Renta; HACIENDA le devuelve 2000 $":a(y)=a(y)+2000:.3,15:300,: :3,0;1;" DECLARACION DE RENTA ";0;5,0;"Ha cometido un error al efectuarla declaracion de la Renta; HACIENDA le reclama 4000 $":300, Ja(y)<4000imp=4000-a(y):a(y)=a(y)-4000:5000: a(y)=a(y)-4000: :d(y)=03360 {3,0;1;"AVERIA IMPORTANTE DE UNA MAQUINA";0;5,0;"Se ha producido una grave averiaen una maquina manual, quedando inservible.":150:g(y)>010 ,0;"Si abonas 1 POINT, cobraras del seguro el 75 % de su importe"''"Te interesa ? (s/n)":B$=:B$="s"B$="S"d(y)=d(y)-1:g(y)=g(y)-1:a(y)=a(y)+7500L: !g(y)>0B$=""3342 i15,0;" Con 1 POINT cobrabas 7500 $ ":2,-45-:d(y)=d(y)-1:100d: e(y)=033804 %:3,0;1;"AVERIA IMPORTANTE DE UNA MAQUINA";0;5,0;"Se ha producido una grave averiaen una maquina automatica, solo podras aprovecharla trabajando manualmente.":2,-45-:350^:e(y)=e(y)-1:d(y)=d(y)+1: 4i(y)=03400H 9:3,0;1;" GESTION INDUSTRIAL ";0;5,0;"Tu TECNICO INDUSTRIAL ha reali- zado una mejora en los metodos de trabajo que te van a permitir(por esta vez) fabricar al 25 % de tu coste actual":300, 611 ,0;"Indica cantidad a fabricar ":fab ?pfab>d(y)+e(y)*221,0;"NO TIENES SUFICIENTE MAQUINARIA ":2,-45-:3390> @nfab>b(y)21,0;"NO TIENES SUFICIENTE MAT. PRIMA ":2,-45-:100d:3390> Acost=f(y)*.25~:fab*cost>a(y)21,0;" NO TIENES SUFICIENTE DINERO ":2,-45-:100d:3390> B?a(y)=a(y)-fab*cost:b(y)=b(y)-fab:c(y)=c(y)+fab:100d: Hj(y)=03420\ I:3,0;1;" GESTION COMERCIAL ";0;5,0;"Tu TECNICO COMERCIAL ha habiertoun canal de ventas que te va a permitir (solo por esta vez) vender tus productos a 5000 $":250 Lhc(y)=021,0;" QUE PENA QUE NO TENGAS STOCK ":2,-45-:100d: N!"indica cantidad a vender ";ven Pnven>c(y)21,0;" NO VENDAS MAS DE LO QUE TIENES ":2,-45-:100d:3406N RDa(y)=a(y)+ven*5000:c(y)=c(y)-ven:mpm=mpm+ven:6100: \b(y)=03440p ]:3,0;1;" MATERIA PRIMA DEFECTUOSA ";0;5,0;"Has comprado materia prima en nomuy buenas condiciones y se ha hechado a perder":200:mpm=mpm+b(y):6100 `g(y)110 ,0;"La Cia. de Seguros toma 1 POINT de tu haber para asi poderte abonar las perdidas habidas al precio mas bajo de mercado":300,:g(y)=g(y)-1:a(y)=a(y)+b(y)*100d db(y)=0: pb(y)=03460 q 3420\ :3,0;1;"IRREGULARIDADES PAGO SEG. SOCIAL";0;5,0;"Al parecer no llevas las cuentasde la Seguridad Social del todo claras."'"Debes abonar una sancion cuyo importe asciende a 2500 $":2,-45-:400 Ja(y)<2500 imp=2500 -a(y):a(y)=a(y)-2500 :5000: a(y)=a(y)-2500 : ,:g(y)<1a(y)<200031200 3,0;1;" JORNADA DE HUELGA ";0;5,0;"Para terminar con la huelga, deberas abonar la cantidad de 2000 $ o 1 POINT"'"Indica lo que prefieres"''"1 pagar en $"''"2 pagar en POINTS":300, g(y)<1a(y)<200021,0;"NO TIENES NI DEL UNO NI DEL OTRO":-24,1:imp=2000-a(y):a(y)=a(y)-2000:5000: !B$=:B$<"1"B$>"2"3503 z=B$ z=1a(y)<200014,0;"PAGA EN POINTS-TUS ""$"" NO LLEGAN":2,-45-:100d:3501 ~z=2g(y)<114,0;"PAGA EN ""$""-TUS POINTS NO LLEGAN":2,-45-:100d:3501 !z=1a(y)=a(y)-2000 z=2g(y)=g(y)-1  d rUu=021:23692\,255:y;"":u t4z=115:w=(*40():.1}L,w:z x :0,0;"Anyo ";any;0,9 ;"Mes ";x;2,0;"Empresario: ";1;A$(y);0:4,0;"El Consejo de Administracion te propone tomes una de las siguientes DECISIONES:" v8,1;"1";" ";1;"COMPRAR 1 VALOR ""POINT""";0;9 ,3;"su precio es de 1000 $" w10 ,1;"2 ";1;"AUTOMATIZAR UNA MAQUINA";0;11 ,3;"producira 2 unidades/mes" "v12 ,1;"3 ";1;"INFORMATIZAR EL PROCESO";0;13 ,3;"reduce coste prod. al 60%" ,14,1;"4 ";1;"CONTRATAR UN TECNICO IND.";0;15,3;"pide un sueldo de ";ind;" $ mes" 616,1;"5 ";1;"CONTRATAR UN TECNICO COMERC.";0;17,3;"pide un sueldo de ";com;" $ mes" @r18,1;"6 ";1;"DESPEDIR UN TECNICO";0;19,3;"indemnizar con 1 mes/anyo" Jo20,1;"7 ";1;"PREFIERES ESPERAR";0;21,3;"no apruebas su propuesta" T0:B$= W'B$="m"B$="M"9000(#:4100 XB$>"7"B$<"1"4180T ZB$=""4180T ^ dec=B$ c$(dec+1)*100d+4000 g h rta(y)<10005,0;" NO TIENES SUFICIENTE DINERO ":2,-45-:100d:4100 |d5,0;"El precio de cada POINT es de 1000 $":g(y)=g(y)+1:a(y)=a(y)-1000 I15,0;"Dispones de ";g(y);" valores ""POINT""":100d:  qd(y)=05,0;"NO TIENES NINGUNA MAQUINA MANUAL":2,-45-:100d:4100 qg(y)<35,0;"NO DISPONES DE SUFICIENTES POINT":2,-45-:100d:4100 9g(y)=g(y)-3:d(y)=d(y)-1:e(y)=e(y)+1 K5,4;1;" OPERACION REALIZADA ";0:100d: 0 5ch(y)=15,5;1;" YA TIENES ORDENADOR ";0:100d:4100 : 5,0;"Informatizar significa reducir los costes de produccion al 60%";8,0;"Deseas tener un ordenador...";10 ,1;"1 PAGANDO AL CONTADO";12 ,1;"2 CON UN CREDITO BANCARIO";14,1;"3 DE ALQUILER" ;18,0;"(1) su precio es de 20000 $";19,0;"(2) 10000 $ contado, resto cred.(3) 3 Points ahora, 1 Point anyo" <;z$ >z$="1"4420D ?z$="2"4440X @z$="3"4480 A"z$"1"z$"2"z$"3"4412< Dwa(y)<20000 N:5,0;" NO TIENES SUFICIENTE DINERO ":2,-45-:100d:4100 Na(y)20000 N16,0;" YA DISPONES DE ORDENADOR":a(y)=a(y)-20000 N:h(y)=1:f(y)=f(y)*.6:100d: X?:1,5;1;" BANCO DEL SPECTRUM ";0 Y3,0;"El Banco del SPECTRUM te ofrece la posibilidad de obtener un credito para la compra de un ordenador por un importe de";8,13 ;"10000 $";10 ,0;"equivalente al 50% de su valor":100d \la(y)<10000'12 ,0;" TU CAPITAL NO CUBRE EL RESTO ":2,-45-:100d: ^h12 ,7;"Deseas obtenerlo ?";14,14;"1 Si";15,14;"2 No":z$ `z$"1"z$"2"4446^ az$="2"4100 bz$="1"a(y)=a(y)-10000':h(y)=1:f(y)=f(y)*.6:k(y)=k(y)+10000':m(y)=((k(y)/10 )*1.1 ):q(y)=1 lN18,3;1;" YA TIENES ORDENADOR ";0:100d: :5,0;"El precio de un Ordenador en alquiler es de 3 POINTS al formalizar el contrato y de 1 POINT cada final de anyo.":100d rg(y)<315,0;" NO TIENES SUFICIENTES POINTS ":2,-45-:100d:4100 z15,5;1;" CONTRATO REALIZADO ";0:502:18,7;" TIENES ORDENADOR":100d Vg(y)=g(y)-3:h(y)=1:n(y)=n(y)+1:f(y)=f(y)*.6:r(y)=1   ni(y)>0:5,2;"TIENES YA LA PLAZA CUBIERTA":2,-45-:100d:4100 :1,1;"Un buen TECNICO INDUSTRIAL es dificil de encontrar; esa es la razon del porque cobra un buen sueldo."'" Este sueldo se va a ir incrementando anualmente entre un 8 y un 15 %"''" Sus servicios te reportaran una reduccion del coste industrial del 20 %"'" Al contratarlo, y como pago unico deberas abonar 1 POINT por gastos Seguridad Social."''" De todos modos, asegurate antes de contratarlo de que tu capacidad de produccion es suficiente para que te sea rentable." (#1;"Decides contratarlo ? (s/n)" b$= B$="s"B$="S"4515 B$=""4509  4100 :a(y)0:5,2;"TIENES YA LA PLAZA CUBIERTA":2,-45-:100d:4100 (:1,1;"Un buen TECNICO COMERCIAL es dificil de encontrar; esa es la razon del porque cobra un buen sueldo."'" Este sueldo se va a ir incrementando anualmente entre un 8 y un 15 %"''" Sus servicios te reportaran un aumento en los precios de venta entre el 5 y el 20 %"'" Al contratarlo, y como pago unico deberas abonar 1 POINT por gastos Seguridad Social."''" De todos modos, asegurate antes de contratarlo de que tu capacidad de produccion es suficiente para que te sea rentable." (#1;"Decides contratarlo ? (s/n)" b$= B$="s"B$="S"4615 B$=""4609  4100 :a(y)0j(y)=04720p h'i(y)=0j(y)>04750 ii(y)>0j(y)>05,0;"Que tecnico quieres despedir ?";10 ,10 ;"1 INDUSTRIAL";12 ,10 ;"2 COMERCIAL" jB$ kB$="1"4720p lB$="2"4750 mB$"1"B$"2"4714j pU:5,0;1;" DESPIDO DEL TECNICO INDUSTRIAL ";0:4770 U:5,0;1;" DESPIDO DEL TECNICO COMERCIAL ";0:4780 7,0;"La indemnizacion por despido es de una paga por anyo trabajado"''"Sueldo ";o(y);" X ";i(y);" anyos = ";o(y)*i(y):300, indm=o(y)*i(y):desp=(*indm):desp>indm/212 ,0;"ATENCION!!! Nota de MAGISTRATURA":5,25:14,0;"Los motivos alegados para el despido son insuficientes, para consumarlo debera anyadir ala indemnizacion la cantidad de";18,10 ;desp;" $";20,0;"Total a pagar.......... ";indm+desp:"estas de acuerdo ? (s/n)";S$:4778 ta(y)a(y):5,0;1;"NO DISPONES DE SUFICIENTE DINERO";0:2,-45-:100d: indm+despa(y):5,0;1;"NO DISPONES DE SUFICIENTE DINERO";0:2,-45-:100d: indm+desp0b(y)=b(y)-1:a(y)=a(y)+100d:z=z+1:14,0;"Embargo de ";z;" u. mat. prima":502 a(y)05300: &a(y)<05305:5050  z=0 c(y)=05150 c(y)>0c(y)=c(y)-1:a(y)=a(y)+1000:z=z+1:15,0;"Embargo de ";z;" u. prod. acabado":502 a(y)05300: &a(y)<05305:5105 'r(y)=1h(y)=05200P #r(y)=0h(y)>0h(y)=0:a(y)=a(y)+20000 N:f(y)=(f(y)/.6):16,0;"Embargo del ORDENADOR":502 (a(y)05300: -&a(y)<05305:5200P P z=0 Ud(y)=05250 Zd(y)>0d(y)=d(y)-1:a(y)=a(y)+10000':z=z+1:17,0;"Embargo de ";z;" maqs. manuales":502 _a(y)05300: d&a(y)<05305:5205U  z=0 %e(y)=0300,:5400 e(y)>0e(y)=e(y)-1:a(y)=a(y)+10000':z=z+1:18,0;"Embargo de ";z;" maqs. automat.":502 a(y)05300: &a(y)<05305:5255 i20,10 ;1;" SUFICIENTE ";0:.06|u\,12 :.3,17:100d: T20,10 ;1;"INSUFICIENTE";0:2,-45-:502:  ,F:2,0;"Tu situacion"'" es verdaderamente desesperada" ..8L,14:10 :.20~L,14:.20~L,14:.20~L,14:.20~L,14:.3,14:5:.2~L,13 :.2~L,14:.2~L,13 :.2~L,12 :5:.3,5:.73333,5 / 502 0`8,0;"Tienes solamente una opcion:"''"SUSPENSION DE PAGOS"'" vuelves a empezar de nuevo en las mismas condiciones que al inicio del juego. En los balances se indicara la cantidad adeudada mas la que percibes para reiniciar":20,10 ;"Pulsa ENTER":.06|u\,0:.3,5:0:5610 I:1,5;1;" BANCO DEL SPECTRUM ";0:502 3,0;"El Banco del SPECTRUM, teniendo en cuenta las circunstancias queconcurren en su cliente";6,0;A$(y);'"y considerando que su capacidad de Direccion Empresarial es muy superior a su suerte actual, tiene a bien concederle un credito especial de 10000 $ a fondo perdido, para que pueda reinicializar sus actividades empresariales con toda garantia.":.06|u\,0:.3,5:20,10 ;"Pulsa ENTER":0 s(y)=(a(y))+10000':a(y)=10000':b(y)=0:c(y)=0:d(y)=0:e(y)=0:f(y)=1000:g(y)=0:h(y)=0:i(y)=0:j(y)=0:k(y)=0:l(y)=0:m(y)=0:n(y)=0:o(y)=0:p(y)=0:q(y)=0:r(y)=0: -mpm>45-pmp=100d:ppa=1000 :mpm45-mpm>30pmp=200:ppa=2000 :mpm30mpm>15pmp=300,:ppa=3000 9mpm15mpm>5pmp=400:ppa=4000 ,mpm5pmp=500:ppa=5000 . <cred=26240` >cred=36270~ B?:1,5;1;" BANCO DEL SPECTRUM ";0 D3,0;"El Banco del SPECTRUM te ofrece la posibilidad de obtener un credito para la compra de una maquina por un importe de";8,13 ;"5000 $";10 ,0;"equivalente al 50% de su valor" Fka(y)<500012 ,0;" TU CAPITAL NO CUBRE EL RESTO ":2,-45-:100d: Hh12 ,7;"Deseas obtenerlo ?";14,14;"1 Si";15,14;"2 No":z$ Iz$"1"z$"2"6216H J z$="2" Njz$="1"a(y)=a(y)-5000:k(y)=k(y)+5000:m(y)=((k(y)/10 )*1.1 ):d(y)=d(y)+1 Q  #(:y #<]t(1)=65536*23674z\+256*23673y\+256*23672x\/502 #>'t(2)=(t(1)/180000/) #?%t(3)=(t(1)/3000 ) #BBt(2)>0t(3)=(t(1)/3000 )-60< #CCt(2)>1t(3)=(t(1)/3000 )-120x #DCt(2)>2t(3)=(t(1)/3000 )-180 #ECt(2)>3t(3)=(t(1)/3000 )-240 #FCt(2)>4t(3)=(t(1)/3000 )-300, #GCt(2)>5t(3)=(t(1)/3000 )-360h #HCt(2)>6t(3)=(t(1)/3000 )-420 #ICt(2)>7t(3)=(t(1)/3000 )-480 #JCt(2)>8t(3)=(t(1)/3000 )-540 #Zft(2)>9 23674z\,0:23673y\,0:23672x\,0:hora=hora+1 #q0,0;1;A$(y);0:d$=a(y):len=d$:0,29-len;1;a(y);0;" $" #1,0;"Anyo ";any;1,10 ;"Mes ";x;1,17;"Tiempo";1,24;hora;1,25;t(2);1;":";0;t(3) #52,0;"--------------------------------" #q3,0;"Stock materia prima":d$=b(y):len=d$:3,26-len;b(y);3,27;"unid." #t4,0;"Stock producto acabado":d$=c(y):len=d$:4,26-len;c(y);4,27;"unid." #5,0;"Capacidad de produccion":d$=(d(y)+e(y)*2):len=d$:5,26-len;d$;5,27;"unid." #56,0;"--------------------------------" #m7,0;"Precio of. mat. prima":d$=pmp:len=d$:7,29-len;pmp;7,30;"$" #p8,0;"Precio of. prod. acabado":d$=ppa:len=d$:8,29-len;ppa;8,30;"$" #n9 ,0;"Costes de produccion":d$=f(y):len=d$:9 ,29-len;f(y);9 ,30;"$" #610 ,0;"--------------------------------" #ܣ11 ,0;"Maquinas MANUALES":d$=d(y):len=d$:11 ,20-len;d(y);11 ,22;"AUTOM.":d$=e(y):len=d$:11 ,31-len;e(y) #612 ,0;"--------------------------------" #'13 ,0;"Tecnico COMERCIAL" #9j(y)>013 ,18;1;"SI";0 #9j(y)=013 ,18;1;"NO";0 #M13 ,22;"POINTS":d$=g(y):len=d$:13 ,31-len;g(y) $(14,0;"Tecnico INDUSTRIAL" $9i(y)>014,18;1;"SI";0 $9i(y)=014,18;1;"NO";0 $14,22;"INFORM." $9h(y)=114,29;1;"SI";0 $ 9h(y)=014,29;1;"NO";0 $615,0;"--------------------------------" $n16,0;"Credito pendiente":d$=k(y):len=d$:16,29-len;k(y);16,30;"$" $"m17,0;"Gastos mensuales":d$=l(y):len=d$:17,29-len;l(y);17,30;"$" $,q18,0;"Pago Diciembre BANCO":d$=m(y):len=d$:18,29-len;m(y);18,30;"$" $6s19,0;"Abono Diciembre POINTS":d$=n(y):len=d$:19,29-len;n(y);18,30;"$" $@620,0;"--------------------------------" $T20:21,0;2;"  DIMensionNEW ";0:21,16;1;" ";0;21,18;"Pulsa ENTER";21,30;1;" ";0:.06|u\,0:.3,5:0: $ %"gerente"1850: %!v:11 ,0;1;"REBOBINA EL CASETTE Y PULSA PLAY";0:502:13 ,10 ;"VERIFICANDO" %&"gerente":21004 '"m";1;"el gerente" '?*"m";1;"el gerente":*"m";1;"el gerente":1 xor&&&&&&&&&&&&&&&&&&&''''''mdnpAmnopokY] @<D@  $ 8I$@Bx>BB~BD@ ` @$p!I$@@Df8x88xb@BD@ : @$.I$@# BZDD@0DDR|BD@  p @$ 0I$@BBxD8DDJ@BD@  8A$@|DB@DDDF@Z    pA$@D@Bx>B