DICTADOR n_n_p_:H\???˧!:\G\CF#\CF#.!FX@  ~˿####L]FH:H\???6˧6A.................................... Bpx<<xO`|8>#5dĎ`8~@`~`~!?........  INTR n1:0:cls:4,2;"DICTATOR";8,2;"Devised and Written by" +10 ,2;"Don PRIESTLEY" ]14,2;9 ;"Copyright DkTRONICS 1983" G18,2;9 ;"Traducido por J. Argila 1984"  FX i=110 (*2)20 n23779\,*100d+150:(*6)+1:;:y=23780\:23779\<17514  0:; S23779\,*10 +20:a=5̥*10 +10 :y=23780\:a <i > FH23779\,20:a=5̥*10 +502:y=23780\:a H PFco=5010:cls=1300:s$=" " Q R4:hst=0 T b$="123456789":c$="987654321" n-d$(491,491):g$(8,24) p 6101 ta=1491:d$(a):a xco:4e3 CYCLE )6150:a=18:g$(a):a *a=1491:d$(a,1)="N":a bk=1e3 esc=0 mpy=60< st=4 sw=0 d=10 mth=0 coy=5e3 ad=1e3 pl=1400x pc=0 cad=1980 act=790 gr=23675{\ bkr=900 tran=1600@ pr=1700 ass=1500 aid=2060  dec=2500 rev=1800 end=3000 str=10 tune=1570" news=2750 cls=1300 war=4200h 1:7:cls @3,5;5;1;"BIENVENIDO al DESPACHO"''' %" El mejor DICTADOR de nuestro "'' &"querido pais de RITIMBA tuvo una"'' !"puntuacion final de ";hst;" ." '' Shst0" Como es su primer intento, sin"''"ninguna duda lo hara MEJOR !"'' <hst1" Puede intentar obtener ";hst+1;" !"''  &" Empiece leyendo un INFORME del"''  ."TESORO y otro de la POLICIA."''" (GRATIS)" co  act:co pr+20:600X  PICS -gr,40(:gr+1,94^:420 .gr,168:gr+1,93]:420 #gr,232:gr+1,93] a6,2;" ";7,2;" "  XREQUESTS Y c=1 [low=(*3)+2 \str=(*3)+10 bmth=mth+1 d1:6:cls e,10 ,13 ;"MES ";1;mth f 502 hpl jbk<0bkr lbk>0bk=bk-mpy n6:cls pR0,0;4;s$;s$;s$;s$;s$;3,10 ;"UNA AUDIENCIA" vr=(*24)+1 x2a=122:d$(r,1)="N"648 z)r=(r-(r/24)*24)+1:a 5a=124:d$(a,1)="N":a:630v d$(r,1)="*" *gs=((r-1)/8)+1:gs:; ,t$=g$(gs,6̯g$(gs,5)-20)  r$=d$(r) 410+gs :10 ,2;"Pedida por ";t$(1);t$(3) x14,1;"Para solicitar si SU EXCELENCIA"''" estaria conforme con:";18,0;1;r$(18) co:0:ad  choice 1cls:1,10 ;" DECISION " S:(20-t$)/2;gs;t$(2);" le solicita"+("n"(t$(4)="s")) ?5,0;1;r$(18)''0;1;s$ c730:a=0 cad::4;s$ c=0730 coy k$="s"760  740 ?cls:10 ,0;"No tiene SUFICIENTES FONDOS para" *12 ,0;"PAGAR esta DECISION." =15,4;"Su respuesta debe ser NO":250  c=1 x=g$(gs,1) y=(r$(gs+3))-77M x=x-y x<0x=0 g$(gs,1)=x cls act:766 act:tran:act+6 pl:co ass:d=0end  !war:d=0esc=1end  pl  pr:dec ACOUNT 7:4:cls Da=122:4;"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$":a #gr,104h:gr+1,94^ 3,1;4;"";4,1;"";5,1;"" 8+8,5;"INFORME del TESORO" 91:9 :)1:12 ,1;"EL TESORO"; <bk0" tiene $"; >bk<0" DEBE $"; ?bk;".000 ";32 @G14,1;"Los COSTES MENSUALES son: "''" $";mpy;".000 " FSsw>018,1;"[La cuenta en SUIZA tiene: "''" $";sw;".000] " J 0: BANKRUPT cls 55,3;"El TESORO esta en BANCARROTA" 79 ,0;"Su POPULARIDAD con el EJERCITO y"'' &"la POLICIA SECRETA bajara !"''' &" EL PODER DE LA POLICIA decaera"'' "y SU FUERZA disminuira" Ng$(1,1)>"0"g$(1,1)=(g$(1,1)-1) Ng$(6,1)>"0"g$(6,1)=(g$(6,1)-1) Ng$(6,2)>"0"g$(6,2)=(g$(6,2)-1) st>0st=st-1 300,:pl:pr   ADvice 4:1:cls '0,11 ;" " <a=120:a,11 ;"? AVISO ?":a coy:6:cls  k$"s" -1,0;1;d$(r,18): 43,0;"Su POPULARIDAD entre ....": a=18 4x=d$(r,a+3)-77M:x=01034  $2;g$(a,7);23; x>0"+"; x;  $gs=ar<251;gs;"< "  a  :  "La FUERZA de ...": a=16 5x=d$(r,a+11 )-77M:x=01048 $2;g$(a,7);23; x>0"+"; x a  co:cls:  CLS ;::.1}L,40(: x PLOT mth2 2a=13:g$(a,34)="::":a  mthlow1450 p=16 $a=pŰg$(p,1)>low1441 /g$(p,2)+g$(a,2)str1446 p g$(a,3)="A":1450 g$(a,3)="R" g$(a,4)=p a  ASSASSIN r=(*3)+1 g$(r,3)"A" I0:0:cls:10 ,5;"INTENTO DE ASESINATO" 20,2;"por uno de";("l"+g$(r,9 )(g$(r,6)="e"));(" "+g$(r,6)+g$(r,8)(g$(r,6)="l")) Va=60<1-.5:23886N],a:i=23884L]:a:23886N],70F #cls:30:70F:502 Ug$(1,3)="A"g$(2,3)="A"g$(3,3)="A"1546  Lg$(6,1)>lowŰg$(6,2)>lowź(*2)1554  =0:0:cls:12 ,10 ;"le han MATADO !"  3,-40(  d=0: M0:7:cls:12 ,4;" El atentado ha FALLADO " &23886N],502:a=23842"]  " TUNE $a=1̱m$2 &5m$(a+1)=32 m$(a)/4:1578* (4(m$(a)-480)/6,m$(a+1)-105i *a , @TRANSFER Jd$(r,1)="*" Tt$=d$(r,411 ) Ua=18 Vt$(a)="M"1632` X$x=g$(a,1)+(t$(a)-77M) Zx>9 x=9 \x<0x=0 ^g$(a,1)=x `a ft$=d$(r,12 17) ha=16 jt$(a)="M"1652t l$x=g$(a,2)+(t$(a)-77M) nx>9 x=9 px<0x=0 rg$(a,2)=x ta | bk=bk+cst ~mpy=mpy-mcst mpy<0mpy=0  POLICE REPORT  9 :0:0:cls #gr,104h:gr+1,94^ w0,1;6;1;"";1,1;"" 76,1;"INFORME de la POLICIA SECRETA"; Jbk0Űg$(6,1)lowŰg$(6,2)low1764 /"?":12 ,8;"( cuesta $1000 )" coy  k$"s" bk=bk-1 0:0:cls 2"MES ";mth;3,0;1;1;s$ 93,5;1;" INFORME de la POLICIA " :5,14;1;"";6,14;"" ;6,1;"POPULARIDAD";6,24;"FUERZA" #62008:a=18:k$ >7+a,10 ;6;0+(g$(a,3)="R");k$ (7+a,9 ;7;1;a Ja3g$(a,3)="R"7+a,22;7;g$(a,4) Jx=g$(a,1):7+a,9 -x;7;4;c$(10 -x) Ga3g$(a,3)="A"a+7,22;7;"A" a Qa=16:7+a,23;2;7;b$(̰g$(a,2)):a &17,0;"Su FUERZA es ";st 819,0;"La FUERZA de la REVOLUCION es ";str co:4:cls: %10 ,9 ;"NO DISPONIBLE"'' Yg$(6,1)low" Su POPULARIDAD entre nosotros"'"es ";g$(6,1)'' Ng$(6,2)low"El poder de la POLICIA es ";g$(6,2)'' 0bk0"No puede conseguir NI UN INFORME" =23886N],30:a=180P:i=23884L]:a 23886N],502: REVOLUTION  news  +a=13:r=(*3)+1  g$(r,3)="R"1810 a  600X x23886N],502:0:2:1:2:cls:9 :10 ,11 ;0;"REVOLUCION" <a=15:.5,20:.5,10 :a 0:6:cls :12 ,3;"QUIERE INTENTAR ESCAPAR ?":coy &cls:k$"s"1850: (&d$(36$,1)="*"18422 )Y10 ,2;"Debe conseguir atravesar";12 ,2;"la SELVA hacia LEFTOTO" *200:cls ,<(*((g$(4,2)/3)+.4L))1839/ -P12 ,0;"Logra escapar de las GUERRILLAS":i=23842"]:end /0:cls 0bd=0:502:70F:12 ,1;"Las GUERRILLAS lo CELEBRAN":70F:end 2"(*3)=018455 3N12 ,3;"ESCAPA con el HELICOPTERO !":i=23842"]:end 5610 ,3;"El HELICOPTERO no puede arrancar" 6 150 7cls:1833) :.x=g$(r,2)+g$(g$(r,4),2) "6"1870N V"g$(k$,1)low1884\ Xh=k$:1893e \<cls:12 ,5;"Debe estar de BROMA !":18466 b.cls:8,5;"Esta en SU DERECHO !" dco ecls f$8,0;"Su PODER es ";st gz1897i hO''g$(h,7̯g$(h,5)-20);" tiene"'"un poder de ";g$(h,2) i%''"El de los REVOLUCIONARIOS es ";x j 250 lF7:cls:12 ,3;"La REVOLUCION ha ESTALLADO" p 10 z6xst+g$(h,2)+(*3)-11950 >0:0:cls:10 ,4;"Ha sido DERROCADO" 12 ,8;"y ... ";  70F !100d:1;"LIQUIDADO" d=0:502:end I0:cls:10 ,2;"La REVUELTA ha sido APLASTADA" a=23842"] D0,0;:a=122:ں(*5)+1;s$:a 810 ,0;" CASTIGA a los REVOLUCIONARIOS ?" coy:k$"s"1968 (n=13:70F:y=/:n g$(r,12)="00" )g$(g$(r,4),12)="00" g$(h,2)="9" #pc=mth+2:pl:pr:600X CASH ADVICE (cst=10 *(d$(r,2)-77M) mcst=d$(r,3)-77M cstmcst2030 D9 ,1;"Esta decision le representaria"''" al TESORO": cst2014 cst>0" UNA GANANCIA"; cst<0" UN COSTE"; " de $";cst;".000": mcst2020 " y": mcst<0" AUMENTAR"; mcst>0" DISMINUIR"; /" los COSTES MENSUALES"''" en $";mcst;",000" bk+cst>0c=1: I(cst<0mcst<0)(bk+cst<0bk+mcst<0)2034  c=1: ?c=1:10 ,2;"SIN IMPLICACIONES ECONOMICAS": 250:c=0:cls "5,0;d$(r,18) /8,2;"En el TESORO NO hay DINERO" ':" suficiente para esta decision"''' @d$(38&,1)="N""Quizas puedan ayudar los RUSOS ?": @d$(39',1)="N""LOS AMERICANOS son generosos ":  350^:  AID F2:6:cls::2;" PETICION DE AYUDA EXTERIOR " 012 ,11 ;1;"ESPERE":502 x=k$-1 xm$="2g2d3i4d2 2g2d3i4d" $xm$="2m1j3f3j3m4r1 2v1t3r3j3l4m" tune (&mth<(*5)+32138Z @(d$(38&+x,1)="*"2128P A(g$(7+x,1)low2132T B$x12 ,0;"Los RUSOS"; C(x12 ,0;"Los AMERICANOS"; D" le prestaran" E2y=g$(7+x,1)*30+(*200) F$14,7;y;".000 DOLARES" H bk=bk+y L(d$(38&+x,1)="*":2140\ PK12 ,2;"Lamentablemente, NO hay mas"'" PRESTAMOS":2140\ T+x12 ,11 ;2;" NIET !" V)x12 ,1;1;" NOT ! " Xco: Z012 ,2;"Es PRONTO para pedir AYUDA" \co: DECISION 6:cls V1:a=122:1;2;"********************************":a 63,5;"DECISION PRESIDENCIAL" -9 :6,1;"Elija entre ..." 58,0;"1. COMPLACER a un GRUPO " 610 ,0;"2. COMPLACER a TODOS los GRUPOS " 612 ,0;"3. MEJORAR su SITUACION " 614,0;"4. OBTENER DINERO para el TESORO" 616,0;"5. FORTALECER a un GRUPO " co:cls k$<"1"k$>"5"2746 k$="1"x$="-2" k$="2"x$="35" k$="3"x$="69" k$="4"x$=":<" k$="5"x$="=?" Z(20-(((x$(2)-20)-(x$(1)-20))*3))*.5,0 y=1:z=1 /a=x$(1)-20̯x$(2)-20 d$(a,1)="*"2592  z=0 y;".":d$(a,18): ! y=y+1 "a $z2600( %co:2620< (412 ,3;"Esta seccion SE HA AGOTADO" *150:dec - Dk$<"0"k$>"6"dec FEk$<1Űk$>(x$(2)-20)+1-(x$-20)dec J r=((x$)-20)+k$-1 Kd$(r,1)="*"dec L#r=38&r=39'2670n Rr=37%2680x Tad V+4,0;1;d$(r,18) Xcad Zc200:dec [+4,0;1;d$(r,18) \coy ] k$"s"dec ^r=35#2674r ` act:tran d 2740 naid:act:2741 rst=st+2:act ttran+20:2740 xDcls:3,1;1;"TRANSFERENCIA a un BANCO SUIZO"''' }(x=(bk/2):x<12720  "El TESORO tiene $";bk;".000" sw=sw+x:bk=bk-x 100d 1::"Se han TRANSFERIDO $";x;".000":2736 @12 ,1;"NO se ha hecho la TRANSFERENCIA":100d 8259 pl:co pr:rev NEWS (*3) r=(*6)+44, a=16 d$(r,1)="N"2780 %r=r+1:r=502r=44, a  T1:7:0:1:cls:0:10 ,12 ;"NOTICIA" *a=110 :.6,30:a 'cls:10 ,12 ;"NOTICIA" #14,0;d$(r,18) 9 :100d tran:pl pr  END d100d:3026 '502:m$="4d3d1d3d3g1f2f1d2d1d5d" tune 5x=0:a=18:x=x+g$(a,1):a 5:6:cls >3,0;"Su CALIFICACION como PRESIDENTE" (:" POPULARIDAD total - ";28;x N:" MESES en el PODER (";mth;"x3) - ";28;mth*3:x=x+mth*3 d3072 ):" Por permanecer VIVO - ";28;d Z:" Por DEFRAUDACION "'" ($";sw;".000 /10.000) -";28;(sw/10 ) x=x+d+(sw/10 ) *::" Su TOTAL es ";28;1;x x>hsthst=x (:"[ La mayor puntuacion es ";hst;" ]"  co:cls ;0:0:cls:1,14;1;"FINAL" *pr+22:4:co:cls:140  TITLE cls 0,0;:1 20:;:9 :5:a=144, "DICTADORDICTADOR"; !.01z# =,40(-a+*10 a 923659k\,2:a=1502:.03{u\,a:a 0:a=819 2a,8;4;2;"" a ;a=819:a,11 ;1;" ":a }2,0;7;"Si pulsa una tecla se convertira";4,10 ;"en el DICTADOR";6,13 ;" de la " H4:10 ,12 ;"REPUBLICA";16,12 ;"RITIMBANA" "j12 ,13 ;1;6;"*******";13 ,13 ;" *** ";14,13 ;"*******" ,t$="KPKKMKIHK`KMRPOMOP" 6a=1̱t$ ;"" @x=t$(a)-80P J"x=1620:4190^ T .5,x ^a `30:41506 h WAR pg$(5,1)>low rg$(5,2)lowrs=rs+g$(a,2) a 6g$(6,1)>lowrs=rs+g$(6,2)  rs=rs+st 112 ,5;"La Fuerza de Ritimba es ";rs Ils=0:a=16:g$(a,1)lowls=ls+g$(a,2) a 114,5;"La Fuerza de Leftoto es ";ls 118,3;"UNA CORTA Y DECISIVA GUERRA"  10 (ls+(*3-1)rs4320 g23886N],502:0:cls:12 ,7;" LEFTOTO DERROTADO ":i=23842"] g$(5,2)="0": 0:0:cls 25,5;" VICTORIA DE LEFTOTO " =23886N],255:a=15:i=23884L]:a 3d$(36$,1)="*"ƺ(*3)4340 od=0:d$(36$,1)="*"8,3;"FALLO EN LOS MOTORES"''" del helicoptero ":80P N12 ,4;"Ha sido juzgado, declarado"''" ENEMIGO del PUEBLO y ..." @30:70F:18,7;"Sumariamente EJECUTADO"  scls:12 ,3;"ESCAPA con el HELICOPTERO !":23886N],70F:i=23842"]:esc=1: COY 321,11 ;7;" ""S""= SI " ""5010 brc=(23624H\/8) L#0;1,0;brc;9 ;" TECLA " a=115 ""5030 a .01z# =,30 L#0;1,0;brc;9 ;" TECLA " a=115 ""5030 a .01z# =,20  5012 k$=:k$=""5018 k$="s".25~,30 k$"s".25~,10 1k$="#"23659k\,2:7:7: k$=""80P  pDATA 5"NMHQJLMMMMMPKLMMM El SERVICIO MILITAR OBLIGATORIO" 3"NMMPMJMMMMMNMLMMM CREAR CAMPOS de ENTRENAMIENTO" 5"NCMPLNMLMLMNMNIMM ATACAR los NUCLEOS GUERRILLEROS" 5"NEMPLMMIMLMNMNKMMASALTAR las GUERILLAS en LEFTOTO" 4"NMMQONMMIMMNMNMMJ CESAR al JEFE de la POLICIA S." 4"NMMPMMMLMIOMMMMMM EXPULSAR a los MILITARES RUSOS" 3"NMDQMLMMMMMOLLLMM AUMENTAR la PAGA de la TROPA" 5"NAMQLLMLLMMPLLKLMCOMPRAR MAS ARMAMENTO y MUNICION" 5"NMMLONMMMMMLMMLMMREDUCIR la JORNADA SEMANAL a 48h" 1"NMMMQIMNMMMMOLMMM AUMENTAR el SALARIO BASE" 5"NMPNQOMMIMMNNNNMJCORTAR el PODER de la POLICIA S." 5"NMMMPKMKMMMMOKMMM PARAR la IMMIGRACION de LEFTOTO" 5"NCELQKMOLNMMNLLMMINTRODUCIR la EDUCACION GRATUITA" 1"NMMMQJMNLNMMPJMML LEGALIZAR los SINDICATOS" 5"NMMLQKMNLMMMOLLMMLIBERAR a su DIRIGENTE APRESADO" 1"NMSMPLMMMMMMMMLMM CREAR una LOTERIA PUBLICA" 5"NMMKMPMMMMMLMMMMMEL NO USO MILITAR de sus TIERRAS" 1"NMMMIQMLMLMMKONMM DISMINUIR el SALARIO BASE" 5"NWHMMPMNMOIMMNMMM NACIONALIZAR la BANCA AMERICANA" 5"NMRMMPMJMLMMNOMLM GRAVAR los PRODUCTOS de LEFTOTO" 3"NMQNNPMMIMMNMNNMK CORTAR EL GASTO en POLICIA S." 5"NMHMMQMMMMMMMOMMM BAJAR la FISCALIDAD TERRITORIAL" 2"NMMKLPMMMMMLLNNMM CEDER TROPA como CAMPESINOS" 3"NACNNPMJMONMMPMKMCREAR un SISTEMA de IRRIGACION" 5"NMMQLLMMLMMNMMLMLLa VICE-PRESIDENCIA a un MILITAR" 4"NLILQNMOMNMMMMLMMCREAR CLINICAS para los OBREROS" 3"NMMLKQMMLLMLLOMMLPODER LOCAL a los PROPIETARIOS" 5"NRMKMMMQMKNLMMLPMCEDER ARMAS AMERICANAS a LEFTOTO" 5"NYMMMLMLMKPMMMMMMCEDER DERECHOS MINEROS a AMERICA" /"NMWKMMMMMPJMMMMNMALQUILAR BASES a los RUSOS" 4"NMENPPMMMMMLMMLMMDISMINUIR el NIVEL de IMPUESTOS" 1"NEMPPPMMMMMMMMLMMMONTAR un PLAN de POULARIDAD" 5"NMUPPPMMDMMONNNMDCORTAR el PODER de la POLICIA S." 2"NMGJJJMMUMMLLLLMUDAR MAS PODER a la POLICIA S." 5"NIMKLLMMLMMKMMMMLINCREMENTAR sus GUARDAESPALDAS *" 5"NAMIIJMMKMMMMMMMMCOMPRAR un HELICOPTERO de ESCAPE" 5"NMMMMMMMMMMMMMMMMENVIAR DINERO al BANCO SUIZO *" 5"NMMMMMMMMMMMMMMMMSOLICITAR un CREDITO a los RUSOS" 3"NMMMMMMMMMMMMMMMMPEDIR a AMERICA AYUDA EXTERIOR" 5"NZMNNPMGMKMMMMMMMNACIONALIZAR EMPRESAS de LEFTOTO" 5"NHMPMMMJMLMRMMKKLCOMPRAR ARTILLERIA PESADA " 5"NMMMPLMMLMMMRLPMLLEGALIZAR el DERECHO de HUELGA " 5"NMMLLPMMLMMLLRLMLPERMITIR MILICIAS PATRONALES " 5"NMMMMMMMIMMMMMQMI PIERDE los FICHEROS POLICIALES" 5"NMMMMMMMMMMLMMVMM Los CUBANOS ENTRENAN GUERRILLAS" 3"NMMMMMMMMMMIMMOMN ACCIDENTE en BASES MILITARES" 5"NMMMMMMMMMMMMJMKMEl MERCADO de BANANAS CAE un 98%" 4"NMMMMMMMMMMMMOMIM GRAN TERREMOTO en LEFTOTO " 2"NMMMMMMMMMMMILKMM EPIDEMIA MORTAL de COLERA" "76:5%eEl EJERCITO" "76:4(lLos CAMPESINOS" "76:6*lLos PROPIETARIOS"  "06-2(lLas GUERRILLAS"  "76-1)lLos LEFTOTIANOS"  "76-3,lLa POLICIA SECRETA"  "7---#lLos RUSOS"  "7---(lLos AMERICANOS" 8=" EJERCITO "," CAMPESINOS ","PROPIETARIOS"," GUERRILLAS " B="LEFTOTIANOS "," POLICIA S. "," RUSOS "," AMERICANOS " X SAVE b"DICTADOR"7060 "" 0:23886N],70F:23842"]:80P