P@?$\D:\a`@ @ $ Á灁$ ۿ$ 翃$ 繹$ 灹@ 睁󝁁睟󝟿睁󝁱˟󝟹灁Á2c< ~bb~`~~~`~~~`|~ ~~bb|~ ~T~~~~~B~~VbbF`bF`bFbbVF`bF bVbbbF bTbbFbF@FVb~~`b~`bFb|V~`|~ bVb~|~ bTb~@bF~@VbF`bF`bFbFVF`bF bVbbF bTb`FbFFV~F~~F~~F~FVF~|F<~V~|F<~T~`~~F ~ ~}`@V  V# # @D#$Gk\\\nnsmkstt\b/_QMX![PP!W K SR P""64000  """a" (9236077\,249:"PARA EL CASSETTE":9000(# '1,1;" "  RE=0:R$="INDIRA GANDHI"  9150# ---REFUERZOS--- p1,8;1;"ESPERA UN MOMENTO ...":502:1;1,8;"REORGANIZANDO PAISES!" 7I=114:R(I)=C(I)+(*5)+1:I I=114 Y=114 IP(Y)2050 I=Y2050 R(I)=R(I)+R(Y) Y  I I=114 P(I)=12150f  IP(I)2150f *=CONT=0:Y=114:P(Y)=ICONT=CONT+1 /Y 4=X1=(R(I)/CONT):X2=(R(I)/CONT):X3=((R(I)*2)/CONT) >Y=114 CP(Y)=12140\ HYI2140\ RxA(I)=A(I)+X1+(*3)-(*3):T(I)=T(I)+X2+(*3)-(*3):I(I)=I(I)+X3+(*3)-(*3) \Y fI zHREF=0:I=114:P(I)=1REF=REF+R(I)*1000 |I %A$="---DIA: "+XX+"---":9300T$ ESP=13000 " QUE PAIS VA REFUERZA? ";K$ K$<32180 JI=114:F$=N$(I):K$(3)=F$(3)K=I:2190 I P(K)12180  5500| 9 ,0;4;REF "CUANTOS AVIONES?";K2 (REF-(K2*500)<02240 χA(K)=A(K)+K2:REF=REF-(K2*500):2,3;4;A(K);9 ,0;REF;:I=16-REF:4;" ";:I "TANQUES ?";K2 (REF-(K2*300,)<02260 T(K)=T(K)+K2:REF=REF-(K2*300,):4,3;4;T(K);9 ,0;REF;:I=16-REF:4;" ";:I "INFANTERIA? ";K2 (REF-(K2*100d)<02280 I(K)=I(K)+K2:REF=REF-(K2*100d):6,2;4;I(K);9 ,0;REF;:I=16-REF:4;" ";:I REF100d2180 }DN=0:I=114:DN=DN+(500*A(I)+300,*T(I)+100d*I(I)P(I)=1)+(0P(I)1):I ESP=03500 ---GUERRAS--- U=14 'INV=(*14)+1:DEF=O(INV) C(P(INV)=1ESP=0)(DEF=1XX=1)3011 P(INV)=P(P(INV))3017 `O(INV)=P(INV):DEF=O(INV):9120#+INV:X:Y=1X:Z:O(INV)=ZDEF=O(INV):3027 Y xCONT=0:I=114:CONT=CONT+(1P(I)=1)+(0P(I)1):I:CONT<33027 O9120#+INV:X:Y=1̺(*X)+1:X:P(X)=1O(INV)=X:DEF=X Y P(INV)P(DEF)3030 D9120#+INV:X:Y=1̺(*X)+1:X:Y:O(INV)=X:DEF=X P(INV)=P(DEF)3170b KH=0 :A(INV)>(A(DEF)+(*5)-(*5))KH=KH+1 :T(INV)>(T(DEF)+(*5)-(*5))KH=KH+1 :I(INV)>(I(DEF)+(*5)-(*5))KH=KH+1 KH=13170b &---CONSIDERA OPORTUNA LA GUERRA---  JH=0 A(INV)>A(DEF)JH=JH+1 &T(INV)>T(DEF)JH=JH+1 0I(INV)>I(DEF)JH=JH+1 5 6000p :>A(INV)>A(DEF)A(DEF)=(*A(DEF)):A(INV)=A(INV)-(*A(DEF)) ?>A(DEF)>A(INV)A(INV)=(*A(INV)):A(DEF)=A(DEF)-(*A(INV)) D>T(INV)>T(DEF)T(DEF)=(*T(DEF)):T(INV)=T(INV)-(*T(DEF)) I>T(DEF)>T(INV)T(INV)=(*T(INV)):T(DEF)=T(DEF)-(*T(INV)) N>I(INV)>I(DEF)I(DEF)=(*I(DEF)):I(INV)=I(INV)-(*I(DEF)) S>I(DEF)>I(INV)I(INV)=(*I(INV)):I(DEF)=I(DEF)-(*I(INV)) UP(INV)=136320 XJH2P(DEF)=P(INV):V(DEF)=V(INV):A(DEF)=A(DEF)+(*30):T(DEF)=T(DEF)+(*30):I(DEF)=I(DEF)+(*60<):9120#+INV:X:Y=1̺(*X)+1:X:Y:O(INV)=X bU CCONT=0:I=114:P(I)=1CONT=CONT+1 jI:CONT=0ESP=0ESP=1:A$="ESPAA HA SIDO DERROTADA EN TODOS LOS FRENTES":9300T$ zESP=15000:"DESEA SEGUIR VIENDO LA GUERRA?";X$:(3310 X$(1)="S")+(4240X$(1)="N") 5000 qI=114:DN=DN-(500*A(I)+300,*T(I)+100d*I(I)P(I)=1)-(0P(I)1):I JDN<0A$="DIA:"+XX+" DAOS POR VALOR DE "+(DN)+"$":9300T$ XX=XX+1:2000 ---ATACA ESPAA--- 5000 "VA A ATACAR? (S/N) ";D$ D$(1)"S"36408 1"NECESITA ESPIONAJE ? ";O$:O$"S"3620$ L=13 " QUE PAIS ? ";D$ D$<33530 JI=114:K$=N$(I):D$(3)=K$(3)K=I:3550 I 5500|  }X$=N$(P(K)):5600+P(K):I=14:A:9 ,I;A;(0P(K)7)+(7P(K)=7);X$(II):I L $A"PAIS QUE VA A ATACAR? ";D$:D$="NO ATAQUE"D$="N"36408 %D$<33620$ &LI=114:K$=N$(I):D$(3)=K$(3)DEF=I:3624( 'I (P(DEF)=13620$ )1"DESDE QUE PAIS? ";I$:I$<33625) *LI=114:K$=N$(I):I$(3)=K$(3)INV=I:3629- +I -P(INV)13625) .$9500%:AT=03620$ / 3080 6JH2P(DEF)=P(INV):V(DEF)=V(INV):A(DEF)=A(DEF)+(*30):T(DEF)=T(DEF)+(*30):I(DEF)=I(DEF)+(*60<) 7 5000 8 ---FIN DE LA GUERRA--- 3:3:7: 'A$=" ||| FIN DE LA GUERRA !!! " 0,0;"":.005y# =,-10 :0,0;"":.005y# =,-10 :0,0;"":.005y# =,-10 MI=028:0,I;A$(I+1);"":.005y# =,-10 :I t0,29;" ":.005y# =,-10 :0,30;" ":.005y# =,-10 :0,31;" " -G(14):V=0:V$="":CONT=0  I=114 Y=114 P(Y)=IG(I)=G(I)+C(Y) Y G(I)=04070 G(I)>VV=G(I):N=I:V$=N$(I) ܝ5600+I:X=13:Y=14:DATA:DATA;"";:Y:X$=(" "+N$(I)X=1)+(" "+"PUNTOS:"+G(I)X=2)+(""X=3):X$:X :CONT=CONT+1 _CONT=5#1;1;"PULSE UNA TECLA":0:CONT=0::2,0; I .#1;1;"PULSE UNA TECLA":0 9:'"HA GANADO..."''1;V$'"CON ";G(N);" PUNTOS."'' O5600+N:X=13:Y=14:DATA:DATA;"";:Y::X ;CONT=11 :10 ,0;"PAISES DE SU POSESION:" I=114 I=NP(I)N41506 CONT,1;N$(I) "0T(N)=T(N)+T(I):A(N)=A(N)+A(I):I(N)=I(N)+I(I) ,m3,25;" ";A(N);5,26;" ";T(N);7,27;"";I(N);8,27;"" 1CONT=CONT+1 6I ;.#1;1;"PULSE UNA TECLA":0 @?:1,0;"RECORD HASTA AHORA:";1;1;RE J%''"RECORDMAN:";1;1;R$ OG(1)RE4210r T,'''"HA CONSEGUIDO UN NUEVO RECORD!!":RE=V Y)"SU NOMBRE, POR FAVOR (12 carac.) ";R$ ^R$>12 4185Y h 4160@ 0:9150# ---GRAPHICS--- X3,7;V(4);" ";V(7);"";V(9 );" " HI=02:I,6;1;" ":I X4,7;V(4);" ";V(7);" ";V(9 );" " h5,6;V(4);" ";V(7);" ";V(8);"";V(9 );" " e6,9 ;V(4);" ";V(7);"";V(8);"";V(9 );" " f7,8;V(4);" ";V(7);"";V(8);"";V(9 );"" t8,9 ;V(5);"";V(7);"";V(7);"";V(8);"";V(9 );" " `9 ,8;V(5);V(7);" ";V(8);V(9 );" " s10 ,9 ;V(5);"";V(7);"";V(11 );V(8);" ";V(9 );"" ؄11 ,9 ;V(5);"";V(10 );"";V(10 );V(11 );" ";V(8);"";V(9 );" " 12 ,9 ;V(5);"";V(6);" ";V(6);V(10 );" ";V(10 );V(14);"";V(11 );" ";V(12 );"";V(9 );" ";5;"" 13 ,3;V(1);"";V(5);" ";V(6);"";V(14);" ";V(14);V(11 );"";V(12 );"";V(9 );"";5;" " 14,3;V(2);V(1);"";V(5);" ";V(5);V(6);"";5;"";V(14);"";V(12 );" " 15,3;V(1);V(2);" ";5;" ";V(5);"";V(6);5;"";V(14);" ";V(12 );" "  16,2;5;V(2);"";V(1);" ";5;V(6);" ";V(14);"";V(12 );" ";V(13 );"" 17,2;V(2);5;"";V(2);V(1);"";5;" ";V(6);" ";V(14);"";V(12 );"";V(13 );" " 18,3;V(2);V(1);" ";5;" ";V(6);" ";V(14);" ";V(13 );"" (19,5;5;V(1);"";19,16;V(6);"";19,21;V(14);"";V(13 );" " 220,4;5;V(3);"";20,16;V(6);"";20,22;V(14);"";20,26;V(13 );"" 5) k4,0;4;" ";T(K)+((*5)P(K)1)-((*5)P(K)1T(K)>5) ~6,1;4;"";I(K)+((*5)P(K)1)-((*5)P(K)1I(K)>5);7,1;""  ---BANDERAS--- a2,2,2,2,6,6,6,6,2,2,2,2 a4,4,2,2,4,4,2,2,4,4,2,2 a2,2,2,2,2,4,4,2,2,2,2,2 a1,2,1,1,2,2,2,2,1,2,1,1 a1,7,7,2,1,7,7,2,1,7,7,2 a4,7,7,2,4,7,7,2,4,7,7,2 a0,0,0,0,2,2,2,2,6,6,6,6 a7,7,7,7,7,7,7,7,2,2,2,2 a2,2,2,2,2,2,2,2,2,2,2,2 a2,2,2,2,7,7,7,7,2,2,2,2 a1,7,7,7,1,7,7,7,1,2,2,2 a1,6,6,2,1,6,6,2,1,6,6,2 a2,2,2,2,2,2,2,2,2,2,2,2 a1,1,1,1,7,7,7,7,2,2,2,2 p$---INFORMACION DE LOS FRENTES--- z RD=(*3)+1:A$="" JH36400 6000p+RD*100d \A$="EL EJERCITO ":I=110 :M$(P(INV))(II)32 A$=A$+M$(P(INV))(II):I -A$=A$+" HA ARRASADO "+N$(DEF):9300T$: 8CI=114:N$(INV)(II)32 A$=A$+N$(INV)(II):I BnA$=A$+" HA DESTROZADO AL EJERCITO ":I=110 :M$(P(DEF))(II)32 A$=A$+M$(P(DEF))(II):I L"DEFP(DEF)A$=A$+" EN "+N$(DEF) V9300T$: CI=114:N$(DEF)(II)32 A$=A$+N$(DEF)(II):I BA$=A$+" HA SIDO DERROTADA TOTALMENTE POR "+N$(INV):9300T$: JH26700,  -6400+((*2)+1)*100d d\A$="EL EJERCITO ":I=110 :M$(P(INV))(II)32 A$=A$+M$(P(INV))(II):I fINV=P(INV)6510n iQA$=A$+" EN ":I=114:N$(INV)(II)32 A$=A$+N$(INV)(II):I n-A$=A$+" HA INVADIDO "+N$(DEF):9300T$: CI=114:N$(INV)(II)32 A$=A$+N$(INV)(II):I -A$=A$+" HA INVADIDO "+N$(DEF):9300T$: ,CI=114:N$(DEF)(II)32 A$=A$+N$(DEF)(II):I 6QRD=(*2)+1:67106+(10 RD=1)+(20RD=2) @;A$=A$+" HA RECHAZADO EL ATAQUE DE "+N$(INV):9300T$: JHA$=A$+" HA RECHAZADO EL ATAQUE DEL EJERCITO "+M$(P(INV)):9300T$: #' #(N$(14,14):M$(14,10 ):V(14):A(14):T(14):I(14):P(14):O(14):C(14):R(14) #219100#:I=114:X$:N$(I)=X$:I #<19110#:I=114:X$:M$(I)=X$:I #PPI=114:9120#+I:X:Y=1̺(*X)+1:X:Y:O(I)=X:I #UI=114:P(I)=I:I #Z'DAY=(*7)+5:ESP=0 #d.9140#:I=114:X:V(I)=X:I #s XX=1 #x23658j\,8 #"ESPAA","PORTUGAL","MARRUECOS","INGLATERRA","FRANCIA","ITALIA","ALEMANIA","POLONIA","URSS ","AUSTRIA","CHECOSLOVAQUIA","RUMANIA","TURQUIA","YUGOSLAVIA" #"ESPAOL","PORTUGUES","MARROQUI","INGLES","FRANCES","ITALIANO","ALEMAN","POLACO","SOVIETICO","AUSTRIACO","CHECO","RUMANO","TURCO","YUGOSLAVO" #!3,2,3,5 #2,1,3 #!3,1,2,6 #)4,1,2,5,7 #25,1,10 ,7,4,6 #35,14,1,10 ,5,3 #35,10 ,5,4,11 ,8 #+4,9 ,12 ,11 ,7 ##3,8,12 ,13 #35,7,5,6,14,11 #45,8,12 ,7,14,10 #45,13 ,9 ,8,14,11 ##3,9 ,12 ,14 #<5,13 ,11 ,10 ,12 ,6  #q2,0,6,7,1,4,3,4,2,0,6,1,3,7 # #2:2:7: #ܘ3,0;2;6;1;" W A R G A M E$ P.I. SANCHEZ "''" 1985 MICROHOBBY CASSETTE " #,14,0;" NIVEL DE JUEGO " #l16,0;" 5 MUY ALTO"'" 4 ALTO"'" 3 NORMAL"'" 2 BAJO"'" 1 MUY BAJO" $"OPCION? (1/5) ";OP $ZC(1)=3:I=214:C(I)=(*5)+OP:C(I)>5C(I)=5 $I $ OP3C(1)=4 $55:4:0::5000:2000 $T---INFORMACION--- $YHI=02:I,6;1;" ":I $^!X=1:Y=7:G=2 $rB$(25) $| A$=B$+A$ $N=1̱A$ $A$=A$(2)+32 $'1;1;X,Y;A$(G22) $N $ %---ATAQUE CORRECTO--- %&9120#+INV:DATA %0Y=1DATA %:X:X=DEFAT=1: %DY %NKA$="DESDE "+N$(INV)+" NO PUEDE ATACAR "+N$(DEF):9300T$:AT=0: 'F"WAR"1:"1"64000,472:"graficos""",122z ESPAA PORTUGAL MARRUECOS INGLATERRA FRANCIA ITALIA ALEMANIA POLONIA URSS AUSTRIA CHECOSLOVAQUIARUMANIA TURQUIA YUGOSLAVIA ͑ ESPAOL PORTUGUES MARROQUI INGLES FRANCES ITALIANO ALEMAN POLACO SOVIETICO AUSTRIACO CHECO RUMANO TURCO YUGOSLAVO I  IGIGIGI I   IGIGd#X YUGOSLAVOxP#a sR INDIRA GANDHI"" ;$$$~$$~$>(> >bd&F(*D:  >>> ~BFF~~~@~|~~`f~~@~~|@~F~~ <$~f~~B~ >>` ??~@|@@@|))(((>>BB<DHpHDB@~BfZBBB<~FFFF