ZXTape! 2w#The fall of Rome (La caida de Roma)!ASP Software Ltd / Power Software1984SpanishStrategyNone Original TapeROMA &G Adaptado por  COMPANYIA GENERAL DE SOFTWARE  }56500:2:2::2:"":#0;0,7;4;6;1;" C A R G A N D O ":"" 0#0;0,0;6;0;"" 20,0;:"" WpantROMA @ ||R(L,L3)=R(L,L3)-1:RA=RA-2:RA>145- 7 ;ENEMY LOSSES  <&RA<2A(L,L3)<170F A2A(L,L3)=A(L,L3)-1:RA=RA-2:60< F OROMAN PROVINCES  P[L=126:R(L,2)+R(L,3)+R(L,4)+R(L,5)190Z UL:12 :18,0;"";3;7;"PROVINCIAS CONTROLADAS POR ROMA ":200:502:5520:21,0;" Continuando ....": Y!MARK CURRENT PROV.  Z=X(L,2),X(L,1);1;4;3;"": cPROV. STATUS  d12 :17,0;"________________________________";6;" Ao ";YR;" ";3;7;" ";P$(L);" ";7;0;" Bal=";IX;0; f1;7;" LE = ";R(L,3);8;4;0;" LM = ";R(L,2);16;1;7;" CB = ";R(L,4);24;4;0;" AU = ";R(L,5);0'': iNUMBER INPUT  n\.1}L,10 :Z$="":#0;1,0;"? " o""111o pX$=:X$=""112p qX$=13 117u s3Z$=Z$+X$:#0;1,0;Z$:111o uZ$=""Z$=" " xMQ=0:I=1̱Z$:Z$(I)<480ůZ$(I)>579Q=1:I=Z$ yI:Q#0;1,0;2;7;" Solo numeros ":.3,0:100d:#0;1,0;S$:110n z |ENEMY STATUS  }FCN=6:LL=20:B=0:LL,B;2;7;"RIVAL:" 2J=111 :T(L,J)0J:140 oJZ=F$(J):B=1:Q=CN+JZ+T(L,J)+4:Q>32 CN=0:LL=LL+1:LL>22160 NLL<221;LL,CN;" "CN;F$(J,2JZ+1);"=";T(L,J);"" \LL=22#0;1;0,CN;" "CN;F$(J,2JZ+1);"=";T(L,J);"" CN=Q:J <Q=CN:J=242:A(L,J)0150 JZ=F$(12 +(J/4)):B=1:Q=CN+JZ+A(L,J)+4:Q>32 CN=0:LL=LL+1:LL>22160 bLL<221;LL,CN;" "CN;F$(12 +(J/4),2JZ+1);"=";A(L,J);"" pLL=22#0;1;0,CN;" "CN;F$(12 +(J/4),2JZ+1);"=";A(L,J);"" 4CN=Q:J:B" ";7;" No hay NINGUNO "  K#0;1,0;2;7;" Pulsa ENTER para el resto " =""165 920,0;S$;S$;:"":LL=20:CN=6: POINTER  1:8:8:1:I=31-1:X(L,3),X(L,4):(X(NN,3)-X(L,3))/I,(X(NN,4)-X(L,4))/I 210:I=130 ZX(L,3),X(L,4):(X(NN,3)-X(L,3))/I,(X(NN,4)-X(L,4))/I )I:0:0:5:0: BEEPS  @9850z&:J=115:CN:.15~,CN+12 :J: JJ=14:.02{# =,0+3*J:.02{# =,6*J:J: Q.03{u\,0:.03{u\,12 :.03{u\,24:.03{u\,36$: .9860&:A=19 :C,D:C,D:A: LETTER INPUT  q.1}L,10 :23658j\,8:A$="":#0;1,0;"? " ""262 X$=:X$=""264  X$=13 275  3A$=A$+X$:#0;1,0;A$:262 A$=""A$=" " J=1̱A$:A$(J)<"A"A$(J)"Z"J=A$:J:.3,0:#0;1,0;2;7;1;" Solo letras ":100d:260 ,J: MAIN LOOP  LYR=YR+5:L=126:J=13:S(L,J)=0:J:L L=126:R(L,4)=0:R(L,5)=0:R(L,2)+R(L,3)<1R(L,1)=0:900 E10 :90Z:TT=0:J=111 :TT=TT+T(L,J):J IX=((I(L)-TT/5)*(R(L,2)+R(L,3))/(R(L,2)+R(L,3)+A(L,2)+A(L,4)))+R(L,1):IX<0IX=0 &220:B=0:R(L,2)100d:1;21,0;" Cuantas Leg. Moviles (LM) vas a";#0;0,0;1;" convertir en Estaticas (LE) ? " +R(L,2)110n:B=Z$:B*2>IX#0;1,0;2;7;" No tienes suficiente dinero ":.3,0:100d:555+ 0B>R(L,2)#0;1,0;2;7;" No hay suficientes L. Moviles ":.3,0:100d:555+ :13 :R(L,2)=R(L,2)-B:IX=IX-B:R(L,3)=R(L,3)+B:IX=IX-R(L,3):IX<0R(L,3)=R(L,2)+IX:IX=0 N&B=R(L,2):R(L,2)=0 X&IX<3B=R(L,2)620l b=R(L,2)=R(L,2)+1:IX=IX-3:600X lIX<5670 ~100d:1;" Vas a reclutar una nueva Legion";#0;0,0;1;" Movil (LM) ? " u260:A$"S"A$"N".3,0:#0;0,18;3;7;" Solo S o N ":645 D13 :A$="S"IX=IX-5:R(L,2)=R(L,2)+1 ,IX<4R(L,2)<3720 ~100d:1;" Cuanta caballeria (CB) deseas ";#0;0,0;1;" reclutar ? " 110n:B=Z$:B*4>IX#0;1,0;2;7;" No tienes suficiente dinero ":.3,0:100d:695 B>R(L,2)/3#0;1,0;2;7;" Solo 1 CB por 3 Leg. Moviles ":.3,0:100d:695 +13 :IX=IX-B*4:R(L,4)=B ,IX<3R(L,2)<2770 ~100d:1;" Cuantos Auxiliares (AU) quieres";#0;0,0;1;" reclutar ? " 110n:B=Z$:B*3>IX#0;1,0;2;7;" No tienes suficiente dinero ":.3,0:100d:745 B>R(L,2)/2#0;1,0;2;7;" Solo 1 AU por 2 Leg. Moviles ":.3,0:100d:745 +13 :IX=IX-B*3:R(L,5)=B IX<18204  <100d:1;"Cuanto dinero quieres trasladar?":"" 110n:B=Z$:B>IX#0;1,0;2;7;" No tienes tanto dinero ":.3,0:100d:785  13 :B<18204  15:R(NN,2)+R(NN,3)<1#0;1,0;2;7;" Esa provincia no es Romana ":.3,0:80P:800  ' 175 *3IX=IX-B:S(NN,1)=S(NN,1)+B:770 4R(L,1)=IX PJ=12:NN=J+1*(J=2):A(L,J*2)<1970 fIX=((I(L)-TT/5)*A(L,J*2)/(R(L,2)+R(L,3)+A(L,2)+A(L,4)))+A(L,NN) *B=A(L,J*2):A(L,J*2)=0 (IX<2B=A(L,J*2)950 AA(L,J*2)=A(L,J*2)+1:IX=IX-2:930 MIX3A(L,J*2)=A(L,J*2)+1:IX=IX-3:950 A(L,NN)=IX:J VJ=111 :T(L,J)0T(L,J)=(T(L,J)*(*20+95_)/100d) J:L UL=126:R(L,1)=R(L,1)+S(L,1):S(L,1)=0:L LYL=126:10 :R(L,2)+R(L,4)+R(L,5)>0220 V<R(L,2)+R(L,4)+R(L,5)<11190 `;90Z:IX=R(L,1):100d:B=0:C=B:D=B oR(L,2)>021,0;1;" Cuantas Legiones Moviles (LM) ";#0;0,0;1;" quieres trasladar ? ":110n:B=Z$:B+R(L,4)+R(L,5)<11190 tB>R(L,2)#0;1,0;2;7;"Son demasiadas Legiones Moviles ":.3,0:100d:1135o yR(L,4)>021,0;1;"Cuanta Caballeria quieres mover?":"":110n:C=Z$:B+C+R(L,5)<11190 ~C>R(L,4)#0;1,0;2;7;" Es demasiada Caballeria ":.3,0:100d:1145y R(L,5)>021,0;1;"Cuantos Auxiliares (AU) quieres ";#0;0,0;1;"trasladar ? ":110n:D=Z$:B+C+D<11190 D>R(L,5)#0;1,0;2;7;" Son demasiados Auxiliares ":.3,0:100d:1155 15:175 R(L,2)=R(L,2)-B:R(L,4)=R(L,4)-C:R(L,5)=R(L,5)-D:S(NN,1)=S(NN,1)+B:S(NN,2)=S(NN,2)+C:S(NN,3)=S(NN,3)+D:1110V ]13 :J=111 :T(L,J)<26R(L,2)+R(L,3)>01210 :C=(*7)+1:D=(*7)+1:C0):Q .C=(*Z)+1:D=(*Z)+1:C0NN=J:J=11 ,KJ:NNQ$=F$(12 ,24)A(L,2)>0NN=12 6HNNQ$=F$(13 ,24)A(L,4)>0NN=13 @rNN#0;1,0;2;7;" Enemigo incorrecto ":.3,0:100d:1560 JwRA=(*RA)+1:NN>11 B=(NN-11 )*2:A(L,B)=A(L,B)-(RA/2):A(L,B)<0A(L,B)=0 TCNN<12 T(L,NN)=T(L,NN)-RA:T(L,NN)<0T(L,NN)=0 h7J=242:A(L,J)<11680 r_RA=(*A(L,J))+1:R(L,2)+R(L,3)+R(L,4)+R(L,5)>040( .L3=6-J:60<:RA>0TL=TL+RA LJ:TT=0:J=111 :TT=TT+T(L,J):J:TT<11745 4RA=(*TT/2)+1:RA<11730 GR(L,2)+R(L,3)+R(L,4)+R(L,5)>040( OJ=242:L3=J:60<:J:TL=TL+(RA/(*8+8)) ;RA=(TT-TL)/TT:J=111 :T(L,J)=(RA*T(L,J)):J RX=01800 !B>0100d:125}  5530 <RX=0:L:10 :80P:YR<450500 GAME OVER  nRA=0:4:3::X$="EL JUEGO HA ACABADO ":CN=6:LL=1:6:0:5 ڳ0,5;"";1,5;"";1,26;"";2,5;"";2,26;"";3,5;"" ߾230:1:7:4,1;"";5,1;" These Provinces are Roman ";6,1;" " ZI=0:Z=-1:L=126:R(L,2)+R(L,3)<12045 RTT=0:J=111 :TT=TT+T(L,J):J:TT=TT+A(L,2)+A(L,4) uTTI=1:Z=Z+1:7+(Z/3),1+10 *(Z-3*(Z/3));" ";P$(L);:RA=RA+I(L) 9L:IZ=Z+1:7,1;" NING"; J31;8+(Z/3),1;" "  5:0:4;S$;" Provincias en disputa    "; nI=0:Z=(Z/3)*3-1:L=126:R(L,2)+R(L,3)<12095/  RTT=0:J=111 :TT=TT+T(L,J):J:TT=TT+A(L,2)+A(L,4) *}TTI=1:Z=Z+1:13 +(Z/3),1+10 *(Z-3*(Z/3));" ";P$(L);:RA=RA+I(L)/2 /HL:IZ=Z+1:13 +(Z/3),1;" NONE"; 4K31;14+(Z/3),1;" " 9:6;0;" ENTER para el informe final ";X$ >w5:6::A$=RA:X$="HAS CONSEGUIDO "+A$+" P.VICTORIA":CN=1:LL=1:2:7:5 Dr236066\,150:236077\,249:2,12 ;A$:236066\,181:236077\,219 H4,1;"  El Imperio tenia un valor  inicial de 240 P. Victoria " M10 ,0;"                " R"       " W4:0:RA<100dX$="DERROTA ESTRATEGICA":16,6;"El Imperio va";17,14;"a ser destruido." \RA>99cRA<120xX$="DERROTA PARCIAL":16,6;"El Imperio sigue";17,5;"bajo un fuerte ataque." feRA>119wRA<140X$="RESULTADO HISTORICO":17,4;"El Imperio ha sobrevivido." pRA>139RA<160X$="EXITO PARCIAL":16,5;"El Imperio esta listo";17,12 ;"para reexpanderse." zwRA>159X$="VICTORIA ESTRATEGICA":16,6;"Las incursiones han";17,8;"sido derrotadas." CCN=(32 -X$)/2:LL=12 :1:7:5 T220:21,0;2;7;" Quieres jugar de nuevo ? "; A$=:A$=""2505 0:A$="S"90102# \A$="N"#0;3;0;" ...... HASTA LA PROXIMA ...... ":300,:0 .3,0:2505  MAP  &5:5:64220:"": |CONT   220 64;7;" Pulsa ENTER para continuar ";A$  pINSTRUCTIONS  u7:''" En este juego controlas los re-cursos del Imperio Romano en su lucha por sobrevivir frente a las tribus barbaras del Norte."''" Tambien deberas enfrentarte a los Imperios del Este que inten-taran aprovecharse del momento." z'" El futuro de la civilizacion Romana esta en tus manos."''" El mapa y los nombres usados en el juego son lo mas pareci- dos posible a los originales.": 5520:7:''" Hay 12 Turnos, cada uno igual a 5 aos y dividido en 3 fases: (1) Ingresos/Gastos, (2) Movi- miento y (3) Combate." '" En cada fase puedes efectuar diversas acciones en todas tus provinvias,de una en una. Estas acciones variaran segun la fase y la situacion de la provincia." s'" Al escribir el nombre de una provincia o enemigo pon solo los 3 primeros caracteres y pulsa ENTER.": 5520:7:''" En la fase de ingresos recibes un ingreso por cada provincia. Este ingreso disminuye por la presencia de tribus enemigas y ejercitos en la provincia." '" En la fase de movimiento puedestrasladar fuerzas entre las pro-vincias."''" En la fase de combate puedes a-tacar a un enemigo en cada pro- vincia.": 5520:7:''" Tienes varios tipos de fuerzas disponibles:"''" Las Legiones Moviles (LM) son tu fuerza principal. Solo pue- des incrementar 1 por provincia y por turno. Cuesta 5 por turno incrementarlas y 3 por turno mantenerlas." s'" Las Legiones Estaticas (LE) se crean convirtiendo Legiones Mo- viles.Cuesta 2 convertirlas y 1 mantenerlas.": 5520:7:''" Los Auxiliares (AU) cuestan 3 incrementarlos. Puede incremen- tarse 1 por cada 2 Legiones Mo- viles que haya en la provincia. Desaparecen al final de cada turno." '" La Caballeria (CB) cuesta 4 in-crementarla. Puede incrementarse1 por cada 3 Legiones Moviles presentes en la provincia. De- saparecen al final de cada tur- no pero tienen doble fuerza de ataque." 1;20,0;" Quieres repasar los detalles del mapa (S o N) ? ":260:A$"S"A$"N".3,0:6060  A$="N" 5000:L=126:17,0;"";3;7;" PROVINCIA:";P$(L);7;0;" INGRESO:";I(L);0; "";6;" POSEEDOR PROV. - ";"ROMA "L<14;:L>13 6;F$(L-13 ,2);0; O"":90Z:5520:10 :L: #'PROGRAM STARTS HERE  #(20,0;:"":236066\,181:236077\,219:"":#0;1,0;6;0;1;" P A R A L A C I N T A " #-bF=15:.1}L,30:.1}L,35#:.1}L,40(:.1}L,45-:F #2:Q$(3):S$(32 ):S(26,3):R(26,5):T(26,11 ):I(26):N(26,7):A(26,4):X(26,4):F$(13 ,11 ):P$(26,9 ):6005u #7TL=126:P$(L):L:L=113 :A$:F$(L)=±A$+A$:L:6015 #>> $FZb$(>8D D|>"*~ >" <" xDD8~D88$$BB<8DD<  >>*H0DHpHDp "~lTDDDDdTLD$BBB$|""< p$BBJ$x$$8$$v>B@<B|8DDDDD8ƂDD((DDDTlD((DD(8 B@ pp8T p .\xp ,2"2lDD<xp ,2""w<H0p .$8$n<j>**jl4$$f8DDD8l2"2,`6LDL4l2 p<@8x<f$$,DD((VTT|VD((Df$$<x|H$|0p p(?x?`??????|?? ????????? ????o?????????? ???????????? ?8a????>?????ǀ>p?????? ??\?????8??? \???<?  `?O;?@????ǟ?  ?I? H??0 `??>????????LLLLLLLLLLLLLLLTTTTTTTTTTTTTTTTTLLLLLLLLLLLLLLLLTTTTTLLlTTTTTTTTLLLTLLLLLLTTTTTTTTTTTLLLLTTTTTTTLLLLLLLLlTTTTTTTTTlLLLLLLLTTTTTTLLLLLLLTTTTTTTTTTTTLLLLLLLTTTTTTLLLLLLLTTTTTTTTTTTTLLLLLLTTTTTTTLLLLLLLLTTTTTTTTTTTLLLLLTTTTTTTTLLLLLLLLTTTLLlTTTTlLLTTTTTTTTTTTLLLLLLLLTTTLLLLTTTLLLlTTLLlTTTTTLLLLLLLLLLLLLLLLLLLLLLLLLLlTTTTTLLLLLTTTLLLLLLLLLLLLLLLLLLlTTTTTLLlllTLLLLLLLLLLLLLLLLLLLLTTTTTTLLllllLLLLLLLLLLLLLLLLLLLLTT\\\\LLlllLLLLLLLLLLLLLLLLLLLLLLLLLllLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLlLLLLLLLLTTTlLLLLLLLLLLLLLLLLLLLLLLLLLLlTTTTTlLLTLLLLLLLLLLLLLLLL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,&."!@w#:G=(2:G=( 2>2Zbb$$>> DD||""~ <""xDDDD88888$BBBB<<< < $$FFZ((88DD>>**~>>"" < x~~DD8$$$88DDDD<((((Dxx$$$$<&&@@@xx$$"""~~""((8~~""((8&&@@NDDDD|||>>**DDHHppp llTTDDDddT$$BBB||""""<$$BBBxx$$$$8>>BB@@<DDDDDƂDDDDDDDDDD((DD((D||<""""||@@@&&"""$$xx8((""~~8(( ppNBB&&|DDDD||HH00pHHDD ""~~DDDDDTLLDDBBB$$< ppBJJ$$8$$$$vv<BB||88DDDDD88D((((DTTll((DD88 BBqIEEIqDD99TW4DDDD88NPNANNQ99Q^Q^AAAAA}! :H\???FB˧F#C P P P 3\MR8R \Wq !v><<<<~~??@BBJ2 q zz ld$$fBBBBB