ZXTape! Cinta MH  4:4: "" /18,0;:7:7:1 (Z19,1;1;1;6;" Pare el cassette un instante ":250 2a$=".................. Bienvenido a la cinta especialmente realizada para contener los programas publicados en el numero especial 25 Aniversario del ZX Spectrum........................." |Ϙ??????????? `????????a?????????? a$ >|Ϙ??????? c LB@&&L0`̜????????????c L&&L0`̚????????̘3!L0`̚??????????? 3!FL0`̙8^8`3 x0 0oـ07c0 q<8@ X`0 0a?3ys0`H1ˌ 0@/ Ç prB&b/1xW$0a` @c890dĀ@#_  c<4 @ y0C2<nj`@   kA`| 0@0t008׬@ ~` 0 0< σ3 ?c0@ <?$@f|` 00 `?xp <4@  c0 h @Gh(05Dhhhhhhhhhhhhhhhhjjjjjjjjjjjjjjjj00000000000000002222222222222222pppppppppppppppprrrrrrrrrrrrrrjrxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzjzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzz $ ATTACK 6((# 8(=run=0:rec=5000:0:236077\,250 a$(3,500) \a$(1)=" " \a$(2)=" " Ha$(3)=" " run=140( zx=1:5000 j=0:20:25 %j,5;" " -j+1,5;" " -j+2,5;" "  30: " MISION -ATTACK- COD.48"," ","NAVE PREPARADA. OBJETIVO","-DESTRUIR LAS CIUDADES.-"," ","CONTROL: Q-ARRIBA"," A-ABAJO"," K-BOMBA"," P-LASER"," ","PULSA 1 TECLA PARA JUGAR" Z=515:Z,4;:Z$:U=1̱Z$:1;5;1;Z$(U);:64007,1:H=64000:U:Z 0 (l=64030 2e1:1::1/10 ,30:"NIVEL (1-5):";niv:niv<1niv>56 < v$="98765":niv=("."+v$(niv)) P$g=1:s=10 :pun=0 U'naves=5:val=0:f=0 Zzx=0:5000 df=15 nval=(6-f)*502 xs,14;"":s1=s -2,14;6;1;val;" " +20,5;6;1;f;" " p=115 sm=(*4)+6 na=1 sm1=sm smv=sm ,r=254-1 1s,14;"" 6 1500 @1100L:Paisaje J$na=11200:Nave mala1 T+r1=49150:r11911300 ^+r2=57342:r21911400x r Xp b g=1 l:64097a,5:64095_,6:z=64090Z f 'z=130:l=64060<:z  2500  Nave Buena s<5s=5 $s1,14;" ";s,14;"" $ L Paisaje V g=g+1 `3;14,4;a$(1,gg+23);13 ,4;a$(2,gg+23):1;12 ,4;a$(3,gg+23) j  Nave mala 1 sm1,r;" " 6smv=smv+((smvs)/2):sm=smv  sm,r;"" sm1=sm -r>7>niv1600@:laser enemigo r=4sm,4;" " sm=sr=152000 sm=sr=142000  Bomba %64007,0:l=64000 sg=s  i=15 i1=15:h1=sg+1 h=sg+112 # i=i+1 ((h,i+1)=0h1,i1;" ":1;12 ,i+1;"X":l=64000:pun=pun+val:2,3;6;1;pun:a$(3,g+(12 +(12 -sg)))=" " *$1500:1000:1100L ++r3=57342:r3<2551400x -r=r-1:r<4sm,4;" ":r=25:p=p+1:p>15f=f+1:20,5;6;1;f;" ":64097a,5:64095_,6:l=64090Z:g=1:f>52500 :Fin Ataques /na=11200 2!h1,i1;" ";h,i;"":i1=i:h1=h <h Fh1,i1;" ": xLaser .1;s,16;2;"" na=1s=smr>15s,16;" ";sm,r;"";1;sm,r;"=X":l=64000:sm,r;" ":na=0:pun=pun+100d:2,3;6;1;pun %64007,1:l=64000 s,16;" "  Lectura teclas nave Lr4=64510:r4191s1=s:s=s-1:1000:Nave buena ^ Lr5=65022:r5191s1=s:s=s+1:1000:Nave buena V $(s,16)=02000  @Laser enemigo BNx$="":y$=" " J51;sm,6;3;x$(6r-1) T:64095_,1:64097a,0:l=64090Z ^+r6=57342:r61911400x |Cr>15sm=ssm,6;y$(6r-1):2000: #sm,6;y$(6r-1)   Explosion %s1,14;" ":s,14;"" Bby=((21-s)*8)+4:bx=(15*8)-1 z=1510 -1 %64007,0:l=64000 1:8:8 bx,by:*z,*-z bx,by:-*z,*-z bx,by:-*z,-*-z bx,by:*z,-*-z 1:5:0 Dz:naves=naves-1:20,25;6;1;naves naves03000  72:1:5020:na=0:s=7: Ĉco=0:7;1;8,9 ;1;"FIN DEL ATAQUE":z=1332L:a$(3,z)144co=co+1 z ؕ7;1;10 ,11 ;"DEJASTES:";12 ,11 ;co;" CASAS.":l=64030:z=160<3:1/10 ,z:z 1pun=pun-(co*502):pun<0pun=0 57;1;1;2,3;pun;" " 100d FIN l=64120x ̴2:1:zx=1:5020:1:5:j=6:20:10 ,11 ;"GAME OVER":PUN>RECREC=PUN:12 ,10 ;1;"NUEVO RECORD" ց15,7;1;ں(*3)+5;"OTRA PARTIDA (S/N)":""Ʀ"n"Ʀ"N"g=1::run=1:10 ="n"Ŧ="N"9770*& 3030 Dibujo &0:1:1:2: ~z=514:5;z,4;" ":z:15,4;3;"" /4,3;"" 016,3;"" 7z=515:z,3;"";z,28;"":z zx=1 5:1 g0,3;2;7;"PUNTOS";0,11 ;"-==-";0,23;"RECORD" a2,3;6;1;" ";2,14;" ";2,23;" " j18,3;2;7;"ATAQUE";18,11 ;" SOFTWARE ";18,23;"NAVES:" a20,3;6;" ";20,11 ;" GDV 1984 ";20,23;" " ځ20,5;6;1;f;20,25;naves;2,3;pun;2,23;rec;2,14;val  #(Carga #21:1:1::63990:10 ,11 ;2;6;1;"CARGANDO":"CHR$""A":"LETRAS"64256:"SONIDOS"63999 #4;13 ,2;"";14,2;" PULSANDO 'S' RESETEARA EL ";15,2;" SISTEMA, PARA IR AL BASIC ";16,2;"" &Hn=25:1;n;14,3;" ";15,3;" ":n &R0:z$= &\^z$="s"z$="S":10 ,12 ;1;2;5;"ADIOS!":200:0 &fYz$="n"z$="N"19,2;1;"SABIA QUE NO ERAS UN COBARDE":250: &p .05|L,10 :9810R& & & Grabacion &"ATTACK"9000(# &"CHR$""a",21*8 &'"LETRAS"64256,95_*8 '!"SONIDOS"63999,150 ue j ZPULSA 1 TECLA PARA JUGARlxiffffV98765g?suavead mm`,tw i X Y CHR$ X_PH? ?<~?~~3UEM??$LETRAS 1$$$~$$~$>(> >bd&F(*D:  >>> ~BFF~~~@~|~~`f~~@~~|@~F~~ <$~f~~B~ >>!͵Z} !͵R !͵Z} !͵R F!͵R < Q-Burt (G#( Q - B U R T   por TIM BRAND   11TH MAY 1984  15 Ffb=1000:level=1:lives=5:sc=0:in=10 810*  40( a="a""l"+7  b:a,b:a # 2000 (H255,127,63?,31,15,7,3,1 2H1,3,7,15,31,63?,127,255 ,127,127 LI127,127,127,63?,31,0,0,0 MK255,255,255,254,248,0,0,0 NJ0,0,240,248,12 ,6,226,242 U 110n Z;b(a,1),b(a,2)+1;ch;b(a,3);"";b(a,4);"";b(a,1)+1,b(a,2);b(a,3);"";ch;"";b(a,4);"";b(a,1)+2,b(a,2);b(a,5);"";ch;"";b(a,6);"";b(a,1)+3,b(a,2)+1;b(a,5);"";b(a,6);"" d n 130:b(28,7) xsa=128:b(a,1),b(a,2),b(a,3),b(a,4),b(a,5),b(a,6),b(a,7):a .0,13 ,0,0,l,r,1 (3,11 ,0,l,l,r,2 (3,15,r,0,l,r,2 '6,9 ,0,l,l,r,3 "6,13 ,r,l,l,r,3 (6,17,r,0,l,r,3 '9 ,7,0,l,l,r,4 "9 ,11 ,r,l,l,r,4 "9 ,15,r,l,l,r,4 (9 ,19,r,0,l,r,4 (12 ,5,0,l,l,r,5 "12 ,9 ,r,l,l,r,5 #12 ,13 ,r,l,l,r,5 #12 ,17,r,l,l,r,5 )12 ,21,r,0,l,r,5 (15,3,0,l,l,r,6 ""15,7,r,l,l,r,6 ,#15,11 ,r,l,l,r,6 6#15,15,r,l,l,r,6 @#15,19,r,l,l,r,6 J)15,23,r,0,l,r,6 K(18,1,0,l,l,r,7 L"18,5,r,l,l,r,7 M"18,9 ,r,l,l,r,7 N#18,13 ,r,l,l,r,7 O#18,17,r,l,l,r,7 P#18,21,r,l,l,r,7 Q)18,25,r,0,l,r,7 S.t=bt:ii=bii:att=batt:ch2=bch2:att2=batt2 Tch=ii:a=128 r 90Z |a Na=1254:21,a;l;"";21,a+3;r;"":a ch=ch2 50,0;" CAMBIA";8,0;" POR" 2,3;ch;"";3,2;"";4,2;l;"";r;"";5,2;l;0;"";l;ch;"";r;"";r;0;"";6,3;l;"";r;"" 6,171:-6,0:0,-63?:13 ,0:42*,108l:20,0:0,63?:-6,0 0,18;2;(" "lives=5)+(" "lives=4)+(" "lives=3)+(" "lives=2)+(" "lives=1) 1,18;2;(" "lives=5)+(" "lives=4)+(" "lives=3)+(" "lives=2)+(" "lives=1) "4,23;"NIVEL ";level 8,22;"S C O R E" Cbo=900:ii=t:s=13 :sq=0:ms=1:424 mb(ms,1)+1,b(ms,2)+1;mi;mi;" ";b(ms,1)+2,b(ms,2)+1;" " .b(ms,7)=7ms=1:424 'ms=ms+((*1.99~Q))+b(ms,7) umi=(iiƫ(b(ms,1)+1,b(ms,2)+1)=att)+(chƫ(b(ms,1)+1,b(ms,2)+1)=att2) rb(ms,1)+1,b(ms,2)+1;4;mi;"";b(ms,1)+2,b(ms,2)+1;"" ms=s900 a$= a$""600X mb(s,1)+1,b(s,2)+1;2;t;"";b(s,1)+2,b(s,2)+1;"" ms=s900 06,21;"BONUS: ";bo:bo=bo-10 bo=-10 900  421 Xa=s v%a$="a"s=s+b(a,7):680 -a$="l"s=s+b(a,7)+1:680 %a$="q"s=s-b(a,7):690 /a$="o"s=s-(b(a,7)-1):690  s>285000 'b(s,7)b(a,7)5000  700 s<1500 'b(s,7)b(a,7)5000 gb(a,1)+1,b(a,2)+1;t;t;" ";b(a,1)+2,b(a,2)+1;" " t=ch .01z# =,502 u(b(s,1)+1,b(s,2)+1)=attsq=sq+1:.01z# =,3:sc=sc+in:10 ,24;sc a=s:ch=t:90Z sq=28800    6sc=sc+bo:10 ,24;sc:level=level+1 !mb(s,1)+1,b(s,2)+1;2;t;"";b(s,1)+2,b(s,2)+1;"" " 3001 #in=in+5 *glevel=1bii=7:bt=bii:l=1:r=2:batt=63?:bch2=6:batt2=546 4flevel=2bii=7:bt=bii:l=5:r=7:batt=63?:bch2=0:batt2=0 9flevel=3bii=1:bt=bii:l=6:r=7:batt=9 :bch2=5:batt2=45- :flevel=4bii=3:bt=bii:l=0:r=6:batt=27:bch2=1:batt2=9 ;glevel=5bii=4:bt=bii:l=1:r=5:batt=36$:bch2=7:batt2=63? flevel=7bii=1:bt=bii:l=2:r=6:batt=9 :bch2=4:batt2=36$ Cglevel=8bii=6:bt=bii:l=1:r=2:batt=546:bch2=4:batt2=36$ Hlevel=9 sc=sc+fb::1;8,8;"PUNTOS BONUS ";fb;10 ,11 ;"POR TERMINAR";14,8;0;"COMIENZA DE NUEVO":fb=fb+1000:level=1:3000 :a=1502:a::810* R 110n  4000 a=15 mb(s,1)+1,b(s,2)+1;2;t;"";b(s,1)+2,b(s,2)+1;"" c:.1}L,c-12 mb(s,1)+1,b(s,2)+1;4;t;"";b(s,1)+2,b(s,2)+1;"" c:.1}L,c-12 a a=1100d:a 1lives=lives-1:lives=-11000  :339S K11 ,10 ;7;0;"FIN JUEGO":a=1300,:a 0:0:7:  3000 ڧq$=" " Ya=132 *5-78:ٺ(*4.9)+2;q$(aa+7);:a }'" PINTA TODA LA PIRAMIDE ANTES DE QUE EL BONUS SE ACABE ESQUIVA LOS PEDREGONES Y NO TE CAIGAS AL ABISMO" @'" 10 PUNTOS AL PINTAR 1 BALDOSA"'" BONOS AL PINTAR TODAS" ?" EN NIVELES 5-8 TE AGUARDA UNA DESAGRADABLE SORPRESA!" 16,7;"Q-BURT ...... ";2;"";15,21;"";18,7;7;"PEDREGON .... ";4;"";17,21;"" E''" Q & O .. ARRIBA (IZQ. & DER.)"'" A & L .. ABAJO (IZQ. & DER.)" 0::10 56000p:a=115:b,c:b/3,c:a 56025:a=116:b,c:b/3,c:a  [10 ,12 ,15,24,22,15,15,10 ,12 ,15 gb(a,1)+1,b(a,2)+1;t;t;" ";b(a,1)+2,b(a,2)+1;" " <a=3010 -1:.01z# =,a:.002xn,a:a  945 p.5,20,.3,22,.5,20,.3,17,.5,18,.3,20,.5,18,.3,15 z.5,17,.3,18,.5,17,.3,13 ,.5,15,.3,17,.5,15 .3,8,.3,15,.3,15,.3,15,.3,15,.3,15,.3,15,.3,15,.3,15,.3,15,.3,17,.3,18,.3,19 7.3,20,1.5@,12 ,2,13 bc eveive ilrat?chatt6                tt?htt6\sAoQ \ CHESHIRE ~'D'0'0:0:7: 1usar este programa en un ZX Spectrum issue 2   9000(# !hs=0:23658j\,8  h$="PAUL"  8000@ P dp=p+(63486=253p<151)-7*(63486=253p=151)-(63486=254p>144)+7*(63458=254p=144) 11 ,15;5;p $61438=2544000 'b61438=2531000 t*100d G(11 ,15)5ƫ(11 ,15)77000X ti=ti-1:0:0,28;5;0;ti;" ":ti=01;0,25;"TI:";ti:6000p ti-ti293000 100d 1y=y+2:x=x+2:y21y=1 x31x=0 a1;y1,x1;"";y1+1,x1;"";1;2;y,x;"";4;y+1,x;"" y1=y:x1=x: ,Dy=(y+*1.5@-*1.5@):x=x+2:y21y=1 1y0y=20 3x=30x=0 @a1;y1,x1;"";y1+1,x1;"";1;5;y,x;"";4;y+1,x;"" Jy1=y:x1=x: 8y=(y+*3-*3):x=(x+*3-*3) x<0x=30 x>30x=0 y>20y=1 y<1y=20 X1;y1,x1;"";y1+1,x1;"";1;5;y,x;"";y+1,x;"" y1=y:x1=x: Zy=y-3:y<1x=x+(*7)+3:y=20:x>30x=(*5) Xy1,x1;1;"";y1+1,x1;"";2;1;y,x;"";y+1,x;"" y1=y:x1=x: Xde=de+1 bJde=5y=(*20)+1:x=(*30)+1:de=0 gzy=y+(*2-*2):x=x+(*2-*2):y<1y>20x<0x>30de=5:610b lX1;y1,x1;"";y1+1,x1;"";2;1;y,x;"";y+1,x;"" q y1=y:x1=x v Cy=y+(*2-*2+(y<11 )-(y>11 )):x=x+2 x>30x=0 "y>20y<1y=11 ay1,x1;1;"";y1+1,x1;"";1;6;y,x;"";4;y+1,x;"" y1=y:x1=x:  Dy=y+di:x=x+2:de=de+1:de=5de=0:di=-di *y<1y=20 4y>20y=1 >x>30x=0 Ha1;y1,x1;"";y1+1,x1;"";5;1;y,x;"";4;y+1,x;"" Ry1=y:x1=x: y=y+di:x=x+de x>30x=0 y<1y=20 y>20y=1 R>.8Lde=(2de=0):di=(2di=0):>.5di=-di Xy1,x1;1;"";y1+1,x1;"";6;1;y,x;"";y+1,x;"" y1=y:x1=x: Ab=b-1:0;5;0;0,19;b;" " ?p=144g1=124|:f1=88X:f=78N:g=0 @p=145g1=128:f1=88X:f=78N:g=78N @p=146g1=128:f1=83S:f=0:g=126~ Ap=147g1=128:f1=79O:f=-78N:g=78N @p=148g1=123{:f1=79O:f=-78N:g=0 Bp=149g1=119w:f1=79O:f=-78N:g=-78N Ap=150g1=119w:f1=84T:f=0:g=-118v Ap=151g1=119w:f1=88X:f=78N:g=-78N N1;g1,f1:0;1;1;3;g,f:.006yD,25 n(y,x)=67Cū(y,x+1)=67Cū(y+1,x)=67Cū(y+1,x+1)=67Chit=1 1;g1,f1:1;g,f $hit2000 .Db=01;0;0,16;"SH:";b:6000p L 4y,x;1;a$(1);y+1,x;a$(2) Fhit=0:sc=sc+o:0,3;0;5;0;sc 1:1 &f=14:i=12 4Jy-f1x-f01+i*3;y-f,x-f;a$(1,1) >Ky+f21x-f01+i*3;y+f,x-f;a$(2,1) HKy-f1x+f311+i*3;y-f,x+f;a$(1,2) RLy+f21x+f311+i*3;y+f,x+f;a$(2,2) \0.006yD,f+i*4:i:f:0:0  11 ,15;5;p Db=00;1;0,16;"SH:";b:6000p <t=(*8)+2:y=(*20)+1:x=0 y1=y:x1=x:t1=ti ft=3t=2a$(1)="":a$(2)="":o=(20t=2)+(10 t=3) ft=4t=5a$(1)="":a$(2)="":o=(25t=4)+(10 t=5) Gt=6a$(1)="":a$(2)="":de=0:o=30 t=7t=8a$(1)="":a$(2)="":o=(25t=8)+(20t=7):de=0:di=-2 St=9 di=0:de=2:a$(1)="":a$(2)="":o=20 =1;4;y,x;a$(1);y+1,x;a$(2)  0d=x*8+(16x15)-(x>15) id,(21-y)*8:5;1;(124|-d)/3,(84T-(21-y)*8)/3 e.02{# =,20:5;1;(124|-d)/3,(84T-(21-y)*8)/3 e.02{# =,25:5;1;(124|-d)/3,(84T-(21-y)*8)/3 t.02{# =,30:d,(21-y)*8:1;(124|-d)/3,(84T-(21-y)*8)/3 \.02{# =,35#:1;(124|-d)/3,(84T-(21-y)*8)/3 \.02{# =,40(:1;(124|-d)/3,(84T-(21-y)*8)/3 7000X ti=ti-30:t1=t1-30:0,28;0;5;0;ti;" ":ti01;0;0,25;"TI:0 ":6000p g=70-1 11 ,15;g;p .02{# =,g*3:g 11 ,15;" " :f=18:g=110 :g:t*100d:f Eg=05:11 ,15;g;p:.02{# =,g*3:g  pg=17 zx=121 ;1;g;x,0;" " .005y# =,30:x:g  0 T8,11 ;"FIN JUEGO";7;0;0,0;1;"PT:";sc schs6060 ;hs=sc:11 ,1;"BIEN HECHO - UN NUEVO RECORD!!" R13 ,5;"INTRODUZCA SU NOMBRE.":h$:f=1502:f:6070 O11 ,1;"EL RECORD VALE ";hs;" PUNTOS.";12 ,1;"POR ";h$ 416,1;"UNA TECLA PARA JUGAR DE NUEVO." =""6080 .3,60<::20 X@li=li-1:0;5;0;0,12 ;li b*f=15:g=144151 l@0;٥*4+3;11 ,15;g:.02{# =,f vg:f Eli=00;1;0,9 ;"VI:";li:6000p ]1;7;y,x;a$(1);y+1,x;a$(2);0;11 ,15;" "  2500 @0f=160<:*255,*167:f a$(2,2) *7;0;11 ,15;" " l p=144 !4'ti=500:b=100d:sc=0 !fli=5:hit=0 !G5;0;0,0;"PT: VI: SH: TI: " !n0;5;0;0,3;sc;0,12 ;li;0,19;b;0,28;ti ".1}L,0 #' 2500 #(I:6;0;5,0;" ! GATOS DE CHESHIRE ! " #-H5'''" Programa diseno & software"''" por PAUL STANLEY." #/ 250: #2G''"ME COLOCAN EN MEDIO DEL ESPACIO"'"SIN MOTORES, CON SOLO UN LASER." #'"GIRA A IZQUIERDA ,A DERECHA , FUERON MIS INSTRUCCIONES." #PG8,17;3;1;1;8,29;2 #Zr''"ME DIJERON ACABA CON ELLOS CON Y SI TENIA ALGUNA DIFICULTAD, DEBIA PULSAR ."''"DIOS SABE DE SU UTILIDAD." #dI3;1;11 ,31;9 ;13 ,13 ;0 #nB'''"POR FAVOR, AYUDAME!"''"SI ESTAS LISTO, PULSA UNA TECLA ...." #x=""9080x# #.3,60< # #"A"=89180# #:x="a""u"+7 #n:x,n #x #u8,8,42*,42*,42*,42*,42*,62>,0,18,36$,72H,146,164,72H,480,0,0,252,128,255,128,252,0,480,72H,164,146,72H,36$,18,0,62>,42*,42*,42*,42*,42*,8,8,12 ,18,37%,73I,18,36$,72H,0,0,63?,1,255,1,63?,0,0,0,72H,36$,18,73I,37%,18,12 ,231,195,165,24,24,165 #F195,231,0,0,1,3,71G,127,21,21,0,0,192,224,241,255,84T,84T,31,63?,102f,127,93],8,0,0,252,254,513,255,221,136,0,0,0,0 #5480,72H,164,68D,2,3,0,0,12 ,18,37%,34",64@,192,3,7,11 ,17,18,32 ,32 ,192,192,224,208,136,72H,4,4,3,128,192,160,147 #255,251,249,255,1,3,5,201,255,191,159,255,127,96`,96`,480,568,28,15,3,254,6,6,12 ,28,568,240,192 # #nHPAUL3<@I Capsula B `RD =:0,11 ;1;2;"LA CAPSULA";0 2,0;2;"La idea de este juego es bien","sencillo: ganar puntos con solo","recoger unidades de fuel en","pantalla, y mantenerte vivo si","consigues aterrizar en la","plataforma movediza.";9 ,0;2;"Aterriza bien para puntuar." 11 ,0;2;"PUNTUACION DOBLE si tocas el centro.";13 ,0;2;"Tienes cinco aeronaves.";15,0;2;"Aeronave EXTRA con ";1;"100";0;" puntos." (:,2,"Puntos Extra por objeto extrano.":2000 2[.1}L,30:19,0;1;"Una tecla para ir izquierda";0;" "; <=""60< Fa$=:a$:.1}L,-5 P61;"Elige tecla para ir derecha";0;" "; Z=""90Z db$= nb$=""100d xb$=a$100d b$:.1}L,5 h=0:High Score h1=h:Prev HiScore 0:0,8;2;"ULTIMO RECORD ";h [0,0;"IZQ.";0,28;"DER.";1,0;a$;1,31;b$ ,b=(*12 +9 ) 6 c=18 @ d=b+1 J e=-1 Oincr=0 T j=0 ^ k=5 h l=0 r m=0 | p=1  x=0  t=0  s=0  z=0 c$="OO":d$="OOO":e$="OOOO" p2,8;4;e$;e$;e$;e$,5;e$;23;e$,3;d$;26;d$,2;c$;28;c$,1;c$;29;c$,c$;30;d$;31;c$;31;c$;31;c$;31;c$;31;c$;31;d$;30;c$;1;c$;29;c$,2;c$;28;c$,3;d$;26;d$,5;e$;23;e$,8;e$;e$;e$;e$;  1000 N21,0;"SCORE: 0":a=14:21,25+a;"":a 10 ,10 ;1;"PREPARADO?":a=112 :.1}L,0:a:10 ,10 ;" ":5600 e1570: g=b ?b=b-(*(j/2+.5)-*(j/2+.5)+.5) b>20b=19 b<9 b=10 &gb18,g;" " 018,b;"___" :bl=cm=d.2~L,20:a=0̥*2*l:t=t+1:.01z# =,30:a:l=0 D f=d:c=c+e N<x=(c,d-1):=a$x79Od=d-1:610b X1x=(c,d+1):=b$x79Od=d+1 b x=(c,d) l)x=79Oe=-e:c=c+e:d=f:690 v,c>7x=32 x=79O660 t=t+1:s=s+1 .01z# =,30 k=0900 Kc-e,f;" ";8;"_"(c-e=18)((f-b-1)1)e<0  c,d;1(c=18);"" /c18(c<13 x79O)500  e=-1 q=(d-b-1) q1750 k=k-1:a=110 :c,d;(146+a/2):.01z# =,20:a:1,-20:c=18:d=b+1:21,25+k;" ":k>0c,d;1;"":.1}L,5  770 a=1t:z=z+j:21,7;z:.05|L,40(:a:q=0a=1t:z=z+j:21,7;z:.05|L,502:a |t=0z=z-j:.1}L,-10 :h-j=zh=z*(z>h1)+h1*(zh1):0,22;2;1z>h1;h;0;" " $t=0:21,7;z;" "  zh800  ,h=z:0,22;2;1;h  cc=18s0ƫ(5,5)=568s/112p=(s/112p)k>01000 *z/p<100d870f 4/10 ,8;1;"AERONAVE EXTRA!!" >V21,25+k;"":a=15:.1}L,10 :.1}L,20:a H k=k+1:incr=incr+1 R&10 ,8;" " \ p=p+incr f2l0ƥ*4<1l,m;" ":l=0 p(*6)=0l=0k>0l=(*5+8):m=(*21+5):l,m;1;"":a=14:.05|L,30:.05|L,502:a z 500 X10 ,11 ;1;"GAME OVER":a=10 -10 -1:.05|L,a:a 310 ,5;4;"OTRA PARTIDA ? (S/N)" ="s"150 "n"920  j=j+1:n=j $n>8n=n-6:1010 l9 :n:1:1030:f=1j:a=-10 10 :.01z# =,a:a:f:9 :n:0 #3,9 ;"" )4,6;"" -5,4;"" $/6,3;"" .17,2;"" 80:7 BD21,12 ;n;9 ;" = ";J;" PUNTO";("S"J>1): -a=18:z$:b=07:c z$+b,c:b:a:502 Q"a",0,126~,126~,126~,126~,126~,126~,0 P"b",60<,126~,255,126~,60<,102f,66B,0 S"c",219,195,36$,153,153,35#,195,219 G"d",0,0,0,24,24,0,0,0 G"e",0,0,36$,0,0,36$,0,0 I"f",0,90Z,0,66B,66B,0,90Z,0 M"g",165,0,129,0,0,129,0,165 E"h",0,0,0,0,0,0,0,0  cZiAoBphd encjklmpx tsizCOODOOOEOOOOn@g qd &` Ordena aGd&7:7:0:0: n 600X xi="a""d"-1 x:i,x:i n=15 p(n) 2"Quieres elegir tu mismo los numeros (s/n)?" b$=:b$=""170 b$="n"b$="N"240 G"Introduce 15 numeros a ordenar; Pueden valer numeros con decima-les" y=1n p(y):p(y) y 270 x=1n p(x)=15*+1 x   x=1n "x,0;p(x) ,x 6 m=18 @j=1n-1 Ji=j+1n Tl=n+j-i+1 ^p(j)p(l)500 h:b$=" "(̱p(j)):j,0;1;5;b$ rl=m390 |Fx=mlͼ(l-m):2;x,18;"";x+(m-l),18;" ":x :y=p(l):x=17y-1:2;l,x;" ":x 5x=010 :l,x;" ";p(l);2;"":x Xx=lj-1:x,11 ;p(l);2;"";x+1,11 ;" ":x 1;j,0;p(j) Ex=jl:1;x,0;p(j);x,0;p(j):x:l,0;p(j) >x=10 0-1:j,x;p(l);2;"";" ":x 'x=y17:j,x;2;" ":x m=j t=p(l)  p(l)=p(j) p(j)=t i j Gx=m18:x,18;2;"";x-1,18;" ":x .21,0;"Desea empezar de nuevo? " b$=:b$=""540 &b$="s"b$="S"100d XF0,0,2,6,15,30,63?,254 bJ0,0,63?,127,241,100d,238,4 lM63?,255,241,228,158,223,14,4 JnN+bH !4u H6qڀ/ϐqM m@ly tH B Letras opoq %d=15616=:x=0:y=0 a$=:a$=""20 m=a$ ($d=15616=+(m-32 )*8 -wf=0:n=dd+7:p=n:p=p*(1+(f>4)):p=p/(1+(f2)):65375_-f,p:f=f+1:n 2Ky,x;a$;y+2,x;"":x=x+1:x>31x=0:y=y+4 < 20 p=n ((p),n;" ";n 2n 9 UDG-OVER R T 0: n=110 :n,1;2;"";1,n;"";11 -n,10 ;"";10 ,11 -n;"":n:8,15;1;"!" ;20,1;1;"Controles: O,P,Q,W y ESPACIO" >c(4):d=1:n=14:c(n)=32 +n:n (8,15;8;0;c(1);10 ,13 ;c(4);10 ,17;c(2);12 ,15;c(3);10 ,15;" " 2Bn=14:10 ,15;1;1;c(n):n <a$=:a$=""60< F+a$="p"d=d+1:d=5d=1 P+a$="o"d=d-1:d=0d=4 Za$="p"a$="o"0.005y# =,15:8,15;0;0;c(1);10 ,17;c(2);12 ,15;c(3);10 ,13 ;c(4) d10 +((d=3)*2)-((d=1)*2),15+((d=2)*2)-((d=4)*2);1;1;" " nOc(d)=c(d)+(a$="w"c(d)<162)-(a$="q"c(d)>32 ):.001wn,20 xa$=" "140 40( mn=95_88X-1:m=120x127:(m,n)=1n-97a,m-118v;"":160 &n-97a,m-118v;1;" " .002xn,5:m:n 40( 2& ,)dA