ZXTape! 2FaraonABC SoftJoaquin Mateos LagoSpanishStrategyNoneOriginal releaseVPublisher release code: CAR06 TZXed at MadriSX & Retro 2006. Tape provided by Z80User.KATMOSIS _ _a [7:7:7:0:0:0:0::23659k\,0:"" KATMOSIS @p~?   @t@ @? $x< $` 0}p 0`   H  @ 0`? BE @BP0xHE0 *`@@0 @ 0x `#ġB(x<$ @BH8̀` HH(@3 #Ā?@@=8@ CB$HD @$Dm@HpH@$@CB q  @@Cm| PE0E" `D2 | @("HE @D@0 E_  @ @?0H(!BB  @!D( @ _@@@@&px ~@f`B @ f~@? 0?@  `Bx0 `@ ~ 0 ````````@``"@E E!QQQQQQQQ0xQQQQQQQQ`````````bP=B#Ā@(@(?A#8̀@VHCBCB H|H?ZZZZZZZZHCBmZZZZZZZZHJD?0BE? E@EQQQQQQQQE@QQQQQQQQD00000000B|&p0"0(@(p 0$BBBp0p@@@0PPPPPPPP@ 8PPPPPPPP@00000000BB 1~ 1 1 1" @ 11 B@ 1@B| @<B 0"  8x88888888888888888888888888888888899999999989988889999998899999988998999999899988899988888888999889888889998888<<89988899988889988988888899888899899::888888::99888888888888::89989:::888888:::98888888888988898889898888888898988888889<<98;;8::8::::898898::::889999<<<<98::899889998988889998889999<<9998998998::::889988::::8==========8998==8888888998888888==========9999999888889998888888899999999999999999988899988889988888888888888888899888999888899889?999?9?9?999?99998889998888998899888999988899889988888888889988998888::88889988999888::88899988999888::888999889999999999999999999888888889998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888KATMOSIS @!R!@![Ä !"#ss# <@T8\\\;]\]\ X![!@P!!88W K SR Pl23614>\,0:"KATMOSIS"16384@,64538-16384@:64538:23659k\,0:"" 23659k\,2:645633,2:645655,16:645677,7:645611,(*255):S=64541:236066\,88X:236077\,251:23658j\,8:7:7:0::23659k\,0 E$(2,10 ):E$(1)="ESCORBUTO":E$(2)="COLERA":P$(4,6):P$(1)="KADESH":P$(2)="SIRIA":P$(3)="KUSH":P$(4)="PUNT" 0,0;2;"";3;"";1;"";4;"";5;"";2;"";1;"";0;"";3;"";2;"";0;"" @1,0;0;"";1,30;1;"" 72,0;0;"";2,30;"" 3,0;3;"";3,30;2;"";4,0;5;"";4,30;0;"";5,0;1;"";5,30;0;"" 6,0;1;"";6,30;0;"";7,0;2;"";7,30;"";8,0;1;"";8,30;3;"" 9 ,0;0;"";9 ,30;1;"";10 ,0;2;"";10 ,30;0;"";11 ,0;4;"";11 ,30;0;"" 12 ,0;1;"";12 ,30;3;"";13 ,0;" ";13 ,30;1;"";14,0;3;" ";14,30;2;"";15,0;1;"";15,30;5;"" 16,0;1;"";16,30;0;" ";17,0;"";17,30;" ";18,0;1;"";18,30;4;"" 19,0;1;"";19,30;2;"";20,0;5;"";20,30;4;"" 21,0;1;"";2;"";3;"";1;"";5;"";3;"";3;"";1;"";2;"";1;"";3;"" (s2,7;"ABC SOFT PRESENTA";4,12 ;2;"KATMOSIS";6,11 ;1;"J. MATEOS" 2|80P,568:119w-80P,0:103g-119w,86V-568:80P-103g,568-86V 7b119w,568:126~-119w,63?-568:103g-126~,86V-63? <109m,80P:127-109m,103g-80P:159-127,75K-103g:143-159,65A-75K:127-143,103g-65A:143,65A:125}-143,0 Aj14,20;4;"";15,20;"";15,18;"";16,18;"" FT67C,77M:97a-67C,0:157,77M:30,0 H>N=822:17,N;5;"":N:9970& P(19,7;"PULSA P PARA JUGAR" QA$=:A$=""81Q RA$"P"81Q x9999': 2,11 ;"BIENVENIDO";4,3;"ESTAS EN EL ANTIGUO EGIPTO";6,3;"BAJO EL REINADO DE ";2;"KATMOSIS" }#8,9 ;"DIME TU NOMBRE" !11 ,11 ;".........." G=0:N$="" ""135  =""136 A$= K(A$)>31G<10 N$=N$+A$:G=G+1:11 ,G+10 ;A$ (A$)=13 160 [(A$)=12 G>0G=G-1:N$=N$( ((N$)-1)):11 ,G+11 ;"." G<11 135 N$="IBBI5070MA"9940& 9998':9999' ?2,15-(6+((N$)/2));"CONSTRUCTOR ";N$ 4,4;"YO, ";2;"KATMOSIS";0;", DIOS VIVO,";5,4;"FARAON DEL ALTO Y BAJO";6,4;"EGIPTO, CONQUISTADOR DE ";7,4;"NUBIA Y VENCEDOR DE LOS ";8,4;"HICSOS TE HE LLAMADO." 10 ,4;"CONSTRUIRAS PARA MI UNA";11 ,4;"PIRAMIDE, SERA LA MEJOR";12 ,4;"Y MAS BELLA QUE JAMAS";13 ,4;"SE HAYA CONSTRUID0." ý15,4;"PARA ELLO TE DARE UN";16,4;"TESORO DE 2.000 TALENTOS";17,4;"DE PLATA Y TENDRAS 5.000";18,4;"ESCLAVOS PARA LAS OBRAS.":9960& A$=:A$=""200 9999' 4,4;"TENDRAS UN CENTENAR DE";5,4;"CAPATACES ELEGIDOS DE MI";6,4;"EJERCITO.";8,4;"MIS CANTERAS DE LIBIA TE";9 ,4;"PROVEERAN DE PIEDRAS PARA";10 ,4;"LA CONSTRUCCION Y PONDRE A" K11 ,4;"TU DISPOSICION MI CRIADO";12 ,4;"AHHOTEP." 14,4;"EL TE LLEVARA A LAS OBRAS";15,4;"EN DIBNI-HASSAM.";17,4;"PARTIRAS INMEDIATAMENTE.":9960& A$=:A$=""235 9999':9998' TSW=0:T=2000:E=5000:P=0:Y=0:A=0:M=1 X2,3;0;"DEBES ESCOGER LA DIETA DE";3,3;"LOS ESCLAVOS:"  5,4;2;"3 - CEBOLLAS, AJOS";6,8;"RABANOS Y CERVEZA";8,3;1;"GASTO: 90 TALENTOS ANUALES" 10 ,4;3;"2 - CEBOLLAS, AJOS Y ";11 ,8;"CERVEZA";13 ,3;1;"GASTO: 60 TALENTOS ANUALES" i15,4;0;"1 - AJOS Y CERVEZA";17,3;1;"GASTO: 30 TALENTOS ANUALES" " 19,12 ;"ESCOGE: ." $G=0:R$="" ' ""295' (=""296( )A$= ++ G>0A$=13 O=R$:3051 ,HA$=12 G>0G=G-1:19,20;".":295' -G>0295' /A$<"1"A$>"3"295' 0619,20;A$:G=G+1:R$=A$:295' 69999':3,3;"LOS CAPATACES DESEAN SABER";4,3;"CUANTOS LATIGAZOS HAN DE";5,3;"DAR SEMANALMENTE A CADA";6,3;"ESCLAVO" @ 10 ,14;"LATIGAZOS" EM$="":G=0 J""330J K=""331K LA$= O>A$"0"A$"9"M$=M$+A$:G=G+1:10 ,9 +G;A$ P#A$=13 G>0360h RU A$=12 G>0M$=M$( ̱M$-1):10 ,9 +G;" ":G=G-1 T`G>219,11 ;1;1;"QUE GRACIA!":150:100d:3051 c 330J hrl=m$: C=((30-(L/99c*30)+9 *O+30*(E>4500E<5500|)+*10 )/10 ) oC<18000@ pC>10 C=10 r01200:9999':1400x:9999' 9 ((*10 )+1)>51500:9999' ;E>2500 L>502C<71600@:9999' $9945&:1800:9999' $ C<81900l:9999' \((A>2((*9 +1))<3)Y>65A)SW=01950:9999' $9945&:1200:9999' 2500 :9999' 2((*7)-O)>22600( :9999' $2700 :9945&:9999' :(*10 )>3+(A/2)2750 :9999' /T>500A>12850" :9999' @A>2(((A/2))(A/2))2950 :9999' &$9945&:1200:9999' 5:C<8((*10 )<5)3000 :9999' ?3((*10 +A))<9 3050 :9999' I#A>33200 :9999' U 9945& V(A>8((*A)>9 )7000X W A=A+1 X 260 0:3;32 ,32 :3;111o-32 ,111o-32 :3;190-111o,32 -111o:3;32 -190,0:((1105Q-Y))  8,13 ;"" 8,14;"" 9 ,12 ;"" 9 ,14;"" 10 ,11 ;"" 10 ,14;""  11 ,10 ;"" 11 ,14;"" 12 ,9 ;"" 12 ,14;"" 13 ,8;"" $13 ,14;"" )14,7;"" .14,14;"" 315,6;"" 815,14;"" =16,5;"" B 16,14;"" G 17,4;"" I532 ,31:8*20-1,0 L!17,14;"" O6112p,31:8*10 -1,0 ~ 9999':1000 :2,7;1;1;"ESTADO DE LAS OBRAS" B5,3;"ESCLAVOS: ";5,17-(E);2;E (4,18;"DIETA: ";2;O C4,3;"LATIGAZOS: ";4,17-(L);2;L A5,18;"TESORO: ";5,29-(T);2;T 66,3;"HAS CONSTRUIDO EL ";2;Y;"%"  <20,7;"HA";:A120,9 ;"N"; R" PASADO ";20,20-(A);2;A;0;" NILO";:A1"S" 19,3;"CONTENTO DE LOS ESCLAVOS ";(1*(C>6)+4*(C>4C<7)+3*(C<5C>1)+2*(C<2));C  9980& A$=:A$=""1310 ( x3,3;2;"MISKHANEN";0;", GRAN SACERDOTE";4,3;"TE SALUDA Y DESEA QUE LE";5,3;"AUTORICES A CELEBRAR UNA";6,3;"OFRENDA A LOS DIOSES EN" -7,3;"EL RECINTO DE LAS OBRAS." *10 ,6;"TU RESPUESTA ES: .." G=0:R$=""  ""1425 =""1426 A$= UA$"A"A$"Z"G<2G=G+1:R$=R$+A$:10 ,23+G;A$:1425 $A$=13 G>11450 WA$=12 G>010 ,23+G;".":G=G-1:R$=R$( G):1425  1425 R$="NO"1480 R$"SI"1420  9998' 13 ,3;"EL SACRIFICIO HA AGRADADO";14,3;"PLENAMENTE A LOS DIOSES.";16,3;2;"MISKAHNEN";0;" TE AGRADECE TU";17,3;"DONATIVO DE ";1;"100";0;" TALENTOS ";18,3;"PARA EL TEMPLO." T=T-100d A$=:A$=""1470 T<50285004!  %((*10 ))<47500L  3,3;"HA LLEGADO UN MENSAJERO.";5,3;"LA CARAVANA DE PIEDRAS DE";6,3;"LIBIA HA SIDO CAPTURADA";7,3;"POR LOS BANDIDOS DEL PAIS";8,3;"DE SUMI.";10 ,3;"DEBES PAGAR UN RESCATE DE" )RE=(*5)+1:re=re*502 >11 ,3;1;RE;0;" TALENTOS DE PLATA." *14,11 ;3;"LO SIENTO!" et=t-re:17,3;"TU TESORO ES: ";17,20-(T);2;T;0;" TALENTOS" A$=:A$=""1540  T<50285004!   @9998':3,3;"LOS ESCLAVOS SE DECLARAN ";4,3;"EN HUELGA.";5,3;"SU CABECILLA, UN TAL ";2;"MOSE";0;6,3;"QUIERE HABLAR CONTIGO." E 400 Jd10 ,3;"YO SOY ";2;"MOSE";0;", Y REPRESENTO";11 ,3;"A LOS ESCLAVOS.";13 ,3;"MANTENDREMOS ESTA HUELGA";14,3;"HASTA QUE CAMBIES LAS";15,3;"CONDICIONES EN LAS QUE ";16,3;"ESTAMOS TRABAJANDO.";18,3;"EN ESTE PAPIRO ESTAN LAS";19,3;"CONDICIONES." TA$=:A$=""1620T ^ 9999' h*3,11 ;1;"CONDICIONES" m5,3;2;"PRIMERO";0;" EL NUMERO DE";6,12 ;"LATIGAZOS SERA";7,12 ;"REDUCIDO A "; rNO=(*10 +10 ) w 1;NO | O<39 ,3;2;"SEGUNDO";0;" LA DIETA SERA DE";10 ,12 ;"CEBOLLAS, AJOS";11 ,12 ;"RABANOS Y CERVEZA"  500 B14-3*(O=3),8;3;"DEBES MEDITARLO" 16-3*(O=3),3;"PUEDES ESCOGER ENTRE:";18-3*(O=3),6;"LLAMAR A LOS SOLDADOS";19-3*(O=3),6;"ACCEDER A LAS DEMANDAS" A$=:A$=""1680  9999' 2 4,6;1;"AHORA DEBES DECIDIR" ] 6,3;"A - LLAMAR A LOS SOLDADOS";8,3;"B - ACCEDER A LAS DEMANDAS" ( 12 ,3;"TU DECISION ES: ." G=0:R$=""  ""1705 =""1706 A$= =A$="A"G=012 ,19;"A":G=1:R$="A" =A$="B"G=012 ,19;"B":G=1:R$="B" $A$=13 G=11750 8A$=12 12 ,19;".":G=0:R$=""  1705 R$="A"1765 O=3:L=NO:C=C+1 ݍ15,3;1;"LA SOLUCION DEL PROBLEMA ";16,3;"HA SATISFECHO PLENAMENTE A";17,3;"LOS TRABAJADORES."  300, 9998':9950&:  9999' 3,3;"EL EJERCITO DEL FARAON HA ";4,3;"SALIDO DE SUS CUARTELES";5,3;"Y SE DIRIGE HACIA AQUI."  502 200:7,3;"EL EJERCITO HA ENTRADO";8,3;"EN EL CAMPAMENTO DE LOS";9 ,3;"ESCLAVOS. SE LUCHA, PERO";10 ,3;"LOS ESCLAVOS VAN CEDIENDO ";11 ,3;"TERRENO." 300,:13 ,3;"LA LUCHA HA TERMINADO, EL";14,3;"EJERCITO HA ACABADO CON LA";15,3;"REVUELTA." )17,3;3;"RESULTADO:" PE=(*100d+502) <19,3;2;PE;0;" ESCLAVOS MUERTOS"  C=C-2:E=E-PE:200 A$=:A$=""1782 C<18000@ E<50185004!  9998':3,3;"LOS ESCLAVOS TE IMPLORAN";4,3;"QUE LES PERMITAS CELEBRAR";5,3;"LA TRADICIONAL ";3;"FIESTA DE";6,3;"LOS ESCLAVOS." '9 ,3;"TU DECISION ES: .." R$="":G=0 ""1815 =""1816 A$= I A$"A"A$"Z"G<2R$=R$+A$:G=G+1:9 ,18+G;A$ !$A$=13 G=218400 &JA$=12 G>09 ,18+G;".":G=G-1:R$=R$( G) + 1815 0R$="SI"1860D 5R$"NO"1810 612 ,3;2;"GRAN AMO LOS ESCLAVOS SE";13 ,3;"MUESTRAN MUY DESCONTENTOS.";15,3;"ALGUNOS SE HAN REBELADO Y";16,3;"HA HABIDO QUE DARLES UN";17,3;"CASTIGO EJEMPLAR." 7 200 8A$=:A$=""18488 :$C=C-1:C<18000@ ? D49970&:9998':C=C+1:T=T-100d I11 ,3;"MUCHAS GRACIAS, GRAN AMO";12 ,3;"ESTA FIESTA LEVANTARA EL ";13 ,3;"ESPIRITU DE LOS ESCLAVOS, Y";14,3;"TAN SOLO POR";2;" 100 ";0;"TALENTOS";15,3;"QUE GENTILMENTE HAS DADO";16,3;"PARA PROCURAR DIVERTIMENTO";17,3;"A LOS TRABAJADORES.";19,12 ;1;1;"GRACIAS!" NA$=:A$=""1870N ST<50285004! X l?3,4;1;1;"INFORME DE LOS CAPATACES" v5,3;"TRAS EL ULTIMO RECUENTO DE";6,3;"LOS ESCLAVOS, HEMOS DE ";7,3;"COMUNICARTE QUE "; {$FU=(20*(*3+1)) "2;FU;0;" ESCLAVOS" L8,3;"HAN HUIDO DEL RECINTO DE ";9 ,3;"LAS OBRAS." 11 ,3;"COMO PREVENCION PARA MAS";12 ,3;"POSIBLES FUGAS, DAREMOS UN";13 ,3;"ESCARMIENTO A UNOS CUANTOS";14,3;"DE ESOS PERROS ESCLAVOS." A$=:A$=""1935 C>6C=C-1  E=E-FU:E<50285004!  l9998':3,3;1;"MALA SUERTE CONSTRUCTOR";4,3;"LA ESFINGE ESTA ANTE TI" 17,3;2;"";18,3;"":2:24,24:0,39'-24:167-24,0:0,24-39':24-167,0:0 24,40(:39'-24,63?-40(,-/3.5`:103g-39',0:0,64@-63?:96`-104h,72H-64@,-/6 0,98b-72H:104h-96`,110n-98b,-/6:0,111o-110n:136-104h,0 143-136,103g-111o,-/2:0,95_-103g:148-143,83S-95_:143-148,0:0,71G-83S:136-143,64@-71G,-/2 136,47/:160-136,0:167-160,40(-47/,-/2:103g,63?:0,111o-63? y103g,63?:136-103g,0:158,45-:164-158,40(-45-,-/3.5` m154,43+:6,-3,-/3.5`:N=813 :N,13 ;2;"":N Ǝ136,47/:0,112p-47/:104h-136,0:139,74J:3,0:139,96`,1 817,25;1;"";18,25;"" 9960&:150 @N=16:N,3;" ":N 2,3;1;"TE HARE TRES PREGUNTAS.";3,3;"SI NO RESPONDES A ALGUNA";4,3;"DE ELLAS, TE MIRARE, Y TE";5,3;"CONVERTIRAS EN UNA ESTATUA";6,3;"DE SAL INMEDIATAMENTE."  500 @N=16:N,3;" ":N 2,3;1;"DIME CUAL ES EL ANIMAL QUE";3,3;"PRIMERO ANDA CON 4, LUEGO";4,3;"CON 2, Y EN SU VEJEZ CON";5,3;"3 PATAS." 2G=0:R$="":6,16;1;"." ""2025 =""2026 A$= _(A$"A"A$"Z"A$=" ")G<10 6,16+G;A$;1;".":R$=R$+A$:G=G+1 $A$=13 G>02035 sA$=12 G>0R$=R$( G-1):G=G-1:6,16;R$;" ";8;8;1;"."  2025 =N=1̱R$-5:R$(NN+5)="HOMBRE"2045 N  2490 L9950&:N=16:N,3;" ":N 2,3;1;"DIME AHORA QUE ES AQUELLO";3,3;"QUE NACE HORAS DESPUES DE";4,3;"HABER MUERTO" 2G=0:R$="":6,16;1;"." ""2056  =""2057   A$=  _(A$"A"A$"Z"A$=" ")G<10 6,16+G;A$;1;".":R$=R$+A$:G=G+1  $A$=13 G>02065  sA$=12 G>0R$=R$( G-1):G=G-1:6,16;R$;" ";8;8;1;"."  2056 :N=1̱R$-2:R$(NN+2)="DIA"2075 N  2490 L9950&:N=16:N,3;" ":N  2,3;1;"DEBES DECIRME POR ULTIMO";3,3;"EL MEJOR CONSTRUCTOR DE";4,3;"PIRAMIDES DE TODO EGIPTO" %2G=0:R$="":6,16;1;"." &""2086& '=""2087' (A$= )_(A$"A"A$"Z"A$=" ")G<10 6,16+G;A$;1;".":R$=R$+A$:G=G+1 *$A$=13 G>02095/ +sA$=12 G>0R$=R$( G-1):G=G-1:6,16;R$;" ";8;8;1;"." , 2086& /2R$"JMATEOS"R$"J MATEOS"R$"NILO"2490 4@N=16:N,3;" ":N 9 9998' >2,3;1;"MUY BIEN, ERES LIBRE DE IR";3,3;"HAS RESPONDIDO BIEN Y POR";4,3;"ELLO TE AYUDARE EN LA OBRA";5,3;"DE LA PIRAMIDE." @ 200 CA$=:A$=""2115C H?SW=1:Y=Y+5:Y>100dY=100d:9000(# M L9998':N=16:N,3;" ":N S2,3;2;"LO SIENTO, NO HAS ACERTADO";4,13 ;"ADIOS!" :2;145,95_:2;58:,-65A 200:200 0 Ľ9999':9999':3,3;2;"HA LLEGADO LA CARAVANA DE";4,3;"MERCADERES SIRIOS, PODRAS";5,3;"COMPRAR O VENDER";6,3;"ESCLAVOS." D500:8,3;"COMPRAS O VENDES .":R$="":G=0 ""2507 =""2508 A$= A A$="C"G=0TU=0:G=1:8,20;"C" @A$="V"G=0TU=1:G=1:8,20;"V" $A$=13 G=12515 :A$=12 G=1G=0:8,20;"." 2507 <PE=((15+(A*4))/10 )-.5*(TU=1) N10 ,3;1;"10 ESCLAVOS = ";3;PE*10 ;" TALENTOS" G12 ,3;"CUANTOS ";:TU=0"COMPRAS? ...":2532 "VENDES? ..." R$="":G=0 ""2535 =""2536 A$= IA$"9"A$"0"G<3R$=R$+A$:G=G+1:12 ,19+G;A$ $A$=13 G>02557 KA$=12 G>012 ,19+G;".":G=G-1:R$=R$( G) 2535 /20,3;" " CO=R$ CO=0 CO*PECOTU=12580 TU=014,3;"LO SIENTO, NO TIENES TANTO";15,3;"DINERO.";17,3;"SOLO TIENES ";2;T;" TALENTOS." TU=114,3;"LO SIENTO, NO TIENES TANTOS";15,3;"ESCLAVOS.";17,3;"SOLO TIENES ";2;E;" ESCLAVOS." A$=:A$=""2577  2503 "TU=0T=T-(CO*PE):E=E+CO "TU=1T=T+(CO*PE):E=E-CO y17,6;"TIENES ";2;E;0;" ESCLAVOS";19,6;"TIENES ";3;T;0;" TALENTOS" A$=:A$=""2587 T<50285004! # (F$=E$((*2)+1) -Q3,3;"HAY UNA TERRIBLE EPIDEMIA";4,3;"DE ";2;F$ 2~6,3;"LOS MEDICOS ESTAN TRATANDO";7,3;"QUE NO SE PROPAGUE FUERA";8,3;"DEL CAMPAMENTO." 79950&:100d <10 ,3;"LOS MEDICOS HAN CONSEGUIDO";11 ,3;"CONTROLAR LA EPIDEMIA, ";12 ,3;"PERO HEMOS SUFRIDO BAJAS";13 ,3;"ENTRE LOS ESCLAVOS." A!PE=(*(70F-(O*10 ))) CPE<10 2625A FP100d:15,3;"HEMOS PERDIDO ";2;PE;0;" ESCLAVOS" KE=E-PE PD18,3;"AHORA TIENES ";1;E;0;" ESCLAVOS." R 200 UA$=:A$=""2645U ZE<50285004! _ ePE=2*((*5)+1)+(L>557)*(L-557)*3+(C>5)*(C-5)*3 PE=0 4,3;"LAMENTO COMUNICARTE QUE";5,3;"ALGUNOS DE LOS ESCLAVOS";6,3;"NO HAN PODIDO AGUANTAR" 7,3;"COMO HOMBRES, EL TRABAJO";8,3;"QUE TU, EN NOMBRE DEL";9 ,3;"FARAON, HABIAS TENIDO A ";10 ,3;"BIEN ENCOMENDARLES." 12 ,3;"POR ESO DEBO COMUNICARTE";13 ,3;"QUE ";2;PE;0;" ESCLAVOS HAN TOMADO";14,3;"EL SENDERO DEL QUE NO SE";15,3;"VUELVE." FE=E-PE:18,3;"TIENES ";1;E;0;" ESCLAVOS " A$=:A$=""2735 E<50285004!  3,3;2;"KATMOSIS";0;", EL GRAN FARAON";4,3;"HA REGRESADO DE LA GUERRA";5,3;"QUE HA MANTENIDO CONTRA";6,3;"EL PAIS DE "; F$=P$((*4)+1) ͊2;F$:8,3;"HA SIDO UNA GRAN GUERRA";9 ,3;"Y EL BOTIN TAMBIEN HA";10 ,3;"SIDO GRANDE Y RICO." 200 ׬12 ,3;"EL FARAON TE DA PARTE DEL";13 ,3;"BOTIN PARA QUE PROSIGAS EN";14,3;"LA CONSTRUCCION DE LA ";15,3;"GRAN PIRAMIDE." ;18,8;3;"ESTE ES TU BOTIN":9960& A$=:A$=""2790 9999':4,3;"AQUI ESTA EL GRAN BOTIN";5,3;"QUE EL FARAON HA CAPTURADO";6,3;"EN ";2;F$ IPE=40(*((*7)+1):GA=40(*((*10 )+1) h9 ,10 ;1;PE;0;" ESCLAVOS";11 ,10 ;1;GA;0;" TALENTOS" E=E+PE:T=T+GA 15,6;"TIENES ";2;E;0;" ESCLAVOS";17,6;"TIENES ";2;T;0;" TALENTOS":9950& A$=:A$=""2840  'H9998': 2,6;2;1;"ATAQUE DE LOS HICSOS" ,4,3;"ALARMA GRAN CONSTRUCTOR UNA";5,3;"PARTIDA DE INSURRECTOS";6,3;2;"HICSOS";0;", HA PENETRADO EN EL";7,3;"RECINTO DE LAS OBRAS Y SE";8,3;"DIRIGE HACIA EL DEPOSITO";9 ,3;"DEL TESORO." 1 350^ 611 ,3;"EL EJERCITO DEL FARAON SE";12 ,3;"DISPONE A ATACAR A LOS ";13 ,3;"REBELDES.":200 ;15,3;"SE HA CONSEGUIDO VENCER A";16,3;"LOS ";2;"HICSOS";0;". PERO ALGUNOS";17,3;"DE ELLOS HAN CONSEGUIDO";18,3;"HUIR CON PARTE DEL TESORO";19,3;"ALMACENADO." = 200 @A$=:A$=""2880@ EI9999':3,5;1;1;"ESTAS SON LAS PERDIDAS" JHGA=30*((*6)+1):PE=60<*((*6)+1) O6,9 -(PE);2;PE;0;" ESCLAVOS MUERTOS";8,9 -(GA);2;GA;0;" TALENTOS ROBADOS" TT=T-GA:E=E-PE Yy12 ,6;"TIENES ";3;E;0;" ESCLAVOS";14,6;"TIENES ";3;T;0;" TALENTOS" ^318,11 ;1;1;"LO SIENTO!" cA$=:A$=""2915c hT<50285004! rE<50085004! | XPE=(4*(*(E/20))+1)+10 *(C-2):PE>10002950 K9998':3,4;1;1;"INFORME DE LOS CAPATACES" 6,3;"SE HA EFECTUADO UN CENSO";7,3;"ENTRE LOS ESCLAVOS PARA";8,3;"ESTABLECER CORRECTAMENTE ";9 ,3;"SU NUMERO." *E=E+PE:11 ,3;"SE HA ENCONTRADO QUE ";2;PE;0;12 ,3;"ADOLESCENTES, HIJOS DE";13 ,3;"ESCLAVOS, TIENEN YA EDAD DE";14,3;"TRABAJAR, CON LO CUAL EL";15,3;"NUMERO DE ESCLAVOS EN LAS";16,3;"OBRAS ES DE ";2;E 619,4;3;"ENHORABUENA CONSTRUCTOR" 9960& A$=:A$=""2980 E>6000p8000@  I9998':3,5;2;1;"ACCIDENTE EN LAS OBRAS" ~6,3;"GRAN AMO, HA CAIDO SOBRE";7,3;"NOSOTROS UNA TERRIBLE ";8,3;2;"DESGRACIA." 100d P10 ,3;"EN LAS OBRAS HA OCURRIDO";11 ,3;"UN ACCIDENTE." -PE=(10 *(*10 )+1):E=E-PE PE<53020 100d ђ13 ,3;"SE HA DESPRENDIDO UN BLOQUE";14,3;"DE PIEDRA Y HA OCASIONADO";15,3;2;PE;0;" MUERTOS." g17,11 ;3;"LO SIENTO!":19,6;"TIENES ";2;E;0;" ESCLAVOS" 200 A$=:A$=""3040 E<50085004!  9998':3,3;"ALEGRATE CONSTRUCTOR, PUES";4,3;"LA ESPOSA REAL ";2;"KEPNESUH ";0;"HA";5,3;"DADO A LUZ." 200 h7,3;"SI ES UN VARON LA ALEGRIA ";8,3;"DEL GRAN FARAON ";2;"KATMOSIS " 9 ,3;"NOS REPORTARA GRANDES DONES";10 ,3;"SI ES UNA HEMBRA TENDREMOS";11 ,3;"ALGO TAMBIEN.";13 ,3;"ESPEREMOS MAS NOTICIAS." 500 +(*10 +1)>63150N -15,3;"ES UNA PRECIOSA HEMBRA." 16,3;"EL FARAON ESTA CONTENTO Y ";17,3;"TE ENVIA ESTO PARA QUE ";18,3;"PUEDAS SEGUIR CONSTRUYENDO";19,3;"SU GRAN PIRAMIDE." 9960&:100d A$=:A$=""3090 i9999':4,3;"ESTOS SON LOS REGALOS DEL";5,3;"FARAON ";2;"KATMOSIS" HPE=15*((*6+1)):GA=20*((*9 +1)) !v9 ,13 -(PE);2;PE;0;" ESCLAVOS";11 ,13 -(GA);2;GA;0;" TALENTOS" &E=E+PE:T=T+GA +y14,6;"TIENES ";3;E;0;" ESCLAVOS";16,6;"TIENES ";2;T;0;" TALENTOS" 09950&:100d 5A$=:A$=""31255 :E>6000p8000@ ? N*15,3;"ES UN ROBUSTO VARON." S16,3;"EL FARAON ESTA MUY FELIZ Y";17,3;"TE ENVIA ESTO PARA QUE ";18,3;"PUEDAS SEGUIR CONSTRUYENDO";19,3;"SU GRAN PIRAMIDE.":9960&:100d ]A$=:A$=""3165] bi9999':4,3;"ESTOS SON LOS REGALOS DEL";5,3;"FARAON ";2;"KATMOSIS" gJPE=15*((*15+1)):GA=25*((*20+1)) iv9 ,13 -(PE);2;PE;0;" ESCLAVOS";11 ,13 -(GA);2;GA;0;" TALENTOS" nE=E+PE:T=T+GA:14,6;"TIENES ";3;E;0;" ESCLAVOS";16,6;"TIENES ";2;T;0;" TALENTOS" q 200 sA$=:A$=""3187s vE>6000p8000@ { 9998':3,3;"BIEN CONSTRUCTOR ESTE ES";4,3;"EL MOMENTO QUE TEMIAMOS.":200:7,3;"TENEMOS QUE PRESENTAR AL";8,3;"FARAON EL INFORME DE LAS";9 ,3;"OBRAS DE SU GRAN PIRAMIDE." G 11 ,3;"TU LITERA ESTA LISTA PARA";12 ,3;"TRASLADARTE AL PALACIO";13 ,3;"REAL.";14,3;"VE RAPIDO, NO AGRIES EL";15,3;"GENIO DEL FARAON CON TU ";16,3;"RETRASO, EL SOL ESTA BAJO";17,3;"Y NO TARDARA EN SER NOCHE";18,3;"CERRADA." 100d A$=:A$=""3220 9999':3,3;"BIENVENIDO CONSTRUCTOR ";5,3;"AUNQUE TU RETRASO NO SEA";6,3;"UN BUEN AUGURIO PARA TI." 8,3;"QUIERO CONOCER EL ESTADO ";9 ,3;"DE LAS OBRAS DE MI GRAN";10 ,3;"PIRAMIDE.";11 ,3;"DAME EL PAPIRO QUE HAN ";12 ,3;"REDACTADO TUS ESCRIBAS." 100d (14,3;1;"NERVIOSO?" 100d:100d Q (Y/((A+1)*10 ))<.95s333ƺ(*10 +1)<73300 w16,3;"TRANQUILIZATE CONSTRUCTOR";17,3;"TU INFORME ME HA SIDO";18,3;"FAVORABLE" 200 A$=:A$=""3262 9999':4,3;2;N$;0;" ESTOY CONTENTO";5,3;"DE TU INFORME,";1;" POR AHORA";0;6,3;"POR ELLO TE RECOMPENSARE";7,3;"CON 100 TALENTOS" 6N$=""4,3;"CONSTRUCTOR ESTOY CONTENTO" Ƭ9 ,3;"BIEN AHORA DEBES IRTE PARA";10 ,3;"CONTINUAR CON LA OBRA DE";11 ,3;"MI GRAN PIRAMIDE.";14,10 ;2;"VETE AHORA!" 9998' A$=:A$=""3280 T=T+100d: h9998':9999':4,3;"TU INFORME NO ME SATISFACE";5,3;"EN ABSOLUTO "; "N$="""CONSTRUCTOR":3320 N$ }7,3;"NO HACE MAS QUE REDUNDAR ";8,3;"SOBRE LOS RUMORES QUE YO ";9 ,3;"HABIA OIDO YA." (11 ,3;"ME PARECE QUE HAS TRATADO";12 ,3;"DE ESTAFARME, ROBANDO MIS";13 ,3;"TALENTOS Y MALTRATANDO A";14,3;"MIS ESCLAVOS.";16,3;"POR ELLO SERAS EJECUTADO";17,3;"Y TU NOMBRE SERA MALDITO";18,3;"PARA SIEMPRE."  200 A$=:A$=""3335 7030v X89999':9998':3,3;"YO, ";2;"KATMOSIS ";0;"TE HE HECHO";4,3;"LLAMAR.":100d:6,3;"MAL CONSTRUCTOR, NO ERES";7,3;"DIGNO DEL SUELO QUE PISAS";8,3;"HAS TRAICIONADO LA FE QUE";9 ,3;"YO HABIA DEPOSITADO EN TI." _ 200 b11 ,3;"TE CONFIE LA MAS GRANDE DE";12 ,3;"LAS CONSTRUCCIONES DE TODO";13 ,3;"EGIPTO, Y TU NO HAS SABIDO";14,3;"LLEVARLA A CABO." d 200 gw16,3;"HAS DEMOSTRADO SER EL MAS";17,3;"GRANDE INUTIL DEL PAIS DE";18,3;"KEMI." l 200 mA$=:A$=""7021m xG9999':T<20003,3;"TU HAS GASTADO MI DINERO" {4,3;"HAS UTILIZADO MIS ESCLAVOS,";5,3;"HAS VIVIDO A MI COSTA Y A";6,3;"CAMBIO SOLO HAS CONSTRUIDO";7,3;"EL ";2;Y;"%";0;" DE LA PIRAMIDE " /8,3;"QUE YO TE MANDE CONSTRUIR."  200 L10 ,3;"ERES LA VERGUENZA DE TU ";11 ,3;"PROFESION Y NO MERECES ";12 ,3;"SEGUIR VIVO.";13 ,3;"POR ELLO HE DISPUESTO QUE";14,3;"SEAS LA OFRENDA PRINCIPAL";15,3;"EN EL SACRIFICIO AL DIOS";16,3;"COCODRILO.";18,11 ;2;"HE HABLADO"  200 A$=:A$=""7050  2 L9999':9998': 2,3;"SOY ";1;"THOT ";0;"DIOS DE JUSTICIA";5,3;"HAS AIRADO GRAVEMENTE A";6,3;"LOS DIOSES NO PERMITIENDO" `7,3;"QUE SE CELEBRE LA OFRENDA";8,3;"EN NUESTRO HONOR.";10 ,3;"TU CASTIGO SERA EJEMPLAR." e 100d j 12 ,3;"MORIRAS FULMINADO POR LA ";13 ,3;"IRA DE LOS DIOSES Y TU ";14,3;"ALMA VAGARA POR EL MUNDO";15,3;"DE LOS ESPECTROS Y LAS";16,3;"SOMBRAS, ATORMENTADA HASTA";17,3;"EL FIN DE LOS TIEMPOS." o- 19,10 ;2;"MUERE AHORA!" q 600X:400 t9998':2 @9999':9998':3,3;"GRAN AMO SE HA PRODUCIDO ";4,3;"UNA REBELION ENTRE LOS ";5,3;"ESCLAVOS." J 200 O7,3;"EL EJERCITO DEL FARAON HA ";8,3;"SALIDO DE LOS CUARTELES Y";9 ,3;"SE DIRIJE HACIA AQUI." T 200 Y 11 ,3;"LOS SOLDADOS LUCHAN CON ";12 ,3;"LOS ESCLAVOS, ES TERRIBLE.";13 ,3;"LOS ESCLAVOS NO TIENEN ";14,3;"NINGUNA OPORTUNIDAD, ESTAN";15,3;"SIENDO ANIQUILIDADOS." ^ 200 c17,3;"LA LUCHA HA ACABADO, TODOS";18,3;"LOS REBELDES HAN MUERTO EN";19,3;"LA BATALLA." h 200 iA$=:A$=""8041i m 7000X !49999':9998':3,3;"GRAN AMO HE DE COMUNICARTE";4,3;"QUE NUESTRAS FINANZAS NO";5,3;"ESTAN MUY BOYANTES." !; 150 !>7,3;"LOS INSPECTORES DEL FARAON";8,3;"LE HAN INFORMADO DEL ESTADO";9 ,3;"DE NUESTRO TESORO." !@ 150 !C11 ,3;"EN CUALQUIER MOMENTO PUEDE";12 ,3;"LLEGAR UNA COMUNICACION DE";13 ,3;"PALACIO, REQUIRIENDOTE" !E 150 !H15,3;1;"EL CORREO DE PALACIO TRAE";16,3;"UNA CITACION";18,5;2;"DEBES PRESENTARTE AHORA" !J 200 !MA$=:A$=""8525M! !R 7000X #(9999':9998':1200:9999':3,3;1;"ERES FANTASTICO, HAS LOGRADO";4,3;"LO QUE MUY POCOS HAN HECHO";5,3;"CONSTRUIR UNA ";2;"PIRAMIDE" #-7,10 ;"ERES EL MEJOR!";9 ,3;"YO SOY:";11 ,5;"JOAQUIN MATEOS LAGO";12 ,5;"C/ BLASCO DE GARAY,63";13 ,5;"28015 MADRID";19,13 ;2;"ADIOS!":200 #2A$=:A$=""90102# #7 2 &23659k\,2: &dY=Y+(30*(E/5000)+30*(C/6)+30-(535-L)+(*10 ))*0.02{# = &&Y>100dY=100d:9000(# &'T=T-O*6:T<50285004! & & 9955& &N=017 & U,B:U,B &N: &K.2~L,16,.5,15,.2~L,12 ,.5,11 ,.2~L,11 ,.2~L,12 ,.4L,16,.07}\(,12 ,.07}\(,15,.07}\(,12 ,.5,11 ,.2~L,11 ,.2~L,12 ,.4L,16,.07}\(,12 ,.07}\(,15,.07}\(,12 ,.5,11 & 9965& &N=020 & U,B:U,B:N & &h.5,2,.5,2,.5,2,.2~L,3,.3,8,.5,2,.5,2,.5,2,.2~L,0,.3,-3,.5,2,.5,2,.5,2,.2~L,3,.3,8,.5,2,.5,2,.5,2,.2~L,0,.3,-3,.5,2 & 9975& &N=029 &@N=4N=10 N=14N=20N=245 &U,B:U-.05|L,B:N & &.2~L,5,.5,4,.2~L,1,.5,0,.2~L,5,.2~L,4,.2~L,1,.2~L,1,.2~L,1,.5,0,.2~L,5,.5,4,.2~L,1,.5,0,.2~L,5,.2~L,4,.2~L,1,.2~L,1,.2~L,1,.5,0,.2~L,3,.4L,3,.2~L,-2,.5,3,.2~L,5,.2~L,7,.2~L,7,.2~L,5,.2~L,4,.5,5 & 9985':N=033! &6 N=4N=7N=11 N=1610 & U,B:U,B:N & 'N.2~L,-1,.1}L,0,.2~L,2,.5,7,.2~L,-3,.1}L,-1,.5,0,.2~L,0,.1}L,2,.2~L,4,.5,12 ,.2~L,4,.1}L,6,.4L,7,.4L,9 ,.3,11 ,.2~L,-1,.1}L,0,.2~L,2,.5,7,.2~L,9 ,.1}L,11 ,.73333,12 ,.2~L,2,.1}L,2,.4L,11 ,.2~L,9 ,.1}L,2,.4L,11 ,.2~L,9 ,.1}L,2,.4L,11 ,.3,9 ,.5,7 ' 9997 ':N=036$ ' 4N=2N=4N=13 N=155 ' 6N=17N=26N=28N=305 ' U,B:U-.1}L,B:N: ' {.5,7,.5,9 ,.5,7,.5,4,.5,7,.2~L,9 ,.2~L,7,.2~L,5,.2~L,4,.5,2,.2~L,4,.5,5,.73333,7,.5,9 ,.5,11 ,.5,9 ,.5,5,.5,9 ,.2~L,11 ,.2~L,9 ,.2~L,7,.2~L,5,.5,4,.5,2,.5,7,.5,9 ,.5,12 ,.5,14,.5,12 ,.73333,5,.2~L,0,.2~L,2,.2~L,4,.2~L,5,.5,2,.5,4,.5,0 '23659k\,2:645611,3-(*2+1):645677,7-(*3+1):645633,2:645655,16:S=64541:23659k\,0: 'DH=120:H,2;" ":H: 1 KATMOSIS @@X  O!!!H\66J>yr5 < 5 >y68$$$~$$~$>(> >bd&F(*D:  >>> $BBB$|D ~|DD~$D~|D@~~|D@~BB~~ @>""~BB~~BB~B~ >>