MV - CPCEMU Disk-File Disk-Info ZX-ModulesPTrack-Info  R P *RTrack-Info  R DISK MICRO 703  AA s AB AB AC )AD ( !AE $"#$AF %&AG '(AH )*AI +,AJ 1-./0AK %123AL (456AM ,789BA 3:;<=BB d>?@ABCDBC VEFGHIJBD KBE LMBF NOBG PQBH IRSTUVBI 7WXYZBJ 5[\]^BK %_`aBL )bcdBM ,efgTrack-Info  R PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "03" Track-Info  R PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#A |paqx:|x>0q8 ?*WTmTŒ' PIUU@x<#A paqx88@"?A -TOmQjTZJR6UI%@@' UJ ?@x<#ap8 0paq8 @>A /ȟ' !UU@??@8<>xp_9܅۪UUUUUUUUUU 0ꪪUUUUUUv0 `8UUUUUUUUժUUUUUUUUUUUUUU `8UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU `8UUUUUUUUժUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0UUUUUUUUժUUUUUUUUUUUUUU0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUժUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888Track-Info  R PLUS3DOS Y Y "dCINTA 03 (REVISTAS 09 a 12) n4:0:7: x5000:6000p 8,10 ;"A - CARA A" 9 ,10 ;"B - CARA B" A$= A$=""150 A$="A"A$="a"500 A$="B"A$="b"1000 100d --- MENU CARA A --- :5000:6000p 4,12 ;"CARA A"  7,3;"A-Diamantes" !7,18;"B-Laberinto" &8,3;"C-Database" 0 8,18;"D-Contable" : 9 ,3;"E-Mosquitos" D"9 ,18;"F-Gangster s" N10 ,3;"G-Skiacua" X10 ,18;"H-Lupa" b 11 ,3;"I-Dibujo3d" l 11 ,18;"J-Tiburon" v!12 ,3;"K-Baronrojo"  12 ,18;"L-Olimpus" 13 ,3;"M-3enraya" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" B$="D"B$="d""AD" B$="E"B$="e""AE" B$="F"B$="f""AF" B$="G"B$="g""AG" B$="H"B$="h""AH"  B$="I"B$="i""AI" B$="J"B$="j""AJ"  B$="K"B$="k""AK" *B$="L"B$="l""AL" 4B$="M"B$="m""AM" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Copas" !7,18;"B-Quinielas"  8,3;"C-Navidad84" $"8,18;"D-Torrehanoi" .9 ,3;"E-Frutas" 89 ,18;"F-Nim" B 10 ,3;"G-Matrices" L10 ,18;"H-Zamp" V11 ,3;"I-Moon" `!11 ,18;"J-Memorion" j 12 ,3;"K-Defender" t#12 ,18;"L-Eslaguerra" ~ 13 ,3;"M-Estadium" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" B$="F"B$="f""BF" B$="G"B$="g""BG" B$="H"B$="h""BH" B$="I"B$="i""BI"  B$="J"B$="j""BJ" B$="K"B$="k""BK" B$="L"B$="l""BL" (B$="M"B$="m""BM" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 03" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 09-12"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  :20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOSC988)1:1:7::9200# 9175# 0:0:7: 10 ,11 ;"DIAMANTES" _62>,70F:122z,0:0,40(:-122z,0:0,-40( 221,0;"PREPARANDO LA EXPEDICION ..."  9600% F.1}L,20::11 ,4;"Deseas intrucciones? (s/n)" ="s"Track-Info  R 20 ="n"200  17  *'':a$=" D I A M A N T E S":8800`" #&3,2;"_________________" (b'':a$=" Estas navegando por los sis- temas planetarios a bordo del Liberator.":8800`" -'' 2a$=" Tu mision, rescatar los diez diamantes del ~Imperio~ de las bases enemigas. Para ello de- bes esquivar o combatir a las naves adversarias.":8800`" 4C21,0;" PULSA UNA TECLA PARA CONTINUAR ":0 7I:2,2;"G R A F I C O S";3,2;"_______________" 8'':a$=" ":8800`" :2a$=" LIBERATOR Nave enemiga":8800`" <7'':a$=" Piloto Mina espacial":8800`" >5'':a$=" Diamante Base minada":8800`" @3'':a$=" Tunel salida del sistema":8800`" Ba$=" ":8800`" F:21,0;" PULSE UNA TECLA PARA CONTINUAR " H 0: JM2,2;"TECLAS DE CONTROL:";3,2;"__________________" L+'':a$=" (Q) NAVE ARRIBA":8800`" N$a$=" (A) NAVE ABAJO":8800`" P5'':a$=" (P) AVANZA NAVE/Piloto dcha":8800`" R4a$=" (O) DISPARA NAVE/Piloto izqda ":8800`" T.':a$=" (M) TELEPORTAR PILOTO":8800`" X3'':a$=" (0) REGRESO (en el tunel)":8800`" b:21,0;" PULSA UNA TECLA PARA CONTINUAR " d 0 n:':a$=" Cuando la nave esta parada puedes teleportarte a la super ficie del planeta y recoger los diamantes pero mientras tu nave esta indefensa. Cuando ha yas cogido los diamantes pue- des regresar por el tunel a tu sector":8800`" x^:a$=" Los invasores salen periodi- camente e intentaran destruir tu nave.":8800`" :a$=" Si tu nave choca con una mi- na perderas una nave y si el piloto toca una mina de super- ficie perderas una vida. Los disparos y el teleporta- dor consumen energia, cuidala.":8800`" :21,0;" PULSA UNA TECLA PARA JUGAR " 0: 9800H& division pantalla   1 4n=25:n,2:0,171:n 8n=250253:n,2:0,171:n 8n=170173:2,n:251,0:n &4n=25:2,n:251,0:n 06n=2831:2,n:251,0:n :6n=64@67C:2,n:251,0:n D 7 N mov=0 X85004!:sistemas l z$=p$(sis) v 8400  8300l 07400+(sis*100d):gen.sis.desde 7500 datos comienzo :lx=6:ly=1  fx=502 mov=11800 dam=0:liv=5  id=0  dia=0  en=99c " dp=0 @86430:20,1;1;4;"NAVE" J-20,6;1;5;"VIDAS" T 6520x ^220,12 ;1;6;"DIAMANTES" c 6620 h020,22;1;3;"ENERGIA" r 6675 A1,29;3;"";2,29;3;"" !lx,ly;"";lx+1,ly;""  liberator <l=1+(*502):l=12500 :2050 ="m"3000 l=12520 F="q"5100:5000:lx=lx-1:5120:5000  F="a"5200P:5000:lx=lx+1:5220d:5000 F="p"5300:5000:ly=ly+1:5320:5000  ="o"5400 %+="0"lx=1ly=297350 l=12030 2010 nave enemiga fx=1+(*12 ) fy=29 6100 fx=lxly>276000p (fx=lx+1ly>276000p 6100 fr=1+(*2) "fr=1fx>lxfx=fx-1 "fr=1fxtp/2=(tp/2)16Track-Info  R ,tp;5;0;"" >tp/2ɺ(tp/2)16,tp;5;0;"" dp=16600  piloto derecha W(16,tp+1)=43+16,tp;5;" ":tp=tp+1:4800 -(16,tp+1)=46.dp=1 16,tp;5;" " tp=tp+1 >tp/2=(tp/2)16,tp;5;0;"" >tp/2ɺ(tp/2)16,tp;5;0;"" dp=16600  piloto muerto n=41-1 '16,tp;5;"":.1}L,n 016,tp;5;"":.1}L,n-10 016,tp;5;"":.1}L,n-20 n 16,tp;5;" "  8370  6500d  2050 #teleportacion $tp=1+(*30) '%(16,tp)=43+4800 (%(16,tp)=46.6600 )x=12 .n=17 816,tp;5;n;"" B$.005y# =,n:.005y# =,n+1 Ln Vx ` 6660  pinta liberator *lx,ly;1;"";lx+1,ly;""  minas espaciales &(lx-1,ly)=46000p .(lx-1,ly+1)=46000p  lx=0lx=1 K P&(lx+2,ly)=46000p Z.(lx+2,ly+1)=46000p _ dlx=12 lx=11  &(lx,ly+2)=46000p .(lx+1,ly+2)=46000p  ly=30ly=ly-1  fuego! ly>25 n=12 "R1;16+(ly*8),168-(lx*8):1;31,0 ,n 1*.01z# =,-10 :.01z# =,-20 60fx=lxfy-ly1fy-ly56300 @ 6660 | pliberator esplota u3lx,ly;1;"";lx+1,ly;1;"" wt=12 zn=12 Elx,ly;1;1;"";lx+1,ly;1;1;"" .05|L,-502 n n=12 Elx,ly;1;1;"";lx+1,ly;1;1;"" .05|L,-557 n n=12 Elx,ly;1;1;"";lx+1,ly;1;1;"" .05|L,-60< n t Hn=12:lx,ly;1;" ":lx+1,ly;1;" " n  6400 lx=5:ly=1  5000  pinta nave enemiga fx,fy;1;""  8fuego nave enemiga ;fy<5 =n=12 BN1;fy*8-1,172-fx*8:1;-31,0 Ln Q(.01z# =,0:.01z# =,-10 V0fx=lxfy-ly1fy-ly56000p `8fx=lx+1fy-ly1fy-ly56000p j  nave tocada fx,fy;1;"" n=12 7fx,fy;1;1;"":.04|# =,-45-:n n=12 7fx,fy;1;1;"":.04|# =,-502:n n=12 7fx,fy;1;1;"":.04|# =,-557:n <n=12:fx,fy;1;" ":n: clears bright  l=0 fx=0:fy=0  naves  dam=dam+1 dam=69900&  z$ report ()20,5;4;1;dam 2 dvidas nliv=liv-1 x*20,11 ;5;1;liv liv=09900&   diamantes dia=dia+1  dp=0 dia=10 9960& *20,21;6;1;dia %.1}L,0:.1}L,20 dia08380   energia en=en-1 20,29;"" )20,29;3;1;en "en=09900& , salida sect. $8365 :8300l :7400  mov=1 419,1;" " Pn=112 :.02{# =,n:.02{# =,n+10 :.02{# =,n*-1:n  600X  superficie n=1417 -n,1;" " n  minas espaciales n=110 $smx=1+(*11 ) )smy=4+(*24) .smx,smy;4;"" 3n 8 Lplaneta (estrella) Q sistema1 V 8200 X 8360 [n=025 `100d,100d,n/2 jn o7450:8460 ! t 8395 y 8390   sistema2  8200  8360 n=025 502Track-Info  R ,100d,n/2 n 7450:8460 !  8395  8390   sistema3  8200  8360 n=025 150,100d,n/2 #90Z,90Z,n/4 (n -7450:8460 ! 2 8395 7 8390 s x sistema4 } 8200  8360 n=025 100d,100d,n/2 502,130,n/4 n 7450:8460 !  8395  8390   sistema5  8200  8360 n=025 120x,110n,n/2 n 7450:8460 !  8395  8390 ;  estrellas n=1502 010 +(*230),80P+(*85U) &n b l espacio CLS vn=112 -n,1;" " n  Frases *z$="APROXIMACION AL SISTEMA":8400 %z$="SALIDA DEL SISTEMA":8400 %z$="MINA DE SUPERFICIE":8400 (z$="DIAMANTE CONSEGUIDO!!":8400 &z$="SUPERFICIE MINADA!!":8400 !z$="PLANO ESTACIONARIO ORBITAL" pintar 419,1;" " '.01z# =,10 :.01z# =,0 n=2̱z$+1 #19,n-1;z$(n-1) n ! ! superficie !=17,1;4;"" ! Tn=1416:n,1;5;0;" " !#n !%.n=15:min=1+(*30) !*(16,min;3;5;"":n !-Xn=12:diap=1+(*30):16,diap;5;6;"":n !/ !4 sistema !H'z$="SISTEMA PLANETARIO ?":8400 !Rx=48 !\x,2;p$(x-3) !f".02{# =,x:.02{# =,x+4 !x !=""8610! !k$= !k$<4918610! !k$>5358610! !sis= "[ "`instrucciones "jn=1̱a$ "ta$(n); "n " "sistema inicial " sis=1 # #musica # 9185# #&.2~L,19:.5,19 # 9185# #&.2~L,19:.5,14 # 9185# #&.2~L,19:.5,19 #_.5,22:.5,20:.5,20:.2~L,19:.5,14 #%n=1428:.05|L,n:n #.1}L,30 # #L.5,14:.5,15:.5,17:.5,20 # # pantalla #n=021 $i=2+(*6) $;n,0;1;i;" MICROHOBBY " $i $n $" % Graficos %z=144161 %"n=07:k:z+n,k:n %z %$0,63?,62>,24,24,124|,255,255,0,224,0,0,0,0,224,255,127,30,30,513,115s,252,255,0,244,0,0,128,248,0,192,0 %0,0,7,127,7,0,0,1,30,14,255,255,255,14,28,254 %K129,90Z,60<,36$,36$,60<,90Z,129 %153,90Z,60<,63?,252,60<,90Z,153,0,73I,42*,28,126~,524,82R,0,0,0,36$,24,24,36$,0,0 %K36$,36$,255,36$,36$,255,36$,36$ % 24,24,480,88X,20,24,20,34",24,24,20,60<,80P,16,40(,72H,24,24,12 ,26,40(,24,40(,68D,24,24,40(,60<,10 ,8,20,18 %K60<,36$,72H,164,226,36$,34",65A %F0,0,0,0,24,24,60<,126~ %G0,0,0,16,568,116t,568,16 &> &Hp$(5,29) &Rx=15 &\p$(x) &fx &z^"SISTEMA PLANETARIO 1: ARISTO","SISTEMA PLANETARIO 2: AMERSAT","SISTEMA PLANETARIO 3: BHIOS" &A"SISTEMA PLANETARIO 4: CEPHLON","SISTEMA PLANETARIO 5: CENTERA" & &pierde &n=20-20-1 &".01z# =,n:.02{# =,n-5 &n &(6,11 ;1;"GAME OVER" &'10 ,7;"MISION INCOMPLETA" & 9990' &gana &n=18 &7.02{# =,n:.02{Track-Info  R # =,n+1:.02{# =,n+2 &n &010 ,7;1;"HAS CONSEGUIDO TU" &211 ,6;1;"MISION...BIEN HECHO" ' 9100# ''12 ,7;"OTRO JUEGO? (s/n)" ' ="s" ' ="n"9998' ' 9995 ' ';:n=021:n,8;"HASTA LA PROXIMA!":n: PLUS3DOS8CBBMti=0:0:1:7::9000(#:9200#:9220$  9960& Jale=(*2):4000:vh=10 :hh=28:0:0  8 k=((vh=2vh=10 vh=18)=1(hh=2hh=3hh=14hh=15hh=28hh=29)=1): 09210#:9040P#:9232$:3500 *1000:3000 :""92706$ g7:11 +9 *(vh-hh0hh-vh1hh-vh13 hh-vh12 Ʀ="t"k=1) 09210#:9060d#:9232$:3500 3000 :""92706$ -7:23+7*(k=1Ʀ="t") A21-11 *(vh-hh3vh-hh4Ʀ="u"k=1) 09210#:9070n#:9232$:3500 3000 :""92706$ c7:33!+467*(ale=1Ʀ="t"k=1)+267 *(ale=0Ʀ="t"k=1) !_31-11 *(vh-hh3vh-hh4vh-hh15vh-hh16Ʀ="u"k=1) (09210#:9090#:9232$:3500 )3000 :""92706$ *K7:43++7*(hh-vh11 hh-vh10 Ʀ="t"k=1) +Z41)+489*(ale=1Ʀ="u"k=1)+289!*(ale=0Ʀ="u"k=1) 299210#:1:9100#:9232$:3500 3?3000 :""92706$:12 ,2;5;" " 47:535+7*(vh-hh1vh-hh2hh-vh13 hh-vh12 hh-vh27hh-vh26Ʀ="t"k=1) 5%513-11 *(="u"k=1) <09210#:9110#:9232$:3500 =3000 :""92706$ >g7:63?+7*(vh-hh16vh-hh15vh-hh4vh-hh3Ʀ="t"k=1) ?%61=-11 *(="u"k=1) F09210#:9080x#:9232$:3500 G3000 :""92706$ IC71G-11 *(hh-vh27hh-vh26Ʀ="u"k=1) ,09210#:8050r:9232$:3500 -3000 :""92706$ .303/+7*(vh-hh0hh-vh1hh-vh27hh-vh26(vh=2vh=18)=1Ʀ="t"(hh=2hh=3hh=28hh=29hh=14hh=15)=1) /07:301--271*(="u"k=1) 609210#:8060|:9232$:3500 73000 :""92706$ 8.7:3139+7Track-Info  R *(="t"k=1) 9B3117-11 *(vh-hh3vh-hh4Ʀ="u"k=1) @09210#:8070:9232$:3500 A3000 :""92706$ BL7:323C+7*(hh-vh13 hh-vh12 Ʀ="t"k=1) C&321A-11 *(="u"k=1) J09210#:8080:9232$:3500 K3000 :""92706$ L333M-293%*((vh=2vh=10 )=1Ʀ="t"(hh=2hh=3hh=28hh=29hh=15hh=14)=1) M331K-11 *((vh=2vh=10 )=1Ʀ="u"(hh=2hh=3hh=28hh=29hh=15hh=14)=1) 09210#:8010J:9232$:3500 3000 :""92706$ 503+7*((vh=18)=1Ʀ="t"(hh=2hh=3hh=29hh=15hh=28hh=14)=1) 501-471*((vh=2vh=10 )=1Ʀ="u"(hh=2hh=3hh=29hh=15hh=28hh=14)=1) 09210#:8020T:9232$:3500 3000 :""92706$ L7:513+7*(hh-vh10 hh-vh11 Ʀ="t"k=1) &511-11 *(="u"k=1) 09210#:8030^:9232$:3500  3000 :""92706$  7:523 +7*(hh-vh13 vh-hh3hh-vh12 vh-hh4hh-vh18hh-vh19Ʀ="t"k=1)  D521 -11 *(hh-vh27hh-vh26Ʀ="u"k=1) 09210#:8040h:9232$:3500 3000 :""92706$ 533-493*((hh-vh=13 hh-vh=12 )=1Ʀ="t"(hh=2hh=3hh=15hh=29hh=28hh=14)=1) ~531-11 *(hh-vh27vh-hh15vh-hh3hh-vh26vh-hh16vh-hh4Ʀ="u"k=1) 1002-(hh<1)  1003  >:.5,10 :#0;"Quieres jugar de nuevo s/n ?" 0:"n"4  aa=030:.01z# =,a:a::''''''" ANDA BAJA DE NIVEL Y SUERTE":200:4 Eti=ti-1:#0;0,25;ti;" ":ti2000  3#0;0,5;"TIEMPO QUE TE QUEDA": 0:7: '''1;"PULSA EL 1 PARA NIVEL DE INFANTE"''"PULSA EL 2 PARA EL AMATEUR"''"PULSA EL 3 PARA EL PROFESIONAL"''"PULSA EL 4 PARA NIVEL MASOQUISTA"''"OTRA TECLA PARA PRACTICAS"  0 ="1"ti=500 ="2"ti=350^ ="3"ti=200 ="4"ti=100d : r=02:y:x:lon:9050Z#:a=1lon:dir:x=x+2*(dir=1)-2*(dir=2):y=y+2*(dir)-2*(dir=3):9050Z#:a:r:9030F#: J9930&:9020<#:2,14,7,0,0,0,0,0,0,0,18,2,5,1,1,1,1,1,18,14,6,1,1,1,1,1,1 K8010J:5000: T9930&:9020<#:2,2,5,1,1,1,1,1,18,14,14,1,1,1,3,3,3,3,1,1,1,1,0,0,0,18,2,20,1,1,3,3,1,1,3,3,1,1,1,3,3,1,1,3,3,1,1,1 U8020T:5000: ^]9930&:9020<#:2,2,13 ,1,1,0,0,0,1,0,0,0,0,0,1,1,2,14,7,0,0,0,0,0,0,0,2,28,11 ,2,2,0,0,0,0,0,0,0,0,1 _8030^:5000: he9930&:9020<#:2,2,15,1,1,0,0,0,0,0,0,0,0,2,1,1,1,1,2,14,14,1,1,0,0,0,0,0,0,0,0,1,1,1,1,2,28,3,0,0,0 i8040h:5000: r9930&:9020<#:2,14,7,0,0,0,0,0,0,0,18,2,5,1,1,1,1,1,18,14,6,1,1,1,1,1,1 s8050r:5000: |9930Track-Info  R &:9020<#:2,2,5,1,1,1,1,1,18,2,9 ,1,1,3,3,3,3,3,3,3,18,28,3,3,3,3 }8060|:5000: 9930&:9020<#:2,2,9 ,1,1,0,0,0,0,0,0,0,18,2,5,1,1,1,1,1,10 ,28,3,3,3,3 8070:5000: <9930&:9020<#:2,2,9 ,1,1,0,0,0,0,0,0,0,18,2,12 ,1,1,1,1,1,1,1,1,1,1,1,1,2,14,6,1,1,1,1,1,1 8080:5000: #(:10 ,1;1;"SE ESTAN DIBUJANDO LAS PUERTAS":0,0,0,0,3,15,31,127,0,0,0,0,192,240,252,255,1,1,3,3,7,7,15,15,15,15,7,7,3,3,1,1,128,128,192,192,224,224,240,240,240,240,224,224,192,192,128,128,127,31,15,3,0,0,0,0,255,252,240,192,0,0,0,0,255,36$,255,36$,36$,255,36$,255 #)c23675{\,88X:23676|\,255:9000(#:a=071G:cod:"a"+a,cod:a: #20:1:1:: #<0:1:7: #F1,2,9 ,2,17,2,1,28,1,14,9 ,28,17,14,17,28 #G1:1:9030F#:p=18:a:b:.01z# =,0:a,b;"";a+1,b-1;"";a+2,b-1;"";a+3,b;"":p: #P\9930&:9020<#:12 ,2,8,0,0,0,1,1,1,1,1,2,2,20,1,1,1,1,1,1,0,0,0,1,1,1,1,1,0,0,0,0,0,1,2,28,3,0,0,0 #QI9040P#:5000:10 ,0;"";11 ,0;"": #Z=.005y# =,30:7:y,x;"";y+1,x;"": #d$9930&:9020<#:2,4,16,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,2,14,3,0,0,0,18,2,5,1,1,1,1,1 #e9060d#:5000: #nQ9930&:2,2,12 ,1,1,0,0,0,0,0,0,0,0,2,2,2,28,12 ,2,2,0,0,0,0,0,0,0,0,1,1,2,14,7,0,0,0,0,0,0,0 #o9070n#:5000: #x9930&:9020<#:2,4,4,1,1,1,1,12 ,28,17,0,0,3,2,2,2,2,2,2,2,2,2,2,2,2,2,0,10 ,4,16,1,1,1,1,1,1,3,1,1,1,1,3,3,3,1,1 #y9080x#:5000: #@9930&:9060d#:ay=18:ax=28:9900&: #&9930&:9040P#:5000: #e9930&:9070n#:ay=18:ax=2:9900&:ay=18:ax=14:9900&: #;.1}L,10 :.1}L,20:.1}L,30: #:10 ,1;1;"AHORA LAS TUBERIAS":4,4,4,4,4,212,116t,84T,96`,96`,96`,96`,96`,107k,110n,106j,84T,244,212,4,4,4,4,4,106j,111o,107k,96`,96`,96`,96`,96`,4,7,2,7,0,255,0,0,96`,224,64@,224,0,255,0,0,0,255,255,0,7,2,7,4,0,255,255,0,224,64@,224,96`,4,7Track-Info  R ,8,15,4,212,114r,82R,96`,224,16,240,44,,27,26,26,81Q,240,208,0,7,2,7,4,218,251,59;,12 ,224,64@,224,96`,4,7,8,15,524,216,80P,81Q,96`,224,16,240,96`,107k,206,202,83S,223,226,480,7,2,7,4,138,15,11 ,0,224,64@,224,96`,4,7,2,7,0,208,112p,81Q,96`,224,64@,224,12 ,59;,202,10 ,82R,242,212,7,15,8,7,4,10 ,27,59;,236,240,16,224,96` #e9200#:23675{\,0:23676|\,250:c=0159:canie:"a"+c,canie:c #;g=07034:9203#+(*4):g: #d6e4`+g,145:60001a+g,147:60002b+g,144:60003c+g,146: #d6e4`+g,149:60001a+g,151:60002b+g,148:60003c+g,150: #d6e4`+g,153:60001a+g,155:60002b+g,152:60003c+g,154: #d6e4`+g,157:60001a+g,159:60002b+g,156:60003c+g,158: #d6e4`+g,161:60001a+g,163:60002b+g,160:60003c+g,162: #X9120#:1:5:23675{\,0:23676|\,250:5e4P: $:10 ,5;1;"AHORA TU CUERPO SERRANO ":24,60<,172,136,88X,40(,4,18,60<,44,,160,224,64@,0,0,0,24,60<,44,,8,60<,36$,194,98b,4,12 ,12 ,8,16,160,224,64@,24,60<,44,,8,568,36$,196,100d,8,24,24,16,16,16,16,480,24,60<,44,,8,568,36$,68D,228,8,8,24,24,36$,36$,34",198,12 ,30,22,4,28,18,6,24,100d,4,12 ,12 ,18,18,17,99c $24,60<,535,17,26,70F,32 ,72H,60<,524,5,7,2,0,0,0,24,60<,524,16,60<,36$,67C,70F,32 ,480,480,16,8,5,7,2,24,60<,524,16,28,36$,35#,38&,16,24,24,8,8,8,8,12 ,24,60<,524,16,28,36$,34",39',16,16,24,24,36$,36$,68D,99c,480,120x,104h,32 ,568,72H,96`,24,38&,38&,480,480,72H,72H,136,198 $e23675{\,255:23676|\,250:9220$:h=0159:hom:"a"+h,hom:h: $E9940&:23675{\,47/:23676|\,251:9950& $m9940&:hh=hh-(""ƫ(vh,hh-1)13 ):23675{\,31:23676|\,251:9950& $n9940&:hh=hh-(="v"ƫ(vh,hh-1)13 ):23675{\,63?:23676|\,251:9950& $ $F9940&:23675{\,143:23676|\,251:9950& $n9940&:hh=hh+(""ƫ(vh,hh+1)13 ):23675{\,111o:23676|\,251:9950& $n9940&:hh=hh+(""ƫ(vh,hh+1)13 ):23675{\,127:23676|\,251:9950& $ $"F9940&:23675{\,255:23676|\,250:9950& $#m9940&:vh=vh-(""ƫ(vh-1,hh)13 ):23675{\,15:23676|\,251:9950& $$ $,E9940&:23675{\,79O:23676|\,251:9950& $-m9940&:vh=vh+(""ƫ(vh+2,hh)13 ):23675{\,95_:23676|\,251:9950& $. $69940&:92717$+(="o"ƫ(vh,hh-1)13 ƫ(vh+1,hh-1)13 )+2*(="p"ƫ(vh,hh+1)13 ƫ(vh+1,hh+1)13 )+3*(="q")+4*(="a") $79940&: $81hh=hh-((vh,hh-1)13 ):9230$: $91hh=hh+((vh,hh+1)13 ):9240$: $:1vh=vh-((vh-1,hh)13 ):92Track-Info  R 50"$: $;1vh=vh+((vh+2,hh)13 ):9260,$: &/23675{\,88X:23676|\,255: &E1:7:vh,hh;1;"";vh+1,hh;1;"": &5vh,hh;"";vh+1,hh;"":.05|L,10 : &29961&:x=5e4P50050:y:x,y:x: &62>,2,205,1,22,6,22,33!,96`,234,72H,13 ,13 ,197,6,32 ,62>,22,215,121y,215,5,120x,215,126~,35#,215,62>,22,215,12 ,121y,215,120x,215,126~,35#,215,13 ,4,16,230,193,5,16,220,120x,502,0,91[,201 '+"laber":"cm-laber"50000P,100d PLUS3DOSL"CLASIFICA"5 .10 ,0;"REBOBINA Y VERIFICAREMOS" "" +:10 ,0;"CORRECTO":150 z=0:u$=" " H1:1:7::236099\,502:23658j\,8 d!:9 ;" M E N U "''"1- INICIALIZAR FICHERO"''"2- A\ADIR UN REGISTRO"''"3- MODIFICAR UN REGISTRO"''"4- LISTAR REGISTROS INTRODUCIDOS"''"5- CLASIFICAR"''"6- LISTAR REGISTROS CLASIFICADOS"''"7- GRABAR PROGRAMA"''''" REGISTROS UTILIZADOS: ";1;1;z n'#0;"Pulsa la opcion que deseas" x!0:<"1"Ŧ>"7"120x y=::y*1000 :z=0:u$=" ":"CUANTOS CAMPOS ALFANUMERICOS TE RESERVO PARA CADA REGISTRO?"'a:a>0"CANTIDAD DE DIGITOS POR CAMPO?"'d W"CUANTOS CAMPOS NUMERICOS TE RESERVO PARA CADA REGISTRO?"'b:a=0d=0 Jc=(a+1)*d+(b+2)*5:c=((34000Є-(a+b)*10 )/c) \10 ,0;"EL NUMERO MAXIMO DE REGISTROS CON EL QUE PUEDES TRABAJAR ES DE: ";c #0;"Conforme (S/N)" $0:="n"Ŧ="N":1000 $="s"Ŧ="S"10808 . 1050 8%b(c,2):a=01100L B$a$(c,d*a):b$(a,10 ):d$(c,d) Lb=01120` Vc$(b,10 ):a(c,b) `P:a>0n=1a:"TITULO DEL CAMPO ALFANUMERICO ";(n);" ";b$(n):n jCb>0n=1b:"TITULO DEL CAMPO NUMERICO ";(n)'c$(n):n t 2010 z=0100d Tz=c10 ,0;"FICHERO COMPLETO"''''"Pulsa una tecla":0:100d z=z+1:"NUMERO DE ORDEN: ";z'"QUEDAN ";c-z;" REGISTROS"''':a>0n=1a:y=1+(n-1)*d:"DATO EN: ";(b$(n))'a$(z,yy+d-1):b$(n);": ";a$(z,yy+d-1):n:'' _b>0n=1b:"DATO EN: ";(c$(n))'a(z,n):c$(n);":";(28-a(z,n));a(z,n):n ''"Continuamos? (S/N)" $0:="s"Ŧ="S":2000  ="n"Ŧ="N"100d  2050 z=0100d c"QUE REGISTRO QUIERES MODIFICAR?"'n:n>z10 ,0;"NUMERO DE REGISTROS: ";z:3010 w:"REGISTRO No. ";n''':a>0m=1a:y=1+(m-1)*d:m;"- ";b$(m);": ";a$(n,yy+d-1):m:'' Hb>0m=1b:m+a;"- ";c$(m);(28-a(n,m));a(n,m):m ""QUE CAMPO QUIERES MODIFICAR?"'m m>am=m-a:3100 Ey=1+(m-1)*d:(b$(m));" NUEVO DATO?"'a$(n,yTrack-Info  R y+d-1) 3110& (c$(m));" NUEVO DATO?"'a(n,m) &#0;"Alguno mas? (S/N)" 0"0:="s"Ŧ="S"3040 :="n"Ŧ="N"3150N D 31200 N:"REGISTRO No. ";n''' X_a>0m=1a:y=1+(m-1)*d:m;"- ";b$(m);": ";a$(n,yy+d-1):m:'' bHb>0m=1b:m+a;"- ";c$(m);(28-a(n,m));a(n,m):m l'''"Conforme? (S/N)" v!0:="s"Ŧ="S"100d ="n"Ŧ="N"3020 3190v  n=1z !:"No. DE ORDEN: ";n;" / ";z''' Xa>0m=1a:y=1+(m-1)*d:b$(m);": ";a$(n,yy+d-1):m:'' Cb>0m=1b:c$(m);":";(28-a(n,m));a(n,m):m 4#0;"Para continuar pulsa una tecla":0 n  100d z=0100d [5;"MENU DE CLASIFICACION"''':a>0n=1a:9 ;n;"- ";b$(n):n 4b>0n=1b:9 ;n+a;"- ";c$(n):n $"Introduce la opcion que deseas"'y y<1y>a+b:5010 "y>ay=y-a:u$=c$(y):5500| #u$=b$(y):y=(y-1)*d+1 ;n=1z:d$(n)=a$(n,yy+d-1):b(n,2)=n:n c:10 ,0;"ESPERA UN POCO"'''"ACASO CREES QUE SOY UNA MAQUINA?"''''"ESTOY CLASIFICANDO" m=1z:n=1z-m d$(n)>d$(n+1)t$=d$(n):d$(n)=d$(n+1):d$(n+1)=t$:y=b(n,2):b(n,2)=b(n+1,2):b(n+1,2)=y n:m 9#0;1;"PULSA UNA TECLA":0:100d |5n=1z:b(n,1)=a(n,y):b(n,2)=n:n c:10 ,0;"ESPERA UN POCO"'''"ACASO CREES QUE SOY UNA MAQUINA?"''''"ESTOY CLASIFICANDO" m=1z:n=1z-m b(n,1)0p=1a:y=(p-1)*d+1:b$(p);": ";a$(n,yy+d-1):p:'' Cb>0p=1b:c$(p);":";(28-a(n,p));a(n,p):p 4#0;"Para continuar pulsa una tecla":0 m  100d X>"NOMBRE DEL PROGRAMA? (Max. 10)"'t$:t$=""t$="CLASIFICA" b t$>10 t$=t$(10 ) l(:10 ,0;"VAMOS ALLA . . ." v(t$)10 0:10 ,0;"REBOBINA Y VERIFICAREMOS" (t$) 4:10 ,0;"VALE TITO."'''"LO HAS BORDAO" 250:100d PLUS3DOSQ Q. @7:0:0::printer=0:printer2=0 1:0:0 @45-:#1;" ## PULSA UNA TECLA ## ":0 Z1:0:0 d?0,0;"Saldo del mes anterior?"'saldoant:20 isaldo=saldoant:cant=0 nZ0,0;"Cuantos datos vas a introducir?"'numdatos:numdatos=0110n sP20:0,0;"Cuantos codigos existen? "'a:a=0115s xc(numdatos,a):d(a+1) } 1 7n=1numdatos:m=1a:c(n,m)=0:m:n 0:0: K#0;"Querras copia por impresora de la tabla del movimiento? (s/n)" "s"Ʀ"n"136 ="s"printer=1 4090 n=1numdatos n=1y=3 n=19n=20*2n=20*3n=20*4n=20*5Track-Info  R n=20*6n=20*7n=20*8n=20*9 n=20*10 :4090:y=3:printer=1 y=y+1 1s=0:"Introduce fecha (DD MM) ";f;" / ";e f>31160 e>12 160 My,1+(2-f);1;f;"/";y,4+(2-e);1;e &"Codigo? ";codig:codig>a170 -y,7+(2-codig);1;codig 6"DEBE o HABER? (d/h) ";d$:d$>1180 *d$="d"t=10 :s=1:210 d$="h"t=17:210 180 1"Cantidad? ";cant:cant>999999t#210 %y,t+(6-cant);1;cant 4s=1saldo=saldo-cant:cant=-cant:250 saldo=saldo+cant c(n,codig)=cant .y,25+(6-saldo);1;saldo N"# Pulsa ""ENTER"" # ";h$:h$0Ʊh$2Ʊh$3270 h$="cc"saldo=saldo-cant:c(n,codig)=0:0;y,1;1;6;" ";y,7;1;6;" ";y,10 ;1;6;" ";y,17;1;6;" ";y,24;1;6;" ":160 h$="ppp"n=numdatos n:printer=1 "Mn=1a:m=1numdatos:d(n)=d(n)+c(m,n):m:n:d(a+1)=saldo ,&"Final; para seguir, ""ENTER"".";j$ 6s1:5::1,1:253,0:0,173:-253,0:0,-173 @1:'''" Bueno, la tabla de variables ya esta lista para ser grabada."''" Antes de hacerlo, quieres rea- lizar un listado de comproba- cion de todos los codigos y sus correspondientes totales?"''" Pulsa ""s"" o ""n""." J"s"Ʀ"n"330J T="s"3000 Ya:1,1:253,0:0,173:-253,0:0,-173 ^''" Fase de grabacion; introduce a continuacion la etiqueta con la que quieres designar a las variables recien itroducidas." hL'" Recuerda que este titulo no debe sobrepasar los 10 carac- teres." rA30:"Etiqueta: ";e$:e$>10 űe$=0370r |.'" De acuerdo; el titulo es:"''" """;e$;"""" $'" ## GRABACION ## " e$d() ?'" Bien, ahora rebobina y pulsa una tecla para verificar." 0:0:17,1;" ";18,1;" ":1:17,0;" ## VERIFICANDO ## ":e$d() 620,0;" Todo correcto. Fin de programa." : 1:5::0,0;1;"# LISTADO COMPROBACION TOTALES #":2,1;"CODIGO DEBE HABER": _1,1:253,0:0,165:-253,0:0,-165 k0,0;"Querras copia impresa de la comprobacion? (s/n) ";p$:p$"s"p$"n"3007 p$="s"printer2=1 11:n=1a:2+(2-n);n; Rq=22:y10=146:x20=154:d(n)<0q=11 :x20=58: `q+(7-d(n));d(n):34",y10-(n*8):x20+((5-d(n))*8),0 n::1;1+(2-a+1);a+1;22+(7-saldo);saldo:34",y10-((a+2)*8):154+((5-d(a+1))*8),0 printer2=1 ("Final comprobacion; ""ENTER"".";l$: : :  CREACION PANTALLA : : &1:6:6::0 q0,0:0,171:61=,0:194,171:61=,0:0,-170 &0,165:255,0 &0,147:255,0 524,0:0,147:76L,0:0,147:132,0:0,147:188,0:0,147 @0,8;1;1;6;"TABLA MOVIMIENTO" N2,1;1;6;1;"FECHA CD DEBE HABER SALDO"  Track-Info  R PLUS3DOS((Q1:1:7::11 ,8;"M O S Q U I T O S":100d: s 0,0;" MOSQUITOS "''" Tienes dos sprays para acabar con los mosquitos"'' 7''" (O) Spray izquierdo "'" (P) Spray derecho "'' ''" Los mosquitos atacan en olea- das de 20 y solo dispones de 50 disparos."''" Si los malgastas , no tendras posibilidades de sobrevivir." (''' 2<21,0;"  PULSA UNA TECLA PARA JUGAR " <=""60< F:1000 P2:5:0: Z"b=0:s=0:c=502 d e=29 n "PUNTOS: " x?1;21,0;"DISP:";c 91;20,0;"";20,10 ;"" y=(*17)+2 .21,30;" ";21,30;c 30:0.1}L,20 :n=y:y=y+((*3)-1)-(19=y)+(1=y) n,e;" ":2;y,e;"" *c01;y,e;"":600X ="o"20,0;1;"":17,17:150,150:.05|L,36$:1;17,17:1;150,150:20,0;1;"":c=c-1:21-y=e21-y=e+1400 ="p"20,10 ;1;"":97a,17:150,150:.05|L,36$:1;97a,17:1;150,150:20,10 ;1;"":c=c-1:31-y=e31-y=e+1400 .015zu\,-12 !e=0y,e;" ":410 e=e-(*2)  160 }s=s+1:0;y,e-1;"":0.3,-25:0,0;"PUNTOS:";s:20:y,e-1;" " b=b+1:e=29 b>19:440  140 16,11 ;1;"GAME OVER":0 …8,11 ;"PUNTOS=";s;10 ,8;502-c;" Disp. usados";21,0;" PULSA UNA TECLA PARA JUGAR " @s=18s=1915,7;"Casi lo consigues!!" ^s=2015,2;"Has conseguido destruir esta plaga. Te atreves con otra ?" >S<615,2;"Destruido por derrochador !! " Mf=-10 10 :0.1}L,f:*7:f:2,-17:7 =""500 120x:80P X2e=29:21,17;"SPRAY GASTADO!!" b e=e-1 l2;18,e;" ";17,e+1;" ";16,e+2;" ":i=16:.015zu\,-12 :2:i v{e=22184,25:-108l,-20:3:1;184,25:1;-108l,-20 Xe=21;20,9 ;"";19,9 ;"";21,10 ;"" .015zu\,-12 Fe=21i=120:.01z# =,i/4:(i/3):i {e=12 104h,25:-104h,-20:3:1;104h,25:1;-104h,-20 Se=11 20,0;"";19,0;"";21,0;"" Fe=11 i=120:.01z# =,i/4:(i/3):i e=6:440  610b %f=07:cg:"A"+f,cg:f %f=07:cg:"B"+f,cg:f %f=07:cg:"C"+f,cg:f %f=07:cg:"D"+f,cg:f %f=07:cg:"E"+f,cg:f %f=07:cg:"F"+f,cg:f $%f=07:cg:"G"+f,cg:f .%f=07:cg:"H"+f,cg:f 8%f=07:cg:"I"+f,cg:f =%f=07:cg:"J"+f,cg:f B1,2,4,7,63?,513,192,0,480,64@,128,224,240,240,144,0 Ћ130,16,0,66B,0,36$,0,72H,65A,8,0,66B,0,36$,0,18 ڎ3,7,14Track-Info  R ,60<,248,248,240,240,0,32 ,0,4,64@,0,16,0 128,32 ,12 ,30,255,6,0,1,0,0,60<,126~,255,124|,0,64@  255,255,255,24,24,24,24,24,0,0,0,0,255,255,255,24 PLUS3DOS,,******GANGSTERS******* )m(xm\,ym\)=(x+y+(x-y))/2 Mu()=(65536*23674z\+256*23673y\+23672x\)/502 t()=m(u(),u()) hs=9 1:1:7: '12 ,7;"G A N G S T E R S"  9000(# P150::"INSTRUCCIONES? (s/n)";a$:a$=83Sůa$=115s800  =200:a(32 ):f=2302:a(f):f (k:"SELECCIONE NIVEL: de 5-Dificil a 1-Facil ";lev:lev<1lev>540( 2:w=0:x=4:sc=0:c=-1:g=15 <0:0:5: F:238,88X,8:238,88X,1.5@ P|250,113q:-5,-5:-25,0:0,-20:6,0:24,0,-3.3S333 U311 ,0;"" Z6:148,100d:32 ,0,-.8L:-32 ,0,-.8L:0,-480:32 ,0,.8L:0,480 d12 ,19;"OIL" n4:0,119w:32 ,0:0,-8:32 ,0:0,-8:-32 ,0:0,24 x8,119w:0,-8:8,0:0,-8:-8,0:0,-8:8,0:0,-8 L24,119w:0,-8:24,103g:0,-8 L2:64@,40(:480,0,-2.5 :-480,0 ?23674z\,0:23673y\,0:23672x\,0 13:2,11 ;7;"'DISPARE'" 3x=13:.05|L,502:5:x !18,15;2;"" M21,3;5;"PUNTOS=":21,19;5;"RECORD=" q=t():q>60<900 6f=g-(="o"Ŧ="O"g>0)+(="p"Ŧ="P"g<31) fg18,g;" " $fg18,f;2;"":g=f +="m"Ŧ="M".2~L,502:750 sc>hshs=sc:w=1 C21,10 ;5;sc:21,26;5;w;hs Fc=c+1:c=23-lev*3c=0:a(x),x;0;" " >c=0x=(*15)+1:x=x*2:a(x),x;""  200 gx.5,-20: Qc=70-1:a(x),x;c;"":.05|L,c*(*7)+1:c a(x),x;0;" "  sc=sc+lev: Track-Info  R          n:3,4;"Debe disparar al forajido que aparecera detras del coche, bidon, pared ..." %<7,4;"Usando su pistola con las teclas:" *`11 ,12 ;"(o) IZQUIERDA (p) DERECHA (m) FUEGO" /g16,4;"El objetivo, efectuar el mayor numero de aciertos durante 1 minuto." 2:21,0;" PULSE ENTER PARA CONTINUAR " 4a$=:a$=13 > 8204 mx=021:x,0;1;7;"":.01z# =,x*2:x :2,11 ;1;7;4;"GAME OVER" )21,3;7;"PUNTOS=";sc *21,19;7;"RECORD=";hs @"OTRA PARTIDA?(s/n)";a$:a$=110nůa$=78N15  0:40( 6,8,16,14,13 ,14,17,10 ,8,7,8,5,6,7,7 #(,9020<#:x="a""b"+7:a:x,a:x #2 20 #1)+(="0"g<29) 23200Z+g,15 @(g*8)+4,8:(124|)-(g*8),103g h=1300, i>7i,j;1;" " i=i+1:j=j-l/10 i>7i,j;1;"." i201000 "h=0100d ,i>7i,k;1;" " 6i=i+1:k=k+l/10 @i>7i,k;1;"." Ji201050  100d g>j2000 20,j;1;" " i=(*-7):j=15 h=(*2)  g2,12 ;1;"*********" <6,12 ;1;"*********"  3590  9500%  n=p7 a$ n,0;4;a$ n  p=p+1 !7,15;5;""  :o>hshs=o c10 ,3;"HAS RECORRIDO ";o;" METROS";15,2;"MAXIMO RECORRIDO ";hs;" METROS" 021,3;"JUGAMOS OTRA PARTIDA (s/n)" =""5030 "s"0  7000X pn=144146 zm=07 o  (n)+m,o m:n D0,0,3,3,1,59;,29,14 K0,0,128,128,0,184,112p,224 J8,20,34",127,0,66B,231,231  hs=0 .n=31492{31512{ 8a:n,a Bn L6,255,197,62>,6,6,206,211,546,245,241,16,250,61=,32 ,245,193,16,239,201,201 X6:1:7: b'a$=" " ln=07 vn,0;5;a$ n n=821 ;n,0;2;6;1;"";n,31;"" n 00,18;5;7;"METROS=0" /0,5;5;7;"FALTAS=0" G4,0;5;4;" " H5,0;5;4;Track-Info  R          ;" " H6,0;5;4;;" " G7,0;5;4;" " !7,15;5;"" -n=04:230,155,n:n ^e=0:f=13 hg=15:h=(*2) r#i=8:j=15:k=15 |A.3,-4:.25~,-6:#0;"NIVEL (1-4)="; l$= l$=""8070 l$<"1"l$>"4"8070 l=l$ #0;f;l;  m=0 o=0:p=5 %b$="" (21,1;1;1;b$ %$" " %&$" " %0$" " %:$" " '7:5 ' 100d PLUS3DOS   V JLUP2 LUPA DE CARACTERES 3:3:9 : HL=36:C=1530:6;L,C;128:C:L PC=15:RA=1:SA=1:M=4:T=0:L=3:P=3 #K=20:A$="LUPA":3802 ,L=9 :C=5:T=7:M=2 ( A$="de CARACTERES":3802 2T7;12 ,1;"ESTE PROGRAMA PERMITE AMPLIAR";13 ,1;"CUALQUIER CARACTER GRAFICO";14,1;"TANTO LOS USUALES DEL TECLADO";15,1;"COMO LOS DEFINIDOS POR EL USUA-RIO";16,3;" Y SITUARLOS EN CUALQUIER PUNTO DE LA PANTALLA,E INVERTIRLOS";18,1;"AMPLIACION DESDE x2 a x19" 7*400::1:1:9 : <0,1;"PRIMERO HAS DE ESCOGER";1,1;"LOS NUMEROS DE LINEA Y COLUMNA";2,1;"DEL EXTREMO SUPERIOR IZQUIERDO";3,1;"DE LA IMAGEN AMPLIADA";11 ,1;"EL C. PARPADEANTE CORESPONDE";12 ,1;"A LA LINEA 5, COLUMNA 18" >7;16,1;"ELIGE POR ESTE ORDEN";17,2;"DESEO AMPLIAR x2,x3..." ;18,2;"QUE CARACTERES GRAFICOS?";19,2;"LINEA Y COLUMNA";20,2;"COLOR DE FONDO Y TINTA" F<L=59 4:6;L,18;"":L K9L=682:6;L,18;"" P'6;7,18;"":L U02;1;5,18;128 ZFP=1:L=5:C=0:T=4:A$="EJEMPLO":3802 _>5,16;">":112p,131:20,0 d00,64@:255,0:300, i):4:4:9 :K=20 n[10 ,1;"CUANTO DESEAS AMPLIAR?";11 ,1;"TECLEA DE UNO A 19 Y ENTER" s"AMPLIACION?";M: x,"TECLEA CUALQUIER CARACTER O PALABRAS ";A$ ("EN QUE LINEA QUIERES QUE APAREZCA ";L *"EN QUE COLUMNA QUIERES QUE APAREZCA ";C B=A$:E=L+M:D=C+B*M "E>19D>31155 160 10 ,0;"PARA LA LINEA Y COLUMNA QUE HAS";11 ,0;"ESCOGIDO ;LA AMPLIACION ES";12 ,0;"DEMASIADO GRANDE";13 ,0;"ESTUDIALO Y REPITE" 200 ::110n z"PARA CARACTER NORMAL PULSA 1: PARA CARACTER INVERTIDO PULSA 2 ";RA:"CARACTER DERECHO PULSA 1: IZQUIERDAS PULSA 2 ";SA "DEFINE COLOR DE FONDO(0/7)";P "DEFINE COLOR DE TINTA(0/7)";T _P=TP>7T>810 ,0;"ESTA MAL:PRUEBA DE NUEVO":100d::165 3800 21,0;"OK!": P:P: P;21,0;A$ -V=C*8:Z=(21-L)*8+7 'RA=1NY=3860:3813 NY=3865 'SA=1NZ=3870:3830 NZ=3875#:3830 W=0M -1  T;X,Y-W:T;M-1,0 W: N=70-1 NY I=08*A$ NZ (I,N)=13815  I:N: Y=Z-(7-N)*M:  Y=Z-N*M:  X=V+I*M: #X=V+8*B*M-I*M: Track-Info  R         PLUS3DOSC  d(1:1:7::t=7 )p(3,2):f=0:b=f:g=b  e=40( cx=128:cy=88X   "Menu:" " 1-Crear datos." " 2-Grabar datos." " 3-Leer datos." " 4-Dibujar." " 5-Papel,Borde..."::" En opcion 4:"::" a-Giro segun x.":" b-Giro segun y.":" g-Giro segun z.":" e-Escala.":" x-Centro x":" y-Centro y" )1;"INTRODUCE OPCION";0;,A A<1A>530 ( a*100d dC"Numero de datos ?";n:a(n+1,5):a(1,1)=n fqi=2n+1:j=13:("Punto:";i-1;",";"Coordenada:";(j+119w);" ");a(i,j):j:i hJ:"Son correctos: s/n ?":a$:a$(1)="s"a$(1)="S"106j i}:"Punto:",p:"Coordenada:1,2,3 para x,y,z ",c:("Punto:";p;",";"Coordenada:";(c+119w);" ");a(p+1,c):104h k0:"Ahora las conexiones:":i=2n+1 l("El punto:";i-1;" con:?");a(i,4):"Y con:?";a(i,5):a(i,4)<0a(i,4)>na(i,5)<0a(i,5)>n108l oi pY:"Son correctas las conexiones: s/n ?":a$:a$(1)="s"a$(1)="S"116t r "Punto:";c sZ("El punto:";c;" con:?");a(c+1,4):"Y con:?";a(c+1,5):112p 15 :"Nombre del fichero:";a$ "Atento a pulsar..." a$a(): 15 ,:"PULSA PLAY,Nombre ? ";a$ . a$a(): /n=a(1,1) 0 15 ):p(1,1)=(g*f-g*b*f)*e 'p(1,2)=(g*b*f+g*f)*e 'p(2,1)=(g*f+g*b*f)*e 'p(2,2)=(g*f-g*b*f)*e p(3,1)=(-f*b)*e p(3,2)=f*b*e i=2n+1 0y=a(i,5)+1:x=a(i,4)+1 gx1=a(i,1)*p(1,1)+a(i,2)*p(2,1)+a(i,3)*p(3,1)+cx gy1=a(i,1)*p(1,2)+a(i,2)*p(2,2)+a(i,3)*p(3,2)+cy gx2=a(x,1)*p(1,1)+a(x,2)*p(2,1)+a(x,3)*p(3,1)+cx gy2=a(x,1)*p(1,2)+a(x,2)*p(2,2)+a(x,3)*p(3,2)+cy gx3=a(y,1)*p(1,1)+a(y,2)*p(2,1)+a(y,3)*p(3,1)+cx gy3=a(y,1)*p(1,2)+a(y,2)*p(2,2)+a(y,3)*p(3,2)+cy (x1,y1:x2-x1,y2-y1:x1,y1:x3-x1,y3-y1 i `9 ;21,0;"a=";f*180/;" b=";b*180/;" g=";g*180/;" " &"Menu: pulsa m",a$:a$="m"15 $a$="a""alfa:",f:f=f*/180 $a$="b""beta:",b:b=b*/180 %a$="g""Gamma:",g:g=g*/180 a$="e""Escala:",e a$="x""Centro x:",cx a$="y""Centro y:",cy a$""423  400 ::"Border:",c:c:"Papel:",c:c:"Tinta:",t:t:15 X"3d"1 Track-Info  R          PLUS3DOSzJ 6000p (record=0:n$="" 2is=1:z=22:u=0:tesoro=0:vidas=3:char=164:yd=0:xd=0 <-x=(*13 ):y=(*(z-3))+1 F8x1=(*12 )+18:y1=(*(z-3))+1 P3000 :1000 d>u=u+1:u=35#3005 ::1000:u=0 n<.22~aG2000 x<.07}\(21004 t=12 xd=-1 a$= a$="p"a$="P"xd=xd-1 a$="a"a$="A"yd=1 a$="q"a$="Q"yd=-1 y1=y1+yd:x1=x1+xd y(y1,x1)=174ū(y1,x1+1)=174ū(y1+1,x1)=174ū(y1+1,x1+1)=1744000 u(y1,x1)=41)ū(y1,x1+1)=41)ū(y1+1,x1)=41)ū(y1+1,x1+1)=41)5000 800  x1<0x1=30 y1=z-1y1=1 y1=0y1=z-2 yd=0:xd=0 ,s=1700:s=2:290" @s=2y1,x1;2;"";y1+1,x1;"":s=1 "t ,9y,x;" ";y+1,x;" ";y+2,x;" " 6 x=x+1 @y11y=y-1 Jy1>yy"b",204:"b"+1,240:"b"+2,246:"b"+3,249:"b"+4,244:"b"+5,162:"b"+6,4:"b"+7,24 H7(*(z-4))+2,(*28);1;"" R*.15~,-20:.05|L,-40( \:1000 f ***puesta en pantalla*** 1:5: 2;0,0;"TESOROS:";tesoro;0,25;"VIDAS:";vidas;1;0,11 ;"RECORD: ";0,19;n$ #z=8z=21:3000 Bz=z-1:b=07:"a"+b,(*255)+1:b a=031 z,a;3;"" .01z# =,(*24) a z=y+2y=y-1 z=y1+1y1=y1-1  ***recogida tesoro*** O800 :700:a=16:.03{u\Track-Info  R         ,a+10 +(21-z):a $tesoro=tesoro+1*(22-z) +0,8;1;3;tesoro  ***devorado por el tiburon*** v800 :1:1:700:0:0:a=0-60<-1:.03{u\,a:(*8):a @vidas=vidas-1:0,31;3;1;vidas vidas=05050 $:z=22:r=0:u=0  60<  1000 ]:1:1:y=1213:x=1306:600X:x:y  150 0:0: %10 ,10 ;"PUNTOS:";tesoro Ctesoro>record record=tesoro:12 ,10 ;"NUEVO RECORD." -"TU NOMBRE ?";n$:n$>45105: +12 ,10 ;"R E C O R D =";record 14,10 ;"Por: ";n$  621,0;" PULSA UNA TECLA PARA OTRO JUEGO"  0:502 o***instrucciones*** p4:4:0: zN1;0,1;" TIBURON";0 O5,4;" Eres un buscador de tesoros en las profundidades marinas." j9 ,4;"Tienes que impedir ser atrapado por el tiburon y evitar sermordido porlos cangrejos." b14,4;"Segun se prolonga tu busque-da, ascendera el fondo limitandotus movimientos." F1;20,1;"PULSA UNA TECLA PARA CONTINUAR":0 :6,5;"TECLADO:";7,5;"________";10 ,15;"(p) AVANZAR ";12 ,15;"(a) BAJAR";14,15;"(q) SUBIR" I1;20,1;" PULSE UNA TECLA PARA JUGAR ":0: PLUS3DOSR1:1:7: an=095_:q:"a"+n,q:n:2000:0:5:1::5:0: 20,0;4;0;4;"":0,0;7;2;1;"S O F T W A R E  A.Maranon.1984":800  '63?,128,185,191,159,4,24,24,224,3,135,255,255,0,0,0,252,1,157,253,249,32 ,24,24,7,192,225,255,255,0,0,0 4,14,31,63?,127,255,255,255,0,0,14,63?,255,255,255,255,0,0,0,224,241,255,255,255 w23,106j,132,66B,33!,89YTrack-Info  R          ,101e,6,140,34",78N,90Z,220,140,568,45-,63?,127,251,127,63?,0,0,0,255,255,109m,255,255,34",225,127,252,254,159,254,252,0,0,0 :19,0;4;1;"":18,0;1;"":21,0;4;"" {v=0:k=0:r=5:a=2:b=2:q=0:l=10 :x=8:c=30:f=0:p=0 /k$="-":a$="" .n=(*8)+1:n=1k=1 Fk=1c=c-j:a,b;5;" ":a=l:b=c:l,c;1;v;k$ (c2l,c;5;" ":v=(*7):k$="":g=(*2)+1:k=0:l=(*15)+2:c=29:b=31:f=f+1:g=2k$="" 2+x=x+(="1")-(="2"):x2x=2 v=5v=7 A"(x,8)=104h90Z F(l,c-1)=106jr,8;5;" ":n=16:.02{# =,-20:(*7):x,8;ٺ(*7);5;"":n:x,8;5;" ":500 K(x,8)=105in=15:.02{# =,-25:x-1,8;ٺ(*7);5;"":(*7):n:500 ZKr,8;5;" ":r=x:x,8;1;2;5;"" ds="0"x,10 ;1;2;5;"..........":.01z# =,10 :x,10 ;5;" " n="0"l=xc17.03{u\,-30:n=18:(*7):l,c;1;ٺ(*7);5;"":n:0:l,c;5;" ":c=31:k=0:l=(*15)+2:p=p+1 xB1,1;"HUIDOS "+f;1,16;"DESTRUIDOS "+p }f20700 ~p=40(900 15 H20,0;6;1;"INTERCEPTOR DESTRUIDO. KAPUT. " #n=1700:n::2  n=110 :.03{u\,(*70F)-30:n:7::10 ,0;2;1;"ES USTED UN DESASTRE Y MAS QUE BARON ROJO SE HA GANADO USTED A PULSO EL NOMBRE DE: N E F A S T O B A R O N N E G R O.":0:1  ?"velocidad enemigo 1 a 5= ";j:j0j6800  * n=525:e=210 :e,n;2;7;1;"*":.01z# =,10 :e:n:6,15;0;7;1;1;"X":n=1100d:׺(*3)/(10 ),(*35#):n: n=110 :.03{u\,(*70F)-30:n:4::10 ,0;0;"POR TAN MEMORABLE ACCION SE LE CONDECORA CON LA GRACIOSA GRAN CRUZ DE LATA RADIACTIVA +":0:1 4'd$=" E L B A R O N R O J O " n=160<:d$=d$(2)+d$(1):19,0;6;1;2;1;d$:.01z# =,(*70F)-40(:n: 2,1;1;"Usted es el baron Von Riftofen, y su mision es penetrar a la caza de aviones y dirigibles enemigos.Si logra llevar a cabo su mision sera condeco- rado." `="Ya sabe Baron, la gloria le es- pera .SUERTE Y AL TORO." : Y2;1;"Este es usted ":1;0;"Este es el enemigo " (s:"Sus mandos son: 1 - arriba":"2 - abajo":::1;2;1;"pulse enter para empezar":0: Track-Info  R         PLUS3DOSBB:100d:300, 200:11 %w=w+1:w=153000 n=717:n,r;6;0;1;"":n:n=15:.006yD,-12 :(*7):18,r;ٺ(*6)+1;"":n:19,0;ٺ(*2)+5;1;"" 18,r;0;" ":n=717:n,r;0;" ":n:19,0;4;"":c=r-18 0:15 s=s+1:n=300-5:y=125526:254,y:.008zn,n*1.5@:254,n:y:n:20,18;9 ;"ALCANZADOS "+s:c=31:0 @n=1618:n,c;" ":n:s=10 6000p:fin 0:7 _w=0:v=0:s=0:c=31:j=1:n$="" 0k=(*3)+1:k=2c=c-1 c=c-1:c-116,0;" ":c=31:v=v+1:17,0;" ";16,0;" ";18,0;" ";20,3;0;7;1;"ESTADIOS ";v 6j=1a$=" ":p$=" ":j=0:20 "a$= " ":p$=" ":j=1 x17,c;3;0;1;" ";18,c;p$;16,c;ٺ(*5)+2;a$:.008zn,20 v=201000 (="1"r=6:4 )="2"r=12 :4 *="3"r=18:4 +="4"r=24:4 -Mn$=n$(31)+n$(131):7,0;5;0;n$ 2 14 4graficos**************** d579,89Y,41),25,231,164,188,188,0,60<,124|,204,100d,546,18,17,0,60<,61=,535,110n,108l,64@,128 n0,192,184,136,120x,2,6,1,24,20,36$,36$,24,2,6,1 x60<,60<,60<,60<,60<,60<,60<,60<,60<,60<,60<,60<,126~,126~,255,255,255,255,24,36$,219,36$,24,255 1,3,6,12 ,25,502,101e,255,128,192,96`,480,152,76L,174,255 31,32 ,193,136,135,69E,68D,568,568,197,38&,0,1,34",158,97a,121y,134,8,0,20,12 ,18,225 120x,90Z,230,210,89Y,32 ,10 ,7,16,32 ,64@,60<,8,30,4,8  %n=0119w:q:"a"+n,q:n  Ȋ0:6,0;7;0;1;" ";5,0;" " ~19,0;4;" ";20,0;" ":0: Q4,0;7;0;1;" " ?4,18;7;0;"";3,18;"" H21,0;6;2;"S O F T W A R E  J.Maranon 1984"  ,0:1: ;,2,15;6;"O L I M P U S" <4,0;5;"Los dioses y en especial el dios FEUS estan hasta el cogote de las Olimpiadas y han decidido estropearlas fastidiando al men sajero olimpico.":600X: =10 ,0;6;"Los rayos se disparan con las teclas: 1-2-3-4";16,0;4;"dispone el dios Feus de solo 15 rayos":300,: ^ zn=120:6:.01z# =,n+10 :׺(*3)/10 ,(*30):.01z# =,n+3:2:n: L12 ,0;3;1;"El mensajeTrack-Info  R          ro olimpico ha podido mas que los dioses";15,5;1;1;4;7;"V I V A N L A S O L I M P I A D A S" o20,0;7;1;"pulse enter para otro juego":n=1800 :n:0::1 sn=16:.01z# =,n*6:n:12 ,7;7;1;1;"SE ACABARON LOS RAYITOS" h14,0;5;"pulse enter para otra carrera":n=1600X:n:0::1 pTn=110 :.01z# =,n:.008zn,(*30):.01z# =,n+10 :n Ԓ12 ,0;3;7;1;1;"Los dioses vencieron y las Olimpiadas ya se llaman : O E N S U C I A D A S ." 8t18,0;7;1;"pulsa enter para otra oportunite":n=1800 :n:0::1 e20,0;6;1;1;"pulse enter para otra carrerita ":0::1 PLUS3DOS}1:1:7::3,6;1;" 3 EN RAYA ":10 ,6;2;1;" PULSA UNA TECLA " +#1;" JOU SOFTWARE 1984":0  990 :236099\,100d -ap=0:s=0:i=0:o=0 y=14 x$ w=07  r:x$+w,r w:y (H"e",3,15,63?,127,255,255,255,191,"f",159,227,252,255,127,63?,31,3,"g",192,248,252,254,255,255,255,253,"h",251,199,63?,255,254,252,248,192 -%almacena posic. inic. en la matriz 2d(9 ,3) <a=19 Fb=13 P p:d(a,b)=p Zb:a d0,12 ,5,0,17,5,0,22,5,0,20,9 ,0,18,13 ,0,13 ,13 ,0,8,13 ,0,10 ,9 ,0,12 ,5 n6:6: x1,3;"1 2 3" {3,2;"8 4" 5,1;"7 6 5" a=38&480 D502,a:2;118v,0:2;38&,90Z a 22;-112p,0:-44,,-90Z v104h,128:80P,0:-30,-66B:-80P,0:30,66B:502,-66B s74J,62>:110n,64@:111o,62>:32 ,64@:90Z,96`:77M,0 C9 ,15;4;"":10 ,15;4;""  inicio del juego t=13 "TU TIRAS ";x 5x<1x>8d(x,1)0250 d(x,1)=1  730 "4t=1320@:730:.1}L,20 '?t=2400:5600:730:.1}L,20 ,t 6 @subrut. tirada semi-aleatoria Jc=(*8)+1 T&d(c,1)0c=ap330J ^d(c,1)=4: hrutina perder ra=172 |fd(a,1)=1d(a+1,1)=1d(a+2,1)=1730:8204 a   ruti. ganar a=14 rd(a,1)=4d(a+4,1)=0d(a+4,1)=4:442:730:840H jd(a,1Track-Info  R         )=0d(a+4,1)=4d(a,1)=4:442:730:840H a  z=18 ^d(z,1)=4zaza+4*(z<6)-4*(z>6)d(z,1)=0: z: sub.quitar ficha 'd(9 ,1)=d(1,1) a=172 :x=d(a,1)+d(a+1,1)+d(a+2,1) Ga=7y=d(1,1)+d(2,1)+d(3,1) Ma<7y=d(a+2,1)+d(a+3,1)+d(a+4,1) jx6(d(a,1)4x>6)x>3(y6d(a+1,1)=4)530 a b=12 ~d(a+b,1)=4d(a+b,1)=0:o=d(9 ,1):d(1,1)=o:ap=a+b-(8*(a+b=9 )): &b + 0 sub. cubrir :'d(9 ,1)=d(1,1) Da=172 N:e=d(a,1)+d(a+1,1)+d(a+2,1) X e=2620l ba g 650 lb=02 qw=a+b v0d(w,1)=0d(a+b,1)=4: b situa ficha aleatoria  320@  tirada jugador "QUE FICHA MUEVES ? ; ",h "NUEVA POSICION ; ",i ^h<1h>8d(h,1)1i<1i>8d(i,1)0690 ,d(h,1)=0:d(i,1)=1  subrut. visualizacion r=18 j=d(r,1)  k=d(r,3):l=d(r,2)  (j=0k,l;" ";k+1,l;" " @j>0k,l;j;6;"";k+1,l;j;6;""  r * 4F10 ,3;1;"MUY BIEN";11 ,3;"HAS GANADO" > 845M H(10 ,3;1;"HE GANADO" M,a=120:.1}L,*30:a R"JUEGAS DE NUEVO (s/n)? ";m$ \ m$="s" f,:0:7::100d:7: h*#1;" 1982 Sinclair Research Ltd." k 875k  4  230  360h  400  450  5600  730 $.1}L,20 ) 680 . 730 8 1010 "c=((*4))*2+1 "3 EN RAYA"1 hyiu:4005:7jw(' *5l w'* ('5m}5bbbejn}25䘇b5ejox5x5rvtvq u9;440340ufx8x8x8}=e66z66 }=e66JKz66Jˑy}4eB xx z$"# 'z (***w+'+" %*9}89evz &!$$ # 'L`PLUS3DOS M 2000 'B=B+1:J=J-1:T=T-1 (0,8;T;" " 2T=0800  <J1J=14 KA14A=14 PB>31B=0 Z="0"A=A-1 _="O"A=A+1 d="Z"300, iA1A=1 n(A,B)=113q490 x(A,B)=81Q500 (A,B)=87W510 (A,B)="."540 (A,B)=84T650 A,B;"" 0J,5;"*";J,10 ;"*";J,19;"*" (A,B)="*"600X 91;J,5;"*";J,10 ;"*";J,19;"*" 1;A,B;"" ="Z"300, 20 10J,5;"*";J,10 ;"*";J,19;"*" 6J1J=14 @F=A15 J T=T-1 T0,8;T;" " ^T0800  h(F,B)="*"650 B>31B=0 :(F,B)=11Track-Info  R          3qA=1:.01z# =,0:20 1(F,B)=81QB=B+2:.01z# =,0 (F,B)=87W510 Z(F,B)="."F,B;" ":R=R-1:2;0,R;"":.1}L,60<:580D '(F,B)=84T650:A=1  F,B;""  F,B;"" .005y# =,F+25  F,B;""  F,B;""  F,B;" " F 91;J,5;"*";J,10 ;"*";J,19;"*"  J=14   .01z# =,0:A=1: A=A+1:B=B+2:  Y=Y+1 01;6;1;17,0;Y  .01z# =,60< Y15760  A=2:R=R-1 &.01z# =,1 0]R=15F=1:0;4;1;0,12 ;"":.5,1 :2;0,R;"" DR12 800  N 20 X.5,-502 bF=015 l=2;5;*4+2,*25+2;"." vF F=040(  T=T-1 0,8;T;" " F12 ,30;"";12 ,30;"";12 ,30;"" .01z# =,-10 T0800  F B=1:A=2 4;3;1;1;12 ,30;""  20 23692\,255 #N=090Z:"";:N 1:"BONIFICACION 5000 PUNTOS":2,-20  W=5000 *0:0: 474;1,15;" COLISIONES ";32 -R >*3;3,15;" TIEMP0 ";T H)6;5,15;" COPAS ";Y \h7;7,15;"TOTAL PUNTOS";9 ,16;(1000*Y)+(100d*R)+(5*T)+W f<N=2032 -R-1:4;N,1;"":N pGN=2020-(T/25)-1:3;N,3;"":N z<N=2020-Y-1:6;N,5;"":N $1;20,1;"" 21,1;" " .)14,14;"OTRA PARTIDA (S/N)" 8A$ B A$="S" G A$="N" JA$"S"A$"N"10808 = INICIO A23658j\,8:236099\,15:23561 \,15 4:7:4: 1;"INSTRUCCIONES" L2,9 ;"TIENES QUE CAPTURAR LOSOBJETOS QUE ENCONTRARAS EN LOS" "RASCACIELOS, PERO..." -"TEN CUIDADO CON EL TIEMPO Y LAS ESTRELLAS"  10 ,10 ;"0 ARRIBA"  12 ,10 ;"O ABAJO" "14,10 ;"Z DESCENSO"  k0;6;20,0;"ESCOGE EL NIVEL "'"1=FACIL 2=DIFICIL 3=MUY DIFICIL " %S *!S<1S>32085% 4 B C D E A F 9X=255:Z=153 >N=07 H W,E,R,T,Y,U R ""+N,W:A \ ""+N,E:B f ""+N,R:C p ""+N,T:D z ""+N,Y:E  ""+N,U:F N 1128,24,0,195,X,24 1192,24,0,195,Z,60< *224,24,0,102f,Z,X /240,24,0,24,X,0 )248,60<,X,60<,X,0 #252,36$,X,36$,Z,X 2254,36$,165,36$,Z,60< *X,36$,165,36$,X,24 &N=07:A:""+N,A:N:G K148,0,254,124|,568,16,0,254 &1:1:1:5: 5N=035#:2;"";:N GN=025*S:2;5;*16,*31;".":N .1:6 8 G=1 BF=817 L:F,G;"";F,G+10 ;"";F,G+27;"":E VF `*N=11 17:N,6;"":N j*N=13 17:N,24;"":N tJ17,0;"";17,23;"" y21;4;2;8,31;"" ~N8,26;"":2;4;1;9 ,26;"":A F=05 N,M 2;N,M;"" F i8,4,11 ,8,8,14,17,17,17,27,13 ,25 6 N=0-31-1 "0,31:255,N:N ( L=15 2F=015 <N,M F2;7;N,M;"":G PF ZKL,0,7,2,L,5,10 ,7,L,9 ,L,10 d97,12 ,L,15,L,L,L,18,L,19,L nC20,L,23,L,26,12 ,24,7,30 x L=16 F=0Track-Info  R 10 N,M %4;3;1;N,M;"" F 5L,0,L,5,L,9 ,L,10 ,L,15 <L,L,L,18,L,19,L,20,L,23,L,26 G0;1;0,0;"" -2;"" 33;0;1;12 ,30;"" "A=1:B=0:R=32 T=500 "W=0:J=14:Y=0 00;6;0,0;" TIEMPO " 6:2 T \ NOTAS GRAFICAS ________________________________ A= B= C= D= E= G= ________________________________ PLUS3DOS1<1<1S*****QUINIELAS POR***** AMADEO CAMPOS***REM Para hacer esta linea 0 la hice primero como linea 1 y luego POKE 23755,0 y POKE 23756,0. W1:=""1:5:1:5:1:5:7:1 5:Efecto del borde en la presentacion de datos. 7:7:1: 7:1:7: #C10 ,2;"QUIERES INSTRUCCIONES (S/N)?":1 (="s"Ŧ="S"2230 210 :1410 <@7:7:1::1,12 ;"OPCIONES:" Fc3,2;"E...EMPEZAR A METER DATOS";4,2;"2...SEGUIR METIENDO DATOS" P05,2;"3...FASE DE PRONOSTICOS" Zb6,2;"4...VER CLASIFICACION";7,2;"5...ACTUALIZAR CLASIFICACION" dQ8,2;"6...VER PARTIDOS JUGADOS";9 ,2;"P...STOP" nm10 ,2;"L...'LOAD' DATOS DE CASSETTE";11 ,2;"S...'SAVE' DATOS EN CASSETTE" x13 ,0;1;5;1;1;"";14,8;7;2;0;"ELIGE UNA OPCION";15,0;1;5;1;"" 1 m$= &m$="2"l(1)0250 m$="3"860\ m$="4"2110> m$="5"1650r m$="6"1920 m$="P"2220 Em$="L":14,6;"PREPARADO PARA CARGAR":1540 m$="S"1260 m$"E"60< 1390n  'a(10 ):b(10 ):c(10 ) j=110 !a(j)=U(j):b(j)=X(j):c(j)=D(j) "j , e=25 6&Ciclo de entrada de datos. @61;20,2;"NUMERO DE DATOS:":datos J T'U(10 ):X(10 ):D(10 ) ^i=1+zz+datos hn:1;18,5;"EQUTrack-Info  R IPOS:";20,0;"CASA";20,12 ;"VISITANTE":x,y rnx>equiposy>equipos:10 :10 ,0;"ERROR EN EL NUMERO DEL EQUIPO!!!":1:360h | l(i)=x:v(i)=y:f(i)=x:g(i)=y  ?1;20,0;"RESULTADO OBTENIDO (1-x-2):":r$  s$(i)=r$ r$=""400 Mr$(1)="p"0360h:La letra 'p' es para corregir un dato. Gdp=-100d*(x-y)/(e-1): dp=diferencia de potencial. j=5+(dp/20) j>10 j=10 0r$(1)="1"U(j)=U(j)+1:0510 0r$(1)="x"X(j)=X(j)+1:0510 0r$(1)="2"D(j)=D(j)+1:0510 q.1}L,1:.1}L,1:.1}L,1:"ERROR EN ENTRADA DEL RESULTADO":200::0400 i:z=z+datos  k=0  t=0 j=110 &t=total+U(j)+X(j)+D(j) 0 total=t :U(j)>kk=U(j) DX(j)>kk=X(j) ND(j)>kk=D(j) Xj b1tz"ERROR EN LA ENTRADA DE DATOS":0350^ lGj=110 :U(j)=U(j)+a(j):X(j)=X(j)+b(j):D(j)=D(j)+c(j):j v 1560 Ql(1)=0:10 ,9 ;"NO HAY DATOS":100d:60< Vj=110 :U(j)0X(j)0D(j)0B=10 *j:0670 j ?l=(B/20):t=0:a=0:j=(B/10 )-1 HP1=0:B1=0:Px=0:Bx=0:P2=0:B2=0 B=(l+1)*20 #d=-90Z+B90Z-B20 #t=t+1:j=j+1:a=a+d*d !S=a(j)+b(j)+c(j)+U(j)+X(j)+D(j) 3U(j)=0X(j)=0D(j)=0800  !P1=P1+100d*d*(U(j)+a(j))/S B1=B1+100d*(U(j)+a(j))/S !Px=Px+100d*d*(X(j)+b(j))/S Bx=Bx+100d*(X(j)+b(j))/S  !P2=P2+100d*d*(D(j)+c(j))/S B2=B2+100d*(D(j)+c(j))/S  d *A1=P1/a:Ax=Px/a:A2=P2/a 4B1=B1/t:Bx=Bx/t:B2=B2/t >A1=0Ax=0A2=0B1=0Bx=0B2=08,0;"DATOS INSUFICIENTES NECESITO MAS";11 ,0;" PULSA UNA TECLA PARA CONTINUAR ":1:60< H pro=1:m$="3"860\ R 60< \Ql(1)=0:10 ,9 ;"NO HAY DATOS":100d:60< fDpro=0:0,7;"ESPERA UN MOMENTO":640 p.:0,7;"FASE DE PRONOSTICOS" zProbabilidades. Fase de pronosticos. 020,1;"NUMERO DE PRONOSTICOS ?":p K:" CONVIENE COPIAR LOS RESULTADOS ";" QUE VAYAN APARECIENDO." i=1p  1;"EQUIPOS: ";x,y fx>equiposy>equipos10 ,0;"ERROR EN EL NUMERO DEL EQUIPO!!!":1::0950 !dp=-100d*(x-y)/(e-1) "dp<-100d+Bdp=-100d+B  dp>100d-Bdp=100d-B  P1=A1*dp+B1 P1>100dP1=100d P1<0P1=0  Px=Ax*dp+Bx Px>100dPx=100d Px<0Px=0 $ P2=A2*dp+B2 .P2>100dP2=100d 8P2<0P2=0 B T=P1+Px+P2 L9P1=100d*P1/t:Px=100d*Px/t:P2=100d*P2/t VHLas tres lineas siguientes es para eliminar algunos decimales. `p$=P1:w$=Px:y$=P2 jp$<5p$=p$+" " tw$<5w$=w$+" " ~y$<5y$=y$+" " =" P1=";p$(5);" Px=";w$(5);" P2=";y$(5) i   A" DESEA OBTENER MAS PRONOSTICOS (s/n)?":1 ="s"Ŧ="S"0910 G:10 ,2;"METER DATOS DE OTRA CATEGORIA (S/N)"  1 ="s"Ŧ="S"1410 2:11 ,3;"BUENA SUERTE EN LA JORNADA" 713 ,1;"PREPARA UNA CINTA PARA GRABAR" @15,1;"PULSA UNA TECLA CUANDO QUIERAS"  1  h$=equipos o"clasif. "+h$(1)f$():"local "+h$(1)l():"visit. "+h$(1)v():"result. "+h$(1)s$() ~:8,12 ;1;"GRABADO!":100d:10 ,3;0;"QUIERES VERIFICARLO? (S/N)":0 (="s"Ŧ="S"1340< 2 1380d < 1: FS10 ,10 ;1;"VERIFICANDO":1:1:0,0 Po"clasif. "+h$(1)f$():"local "+h$(1)l():"visit. "+h$(1)v():"result. "+h$(1)s$() ZC10 ,10 ;1;" CORRECTO!!":100d d 60< nLz=0:t=0:total=0:U(10 ):X(10 ):D(10 ) x 1:pro=0:e=25Track-Info  R :t(800 ):f(800 ):g(800 ):l$(20,10 ):s$(800 ):l(800 ):v(800 ) f$(20,10 ) _:10 ,1;"EQUIPOS DE PRIMERA O SEGUNDA ?":11 ,13 ;"1 o 2":1 1="2"equipos=20:2190:1490 %="1"equipos=18:1470  1430 )1480:i=1equipos:l$(i):i ȿ"BARCELONA","VALENCIA","R.MADRID","GIJON","AT.MADRID","SEVILLA","R.SOCIEDAD","OSASUNA","AT.BILBAO","HERCULES","BETIS","SANTANDER","MALAGA","ESPANOL","VALLADOLID","ZARAGOZA","ELCHE","MURCIA" @:10 ,3;"QUIERES CARGAR DATOS (S/N)?":1 ="s"Ŧ="S"1520  60< 7:0,2;"PREPARADO PARA CARGAR DATOS." 23,4;"PULSA PLAY EN EL CASSETTE" |h$=equipos:"clasif. "+h$(1)f$():"local "+h$(1)l():"visit. "+h$(1)v():"result. "+h$(1)s$() /:10 ,11 ;"GRABADO":100d Ri=1800 :l(i)=0v(i)=0z=i-1:total=z:1790 "i , 1790 6o10 ,7;"DATOS ACTUALIZADOS.":#1;"PULSA UNA TECLA PARA VER MENU.":1:60< @Ql(1)=0:10 ,9 ;"NO HAY DATOS":100d:60< J:0,6;"PARTIDOS JUGADOS:":502:i=1z:0;l(i);3;l$(l(i));14;v(i);17;v$(v(i));28;s$(i) Ti ^B#1;"PULSA UNA TECLA PARA VER MENU.":1:60< hS:l(1)=0:10 ,9 ;"NO HAY DATOS":100d:60< r#:t(800 ):n=1equipos |4n-1,1;l$(n);" LUGAR EN LA TABLA: ":k k>equipos1700 !i=1n:t(i)=k1700 i:1710 #1;"ERROR EN EL NUMERO DEL EQUIPO!!!":n-1,30;1;k:1:#1;" ":n-1,30;" ":1660| (t(n)=k:n-1,30;0;k  f$(k)=l$(n) n 6#1;"ESTA LA CLASIFICACION BIEN (S/N)":1 ="s"Ŧ="S"1790 ="n"Ŧ="N"1650r  1750  l(1)=01910v .:10 ,7;"ACTUALIZANDO DATOS" l(1)=0z=1 i=1equipos  n=1z &h2,0;"TOTAL E.:";equipos;2,12 ;"TOTAL D.:";equipos;"*";z;"=";z*equipos 0l(n)=if(n)=t(i) :t(i)=0f(n)=l(n) Dv(n)=ig(n)=t(i) Nt(i)=0g(n)=v(n) Xi$=i:n$=n:0,0;"EQUIPOS: ";0,11 -i$;i;0,12 ;"DATOS: ";0,22-n$;n:n=z0,18;" " bn li v1970:60< Qf(1)=0:10 ,9 ;"NO HAY DATOS":150:60< C:0,6;"PARTIDOS JUGADOS:":502:n=1z S0;l(n);3;f$(l(n));15;v(n);18;f$(v(n));30;s$(n) n B#1;"PULSA UNA TECLA PARA VER MENU.":1:60< Na(10 ):b(10 ):c(10 ):U(10 ):X(10 ):D(10 )  l(1)=021004  i=1z  r$=s$(i) 7f(i)=0g(i)=0x=l(i):y=v(i):2030 x=f(i):y=g(i) !dp=-100d*(x-y)/(e-1) j=5+(dp/20) j>10 j=10  'r$="1"U(j)=U(j)+1:2090* 'r$="x"X(j)=X(j)+1:2090*  'r$="2"D(j)=D(j)+1:2090* *i 4 >&f$(1)" "2130R Hq:10 ,9 ;"NO TENGO DATOS";13 ,4;"EMPIEZA POR LA OPCION 5":1:60< Ri:0,3;"CLASIFICACION ACTUAL.":n=1equipos:f$(1)" "2150f \'1;n;4;l$(n):2160p f1;n;4;f$(n) pn z/#1;"PULSA UNA TECLA PARA VER MENU." 1:60< *2200:i=120:l$(i):i "LAS PALMAS","CADIZ","CASTILLA","CELTA","LOGRONES","SABADELL","MALLORCA","CASTELLON","HUELVA","BARCEL.AT.","BILBAO AT.","CARTAGENA","TENERIFE","D. CORUNA","AT.MADRIL.","GRANADA","SALAMANCA","LORCA","OVIEDO","CALVO SOT."   K10 :0,8;6;0;1;"**INSTRUCCIONES**" g:" Primero tienes que numerar los equipos segun el orden en la ta-bla de clasificacion OPCION 5" H:" El programa empieza presentando";"un serie de opciones elige una." S:" Si eliges la opcion E o la 2 te";"hara algunas preguntas como son:" U:" NUMERO DE DTrack-Info  R ATOS:...Contesta el numero de partidos cuyo resulta-do conoces." :" EQUIPOS:...Con la distincion de";"CASA y VISITANTE: Contesta por ";"el numero que le has asignado segun la ultima clasificacion." ):" Para pasar pagina pulsa tecla."  1 C:0,8;6;0;1;"**INSTRUCCIONES**" g:" RESULTADO OBTENIDO: (1-x-2)....Contesta el que se haya dado en cada partido,es decir, 1 x 2." :" La diferencia entre la opcion E y la 2 es que en la primera em-piezan todos los datos desde ce-ro y en la segunda se conservan datos metidos anteriormente." $Q:" Esta fase se repetira tantas veces como numero de datos hayas contestado." .: 8'" Para pasar pagina pulsa tecla." B 1 LC:0,8;6;0;1;"**INSTRUCCIONES**" V:" Seguidamente se pasa a la parte";"de pronosticos, en la que pregun";"tara por el numero de ellos que ";"quieres conocer y los equipos ";"que quieras pornosticar." `0:8,8;"**OBSERVACIONES**" j@:" Ten mucho cuidado al meter los datos para no equivocarte." tp" Si te equivocas al meter un da-to se puede corregir contestando 'p' en la pregunta RESULTADO OBTENIDO:." ~q:" Cuando se acabe de ejecutar to-do el programa, este se grabara (SAVE) solo para conservacion de los datos." '" Para pasar pagina pulsa tecla." 1 :1410 "1-x-2"30 PLUS3DOS*A* A*C FELICITACION DE NAVIDAD a$=" " s$=" " d$=" " q$=" " w$=" " "e$=" " $r$=" " (p$=" " *o$=" " ,i$=" " .u$=" " 2+l$=" " 7+k$="  " P INICIALIZACION  Z)0:0:7::8000@ d1F=031:21,F;4;" ":F i 4 o'126~,10 :2,150 p'127,10 :1,150 q'128,10 :0,150 r(129,10 :-1,150 s(130,10 :-2,150 v(128,152:-6,-8 x(128,148:6,-12 z*128,140:-12 ,-12 |)128,134:12 ,-14 ~)128,134:-8,-14 (128,128:8,-12 *128,123{:-20,-20 *128,119w:-10 ,-16 )128,115s:28,-20 )128,111o:10 ,-12 *128,107k:-20,-20 (128,99c:28,-20 )128,91[:-28,-20 )128,87W:-12 ,-16 (128,87W:36$Track-Info  R ,-32 )128,79O:-36$,-24 (128,79O:12 ,-16 )128,71G:-20,-24 )128,63?:-12 ,-18 (128,63?:44,,-24 )128,513:-36$,-28 )128,47/:-16,-16 (128,47/:44,,-24 )128,39':-16,-20 (128,39':16,-16 (128,568:20,-24 7  Colocacion estrellas  6;6,14;"";9 ,15;"";10 ,19;"";11 ,13 ;"";14,17;"";15,20;"";16,11 ;"";18,13 ;"";19,17;"";19,21;"" 5;7,17;"";9 ,13 ;"";11 ,17;"";12 ,19;"";13 ,12 ;"";16,13 ;"";17,21;"";18,18;"";19,11 ;"";19,14;"" 86;0,15;"";1,15;"" Sf=125:ٺ(*6)+1;(*15),(*31);"":f " Rotulos  ,Qf=06:4:0,f;0;6;1;" FELICES":f 1\f=2418-1:4:0,f;0;6;1;"FIESTAS ":f ?#1;1;6;1;" A MICROHOBY y lectores" 0f=115:i=26:8 Ki+1;17,0;a$;18,0;s$;19,0;d$ di-1;16,22;q$;17,22;w$;18,22;e$;19,22;r$ 2i;0,15;"";1,15;"" i+1;6,14;"";9 ,15;"";10 ,19;"";11 ,13 ;"";14,17;"";15,20;"";16,11 ;"";18,13 ;"";19,17;"";19,21;"" i-1;7,17;"";9 ,13 ;"";11 ,17;"";12 ,19;"";13 ,12 ;"";16,13 ;"";17,21;"";18,18;"";19,11 ;"";19,14;"" ""5000 !rf=5i=2f=10 i=4l=030:1:1,l;" ":l:1,31;" " &i:f  Contraportada  1:1:7: O1;4;7,1;a$;8,1;s$;9 ,1;d$ i1;3;8,12 ;p$;9 ,12 ;o$;10 ,12 ;i$;11 ,12 ;u$ R14,1;6;1;"Con mis mejores deseos de PAZ y FELICIDAD." *16,22;5;"J.Menendez" f=115 i=25:4  0,0;i-1;l$  1,0;i+1;k$ 2,0;i;l$  3,0;i+1;k$  4,0;i-1;l$ !21,0;i-1;l$ !20,0;i+1;k$ 19,0;i;l$ !18,0;i+1;k$ !17,0;i-1;l$ |""6000p i:f p Hacer la vela  z0:0:7: f=130 i=(*6)+1 + i=1i=2i=3i=7 %i;(*18),(*31);"*" f 8f=0312:5;0,f;"":f 9f=0212:5;f,31;"":f :f=310-2:5;21,f;"":f 9f=210-2:5;f,0;"":f 2;7,15;"";8,14;"";9 ,15;"";10 ,15;"";11 ,15;"";12 ,15;"";13 ,15;"";14,15;"" T4;14,13 ;"";14,17;"";15,14;"" n1;16,10 ;"";17,10 ;"";18,11 ;"" :6;15,22;"";16,22;"" d6;1;19,5;" PULSA UNA TECLA PARA ";20,8;"ENCENDER LA VELA."  0 R19,5;" ";20,8;" " .0f=130:i=16:4 8Ii;4,15;"";5,15;"";6,15;"" B i+1 J'128,147:0,20 L(112p,128:-30,0 N'144,128:30,0 P*112p,Track-Info  R 120x:-24,-24 R)144,120x:24,-24 T)115s,139:-24,24 V(139,139:24,24 i:f  7 WGrafico en movimiento X&1:1:7:1: b[f=019:2:7;f,f;" ";f+1,f;" ";f+2,f;" ":f gOf=1929:2:7;20,f;" ";21,f;" ":f l[f=019:2:6;f,f;" ";f+1,f;" ";f+2,f;" ":f qOf=1927:2:6;20,f;" ";21,f;" ":f v[f=019:2:4;f,f;" ";f+1,f;" ";f+2,f;" ":f {Of=1925:2:4;20,f;" ";21,f;" ":f =019:2:3;f,f;" ";f+1,f;" ";f+2,f;" ":f Of=1923:2:3;20,f;" ";21,f;" ":f =019:2:5;f,f;" ";f+1,f;" ";f+2,f;" ":f Of=1921:2:5;20,f;" ";21,f;" ":f &f=192-1:2 Sf,22;5;"";3;"";4;"";6;"";7;"" +1,22;5;"";3;"";4;"";6;"";7;"" "f+2,22;" " f  f=519:2 *Sf,22;5;"";3;"";4;"";6;"";7;"" /[f+1,22;5;"";3;"";4;"";6;"";7;"" 0"f-1,22;" " >f w7;1;4,0;" "," "," "," " x5;1;9 ,0;" "," "," "," " y3;1;14,0;" "," "," "," " L9f=120:i=16:4:1 Vhi;10 ,26;"";11 ,25;"";12 ,25;"";13 ,26;"" `>i+1;10 ,7;"";11 ,7;"" ~i:f x :1 ? @ CARACTERES GRAFICOS. {#R=07:B:"a"+R,B:R |J132,66B,32 ,17,7,143,79O,31 #R=07:B:"b"+R,B:R M33!,66B,4,136,224,241,242,248 #R=07:B:"c"+R,B:R J31,79O,143,7,17,32 ,66B,132 #R=07:B:"d"+R,B:R M248,242,241,224,136,4,66B,33! #R=07:B:"e"+R,B:R M16,16,568,254,124|,568,124|,198 #R=07:B:"f"+R,B:R M7,31,63?,127,124|,248,240,240 #R=07:B:"g"+R,B:R M240,240,248,124|,127,63?,31,7 #R=07:B:"h"+R,B:R M224,248,252,254,62>,31,15,15 #R=07:B:"i"+R,B:R M15,15,31,62>,254,252,248,224 #R=07:B:"j"+R,B:R C1,1,1,3,3,7,15,15 #R=07:B:"k"+R,B:R I0,0,0,0,128,128,128,192 #R=07:B:"l"+R,B:R I31,31,63?,63?,63?,63?,63?,63? #R=07:B:"m"+R,B:R Q224,240,248,248,252,252,254,254 #R=07:B:"n"+R,B:R F63?,30,30,14,14,7,1,1 #R=07:B:"o"+R,B:R N126~,126~,60<,60<,568,112p,224,128 #R=07:B:"p"+R,B:R F1,1,1,1,1,491,127,255 #R=07:B:"q"+R,B:R Q128,128,128,128,128,156,254,255 #R=07:B:"r"+R,B:R A1,3,3,3,3,7,7,3 #R=07:B:"s"+R,B:R Q128,192,192,192,224,224,224,192  " Track-Info  R Rutina Autoejecucion  #(1:1:7: #7I10 ,8;2;7;1;1;" PARE LA CINTA " #<8000@:150: % '"NA-84"9000(# PLUS3DOS** Javier Eiriz Aguilera  para MICRO HOBBY 1:5:1: (2,8;"* Torres de Hanoi *" "dificultad (2-9)?";d (d<2d>9 30 - 2B4,4;"Numero minimo de jugadas ";2^(d-1) 7h(3):c(3,d) 8*f=1d:c(1,f)=d+1-f:f 96h(1)=d:h(2)=0:h(3)=0 : j=0 <a$="" dT3;18,2;"";12 ;"";22;"" n319,2;"1";12 ;"2";22;"3" s 320@ "desde ";o,"hasta ";i 4o>3o<1i>3i<1200 h(o)=0200 h(i)=0230 c(o,h(o))>c(i,h(i))200 j=j+1:.2~L,23 c(i,h(i)+1)=c(o,h(o)) c(o,h(o))=0 h(o)=h(o)-1 h(i)=h(i)+1 b17-h(o),1+1*(o=1)+11 *(o=2)+21*(o=3);" "  320@ ,&h(2)=dh(3)=d500 6 200 @ w=-1 Jf=1d:w=w+1:17-w,2;a$(c(1,f));17-w,12 ;a$(c(2,f));17-w,22;a$(c(3,f)):f T!21,10 ;"Jugadas ";j ^ 321,0;"Fenomeno lo has logrado en ";j Ef=112 :n=08:.1}L,n:.1}L,f:n:f d0::"si quieres jugar pulsa una letrarapidamente o el programa hara PLUF! en 10 segundos" %f=01000:""1 f: PLUS3DOS666** B.LOPEZ.GARCIA ** ******************** 0:0:6: 7000X  p=200 j=0:f=00 (a$="":e$="" 2b$="":f$="" <c$="":g$="" Fd$=" ":h$="" Pk13 ,8;"FONDOS ";13 ,15;1;2;p;"";0;13 ,20;"Pts" dk15,8;"PREMIO ";15,15;1;2;f;"";0;15,20;"Pts" nE17,10 ;"JUGADA ";17,18;1;2;j x?p<25:13 ,7;1;"NO TIENES FONDOS": uj10 :13 ,7;1;"ES TARDE EL CASINO CIERRA";15,7;"SE RETIRO CON ";p;" Ptas": 0 ="j"Ŧ="J"175 b="p"Ŧ="P":13 ,7;1;"ADIOS";15,7;"SE RETIRO CON ";p;" Ptas": "p"Ʀ"P"140 'Track-Info  R j=j+1:p=p-25:f=00 5y=5:w=6:x=4:v=120 6000p u=s x=11 :v=120 6000p %d=s:x=18:v=120 6000p %t=s:x=25:v=120 6000p q=s 5u=dd=tt=qp=p+525 :f=500:6500d 5u=dd=ttqp=p+125}:f=100d:6500d 4u=ddtt=qp=p+100d:f=75K:6500d 5u=tudd=qp=p+125}:f=100d:6500d 5udu=qd=tp=p+275:f=250:6500d 5udd=tt=qp=p+125}:f=100d:6500d " 80P py,x;2;a$;w,x;e$;y,x;4;b$;w,x;f$;y,x;2;c$;w,x;g$;y,x;6;d$;w,x;h$:.01z# =,40(:v:s=(4*) %s=0y,x;2;a$;w,x;e$ %s=1y,x;4;b$;w,x;f$ %s=2y,x;2;c$;w,x;g$ %s=3y,x;6;d$;w,x;h$  x.1}L,0:.1}L,3:.1}L,2:.1}L,1:.3,0:.1}L,1:.1}L,7:.2~L,3:.1}L,2:.3,4:.5,2:.2~L,1:.2~L,7  Xx=327 b#0,x;"";21,x;"":x g1y=318:x=03030 ly,x;"":x:y qx=723 v$11 ,x;"";19,x;"":x {2y=12 18:x=62418 y,x;"":x:y y=47:y,2;"";y,7;"";y,9 ;"";y,14;"";y,16;"";y,21;"";y,23;"";y,28;"":y jy=385:y,3;"";y,10 ;"";y,17;"";y,24;"":y 1,2;"";1,28;"";2,1;"";2,29;"";19,1;"";19,29;"";20,2;"";20,28;"" #(%n=0111o:b:"a"+n,b:n #20,0,0,1,3,6,12 ,8,64@,64@,224,160,32 ,480,16,16,60<,126~,255,255,255,223,103g,60<,0,0,0,1,3,3,7,7,0,32 ,64@,128,128,192,192,192,15,31,31,31,23,27,15,2,224,240,248,248,248,240,224,192,0,0,0,15,31,63?,63?,127,0,32 ,64@,128,248,252,254,254,127,127,95_,103g,63?,7,0,0,254,254,254,252,248,240,0,0,4,12 ,28,28,60<,124|,124|,252,1,7,31,127,63?,14,0,0,232,216,176,224,128,0,0,0 #7 PLUS3DOS R R   NIM 1984  A.Froufe y MICRO-HOBBY  n="a""b"+7:y:n,y:n (I0,90Z,60<,126~,102f,60<,90Z,0 2K129,66B,36$,24,24,36$,66B,129 7!i=0:j=0:b=1 <:a(3):b(3,4):s(4):z$(30) A0:0:7: FC6;0,0;z$;0,11 ;0;" N I M " P: Zw$=" En pantalla apareceran tres filas de piezas, cada una con un numero determinado de ellas. " dw$=w$+" En cada tirada debes ele- gir una fila y el numero de piezas que quieres re- tirar de ella. " nw$=w$+" En cada jugada solo puedes retirar fichas de una fila y siempre tendras que re- tirar al menos una ficha de la fila elegida. " xFw$=w$+" Ganara el que retire la ultima ficha del tablero." +x=1̱w$:w$(x)=" "" ";:150 w$(x);:.02{# =,12 x "Tu nombre, por favor";n$ Vn$>9 21,0;"No puedes sobrepasar 9 letras":200:160 J:6;0,0;z$+" ";0,12 ;0;" N I M " ?20,0;5;"" @n=120:5;n,0;"";n,31;"":n Track-Info  R 2p=13:a(p)=(10 *)+6:p @2;5,1;"filas";5,23;"cantidad" 800   21,0;"FILA ? " k$= k$=""270 "&k$<491ůk$>513260 ,0.1}L,30:p=k$:21,0;z$ 6 21,0;"CANTIDAD ?" @ n:n<1n>a(p)260 J21,0;z$ T a(p)=a(p)-n ^@a(1)+a(2)+a(3)>0800 :380| hX5::11 ,10 ;"TU GANAS":j=j+1:p=1250:p:0 r 900 |p=13 x=a(p) m=41-1 y=(x/2) b(p,m)=x-2*y x=y m p m=14 *x=b(1,m)+b(2,m)+b(3,m) s(m)=x-2*(x/2) m @s(1)+s(2)+s(3)+s(4)>05600 p=13 a(p)=0550& n=(a(p)*+1)  710 &p 0m=14 :s(m)>0590N Dm Np=13 Xb(p,m)=1620l bp l n=0 v m=m4 s(m)=0700 x=2^(4-m) b(p,m)=0690 n=n+x  700 n=n-x m J21,0;"YO MUEVO ";n;" DE LA FILA ";p:a=1250:a 21,0;z$  a(p)=a(p)-n 5a(1)+a(2)+a(3)>0760 Pi=i+1::11 ,13 ;"YO GANO":a=1250:a:900  800   260  bp=13:3+4*p,6;" ":a(p)=08204 *q4*p+3,3;p;" ";:g=1a(p):4;1;"";:g:4*p+3,26;a(p) 4p ><2,2;n$;" ";j:2,20;"SPECTRUM ";i H 0:20,4;"Jugamos de nuevo ? (s/n)" k$= k$="s"180 k$"s"k$"n"910 :10000' PLUS3DOS=[1:1:7: B"Grado del determinante o numero de ecuaciones del sistema n=";n a(n,n):o(n) "Si desea el valor del determinante c=0 "'"Si desea las raices de un sistema de ecuaciones c=1"'"Si desea la matriz inversa de la dada c=2. Valor de c=";c mc=0 p=1n q=1n G("Matriz, fila(";p;"),columna(";q;"). Valor de a";p;"-";q;"=");a(p,q) mc=mc+a(p,q)*a(p,q) q o(p)=p p m=mc s=1n-1 amax=a(s,s):t=s p=s+1n !a(p,s)>amaxamax=a(p,s):t=p p t=s40( q=1n !#b=a(s,q):a(s,q)=a(t,q):a(t,q)=b "q #b=o(s):o(s)=o(t):o(t)=b (p=s+1n )r=a(p,s)/a(s,s) *q=sn +a(p,q)=a(p,q)-r*a(s,q) ,q . a(p,s)=r /p 0s 1 d=1 2p=1n-1 3q=p+1n 4o(q)"Valor del determinante D=";d'"Modulo del determinante M=";m R"Si desea ahora las raices de un sistema de ecuaciones c=1"'"Si no lo desea c=0" "Valor de c=";c !c=0"Fin del programa": p=1n B("Valor del termino independiente de la ecuacion ";p;" b=");x(p) p p=1n q=o(p):b(p)=x(q) p p=1n b=0 q=1n b=b+b(q)*a(p,q) q x(p)=b p p=1n "Incognita p(";p;")=";x(p) p "Si desea un nuevo conjunto de incognitas que satisfagan las mismas ecuaciones , proceda a introducir un nuevo conjunto de terminos independientes con la instruccion rep=1. Si no lo desea rep=0" "rep=";rep rep=1173 #rep=0c=0:172 PLUS3DOSa$##ZAMP  Juan Fradera 1:1:7: !9000(#:9500%:0 Xl=0:c=0:t$="500":p=0:x=0:y=0:v=3:pp=0 Z25:4:7::8001A:n=m+s+h d*7:l=7:c=30:x=c:y=l nBucle de movimiento xy,x;" ";l,c;"";1,10 -p;7;0;p;1,18;"000"(3-t$);t$:.0004uQX,30:x=c:y=l *l=l+(="6")-(="7"):c=c+(="8")-(="5") p=p+((l,c)=34"):t$=(-1+(20ƫ(l,c)=35#)+t$):200+(1000ƫ(l,c)=38&)+(1250t$="-1")+(2000ƫ(l,c)=35#)+(3000 p=250-n)+(4100ƫ(l,c)=37%)+(4800ƫ(l,c)=32 ) 120x Pisar una mina y,x;" ";l,c;"":(*3)=12,7;1;5;0;"La mina no estallo":g=110 :f=110 :.01z# =,f:f:g:5:2,7;5;" ":120x !2,1;1;5;0;" Lo siento, la mina estallo ":f=120:l,c;(7f/2=(f/2));"":.005y# =,20:.004yn,15:.003xD,30:.002xn,25:f:2,1;5;" " FMuerte xEv=v-1:1,31-v;7;" ":v0120x  1500 X2,5;1;5;0;" Se acabo el tiempo ":4,20 ܾpp=pp+p:2,0;5;0; " T.SCORE: ";2,18;pp*10 ;11 ,12 ;0;7;"GAME OVER";12 ,14;"(s/n)" @="s"Ŧ="S" r="n"Ŧ="N"  1600@ Coger una Super Fruta 5.005y# =,20:.005y# =,10 :120x 51200:Enlace de final de tiempo y pisar mina Fin de la recoleccion !l7c30120x Hv3v=v+1 zy,x;" ";l,c;"";1;5;0;2,0;" Muy bien, lo has conseguido ":f=115:g=10 14:.05|L,g:g:(f/2):f:5 5pp=pp+p:p=0::7:t$="500":8001A n=h+m+s:100d h31200:Enlace del fin de frutas y pisar mina Saltar el charco occ=-(="5")+(="8"):ll=-(="7")+(="6"):c1=c+2*cc:l1=l+2*ll:cc=0ll=0Track-Info  R 5100 (l1,c1)=32 l1=l+llc1=c+ccn=n+(p/5):p=p-(p/5):2,4;5;0;" Caistes en el charco ":f=14:.005y# =,20:.005y# =,0:.005y# =,10 :f:2,4;5;" ":120x k(l1,c1)=32 l,c;(" "b$="3"):l=l+ll:c=c+cc:.005y# =,30:.005y# =,10 :155 0(l1,c1)32 l1>2l1<21c1>0c1<32 l,c;(" "b$="3"):c=c1:l=l1:.005y# =,30:.005y# =,10 :155 c1=c+cc:l1=l+ll:4350 \<3200 :Enlaca de final del tiempo y final de fru-tas Pisar la balla l=y:c=x:120x 62200:Enlace del fin de frutas y pisar s.fruta ΃1450:Enlace del fin de tiempo y pisar charco,y fin de tiempo y pisar valla,y definal de tiempo, final frutas y pisar mina 2F2200:Enlace del fin de tiempo, fin de frutas y pisar s.fruta L54300:Enlace delfin de frutas y pisar charco @s5100:Enlace del fin de frutas y la valla. :, marcador y recinto Awa$="################################":0,0;1;0;5;" ZAMP  Juan Fradera " Bb7;0;"SCORE 00000 TIME 500 LIVES ";5;" " C-1,28;7;" "(4-v) Es0;3,0;a$;21,0;a$:f=321:0;f,0;"#";f,31;"#":f IFrutas JIc=420:f=1292:2;c,f;"":f:c Y7;6,29;" ";4,29;" ";5,28;" ";7,29;" ";0;4,28;"#";6,30;"#";6,28;"#";7,28;"#";8,28;"###" hMinas r&m=(5+*20):x=1m ]l=(4+*19):c=(*32 ):(l,c)=34"6;l,c;"":x:8300l  8070 Super Frutas &s=(3+*10 ):x=1s !]l=(4+*19):c=(*32 ):(l,c)=34"3;l,c;"":x:85004! ! 8450! !4Charco !> 8570z! !fE1450:Enlace del fin de tiempo, fin de frutas y pisar charco !zh=0:b$="1" !&h=(5+*20):x=1h !Sl=(4+*19):c=(*32 ):(l,c)=34"5;l,c;"":x: ! 8650! #(Def. de caracteres #+f=07:a:"a"+f,a:f:Hombre #)f=07:a:"b"+f,a:f:Mina #*f=07:a:"c"+f,a:f:Fruta $ 9275;$ $"D1450:Enlace del fin de tiempo , fin de frutas y pisar valla $;,f=07:a:"d"+f,a:f:S.Fruta $T+f=07:a:"e"+f,a:f:Charco $^(f=07:a:"k"+f,a:f:EKe $16,122z,16,122z,186,63?,42*,108l,0,60<,66B,90Z,90Z,66B,60<,0,0,0,2,12 ,60<,568,24,0,0,16,16,214,124|,568,568,0,0,102f,127,62>,62>,124|,124|,24,120x,0,120x,68D,68D,68D,68D,0 $ %(Presentecion e instruc- ciones %!4:1: %&l=70-1 %c7-l:l:6,0;" " %^9 ;"  Juan Fradera ";21,0;"Quieres instrucciones (s/n)?" %@.01z# =,l-7:="s"Ŧ="S"1,20:9700% %7="n"Ŧ="N":4:0:4::9870& %l % 9510&% %4:0:4::0,0;" INSTRUCCIONES Se trata de un juego de habili- dad y rapidez. Tu eres un campesino que tienes que recoger tu cosecha antes de la venida del mal tiempo. " %"Pero ademas de no poder pasarte del tiempo hay otro problema..,unos gamberros te hin puesto en el campo unas minas que pueden explotar, por lo tanto esquiva- las o saltalas,(ya te explicare como). " %"Por cada fruto que cojas obten- dras 10 puntos. Tienes 3 vidas, y por cada mina queTrack-Info  R  pises y ex- plote te quedara una menos. Para empezar a recoger la cose- cha tienes que salir de tu caba-a, y una vez terminado el tra- bajo tendras de volver a ella." &=""9750& & 1,20::"En el campo podras encontrar unos vegetales que si los coges el mal tiempo llegara mas tarde.Has de tener en cuenta que no puedes salir del campo, ni sal- tando las vallas. " &*D"Los puntos que vayas obteniendo en cada pantalla se te iran su- mando, y el total obtenido se temostrara al finalizar el juego. En el campo, (segun la opcion que cojas), hay unos charcos quelos puedes saltar en la direc- cion que quieras, e incluso, conpractica y rapidez de dedos podras saltar con efecto. " &4"Si intentas saltar varios char- cos seguidos tendras que coger fuerza manteniendo pulsada la tecla en la direccion del salto." &>=""9790>& &HX1,20::"Solo se pueden saltar charcos, ysi es posible ,(por no encon- trarte delante de la valla), se saltara algo mas alla de este. Si saltas un charco que se en- cuentre inmediatamente delante de la valla, caeras al agua y perderas una quinta parte de lospuntos acumulados en esa panta- lla. " &R"Estas son las teclas de control: 5>Izquierda 8>Derecha 7>Arriba 6>Abajo " &\"Y esto lo que veras en pantalla:":;10 ;7;" >Tu, el campesino";10 ;6;" >Las minas";10 ;2;" >La cosecha";10 ;2;" >Los vegetales";10 ;5;" >Los charcos";10 ;0;"# >Las vallas" &z=""9850z& &^1,20::"Ahora elije la opcion que deseesy .... !Manos a la azada!"''"Opciones:" &T'"1) Sin charcos."'"2) Normal."'"3) Una vez saltado un charco este se seca." &b$=:b$=""9900& &3b$"1"b$"2"b$"3"1,5:9900& &|'"La opcion deseada es la ";b$:l=175K:.01z# =,60<-l/2:l:.1}L,20:.1}L,5: '"Zamp"1 PLUS3DOSp7:7:0:  9000(# z$="MISION LUNAR" C0::10 ,3;7;" M I S I O N L U N A R " ?11 ,0;6;"_______________________" Rw=010 :3;w,16;"";w-1,16;" ":3:w +502:2;13 ,16;"" #0;5;0;1;0;" DESEAS INSTRUCCIONES? (s/n) ":.1}L,10 :.1}L,5:.1}L,0:.5,10 0:="s"9500% &3:7:0:1: &xx=(*25)+5:yy=0 z=1150 !}z>12918,0;" ":n=110 :''''':23692\,-1:502 #a=(*30)+1 (618,a;6;"":19,a;6;"" +23692\,-2 0''''' 2 yy,xx;"" 3 .01z# =,(z/10 )-5 4'(yy+1,xx)=70F9700% 1xx=xx-1 F"="p"xx<30xx=xx+1 dz :n=021:n,xx;"":n-1,xx;" ":.05|L,n:.05|L,n-10 :n::7,10 ;"HENORABUENA":12 ,3;2;7;1;"AHORA ATRAVIESA LA LAVA":n=1250:n &3:5:1:1: 'yy=0:xx=(*10 )+20  l20,0;"Track-Info  R ":21,0;""  z=0 4-yy,xx;0;"":.01z# =,-yy+10 >5="o"xx>0xx=xx-1:yy,xx+1;" " H6="p"xx<31xx=xx+1:yy,xx-1;" " Rg:19,z;0;"":20,z;0;"":19,z-1;" ":20,z-1;"" \Tz=z+1:z>30z=1:19,30;" ":20,30;"" fyy>189700% pyy=182170z u,xx=zxx=z-1xx=z+13000 yy,xx;" ":yy=yy+.5  21004 n=z31:18,n;0;"":18,n-1;" ":19,n;0;"":19,n-1;" ":20,n;0;"":20,n-1;"":.03{u\,n:.03{u\,n-1:n 5:4:1::10 ,2;2;7;1;"BUSCA UN LUGAR PARA LA BASE":n=1250:n 3300 #a=20:p=0:xz=0 'a$=" " 'b$=" " 'c$=" " 'd$=" " Cn=821:n,0;"" n ?21,0;0;"" f$="___________________________ " "a,2;4;0;"" !="q"p=1 "xz=1357000X #&xz=xz+1:e$=f$(xz31+xz) &4,0;a$ 05,0;b$ :6,0;c$ D7,0;d$ I(21,0;4;0;e$ N%a$=a$(132 )+a$(1) X%b$=b$(132 )+b$(1) b%c$=c$(132 )+c$(1) l%d$=d$(132 )+d$(1) q%e$=e$(132 )+e$(1) va$=a$(2) b$=b$(2) c$=c$(2) d$=d$(2) e$=e$(2) .01z# =,-a+20 a203245 (21,2)="_"20,1;4;" ":21,2;2;7;1;"":0,0;6;0;" HAS FRACASADO EN TU MISION ":1,-20:100d:3005 "a,2;4;1;" " p=1a $a=0p=0:a=20: H19,18,17,16,17,18,19,0 3100  Xfelicitaciones b6:0:2: l?n=121:n,0;"":n-1,0;"":n v)n=030:21,n;"":n Jn=200-1:n,31;"":n+1,31;"":n 1n=310-1:0,n;"":n 3,6;"HAS PASADO MUY BIEN ";6,3;"EVITANDO LOS METEORITOS Y";9 ,3;"ATERRIZANZDO CON SEGURIDAD";15,7;"SOBREVIVIREIS !!!!!" Nn=130:.01z# =,n:.01z# =,n+3:.01z# =,n+4:n M17,2;2;7;1;"LA BASE LUNAR SERA UN EXITO!" L 9800H& #- 9020<# #2=n=110 :a$:m=07:a:a$+m,a:m:n #52010 )0.1}L,10 :3,0;NJ !N$(5,8):P(5) P(1)=32 I=1NJ:0.2~L,0:3+2*I,0;"COMO TE LLAMAS, JUGADOR ";I;" ???":N$(I):P(I)=0:1:4+2*I,0;N$(I):0:I e16,0;"NIVEL DE DIFICULTAD? (1-2-3)":17,0;"1=FACIL, 2=NORMAL, 3=DIFICIL)" lim:lim=lim*2+2 lim=4v$="F A C I L" lim=6v$="N O R M A L" !lim=8v$="D I F I C I L" (1:18,0;v$:0 1c(8,8):c$(8,8,1) 4colocacion de caracteres 90.2~L,0:0.2~L,4:0.2~L,7::1:9 ,0;"UN MOMENTO, QUE ESTOY PREPARANDO";"LO NECESARIO PARA JUGAR... ":0 >Ai=1lim:j=1lim:c(i,j)=0:c$(i,j)=" ":j:i D$lim=4j$="ZEACLUAZEUOICLOI" F8lim=6j$="PQKAJSOWIHDGFEURYTQPWOEIRUTYASDFGHJK" HTLIM=8j$="QPIOW3UEYRTAZS5XD4CFVGB2HNJ1MK0L5QAZWSXEDC4RFVT23GBYHNUJMI1KOLP0" Ri=1lim*lim \Ck=(lim*)+1::l=(lim*)+1:c$(k,l)=" "2200 fbuTrack-Info  R scar sitio libre od$="." pJm=1lim:n=1lim:c$(m,n)=" "d$j$(i)k=m:l=n:2200 u d$=c$(m,n) zn:m c$(k,l)=j$(i) i pantalla del juego +:i=4lim*16+416 9i,44,+16*(8-lim):0,lim*16 i Yi=44,+16*(8-lim)16*lim+44,+16*(8-lim)16 !4,i:lim*16,0 i:1 'lim=4x$="A B C D":xx=9 ,lim=6x$="A B C D E F":xx=13 0lim=8x$="A B C D E F G H":xx=17 i=1lim:j=1lim:i*2-1,j*2-1;" ":j:i*2-1,xx;i:i:xx,1;x$:0 i=1nj )1+i*2,19;i;" ";n$(i) i cuerpo del juego HI=0:A$(2):A(2):B(2):f(2):g(2)  I=I+1 I>njI=1 <1:1,21;"LE TOCA A:":0:502 R1:0.2~L,10 :1+I*2,21;n$(I);" ";p(i):0 o=12  4500 3c(y1,x1)00.5,-30:4040 3a$(o)=c$(y1,x1):a(o)=k:b(o)=l:f(o)=y1:g(o)=x1 Xo=2a(1)=a(2)b(1)=b(2)0.5,-30:4040 Qo=10.1}L,15:1:1,21;"JUEGA OTRA":0 o a$(1)=a$(2)i1=f(1):j1=g(1):i2=f(2):j2=g(2):c(i1,j1)=1:c(i2,j2)=1:p(i)=p(i)+1:1+i*2,30;p(i):0.5,13 :0.5,17:0.5,20:z=1:a(1),b(1);c$(i1,j1):a(2),b(2);c$(i2,j2):p(1)+p(2)+p(3)+p(4)+p(5)"h")lim=6(l$<"a"l$>"f")lim=4(l$<"a"l$>"d")0.2~L,-30:4520 ,19,20;l$:0.03{u\,30 ""4535 =""4540 |q$=:lim=8(q$<"1"q$>"8")lim=6(q$<"1"q$>"6")lim=4(q$<"1"q$>"4")0.2~L,-30:4535  nu=0  nu=(q$) ,19,22;nu:0.03{u\,30 ""4555 x1=l$-96`:y1=nu $1:c(y1,x1)00 Ek=y1*2-1:l=x1*2-1:k,l;c$(y1,x1):0  #(final del juego #):1:0,3;"N I V E L ";V$:0:2,7;"JUGADOR PUNTOS":3,7;"----------- ------" #* MAY=0 #2i=1nj #<4I*2+3,7;I;" ";N$(I);" ";P(I) #>P(I)>MAYcamp=I:may=p(i) #FI #Pj16,0;"EL CAMPEON ES ";N$(camp):17,0;"HA DESCUBIERTO ";P(camp);" PAREJAS !!!" #ZsY$="E R E S U N M E M O R I O N":I=1̱Y$:0.05|L,I*2-10 :19,I-1;Y$(I):I #d49090#:i=16:dur,not:dur,not:i #n 30 #x(i=17:dur,not:dur,not:i #m0.3,5,0.3,5,0.5,0,0.5,5,0.5,2,0.6,2 #0.3,4,0.3,5,0.5,7,0.5,4,0.5,5,0.15~,9 ,0.4L,5 #8:11 ,0;"QUEREIS JUGAR OTRA VEZ ??? (S-N)" #=""9110# #="S"Ŧ="s"2000 # Track-Info  R PLUS3DOS2;27:0:0: < 9000(# F 8000@ PG0,0;2;6;" PUNTOS RECORD 0 " Z hi=0 d 4000 nt1,30:2,10 ;1;"ALERTA ALIEN":100d:2,10 ;" ":502 x sc=0 -p=15:q=1:f=0:g=1 ,v=1:w=1:h=1:i=1 x=15:y=20 a=x:b=y *y=y-(="q"y>3)+(="a"y<20) *x=x-(="o"x>0)+(="p"x<31) $(y,x)=5.01z# =,40( b,a;" ";y,x;7;"" q,p;" ";q,p-1;" " "="m"y-1,x;5;"" p=p+v:q=q+w 0p=31p=0v=-v:.01z# =,15 %q=1w=-w:.01z# =,15 0(q,p)=5.01z# =,502:3000 (q,p)=47000X "q,p;6;"" ,sc<1500380| 6g,f;" ";g,f-1;" " @f=f+h:g=g+i J0f=31f=0h=-h:.01z# =,15 T%g=1i=-i:.01z# =,15 ^0(g,f)=5.01z# =,502:3500 h(g,f)=47000X rg,f;6;"" |6sc=sc+1:0,8;2;6;sc  160 dschihi=sc:0,25;2;6;hi:0,8;2;6;"0 " z=120 8z,0;0;"" z  100d v=v:w=-w q=21q=0w=-w  h=h:i=i g=21g=1i=-i  0s=130:t=713 2  t,s;5;"":.01z# =,s t:s j=031 /21,j;4;"":.01z# =,2*j j (2,10 ;0;""  X(q,p)=4;6;1;q-1,p-1;"";q-2,p-1;"":.5,1:.5,1:2,-2:q-1,p-1;0;"";q-2,p-1;0;"" b(g,f)=4;6;1;g-1,f-1;"";g-2,f-1;"":.5,1:.5,1:2,-2:g-1,f-1;0;"";g-2,f-1;0;"" lZ21,0;4;7;1;1;"" v:3,11 ;1;7;1;"GAME OVER" b=60<-20-2  .01z# =,b b " Otro juego? (s/n)";a$ a$="s"a$="S"400 a$="n"a$="N":7110 )a$"s"a$"S"a$"n"a$"N"7070 Tx=015:''٥*6;*15;"OK,!!!!":23692\,255:x: @Ub=17:.2~L,30:b,8;0;b;" D E F E N D E R ":b C210 ,12 ;5;1;"CONTROLES" E12 ,0;2;6;"SUBIR BAJAR DECHA IZQDA VALLAR ";5;3;" Q A O P M " GTc=114:;6;3;20,c;" PULSA UNA TECLA>":c:0 H If2,0;''" Quien esta destrozando la pro-teccion de la tierra?";1;3;" " JU;'" Cuanto podra resistir el pobreJoe defendiendola contra el infatigable alien?." TL;'" Trata de retrasar su invasionaumentando la barrera de protec-cion." ^4;'" Podras evitar el acoso del se-gundo alien???" |cc=031:0;19,c;Track-Info  R 1;7;" PULSA UNA TECLA PARA JUGAR>":c  0:  #(n=110 #)bd=15:1;7,8;" D E F E N D E R ":.05|L,15:d:0 #2a$ #<p=07 #F q:a$+p,q #Pp #Zn #d "",3,27,27,15,63?,27,120x,64@,"",66B,60<,90Z,126~,126~,90Z,66B,36$,"",28,34",73I,89Y,77M,73I,34",28,"",241,159,241,159,241,159,241,159,"",0,0,2,2,9 ,37%,16,8,"",100d,2,225,24,70F,0,252,0,"",16,146,84T,84T,85U,17,130,130,"",84T,84T,17,186,124|,124|,254,16,"",0,0,128,128,32 ,72H,16,32 ,"",76L,128,14,4,8,196,0,126~,0 % PLUS3DOSJ TANQUES G1:5:2::10 ,3;"Espera unos segundos" w="a""a"+7 a$ )a$=a$(3)+"00000000"+a$(2) a$24 i=14 ((a$=a$(2324)+a$(22) Ga1= (""+a$(8)) K a2=(""+a$(9 16)) P!a3=(""+a$(1724)) ZMw+24*i-24,a1:w+24*i-16,a2:w+24*i-8,a3 ]i _w d"" ș"0000000000000000","0000000001100000","1111111111111110","0000001111111110","0000011111111100","0011111111111110","0010000000000001","0001111111111110"  470 f="m""u"+7  a:f,a:f ֓0,0,0,15,240,128,128,192,0,0,1,14,240,128,128,192 0,0,3,28,224,128,128,192,0,1,6,568,192,128,128,192 2,12 ,16,32 ,192,128,128,192,4,8,16,32 ,192,128,128,192 18,74J,42*,169,87W,171,95_,47/,68D,85U,91[,162,91[,87W,255,255,214,228,169,218,229,254,232,240 X].5,0:.5,5:.73333,11 :0:5:1:2: ]3victoria=0:derrota=0:puntos=0 bA5,5;1;2;6;" T A N Q U E S " lQ10 ,3;"?Que tipo de guerra desea?"''6;"Diurna:1 Nocturna:2" vz 9z>2z<1zɺz.5,-20:630v :2,3;"Mueve la pieza de artilleria pulsando:"'15;" o : arriba"''15;"j : abajo"''15;"f : fuego" ''"La puntuacion eTrack-Info  R stara de acuerdo a la distancia del tanque"''" ATENCION:No se puede disparar continuamente"''" De noche guiate por la luz del disparo" )" Suerte.... Pulsa una tecla":0 /(1800z=1)+(1850:z=2) &1:0:4:3: Xr=010 :5;1;r,0;" ":r &0,100d:10 ,-5:30,20:20,-10 :40(,0,/5:20,20:20,-15:30,-5:10 ,10 :10 ,-15:35#,40(:15,-20:5,7:10 ,-25 0L6;40(,155,17:6;40(,155,15 5 1910v :&1:0:0:4: ? 7 D0,100d:10 ,-5:30,20:20,-10 :40(,0,/5:20,20:20,-15:30,-5:10 ,10 :10 ,-15:35#,40(:15,-20:5,7:10 ,-25 N%0,90Z:255,0 XS200,170:0,-30,*1.2:0,30,-/1.2 b0:0 lCOMIENZO DEL JUEGO v di=0 Oz=20;0;20,4;" " 2;6;21,0;"Victoria:";victoria;21,11 ;"Derrota:";derrota;21,21;"Puntos";puntos d=156+(*6) U2*z;19,0;"";20,0;(-2+z*2);" " p=294-1  t=153144-3 di=di-1 @(-8+8*z);20,p;t;(t+1);(t+2)  .0013w*d,502 POSICION DISPARO  #="o"d160.8 d=d+.2~L *#="j"d>156.2333d=d-.2~L 4!2*z;19,1;d H"f"di>02270  DISPARO #.00127w&v ,502:di=9 d<160.8 d=d+.2~L 16,22 F2;1;(d-155)*39',-14,-/(d-163) 1;16,22 F2;1;(d-155)*39',-14,-/(d-163) Ԏ((d-155)*39'+16,8)=1victoria=victoria+1:puntos=puntos+100d*p:2;6;1;20,p;"";18,p;100d*p:b=40(502.3:.00127w&v ,b:254,*255:.002xn,b*(b-18):254,*255:b:20,p;" ";18,p;" ":(1900lvictoria9 )+(600Xvictoria=10 ) t p 6derrota=derrota+1:derrota=53000 31,13 :2;-21,3:.5,-30:31,13 :1;-21,3:19,0;1;2;6;"";20,0;"":x=3031.02{# =:.0013w*d,x:254,*255:x:1900l 7:0:1: 110 ,3;" Perdiste la guerra.RINDETE" *'''"Pulsa una tecla":0:600X PLUS3DOS 63999 n=6400064024  x:n,x:n 6,64@,17,0,64@,213,225,35#,197,1,31,0,26,237,176,43+,119w,0,35#,35#,19,193,16,240,201 ========================= s$(5,10 ):s$(4)="MASHO SOY!":s$(Track-Info  R 5)="VALE TIO!!":s$(1)="YUUPII..!!":s$(2)="VICTORIA!!":s$(3)="LO LOGRE!!" 0:0:0: H2,,,,,,,,,,,,:6,,,,,,,,,,,,,,,,,,:2,,,,,,,,,,,, 75K,110n,30:120x,110n,30:165,110n,30:100d,70F,30:140,70F,30 75K,110n,28:120x,110n,28:165,110n,28:100d,70F,28:140,70F,28 |19,5;1;6;2;"E L C O R R E D O R";21,3;"SOFTWARE  A.Maranon 1984":0 3::1::1 21,10 ;9 ;"Para saltar pulse 0" W5,,,,,,,,,,,,,,;3,0;7;"" x0,480:7:255,0:0,568:255,0:0,61=:255,0 \0,34":7;255,0:0,20:7;255,0 $0,0:255,0 "0,0,1,2,3,0,0,131,0,14,14,14,240,112p,240,208,199,231,182,28,0,0,1,1,136,196,96`,480,96`,192,128,224 0,0,12 ,4,3,0,64@,99c,0,14,14,14,240,113q,254,192,115s,91[,30,14,0,0,0,0,224,96`,480,24,12 ,6,6,7 "0,0,0,0,1,2,4,1,0,14,14,14,240,112p,224,224,3,3,3,3,3,15,7,3,248,128,192,192,128,0,0,192 $0,0,12 ,4,3,0,64@,99c,0,14,14,14,240,113q,254,192,115s,91[,30,14,0,0,0,0,240,248,13 ,7,3,0,0,0 &F7,579,33!,33!,33!,33!,1,1 'E0,0,0,0,120x,4,2,255 (M151,45-,203,95_,155,557,45-,203 2%w=0151:q:"a"+w,q:w Po$="":c=30:f=0 UYp$="":u$="":t=0 VF1;6,0;u$;5,0;p$;4,0;u$ WG7,0;7;1;"----------------" dq$(3,2):k$(3,2):a=0:k$(1)="":k$(2)="":k$(3)="":q$(1)="":q$(2)="":q$(3)="":n=0:j=0:h=0 y8,0;4,,,, +++++++++++++++++++++++ 17,8;0;"";18,8;"":0:.5,-20:17,8;" ";18,8;" " 0t=t+1:n=n+1:n4n=1 cm=64000 t"0"j=017,8;0;k$(n);18,8;6;q$(n):n1.002xn,20 I="0"(c12 c7).04|# =,1:t=t+1:j=1 j=1h=h+1 h<2j=118,8;" ";17,8;" ";16,8;0;"";17,8;6;"" Ph>2h=0:j=0:17,8;" ";16,8;" " .r=(*2)+1:r=2a=1 ^a=1c=c-2:18,c;o$+" ":c=018,c;" ":c=30:o$="" j=0c=818,c;"";17,8;0;"";18,8;6;1;"":o$=" ":.06|u\,10 :f=f+1:21,10 ;2;7;1;"faltas ";f:s=120:s:18,8;" ":t120x500 , 190 h21,27;7;"^";13 ,19;"^":224,0:7:-64@,60< n=0:d=827 #n=n+1:n=3n=1 S17,d;0;" "+k$(n);18,d;6;" "+q$(n):.1}L,-20 d th=120:.05|L,h:h:2,0;0;7;1;" HA LLEGADO A LA META " G4,0;9 ;4;" Y SU ALEGRIA ES INCONTENIBLTrack-Info  R E " 8na=(*5)+1:n=0:j=120 ! n=n+1 "n=4n=1 #?0;7;1;1;14,20;s$(na) &w16,28;" ":0:17,28;k$(n);18,28;6;q$(n):.3,(*-20) +j18,28;" ":0:16,28;k$(n);17,28;6;q$(n):.3,j 0j Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info  R          Track-Info ! R!!!!!!!!! Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info " R""""""""" Track-Info # R######### Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info & R&&&&&&&&& Track-Info ' R''''''''' Track-Info ' R''''''''' Track-Info ( R((((((((( Track-Info ( R((((((((( Track-Info ) R))))))))) Track-Info ) R))))))))) Track-Info * R********* Track-Info * R********* Track-Info + R+++++++++ Track-Info + R+++++++++ Track-Info , R,,,,,,,,, Track-Info , R,,,,,,,,, Track-Info - R--------- Track-Info - R--------- Track-Info . R......... Track-Info . R......... Track-Info / R///////// Track-Info / R///////// Track-Info 0 R000000000 Track-Info 0 R000000000 Track-Info 1 R111111111 Track-Info 1 R111111111 Track-Info 2 R222222222 Track-Info 2 R222222222 Track-Info 3 R333333333 Track-Info 3 R333333333 Track-Info 4 R444444444 Track-Info 4 R444444444 Track-Info 5 R555555555 Track-Info 5 R555555555 Track-Info 6 R666666666 Track-Info 6 R666666666 Track-Info 7 R777777777 Track-Info 7 R777777777 Track-Info 8 R888888888 Track-Info 8 R888888888 Track-Info 9 R999999999 Track-Info 9 R999999999 Track-Info : R::::::::: Track-Info : R::::::::: Track-Info ; R;;;;;;;;; Track-Info ; R;;;;;;;;; Track-Info < R<<<<<<<<< Track-Info < R<<<<<<<<< Track-Info = R========= Track-Info = R========= Track-Info > R>>>>>>>>> Track-Info > R>>>>>>>>> Track-Info ? R????????? Track-Info ? R????????? Track-Info @ R@@@@@@@@@ Track-Info @ R@@@@@@@@@ Track-Info A RAAAAAAAAA Track-Info A RAAAAAAAAA Track-Info B RBBBBBBBBB Track-Info B RBBBBBBBBB Track-Info C RCCCCCCCCC Track-Info C RCCCCCCCCC Track-Info D RDDDDDDDDD Track-Info D RDDDDDDDDD Track-Info E REEEEEEEEE Track-Info E REEEEEEEEE Track-Info F RFFFFFFFFF Track-Info F RFFFFFFFFF Track-Info G RGGGGGGGGG Track-Info G RGGGGGGGGG Track-Info H RHHHHHHHHH Track-Info H RHHHHHHHHH Track-Info I RIIIIIIIII Track-Info I RIIIIIIIII Track-Info J RJJJJJJJJJ Track-Info J RJJJJJJJJJ Track-Info K RKKKKKKKKK Track-Info K RKKKKKKKKK Track-Info L RLLLLLLLLL Track-Info L RLLLLLLLLL Track-Info M RMMMMMMMMM Track-Info M RMMMMMMMMM Track-Info N RNNNNNNNNN Track-Info N RNNNNNNNNN Track-Info O ROOOOOOOOO Track-Info O ROOOOOOOOO