MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 13  AA % AB iAC AC 0  AD ;!"#$%&'(AE )*+,AF K-./0123456BA S789:;<=>?@ABB |BCDEFGHIJKLMNOPQBC 1RSTUVWXBD YBD 0 ZBE -[\]^_`PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "13" PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#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 `UUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888PLUS3DOSCTdCINTA 13 (REVISTAS 49 a 52) 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-Geograf" 7,18;"B-La cruz" &8,3;"C-Datador" 08,18;"D-Tanden" :9 ,3;"E-Cargador" D9 ,18;"F-Parabo" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Microbas" 7,18;"B-Space" 8,3;"C-Tridimen" $ 8,18;"D-Variador" .9 ,3;"E-Compila" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 13" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 49-52"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: *********************** Programa de Geografia   A.Santamaria +  G.Reimers *********************** L p(30):q(30):c$(47/,12 ):c(47/):d(47/)  s=.90ffff G I=1 47/:c$(I),c(I),d(I) :d(i)=s*(d(i)-9 ) :I 6 i=130:p(i),q(i):q(i)=s*(-q(i)) :i #a=0:n=0 ( 1200 2 n=n+1 d 1:7 i j 1260 n103g,0 x= i=129:p(i+1)-p(i),q(i)-q(i+1):i _i=147/:j=01 :k=01 :1;c(i)+j,d(i)+k:k :j :i  x=80P:y=502 1500  x$=:x$=""155 7 1500  (x$)=13 210 ) (x$)=11 y=y+2:200 ((x$)=10 y=y-2:200 ( (x$)=8x=x-3:200 ( (x$)=9 x=x+3:200 1500 155 vamos alla m=1000:k=0 >i=147/:f=((x-c(i))*(x-c(i))+(y-d(i))*(y-d(i)))  f5 270 6 "Enhorabuena, lo acertaste":a=a+1:295' P "Correcto, pero la proxima vez ajusta mas el Track-Info  R cursor":a=a+.5:295' 9"Lo siento, la ciudad mas proxima es ";c$(k):295' ' n=15300, (:"Pulsa una tecla" )x$=:x$=""297) * 502 , u=a/n*10 6" "La puntuacion total es: ";u: "La Coruna",568,182,"Lugo",70F,176,"Orense",65A,160,"Pontevedra",535,162,"Oviedo",94^,184 "Santander",122z,186,"Bilbao",135,185,"SanSebastian",148,186,"Vitoria",139,174 u"Pamplona",155,174,"Logrono",143,166,"Burgos",126~,163,"Leon",93],174 |"Palencia",114r,154,"Zamora",96`,142,"Valladolid",122z,145,"Salamanca",98b,128 t"Segovia",120x,128,"Avila",113q,122z,"Soria",145,150,"Huesca",173,162 "Zaragoza",168,148,"Teruel",167,119w,"Lerida",189,150,"Gerona",221,163,"Barcelona",208,152 $~"Tarragona",197,143,"Castellon",182,113q,"Valencia",176,100d,"Alicante",177,74J ."Albacete",156,85U,"Murcia",169,62>,"Madrid",127,117u,"Toledo",124|,105i,"CiudadReal",125},84T 8"Cuenca",151,110n,"Guadalajara",135,122z,"Caceres",88X,94^,"Badajoz",78N,80P,"Jaen",128,546,"Cordoba",113q,58: B"Sevilla",96`,45-,"Huelva",80P,42*,"Cadiz",92\,26,"Granada",132,42*,"Malaga",118v,32 ,"Almeria",150,36$ L103g,10 ,120x,29,155,33!,178,557,190,84T,180,102f,203,142,225,162,224,178 V210,176,188,182,172,180,153,190,132,191,112p,187,93],192,73I,190,65A,195,546,186 `42*,180,502,137,47/,108l,40(,90Z,38&,78N,43+,66B,41),36$,64@,34",77M,39',86V,28,103g,10  5"Hola,":"Vamos a practicar un poco de geografia." g" Os mostrare un mapa de Espana,": "con las capitales de provincia yos hare preguntas sobre ellas" O"Recordad que las flechas sirven para mover el cursor sobre la ":"pantalla" X "Cuando pulseis la tecla -ENTER":"mirare si vuestra respuesta es ":"corecta...OK?" w9 ,6 ;"Bienvenidos al programa" : 1 :1:12 ,10 ;" GEOGRAFIA " :0:0 +15,6;"pulsar la tecla ENTER" x$= :x$=""1255  b=1+(46.*) "situa la ciudad de ";c$(b)    xtrazado de la cruz indicadora  1;x+1,y-1 1;x-1,y-1 1;x+1,y+1 1;x,y 1;x-1,y+1  PLUS3DOS433^r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: :2:7:0 01;3,7;" PARE EL CASSETTE " 9 ,3;" " 27,145,20:228,145,20:27,130:0,30:228,130:0,30:20,150:14,0:221,150:14,0 =19,1;"CUALQUIER TECLA PARA COMENZAR.":0 "a"+0,00011000 "a"+1,00011000 "a"+2,01111110~ "a"+3,11100111 "a"+4,01111110~ "a"+5,00011000 "a"+6,00011000Track-Info  R  "a"+7,00011000 "b"+0,00011000 "b"+1,10011000 "b"+2,01010011S "b"+3,00111110> "b"+4,00011010 "b"+5,00101000( "b"+6,00101000( "b"+7,01101100l "c"+0,00000000 "c"+1,00000000 !"c"+2,11101110 ""c"+3,00000000 #"c"+4,00000000 $"c"+5,00000000 %"c"+6,00000000 &"c"+7,00000000 '"d"+0,00100000 ("d"+1,01010111W )"d"+2,11011010 *"d"+3,001100011 +"d"+4,001100011 ,"d"+5,11011010 -"d"+6,01010111W ."d"+7,00100000 /"e"+0,00011000 0"e"+1,00011000 1"e"+2,11111111 2"e"+3,11111111 3"e"+4,00011000 4"e"+5,00011000 5"e"+6,00011000 6"e"+7,00011000 7"f"+0,00000000 8"f"+1,10100111 9"f"+2,11000101 :"f"+3,10010111 ;"f"+4,10010100 <"f"+5,10010100 ="f"+6,10010100 >"f"+7,00000000 ?"g"+0,01111110~ @"g"+1,11111111 A"g"+2,11111111 B"g"+3,11111111 C"g"+4,11111111 D"g"+5,11111111 E"g"+6,11111111 F"g"+7,01111110~ G"h"+0,10100101 H"h"+1,10101001 I"h"+2,10101010 J"h"+3,01010100T K"h"+4,00111101= L"h"+5,10011010 M"h"+6,01011100\ N"h"+7,001110008 PInstrucciones Z%0:0:7::1,8;"INSTRUCCIONES";5,4;"La Iglesia de la llanura de la muerte esta poseida por peli-grosos seres y rodeada de aguje-ros y plantas; no te fies de ellos!. Huye y rescata la cruz. Intentaran impedirlo. Suerte!!" _13 ,0;"Para desplazarte utiliza:":16,3;"K..Arriba.  M..Abajo.":17,3;"Z..Izquierda. X..Derecha.";18,12 ;"O..Fuego." `=1;21,1;"CUALQUIER TECLA PARA CONTINUAR" a7qw=(*30):.1}L,qw:.055|aG,qw-30 b=""97a fG2,0;"En la primera fase del rescate (pantalla 1), tienes que matar el mayor numero de atacantes si quieres poder pasar a la panta- lla 2; estos atacantes (36 en total); aparecen al azar. En la segunda pantalla has de llegar hasta la cruz, y ponerte debajo o encima de ella, pero has de evitar las plantas y los pozos. Es posible que alguna planta te reste mas puntos de los debidos; eso es porque ha- bian unas plantas encima de otras. Tambien es posible que al pisar una planta te quite 1 vida; es porque la planta nacio encima de un pozo." g=1;21,1;"CUALQUIER TECLA PARA COMENZAR." h6qq=(*30):.01z# =,qq:.1}L,qq-30 i=""104h j'7:2:0:1000  Iglesia ?:7:2:0:.01z# =,0:192,100d:568,0:.01z# =,5:0,20:-7,0:-15,15:-15,-15:.01z# =,10 :0,35#:192,100d:0,557:10 ,10 :10 ,-10 :.01z# =,15 U226,100d:0,15:236,100d:0,4:.01z# =,20:216,100d:0,5:10 ,10 ,-1.5@:10 ,-10 ,-1.5@:.01z# =,25:226,124|,3:226,135:0,8:223,140:6,0:.01z# =,30 2:192,155:20,0:g=-1.5@:f=192202:.005y# =,f/7:g=g+1:f,155:0,g:f:g=11 :f=202212:g=g-1:.005y# =,f/4.6333:f,155:0,g-1:f:192,155:10 ,10 :202,155:0,10 :192,155:19,0:.01z# =,35# 202,165:0:196,132:10 ,0:.01z# =,40(:0,10 :-10 ,2.5 ,/.9ffff:0Track-Info  R ,-13 :196,132:.01z# =,45- 197,136:8,0:197,140:8,0:.01z# =,502:199,133:0,16:203,133:0,15 ! horizonte &4:f=11903:.002xn,f/5.50:f,116t+(*2)+1:0,(*2)+1:f 0V6:f=12 0-1:60<,150,f:.005y# =,f*4:f: :2:17,121y:3,13 ,.1}L:.01z# =,40(:20,121y:-3,13 ,-.1}L:.01z# =,35# D4:17,134:8,8,8.5:2:100d,121y:.1}L,35#:3,13 ,.1}L:103g,121y:-3,13 ,-.1}L:4:100d,134:10 ,10 ,8.6 :.1}L,30 N0:f=120x1855:f,121y:0,7:.05|L,f/4:f:121y,127:63?,0:.2~L,10 :121y,124|:63?,0:.2~L,10 Xf=01925:f,100d:0,7:.05|L,f/4:f:1,103g:188,0:.2~L,10 :1,106j:188,0:.2~L,10 : (500:2:7:variables Gscore=0:vidas=3:naves=36$:xx=2:yy=15 1100L:2000 L0;yy,xx;"":1;2;21,0;" PUNTUACION: ";21,0;" PUNTUACION: ";score;21,24;" N: ";vidas;" ":0,8:2;255,0 NV7;yy+1,xx;" ";yy-1,xx;" ";yy,xx+1;" ";yy,xx-1;" " Pvidas=0:11 ,11 ;"ELIMINADO";13 ,0;"Acabaron con sus 3 vidas. Pulse cualquier tecla para comenzar":0:90Z V f=136$ 6s=((12 +5*)):n=((8+20*)) _yy=sxx=nvidas=vidas-1:502:e=40(-30:.22~aG,e:e:1100L:f +s,n;"":.002xn,30:2500 syy=sxx=ne=40(-30-1:.01z# =,e:0;yy,xx;"":e:vidas=vidas-1:1100L:f Fn=n-1:7;s,n+1;" ":n<27;s,n;" " n0f f=36$1;19,7;"ESPERE UN MOMENTO.":f=-10 60<.2~L:.005y# =,f:.005y# =,f-5:f::3000  2015 a$= a$=""2019 @a$="z"a$="Z"xx=xx-1:.003xD,-10 :2561 >a$="x"a$="X"xx=xx+1:.003xD,0:2561 ?a$="k"a$="K"yy=yy-1:.003xD,10 :2561 ?a$="m"a$="M"yy=yy+1:.003xD,20:2561 'a$="o"a$="O"2700 :2600( xx2xx=2 xx28xx=28 yy11 yy=11 yy18yy=18 1100L  (dd=xx 30dd=287;yy,dd-1;" ":f 4:yys4;yy,dd+2;" ":.002xn,-20 5yysu=n2-1:0;s,u;"":.0008vQX,20:7;yy,dd+2;" ":2500 :7;s,u;" ":u:f 67;yy,dd+2;" " <dd=dd+1:26102 dd=xx:yys dd=dd+1:n=n-1 dd=ndd=n+1dd=n-17;yy,dd-1;" ";0;yy,dd+1;"":score=score+502:1100L:f yy=sxx=n2019 2715 n2f  2713 :0;s,n;"":.00085v^҈,-20:4;yy,dd;"":.0085z C,0:2:7;s,n-2;" ";yy,dd;" ":2705 '30:0:0:7: &score502*311;19,2;"LA TECLA DE DISPARO NO ACTUA.";0;0,0;"CONSEJO: Si caes en un pozo,este aparece de nuevo, las plantas no, pero siguen quitando puntos.";16,0;"Cuidado, algunas plantas nacen encima de pozos; doble castigo!" score502*311;4,10 ;"ENHORABUENA.";0;5,0;"Desde este momento queda nombra-do guerrero mayor de la llanura ,y por ese motivo tiene la obli-gacion de rescatar la cruz de la iglesia, sorteando los po- zos y las plantas venenosas. Los pozos le restaran una vida; las plantas le quitaran 150 puntos. SUERTE!!":f=-40(40(:.05|L,f:f:1;21,1;"CUALQUIER TECLA PARA CONTINUAR":0Track-Info  R :3500 7,0;"Es una pena. No logro matar el suficiente numero de atacantes como para merecer ser nombrado guerrero mayor de la llanura. Usted decide: Quiere comenzar de nuevo el juego (pulse c), o deja de jugar (pulse d).":0 2="c"Ŧ="C"2:7:0:90Z ="d"Ŧ="D": 3013 pozos y plantas Vpozos=502:hierbas=60<:p(502):o(502):h(60<):i(60<) +2:7:0:500:q=1502:x=((3+22*)):y=((11 +8*)):p(q)=x:o(q)=y:0;o(q),p(q);"":q:q=160<:x=((3+22*)):y=((11 +8*)):h(q)=x:i(q)=y:4;i(q),h(q);"":q:xx=2:yy=15 !0;11 ,26;"" 3535 :3538 0;yy,xx;"":1;2;21,0;" PUNTUACION: ";21,0;" PUNTUACION: ";score;21,24;" N: ";vidas;" ":0,8:2;255,0: Ҹvidas=0:10 ,11 ;"FIN JUEGO":11 ,0;"Le han matado a los 3 hombreci- tos.";13 ,0;"Seguimos jugando (s/n)?":0:="s"Ŧ="S"90Z vidas=00:: 4000:4200h a$=:a$="" ;a$="z"a$="Z"xx=xx-1:7;yy,xx+1;" " ;a$="x"a$="X"xx=xx+1:7;yy,xx-1;" " ;a$="m"a$="M"yy=yy+1:7;yy-1,xx;" " ;a$="k"a$="K"yy=yy-1:7;yy+1,xx;" " .2~L,-2 xx2xx=2 xx28xx=28 yy11 yy=11 yy18yy=18 T7;19,2;" ":3535 :4200h score0f=1((10 +8*)):.2~L,((-30+502*)):f:100d::11 ,3;"TE HAS QUEDADO SIN PUNTOS":1500:1;21,1;"CUALQUIER TECLA PARA COMENZAR":0:90Z h+comprobacion contacto con pozos o hierbas ividas03538 jscore04080 k01;19,7;"ESPERE UN MOMENTO" rw=1502:xx=p(w)yy=o(w)vidas=vidas-1:xx=2:yy=15:2,-60<:0;o(w),p(w);"":3535 :4220| sw |Nw=160<:xx=h(w)yy=i(w)score=score-150:1,30 }w mxx261;19,7;"ESPERE UN MOMENTO":score=score+1000:3535 :4300  4250  h1;19,2;"PULSE LA TECLA DE MOVIMIENTO":0:4000:4240:3532 "f=-50230:.2~L,f:f:::2:7:0:1;5,10 ;"RECORD:";" ";score;" ";0;8,0;"Estupendo, lo ha hecho muy bien,se le ha nombrado poseedor del tesoro de la llanura. Se atreve a probarlo de nuevo (s/n)":0 ="s"Ŧ="S"90Z ="n"Ŧ="N":  4310 PLUS3DOSt '' !64649:"AC.0"64650 ' "Primera Posicion a datar ";a ' "Cantidad de Bytes a datar ";b ' 7a:23300[,23670v\:23301[,23671w\ '7b:23302[,23670v\:23303[,23671w\ '64650 Track-Info  R PLUS3DOS"G![>2[*S\"[\*[K[6ͅ:[4ͅͅS [ͅ>ͅ~0d0 00ͅ>ͅͅͅ~#ͅͅͅ x(5  >,ͅ> ͅ* [#~   * [r+s/ 0Gy0 (ͅxPLUS3DOSo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 9000(#:mu=0:pu=0:vi=3:0:6:3::1000:JUAN LACLOS HUSILLOS C/ DONANTES DE SANGRE,1,1, 34005 PALENCIA Xfu=f1:b$(32 *10 ):b$(3162>)=" " <b$(155186)=" " <b$(217248)=" " 1:y=1:x1=14:100d:x=n+2 (b$=b$(3106)+b$(13095) (="p"y,x;" ":x=x+1:y,x;"" (="o"y,x;" ":x=x-1:y,x;"" @="q"fu>0fu=fu-5:y=y-1:y+2,x;"" {y,x;" ":y=y+1:7;y,x;"":y19(x=5x=18x=27)ƫ(y+1,x)=32000 ~.012zD,20+y:3,0;b$:#1;0;3;1;0,7;PU;0,19;fu;" " -(y,x)" "y3y12 3000 ;(y,x+1)6ū(y,x-1)63000  6 d;n=026:0,n;" ";1,n;" " n =" " s(b$=b$(3106)+b$(13095) t3,0;b$ xGn:n=260-1:0,n;" ";1,n;" " y(b$=b$(3106)+b$(13095) z3,0;b$ =" " n:100d E7:0,0:8,8:8,-8:16,8:480,8:16,15:16,-15:32 ,40(:8,-20:16,-20:152,8:32 ,10 :8,-5:8,10 :8,-20:224,0:31,10 f21,4;"";21,17;"";3;20,5;"";20,18;"" 921,26;"";3;20,27;"" }0,0:255,0:#1;0,0;3;1;0;"PUNTOS= FUEL= NAVES "  6  Гki=x:y1=20:b$(320@):a$=" ":c$=" ":b$(64@)=a$+c$+a$+c$+a$+c$+a$ ѓj=1x:pu=pu+5:5:21,j;1;"";21,j-1;"":.03{u\,j:j:21,j-1;1;"":20 qk=191-.25~:y119y1,ki;" ";y1-2,ki-1;" ":ki=(*31):y1=8 (b$=b$(3106)+b$(13095) ۡy1<19y1,ki;" ";y1-2,ki-1;" ":y1=y1+1:y1,ki;"|";y1-2,ki-1;"|":(y1=yy1-2=y)(ki=xki-1=x)3000 R#1;0;3;1;0,7;PU;0,19;fu;" " (="p"y,x;" ":x=x+1:y,x;"" ?.012zD,502-k:="o"y,x;" ":x=x-1:y,x;"" e="q"fu>0fu=fuTrack-Info  R         -1:k=k-.75@:y+1,x;7;1;"";y+1,x;" " "y,x;" ":y=k:7;y,x;"" 3,0;b$ -(y,x)" "y3y12 3000 ;(y,x+1)6ū(y,x-1)63000 k  xn+23000 Jh=0200:h:200:y1,ki;" ";y1-2,ki-1;" " mu=mu+1:pu=pu+fu N0,n;" ";1,n;" ":pu=pu+250:mu32090*  2 *f1=502PU=PU+500:10 ,0;"SALVASTE A TODOS LOS ASTRONAUTASPERO AHORA SERA MAS DIFICIL POR QUE TU NAVE SE HA AVERIADO Y NO TIENES FUEL":F1=0:10 :0::1000:2 4&pu=pu+900:mu62 >f1=25:1 mu=0:y,x;1;"":j=020:.01z# =,0:.01z# =,10 :.01z# =,-10 :1:3:j:vi=vi-1:vi<01;1;7;10 ,10 ;"GAME OVER":3500 #1;0,0;"PULSE UNA TECLA ":1:0::1000:#1;0,29+vi;1;3;0;1;"X"+("X"vi<2)+("X"vi<1) 2 Upurere=pu:"CONSEGUISTE MEJORAR ESCRIBE TU NOMBRE",R$:R$=12 3500 [1:200::10 ,0;"EL MEJOR = ";1;r$'';10 ;"CON = ";re #0;"OTRA PARTIDA S/N" ="s"f1=502:1 ="n"10000' 3530 #(GRAFICOS #2 N="A""j"+7:A:N,A:N #<0,24,60<,126~,66B,60<,36$,66B,0,0,1,15,63?,127,255,255,60<,255,195,255,195,255,195,255 #F0,0,128,240,252,254,255,255,255,143,99c,31,7,3,1,1,255,241,198,248,224,192,128,128 #P24,36$,66B,130,129,65A,34",28,0,0,24,60<,90Z,255,165,90Z,24,32 ,4,66B,16,133,32 ,0 #ZJ568,568,16,254,16,16,40(,68D #dO0:7:1:2::F1=502:re=100d:r$="CPU Z80" #n30,100d:-10 ,0:0,20:40(,120x:0,-20:10 ,0:0,20 #x60<,100d:0,20:10 ,-20:0,20:80P,100d:0,20:10 ,0:0,-20:80P,110n:10 ,0 #100d,100d:0,20:10 ,0:0,-10 :-10 ,0:105i,110n:5,-10 #105i,70F:0,20:100d,90Z:10 ,0:120x,70F:0,20:10 ,0:0,-20:120x,80P:10 ,0 #140,70F:0,20:10 ,-20:0,20:160,70F:0,20:5,0:5,-5:0,-10 :-5,-5:-5,0 #180,70F:0,20:10 ,0:180,80P:10 ,0:180,70F:10 ,0 #L200,70F:0,20:10 ,-20:0,20 #:21,0;"  JUAN CARLOS HUSILLOS 1985 " # 0: #5,0;"TRES ASTRONAUTAS SE HAN ESTRE- LLADO EN LA LUNA Y TU MISION ES RESCATARLES.PERO EN LA NAVE DE SALVAMENTO SOLO CABE UN ASTRONAUTA,ASI QUE TENDRAS QUE HACER TRES VIAJES."''"PULSA UNA TECLA":0: #5,0;"PARA CONSEGUIR ATERRIZAR PRIMEROTIENES QUE PASAR POR LA BARRERA DE METEORITOS Y LUEGO ATERRIZAR EL LAS PLATAFORMAS,CADA PLATAFORMA SOLO SE PUEDE USAR 1 VEZ. LUEGO PARA SUBIR TENDRAS QUE ESQUIBAR A LAS NAVES ENEMIGAS " #021,0;"PULSA UNA TECLA":0: #0:5,0;" C O N T R O L E S "'''"O= IZQUIERDA"'"P= DERECHA"'"Q= SUBIR"'"SPACE= SALIR DE LA NAVE NODRIZA"'''"PULSA UNA TECLA PARA JUGAR":0: &' SI PARA EL PROGRAMA HAZ RUN 9000 ' Track-Info  R         PLUS3DOSAAq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: ꃃ CARGADOR CM MICROHOBBY ꌌ 65535:menu=6000p n=23296[23312[ c:n,c:n 42*,75K,92\,126~,254,193,40(,6,205,184,25,235,24,245,546,65A,201 Fa$="":23658j\,8 dHa=10 :b=11 :c=12 :d=13 :e=14:f=15 li=1:6000p BUCLE PRINCIPAL  "LINEA",l$:l$=""6000p n=1̱l$ !l$(n)<"0"l$(n)>"9"1001  n:line=l$ Clineli23689\,23689\-1:5000:1000 0" DATOS ";d$ d$=""6000p Ncx=24-23689\:cx,0;d$;cx,21;138;"LINEA ";li &d$205000:1000 n=120 V w$=d$(n) ~Aw$>47/w$<58:w$>64@w$<71G1170 =cx,n-1;1;1;" ":5000:1000 n:ch=0 n=1202 0he=d$(n)*16+d$(n+1):ch=ch+he:n ct=0:"CONTROL ",ct ctch5000:1000  a$=a$+d$ li=li+1:1000 I.2~L,0:254,2:23689\,23689\+1: pMENU PRINCIPAL u?#0;7;1;" INPUT LOAD SAVE DUMP TEST " i$=:i$=""6100 8i$="I"1000 Bi$="S"7000X Li$="L"8000@ Qi$="T"7500L Vi$="D"9000(# j 6100 X SAVE Y?#0;3;7;" FUENTE(F) OBJETO(O) RETURN(R) " Z(0:"F"Ʀ"O"Ʀ"R"7002Z [="O"7250R \="R":6000p ]SAVE DATA ^a$=""9500%:6000p `li b#a$=¾23670v\+¾23671w\+a$ g5"NOMBRE (Save)",n$:n$=""űn$>10 7015g l n$a$() q#0;6;" DESEA VERIFICAR (S/N) ":0:="S"#0;7;2;" REBOBINE LA CINTA Y PULSE PLAY ":n$a$()::"CODIGO FUENTE: ";n$:200  va$=a$(3):  6000p RSAVE CODE WC3;7;"DIRECCION ";di,3;7;"N.BYTES ";nb \5"NOMBRE (Save)",n$:n$=""űn$>10 7260\ f n$di,nb k#0;6;" DESEA VERIFICAR (S/N) ":0:="S"#0;7;2;" REBOBINE LA CINTA Y PULSE PLAY ":n$di,nb::"CODIGO OBJETO: ";n$'"Inicio: ";di,"Longitud: ";nb:200  p  6000p L TEST Oa$=""9500%:6000p Q:m=1(a$)20 V@a$(mm+19);" ";138;"LINEA ";(m/20)+1 `m:6000p @ LOAD J"NOMBRE (Load)",n$ T n$a$() Y23296[ ^9li=a$(1)+256*a$(2):a$=a$(3) cW:10 ,5;"Ultima linea: ";li-1;11 ,5;"Comenzar por: ";li h 6000p #( DUMPING #+a$=""9500%:6000p #-"DIRECCION ",di: #.di<23653e\+256*23654f\(di+a$/2)>653001;5,6;"ESPACIO DE TRABAJO":n=1200:n::6000p #/\9 ,7;1;"VOLCANDO EN MEMORIA":7,5;"Direccion Inicial: ";di #0F11 ,4;"RESTAN:";11 ,17;"DIRECCIONES" #2 n=1(a$)2 #72di,a$(n)*16+a$(n+1):di=di+1 #:111 ,12 ;(a$/2-n/2);" " #<^n::10 ,8;1;"VOLCADO COMPLETO":n=1100d:n::6000p %SUBRUTINA MEMORIA VACIA %G:#0;1;" NO EXISTE NINGUN CODIGO FUENTE ":300,:: &Q:"CARGADOR"1:#0;"REBOBINE LA CINTA PARA VERIFICAR":"CARGADOR": Track-Info  R         PLUS3DOS%$$q7:7:0::1;10 ,9 ;" PARE LA CINTA ":I=164@:.02{# =,I:I:  39999? K5:5::1;5,5;"MOVIMIENTO PARABOLICO" n="a""a"+127  a:n,a:n F1,2,4,9 ,18,34",65A,255 M128,64@,32 ,144,72H,68D,130,255 "@32 ,46.,42*,42*,46.,32 ,32 $R32 ,4,4,4,4,244,148,148,148 &H7,24,32 ,32 ,64@,64@,32 ,32 (D224,24,4,4,2,2,4,4 *E24,20,11 ,8,4,15,7,7 ,M24,40(,208,16,32 ,240,224,224 .N15,16,24,127,128,128,128,127 0H240,8,24,254,1,1,1,254 2D0,1,2,4,4,24,32 ,32 4M16,8,4,5,9 ,16,16,15,0 6A220,34",2,154,36$,18,18 8I99c,1,139,2,28,8,136,112p :H96`,144,32 ,64@,240,0,0,0 MM(5,4):i=15:j=12:a:M(i,j)=a:j:i @_150,10 ,85U,5,3106,30,400,502,350^,100d F&i=40000@40025Y:a:i,a:i H6,5,197,33!,0,3,17,1,0,229,205,181,3,225,17,16,0,167,237,82R,32 ,240,193,16,233,201 Ijr=.12345}|Z:i=15:a:M(i,4)=a:i:80P,60<,170,100d,350^ K&0:10 ,1;"-PULSA:" P12 ,3;"1)Breve explicacion teorica.";14,3;"2)Experimentacion y comproba- cion de resultados de pro- blemas.";18,3;"3)Propuesta de problemas." Z"1"Ʀ"2"Ʀ"3"90Z _(+1)*1000 4:5:5 M:0,0:60<,20:513,-12 :94^,12 _568,16:60<,-8:180,16:60<,8:15,-2 '0,-22:-255,0 %0,10 :18,-2 L720,xc;2;"";21,xc;1;"" 3xg,yg;3;"";xg+1,yg;1;"" C0:21,0;"":8,7:7,4 Bdis=(2*alfa)*v0*v0/9.81:ax=dis*255/500  1700 +hmax=v0*v0*alfa*alfa/2/9.81 !jj=500/255/v0/alfa Ahx=hmax*255/500:jjj=4*hx/ax/ax:dado=0 <6,1;"pulsa una tecla para disparar"':0 D1;6,1;"pulsa una tecla para disparar":2 i=10 255 j=jjj*i*(ax-i) =j>250dado=0:#0;"Te has pasado, tio!": <t=i*jj:2,2;7;.01z# =*(t*100d) j<0aa=40000@: .01z# =,j/4-20 j>1751520 ?i,j:j<16i/8xci/8xg(175-j)/8ygi/8/8,2;"(Ya que 2sencos = sen2)" Hp10 ,1;"-La altura maxima se obtiene enel centro de la parabola. Haciendo en (3) X=Xmax/2 tenemos:" R114,5;"Ymax=V0sen /(2g) (5)" \@#0;" (pulsa una tecla para volver)":0::75K :0,8;1;"EXPERIMENTACION";3,1;0;"-Aqui puedes practicar disparossobre un globo y una casa,intro-duciendo la velocidad inicial y el angulo inicial." M9 ,1;"-La situacion del globo y la casa se fija introduciendo:" 12 ,3;"-Las distancias que quieras";14,3;"-A para situacion arbitraria";16,3;"-R para repetir situacion";18,3;"-P para la situacion propues- ta en el problema" 0#0;7;"(pulsa una tecla)":0 :2,5;"Vel.inicial: ";M(1,4);4,5;"angulo : ";M(2,4);6,5;"alt. globo: ";M(3,4);8,5;"dist. globo: ";M(4,4);10 ,5;"dist. casa: ";M(5,4) &H16,0;"INTRODUCE DATOS:":a=1234590:p=543211 0E"Vel. inicial (m/s) V0= ";dato:cont=2:3500 :v0=dato :`"Angulo inicial (grados)= ";dato:cont=4:3500 :alfag=dato:alfa=alfag/180* DC"altura globo (340m)=> ";dato:cont=6:3500 :ag=dato NF"distancia globo (450m)=> ";dato:cont=8:3500 :dg=dato XF"distancia casa (450m)=> ";dato:cont=10 :3500 :dc=dato b^xc=(dc/500*32 ):yg=(dg/500*32 ):xg=(22-ag/500*32 ) e1000:0:0,10 ;"O para otro disparo";2,10 ;"E empieza de nuevo" 8#0;"Altura maxima ";hmax;"m. Alcance ";dis;"m" ="e":75K ="o"3100 3210 9co=cont/2:dato=rdato=M(co,4):3540 Ydato=adato=(*M(co,1)/2+M(co,2)+M(co,1)/4):3540 (dato=pdato=M(co,3):3540 NdatoM(co,2)+M(co,1)3110& +cont*5 1M(co,4)=dato:cont,18;dato;" ": Q:a$(11 ,25):3,1;"PROBLEMA (unid: m, m/s, grados)" ea$(2)="-angulo inicial":a$(1)="-Vel. inicial V0":a$(7)="-tiempo t de impacto" ja$(3)="-altura del globo":a$(4)="-distancia hasta el globo":a$(6)="-volar el globo:" a$(5)="-distancia a la casa":a$(8)="-volar la casa:":a$(9 )="Volar el globo y la casa:":a$(10 )="(dar sus coordenadas)" :5,2;"-DATOS-";14,2;"-SE PIDE-" +#0;" (Ver primero si hay solucion)" <p(10 ,6):i=110 :j=16 a:p(i,j)=a:j:i 2,5,11 ,8,1,7,1,5,11 ,8,2,7,2,3,4,6,1,7,1,3,4,6,2,7,3,4,5,9 ,1,2,2,1,11 ,8,10 ,11 ,2,1,3,6,4,7,2,1,4,6,3,7,2,1,7,6,10 ,11 ,7,9 ,11 ,16,18,20 pro=(*9 +1) 8i=16:p(10 ,i),3;a$(p(pro,i)) 9i>3p(pro,i)>7p(pro,i)=64180T Wlet=p(pro,i):let=7p(10 ,i),29;(10 +*15):4180T "zM(let,3)=(*M(let,1)/2+M(let,2)+M(let,1)/4):p(10 ,i),29;M(let,3) Ti Y10,2;"(puedes pulsar A para ayuda)" ^rp(pro,1)=3M(4,3)=M(5,3)-502:9 ,29;M(4,3);" " h0:="a"4300 |4080::75K 00,1;"utiliza por orden las ec. "; &pro=64;" ":0: Oq(9 ,2Track-Info  R         ):i=19 :j=12:qq:q(i,j)=qq:j:i 4,1,4,1,3,1,3,1,3,4,4,0,3,1,3,1,1,2 0q(pro,1);" y ";q(pro,2):0: PLUS3DOS{)(X(?:"CLASIFICACION ALFABETICA";"11","8";"Trabajando ..."  f=1 f=(f-1)/3 d=n-f:b=1 a=b e=a+f:a$(a)>a$(e)9 Cb=b+1:0,28;c;" ":c=c-1:b>d2  5 !y$=a$(a):a$(a)=a$(e):a$(e)=y$ a=a-f:a<17 6 ?:"CLASIFICACION TIPOLOGICA";"11","8";"Trabajando ..."  f=1 f=(f-1)/3 d=n-f:b=1 a=b 0e=a+f:a$(a,25)>a$(e,25)29 Db=b+1:0,28;c;" ":c=c-1:b>d22  25 !y$=a$(a):a$(a)=a$(e):a$(e)=y$ a=a-f:a<127  26 (n=puntero-"1" 2{f=("364"n>"121")+("121"(n>"40"n<"122"))+("40"(n>"13"n<"41"))+("13"(n>"4"n<"14"))+("4"(n>"1"n<"5")) "1""3000" $="3"puntero>"1""4000" .="4""100" 8="5""5000" B="6""6000" L="7""2500" V="8""7000" `="9""8000" j "1000" 5:"INTRODUCCION"," ";puntero-"1";" programas" !#"1";" (I)NTRODUCIR (F)IN" ç  ="F" ="I""2100"  "2000" 4puntero="1000""2200" >enter=puntero H flag=ç R "9200" \7flagpuntero=puntero+"1":m=enter:"9600":"2100" f N:"11","7";۰"1";"FICHERO COMPLETO";ç;#"1";" pulse cualquier tecla" ç  Ė:"CARGA DE DATOS";"7","11";۰"1";"CUIDADO";ç''''" Esta opcion borrara el ficheroactualmente en memoria." ;#"1";" (C)ARGAR (F)IN" ç:="F" "C""2510" "Nombre (ENTER) ";y$ y$="""2570" y$ɰ"10""2530" y$("7")"-""2530" :"CARGANDO DATOS"'''''  y$a$() !puntero="1"+a$("1000",̰"3") (,#"1";" LISTO Pulse cualquier tecla" 2ç: T:"BUSQUEDA"," ";puntero-"1";" programas";#"1";" (C)IFRA (N)OMBRE" ç:="C""3070" "N""3000" "Nombre ?",y$ "9700" cm=ç"11",ç;"No he encontrado ";y$;#"1";" Pulse uTrack-Info  R na tecla para el menu":װ".25",-"15":ç: "3090" "Numero ?",m (mçmpunteroװ".25",-"15":"3070" K:"BUSQUEDA"," ";"programa ";m;#"1";" (A)VANCE (R)ETROCESO (F)IN"  "9100" & ç:="F" 0"A"Ʀ"R""3110" :+="A"m=m+("1"m"1") N "3090" S:"MOD/SUP"," ";puntero-"1";" programas";#"1";" (C)IFRA (N)OMBRE" ç:="C""4070" "N""4000" "Nombre ?",y$  "9700" cm=ç"11",ç;"No he encontrado ";y$;#"1";" Pulse una tecla para el menu":װ".25",-"15":ç:  "4090" "Numero ?",m (mçmpunteroװ".25",-"15":"4070" K:"MOD/SUP"," ";"programa ";m;#"1";"(M)ODIFICAR (S)UPRIMIR (F)IN"  "9100"  ç:="F" "S"Ʀ"M""4110" "="S""4180" ,enter=m:flag=ç: 6 "9200" @flag="1""9600" J "4090" TD:"SUPRESION"," ";"Programa ";m;"11","8";"Suprimiendo ..." ^z=mpuntero-2 ha$(z)=a$(z+1) rz |puntero=puntero-"1" ^"11","6";"Programa suprimido ";#"1";" Pulse una tecla para el menu":װ".15","30":ç: 1:"LISTADO"," ";puntero-"1";" programas" .y$=d$(̰"2")+"/"+d$("3"̰"4")+"/"+d$("5") "Copias ?",copias S"11","7";۰"1";"Posicione el papel";ç;#"1";" Pulse una tecla para imprimir" ç B:"IMPRIMIENDO";#ç;" CAPS SHIFT y SPACE para parar" c="1"copias ""10","10";"Copia ";c:"5120" tab="61"-print q="1"tab::q :୰"38";"hoja ";hoja::c  y:୰"15";"LISTADO DE PROGRAMAS";"65";y$:୰"15";"--------------------"::୰"15";"NOMENCLATURA UTILIZADA EN LA LISTA"  ::୰"10";"NOMBRE - El original del programa (si se conoce).":::୰"10";"FIRMA - ?(nombre) indica que no se conoce la empresa o autor." ::୰"10";"TIPO - De acuerdo con las siguientes siglas:"::୰"15";"J - Juego tipo ""arcade""":୰"15";"T - Juego de tablero, cartas, etc...":୰"15";"I - Juego inteligente (Simulador de vuelo p.ej)":୰"15";"A - Juego de aventura":୰"15";"P - Utilidades y ayudas a la programacion" ୰"15";"G - Utilidades para graficos o dibujo de pantallas":୰"15";"L - Lenguajes (Logo, Forth, Pascal...)":୰"15";"C - Compiladores":୰"15";"M - Ensambladores y monitores para c/m" (୰"15";"E - Educativos y asimilados":୰"15";"B - Bases de datos y ficheros":୰"15";"U - Utilidades en general (normalmente empresariales)":୰"15";"H - Programas matematicos, estadisticos, etc..." 2୰"15";"S - Programas de tipo musical":୰"15";"X - Copiadores y lectores de cabeceras":୰"15";"O - Otros programas (los bichos raros)" <::୰"10";"CLASE - De acuerdo con las siguientes reglas:"::୰"15";"B - Basic":୰"15";"C - Codigo maquina"::୰"15";"6 - Para 16 K":୰"15";"8 - Para 48 K" F$::୰"10";"INSTRUCCIONES - Segun estas siglas:"::୰"15";"P - En pantalla":୰"15";"M - Se dispone de folleto o manual":୰"15";"N - No las tengo (o no existen)"::୰"15";"C - En castellano":୰"15";"F - En frances":୰"15";"I - En ingles":୰"15";"O - En otro idioma (o no las hay)":: P ୰"10";"PUNTUACION - De 0 a 9" Zk: :୰"15";"PONGA AQUI SU NOMBRE":୰"15";"SU DIRECCION"::୰"15";"SU CIUDAD"::୰"15";"Y SU TELEFONO" dn=ç:print="60":hoja=ç nn=n+"1":n=puntero x(print=print+"1":print="61""5290" )q$=(((n/"100000"))+"0000")("4"̰"6") m=n:"9000" F୰"4";q$;"11";n$;"31";f$;"43";t$;"49";c$;"56";i$;"71";p$  "5230" print="1"::୰"37";"hoja ";hoja:hoja=hoja +"1":::୰"4";"NUM";"11";"NOMBRE";"31";"FIRMA";"43";"TIPO";"49";"CLASE";"56";"INSTRUCCIONES";"71";"PUNTOS":  pV:"GRABACION"," ";puntero-"1";" programas";#"1";" (P)ROGRAMA (D)ATOS (F)IN" zv$="" puntero<"11"v$="00" puntero<"101"v$="0" v$=v$+(puntero-"1") a$("1000",̰"3")=v$  ç:="F" "P"Ʀ"D""6060" #="P"flag="1":w$="/":"6100" flag="2":w$="-" "y$=d$(̰"4")+d$("7"̰"8")+w$+v$ flag="2""6240"  :"GRABACION DEL PROGRAMA"  "6900"  y$ʰ"900" E:"OPCIONES DE GRABACION";#"1";" (G)RABAR (V)ERIFICAR (F)IN" ç  ="F" $="G""6120" ."V""6160" 8!:"VERIFICACION";"10",ç; By$ LS"11",ç;" VERIFICACION CORRECTA";#"1";" Pulse una tecla para el menu" Vç: `:"GRABACION DEL FICHERO" j "6900" t y$a$() ~E:"OPCIONES DE GRABACION";#"1";" (G)RABAR (V)ERIFICAR (F)IN" ç  ="F" ="G"Track-Info  R "6240" "V""6280" !:"VERIFICACION";"10",ç;  y$a$() X"11",ç;" VERIFICACION CORRECTA ";#"1";" Pulse una tecla para el menu" ç: 3"9","6";"Grabando ";y$''"15";"Fecha Numero"  X"23658","8"::"INICIALIZACION";"8","12";۰"1";"CUIDADO";ç;"11",ç;" Esta opcion pondra a cero todoslos registros, perdiendose losdatos que esten en la memoria.";#"1";" pulse I para confirmar" bç l "I" v+:a$("1000","30"):puntero="1":"900" @:"SALIDA DEL PROGRAMA";"8","12";۰"1";"CUIDADO";ç;"11",ç;" Esta opcion borrara toda lamemoria. Si no ha grabado sutrabajo lo perdera por completo.";#"1";" Pulse S para confirmar" Jç T "S" ^ç #(n$=a$(m,̰"15") #2f$=a$(m,"16"̰"24") #<t$=a$(m,"25") #Fc$=a$(m,"26"̰"27") #Pi$=a$(m,"28"̰"29") #Zp$=a$(m,"30") #d # "9000" # "5",ç #"Nombre",n$'' #"Firma",f$'' # "Tipo",t$'' #"Clase",c$'' #"Instrucciones",i$'' #"Puntuacion",p$ # #(:"ENTRADA","Programa ";enter''''' #b$=" " $"Nombre (STOP)",n$ $ n$="" $n$=(n$+b$)(̰"15") $""Nombre",n$'' $, "23658",ç $6"Firma ?",f$ $@f$=(f$+b$)(̰"9") $J"Firma",f$'' $T"23658","8" $^''"A-aventura","L-lenguajes","B-bases datos","M-maquina","C-compiladores","O-otros","E-educativos","P-programacion","G-graficos","S-Sonido","H-matematicos","T-tablero","I-inteligentes","U-utilidades","J-juegos","X-copiadores" $h"Tipo ?",t$ $rt$=(t$+b$)("1") $|"9",ç;"Tipo",t$'' $ z="1"̰"8" $$" " $z $3"15",ç;"B-basic","6-16K","C-codigo m","8-48 K" $"Clase ?",c$ $c$=(c$+b$)(̰"2") $"11",ç;"Clase",c$'''' $K"M-manual","C-castellano","P-pantalla","F-frances","NO-no hay","I-ingles" $"Instrucciones ? ";i$ $i$=(i$+b$)(̰"2") $ "13",ç;"Instrucciones",i$'' $ z="1"̰"3" $$" " %z %"Puntuacion (1..9) ";p$ %p$=(p$+b$)("1") %&"15",ç;"Puntuacion",p$ %0+#"1";" pulse SPACE para confirmar" %:ç %D"=" "װ".15","30":flag="1": %Xװ".25",-"15":"9200" %a$(m)=n$+f$+t$+c$+i$+p$ % %#y$=(y$+" ")(̰"15") %m=ç %z=1puntero-1 &,a$(z,15)=y$m=z:z=puntero-1 & z & PLUS3DOS={={= o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: WJULIO RIVERA URB. DIVISION AZUL,7,2 ZARAGOZA,50002 0:0::6900  51455 PA$(16,4,4):B$(8,4,2):C$(3,5) 110 ,10 ;4;"ESPERA UN MOMENTO"  7000X ( 8000@ -/12 ,10 ;2;"PULSA UNA TECLA" 2 0: 7236077\,200 #NT=0:NH=3:W=0 @T=0:TH=99999999> B#LN=12 :Z=0:D=1 C?C$(1)="STU":C$(2)="SVU":C$(3)="STU" D 75K FM=18 HN=14 I B$(M,N) JN:M K"89",":;","<=",">?",32 +33!,34"+35#,"$%","&'","89",":;","<=",">?","HI","JK","LM","NO","()","*+",",-","./","01","23","45","67","@A","BC","DE","FG","01","23","45","67" P$L=12 :C=12 :NP=1 QS236077\,60<:4;19,24;"ENERGY":236077\,200 R 5950> T 5500| Z 5600 d 6100 n 5900  x 5250 5100 5150 5000 5050 ******INICIO********* 4000 4500 6100 Track-Info  R  5000 5250  5100  5150  5300 " 6050 , 5800 6 5400 @ 62008 J 5700D T 5050 ^ 200 *MOV.HORIZONTAL** x="5"ƫ(L+3,C-1)2ƫ(L,C-1)2C=C-1:D=1:Z=Z+1:Z=4Z=0 x="8"ƫ(L+3,C+2)2ƫ(L,C+2)2C=C+1:D=5:Z=Z+1:Z=4Z=0  **MOV.VERTICAL** ="7"5350  ****PINTA HOMBRE***** N=14 %(N-1)+L,C;7;B$(D+Z,N) N  ****BORRA HOMBRE*** N=14 (N-1)+L,C;"" N  ***PINTA ARANA****** $NP=2NP=11 5110  BNP=215,10 ;6;C$((*3)+1) BNP=11 15,5;6;C$((*3)+1)   ****PINTA NAVE****** #NP16 (5;LN,9 ;"WXY" -$5;LN+1,9 ;"Z[\" 2$5;LN+2,9 ;"]^_" 7&5;LN+3,9 ;"`ab" < ***PINTA TUERCA*****  NPNPT 3;LT,CT;"Q"  ***LOCALIZA TUERCA****  NPNPT (L+3,C)=3ū(L+3,C+1)=3NT=NT+1:NPT=20:0.1}L,10 :T=1:5600  ******VUELO******** (L,C-1)=2ū(L,C+2)=2ū(L+3,C-1)=2ū(L+3,C+2)=25050:5400 O(L-1,C)=2ū(L-1,C+1)=25050:5400  4000  Z=1  5850 L=L-.5  5000  5100  5150  5250  6050  6100  5800  5050  5350 *****CAIDA******** (L=17(NP=14NP=15) 9(L+4,C)=2ū(L+4,C+1)=2  5050  6100 ! 4000 "L=(L+1) $ Z=1 ' 5850 , 5000 1 5250 6 5100 ; 5150 @ 5300 E 6050 J 5800 O 5700D T 5050 Y 5400 |**PINTA LOS HOMBRES**** N=22283 .1}L,20 M=14 /(M-1)+3,N;4;B$(6,M) M N  **BORRA LOS HOMBRES*** .1}L,20 3N=3030-3*(3-NH)-1 M=14 (M-1)+3,N;"" M N  ***MUESTRA TUERCAS***** 236077\,60< !10 ,25;7;NT; %236077\,200:6;"Q" PNT=10 10 ,25;7;"";1;"Q":0.1}L,20 0.1}L,10  D***LLEGA A LA SALA**** INP16 L T=0 NC10 P0.1}L,10 SW=W+1:T=0 X#20,20+W;5;"" ]KW=10 20,21;5;1;"":6500d l 5950> v **ACABA EL TIEMPO*** TH0 (N=15:1,20:N @N=120:N,0;2;"" N:236077\,60< ,10 ,4;7;"Otra partida?" ="S"Ŧ="s"502 ="N"Ŧ="n"  5830 **PATALLA SIGUIENTE V** ܅(L=16L=1)NP1NP16NP14NP15NP=NP+((15-L)):L=16-L+(L-1):5900    ****PINTA PANTALLA***** ;n=020:n,0;"":n &M=14:N=14 A$(NP,M,N)="3"5930* A$(NP,M,N)="1"5913 A$(NP,M,N)="2"5918 N:M  U=(M-1)*5 V=(N-1)*5 J=15 2;U+J,V;"PPPPP" J: U=(M-1)*5 V=(N-1)*5  J=25 !1;U+J,V;"" "J: *U=(M-1)*5 /V=(N-1)*5 4,J=13:2;U+J,V;"PPPPP" 9J: >***VALOR TUERCA***** @NPT=(*16) CN=14 H"A$(NP,N,2)="0"5968P MN N N=4 PLT=N*5:CT=9 R ********MATADO********  MJ=0 W(L+3,C-1)=1ū(L+3,C+2)=1MJ=1:6060 $(L+3,C)=66060  J=14 236077\,2+J "5000:.1}L,20:J 236Track-Info  R 077\,200 NH=NH-1:5550 NH=05810  5050 (MJ=1L+3,C;1;"" 0NP=1:C=12 :L=12 :5900   ***CONTROL DEL TIEMPO** VTIEMPO=((65536*23674z\+32768*23673y\+23672x\)/100d) TH=TH-TIEMPO TH<0TH=0 236077\,60< .5;15,22;"T:";3;TH 236077\,200  8**LOCALIZA PANTALLA H** 9 DT=1 :@(NP5NP8)(NP13 NP16)DT=-1 =YC=19C=0NP=NP+(C-15)*DT:C=19-C+((-15+C)):5900  B d***FINAL GUAY******* f7N=514:M=15:M,N;"":M:N nN=11 0-1 xLN=N:5150 LN+4,9 ;"" N  :N=1100d:7;*255,*175:N N=017 LN=N:5150 LN-1,9 ;"" N  L=17 C=13 20 .D=5:Z=Z+1:Z=4Z=0  5000 10 :5050 C ́236077\,60<:10 ,3;7;"ENHORABUENA TE HAS SALVADO OTRA?" 236077\,200 #Z=Z+1:Z=4Z=0  5000 ="S"Ŧ="s":502 ="N"Ŧ="n"  6610 ****INSTRUCIONES****** 236077\,60<:0 ''''''"SALVATE DEL PLANETA QUE EXPLOTA-RA CUANDO ACABE EL TIEMPO CON TUNAVE A LA QUE DEVERAS LLEVAR 10 TUERCAS PARA QUE DESPEGUE"''''"USA:"'"5 Y 8 DERECHA E IZQUIERDA"'"7 VOLAR"  ''"PULSA UNA TECLA" 0N=22710X23294Z:N,*6+1 "" N:6930 X*****cloacas***** Y 7010b Zn=116 [m=14 \ a$(n,m) ]m:n ` b"1111","1001","1000","1211","1131","0000","0101","1111","1111","0003","1000","1121","1101","3001","0011","1211","1111","0001","1101","1101 ","1111","1000","0001","1121","1111","1003","0000","1121","1011","1001","1100","1111" g"1111","1000","1001","1011","1111","0000","1001","1121","1311","0000","1011","1111","3011","0011","1011","1111","1111","0011","1011","1011","1111","1100","1001","0011","1111","1011","0011","1000","1111","1001","1000","1111" @****CARACTERES********* E 9000(# JN=0760 T 51456+N,(15616=+N) ^N hN=5145651991 rA:N,A |N  #(Q11,100,110,100,10,1,1,1 #2~10000000,1000000@,1000000@,1000000@,10000000,10000000,10000000,11000000 #lm):xa=xa+(xt-xa)*(xt>xa):xi=xi+(xt-xi)*(xi>xt):ya=ya+(yt-ya)*(yt>ya):yi=yi+(yt-yi)*(yi>yt):x:y:lm=lm 9dm=(xa-xi)*.73333:dm=dm+((ya-yi)-dm)*((ya-yi)>dm) 3dmax=dm*1.36.z:dmax=dmax+(lm-dmax)*(lm>dmax) cb=87W/dmax x1x=s(dmax/xm,0,0)*cb:x1y=r(dmax/xm,0,0)*cb:y1x=s(0,dmax/ym,0)*cb:y1y=r(0,dmax/ym,0)*cb:z1x=s(0,0,dmax/zm)*cb:z1y=r(0,0,dmax/zm)*cb :127,87W:x1x,x1y:127,87W:y1x,y1y:127,87W:z1x,z1y:(11 -x1y/8),(17+x1x/8);"X":(11 -y1y/8),(17+y1x/8);"Y":(11 -z1y/8),(17+z1x/8);"Z" Gps=6:pt=6:cx=127:cy=87W:cb2=cb:6560  6568 kt=pt+1:s=1(ps+1):(52368+kt*s),a(1,s,1)*cb2+cx:(52868+kt*s),a(2,s,1)*cb2+cy:(52368+kt*s),(52868+kt*s):t=2(pt+1):(52367+kt*s+t),a(1,s,t)*cb2+cx:(52867+kt*s+t),a(2,s,t)*cb2+cy:(52367+kt*s+t)-(52366+kt*s+t),(52867+kt*s+t)-(52866+kt*s+t):t:s t=1(pt+1):(52367+kt+t),(52867+kt+t):s=2(ps+1):(52367+kt*s+t)-(52367+kt*(s-1)+t),(52867+kt*s+t)-(52867+kt*(s-1)+t):s:t  #0;11 ;1;"CALCULANDO":PO2=52375:PO1=52917:PO3=52381:6630:Area=Ar:PO=52923:6630:Area=Area+Ar:Area=(2*Area+3000 )/3  6632 qar=((po3-po2)*((po1+500)-(po2+500))-(po1-po2)*((po3+500)-(po2+500)))/2: xmd=(xa+xi)/2:ymd=(ya+yi)/2:cb2=200/dmax:cx=127-xmd*cb2:cy=87W-ymd*cb2:ncu=Area*5.3)/10 ^2 lt=1:s=16:po1=52367+7*s+4:po2=52367+7*(s+1)+4:6650:lt=lt+lo:s:ls=1:t=16:po1=52367+7*4+t:po2=52367+7*4+(t+1):6650:ls=ls+lo:t  6651 Olo=(((PO1-PO2))^2+(((PO1+500)-(PO2+500)))^2): pt=(ncu*lt/ls):ps=ncu/pt:pt=(pt-(pt-19)*(19j:i:pk-15,n$(tipo,ind):i$=i$(3):9999' :i=1:i=indi=2 DI#0;m$(tipo,i);"0? ",m$(tipo,i);"1? ":0:t0,t1:i=i+1 Ni=indi=i+1 X>#0;m$(tipo,i);"0? ",m$(tipo,i);"1? ":0:s0,s1: "t0 ";t0,"t1 ";t1: !4"s0 ";s0,"s1 ";s1: 'z$=i$:x$="t":y$="s":zPLUS3DOSZ Z Variador de velocidad  J.M.Lazo  64999 ( "BD.0" 2!" VARIADOR DE VELOCIADAD." <40,6;1;"______________________" F "65000:" P"" ACTIVA LA INTERRUPCION." Z "65007:" d(" DESACTIVA LA INTERRUPCION."''' n,#0;"Pulse cualquier tecla para NEW." x 0  Track-Info  R PLUS3DOSPLUS3DOSlr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I:  39000X &n=39500L39593:a:n,a:n m1,114r,159,33!,63?,156,17,64@,156,35#,126~,254,255,40(,65A,254,32 ,40(,246,62>,22,2,3,229,237,82R,229,203,61=,203,61=,203,61=,203,61=,203,61=,203,68D,40(,2,203,221,203,76L,40(,2,203,229,125},2,3,225,203,189,203,181,203,173,125},2,3,225,126~,2,3,35#,126~,254,255,40(,8,254,32 ,40(,189,2,3,24,242,62>,255,2,3,237,67C,66B,159,72H,237,67C,67C,159,201 (A(20):B(20):CONT=1 8CA=40000@:N=ca+720ca+735:a:N,a:N 1,195,130,62>,32 ,33!,64@,156,119w,35#,11 ,203,120x,32 ,249,201 (N=ca+800 ca+8171:A:N,A:N (62>,2,205,1,22,33!,114r,159,126~,254,255,40(,4,215,35#,24,247,201 2&n=40750.407619:a:n,a:n 3o1,1,0,17,16,164,33!,96`,159,237,176,201 F1:0:7: n#N=07:a:"a"+n,a:n xE0,0,0,0,0,24,60<,126~ :40720:40704,255:23658j\,0 623561 \,10 :23562 \,1:u=0 #"":#0;"STOP para menu" CCP=CA+8182 zBUCLE CONTROL PANTALLA 0,0;1;"" (v=021:h=031 (23560\,0:v,h;1;"" u=23560\ ;u=0v,h;1;"";v,h;1;"":920 ju=226v,h;1;"":V,H;1;"":23561 \,35#:23562 \,5:6000p 23560\,0:e$=u U<32 2000 0E$32 v,h;e$:(CA+(V*32 )+H),E$ .0005vn,45- $h=31V=21H=H-1 h=311100L %v,h+1;1;1;""; Lh:v CURSORES,ENTER,BORRAR Ѧu=12 23560\,0:9500%:(CA+(V*32 )+H),32 :((CA+(V*32 )+H)-1),32 :v,h-1;" ":h=h-2:e$="":1000 cu=13 e$="":v,h;1;" ":v=v+1:h=-1:v>21v=21:1100L eu=10 :e$="":v,h;1;" ":v=v+1:h=h-1:v>21v=21:1001 +u=11e$="":v,h;1;" ":v<0v=0:1001 cu=11 :e$="":v,h;1;" ":v=v-1:h=h-1:v<0v=0:1001 Iu=9 e$="":v,h;1;" ":h>30h=30:1001  _u=8e$="":1;v,h-1;" ";:h=h-2:h<0h=-1:1001 7u=6ƾ23658j\=023658j\,8: 7u=6ƾ23658j\=823Track-Info  R 658j\,0:  $39500L:ZONA COMPILACION +CCP=(40771C*256+40770B) :5800 PDATOS COMPILACION Z"COMIENZO ?",CR d+CR<42000CR>630005210Z nCR:407542,23670v\:407553,23671w\:(CR+18):40806f,23670v\:40807g,23671w\:CARGA DESTINO x(A(CONT)=CR:B(CONT)=CCP-(CA+800 ) G(B(CONT)+1):40751/,23670v\:407520,23671w\ CCP=CCP+1 40750. CONT=CONT+1: R:5800:"":#0;"Ver Editor Salvar":23658j\,8 ="E":200 ="S"5700D "V"5620  30 F"QUE NUMERO ? 0> <20 ";NUM:NUM<1NUM>205640 VA(NUM)=0"":#0;1;"NO HAY RUTINA PRESENTE":75K:5610  :A(NUM):0:5610 DZONA DE GRABACION N5"NOMBRE ";A$:A$>10 űA$<15710N X:"COMIENZO ",COMI:"ULTIMO",ULTI:BYT=(ULTI-COMI)+1 b:9 ,5;"NOMBRE ";A$;10 ,5;"COMIENZO ";COMI;11 ,5;"ULTIMO BYTE ";ULTI;12 ,5;"BYTES A SALVAR ";BYT l#0;"ES CORRECTO?" v="N"5700D {="S"5760  5750v 0:"":A$COMI,BYT Y19,0;1;" REBOBINA PARA VERIFICACION ":""COMI,BYT::200  ARCHIVO A1;"NUM. COMIENZO LONG. ULTIMO ":N=120 ? N;"....";7;A(N);16;B(N);24;A(N)+B(N):N -1;" ENTRE 42000 Y 63000 "  oMENU DE OPCIONES p]"":23658j\,8:#0;"Compilar Editor Iniciar Ver":0  z="C"5000 V="E"e$=" ":u=32 :23560\,32 :"":#0;"STOP para menu": ="V"5610 ="I":200  6000p #'lectura teclado %Kh=0v0v,h;"":v,h;1;"":h=31:v=v-1 %4h=0v=0.5,-10 :895 %& &"COMPILA "1: 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'''''''''