MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 05  AA N AB AC l !"#$%&'(AD $)*+,-AE t./0123456789:;<AF =>?AG @AAH 1BCDEFGHAI IJAJ #KLMNOAK bPQRSTUVWXYZ[\BA ?]^_`abcdBB efghBC ?ijklmnopBD @qrstuvwxBE Byz{|}~BF +BG 4BH ,BI BJ BK %BL 7PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "05" 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;;88888887778888PLUS3DOS%  dCINTA 05 (REVISTAS 17 a 20) 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-Faraon" !7,18;"B-Titulos3d" &8,3;"C-Ajedrez" 0!8,18;"D-Comecocos" :9 ,3;"E-Flecha" D"9 ,18;"F-Gusanoloco" N"10 ,3;"G-Hiperbolas" X"10 ,18;"H-Destroyer" b"11 ,3;"I-Integrales" l11 ,18;"J-OrdenL" v 12 ,3;"K-Unidades" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Kamikaze" 7,18;"B-Func3d" !8,3;"C-Helicopter" $ 8,18;"D-Milcaras" .9 ,3;"E-Ratas" 89 ,18;"F-Ssolar" B 10 ,3;"G-Calendar" L10 ,18;"H-Mono" V!11 ,3;"I-Spirograf" ` 11 ,18;"J-4enraya" j12 ,3;"K-Caos" t"12 ,18;"L-Starcrash" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 05" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 17-20"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  :0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 17-20"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS&&&9el tesoro del faraon************por rafael marquez***** U1:1:7::10 ,10 ;1;"PARE LA CINTA":200  p=0  0  9900&  9800H& 9500% dPROGRAMA PRINCIPAL 1  na(4):b(4) sx=21:y=30 xn=14 a(n)=(*11 )+10 b(n)=Track-Info  R (*31) n h=4:n=1h a=a(n)+(x-a(n)) b=b(n)+(y-b(n)) '(a(n),b(n))=480a(n),b(n);" " a(n)=a:b(n)=b +(a(n),b(n))=" "a(n),b(n);0;"" *.02{# =,-20:.02{# =,-30 x,y;" " M(x+1,y)=" "ƪ(x+1,y+1)=" "x<21Ʀ="6"x=x+1 L(x-1,y)=" "ƪ(x-1,y+1)=" "x>0Ʀ="7"x=x-1 1(x,y-1)=" "y>0Ʀ="5"y=y-1 "x,y;3;"" ,%a=xb=ya=xb=y+18900" 6x=16y=0x=18y=0x=17y=2x,y;" ":15,2;5;1;0;"";16,2;"":g=010 :.01z# =,10 :.01z# =,-10 :.01z# =,g:g:9815W&:0:9820\& n  170 PROGRAMA PRINCIPAL 2  x=10 :y=0 f=2:t=30 /m=13 :o=26:v=1:s=11 ti=500 B)e=(*17):e<141090B L2ti/4=(ti/4)f=f+(x-f):t=t+(y-t) `s=s-1:m=m+v js$= tS(x,y-1)"#"y>0s$="5"y=y-1:(x+1,y)="#"y=y+1 ~((x+2,y)"#"s$="6"x=x+1 ((x-1,y)"#"s$="7"x=x-1 I(x,y+1)"#"s$="8"y=y+1:(x+1,y)="#"y=y-1 3(x,y)=7ū(x+1,y)=78942" $2;x,y;"";x+1,y;"" 5;e,s;" " $m,o;3;"";m+1,o;"" T(f,t)"#"ƪ(f+1,t)"#"4;1;f,t;"";f+1,t;"" 57;1;0,10 ;"TIEMPO ";ti 5x=ey=sx=ey=s+1x=ey=s-18920" x=6y=10 g=03:q=10 20:.01z# =,q:q:g:18,11 ;" ":y=y+1:6,10 ;6;"#";7,10 ;"#" x=13 y=2x=13 y=3x,y;" ";x+1,y;" ":g=03:q=10 20:.01z# =,q:q:g:18,16;" ":x=x+1:13 ,3;6;"##" `p=p+1:14,28;p;0;"<*>":.01z# =,-10 :p=6p=0 #x=13 y=288930" 5x=fy=tf=x+1t=yf+1=xt=y8935" 5x=my=ox+1=my=ox=m+1y=o8940" *.009ztj,10 :.009ztj,10 lx,y;" ";x+1,y;" " vm,o;" ";m+1,o;" " 4(f,t)=41;f,t;"";f+1,t;"" m=16m=13 v=-v .s=3e,s;" ":s=11 :1090B (ti=ti-1:ti=-18945"  1100L CRUZ  2g=010 :1:g,15;"":g 7g=11 20:2,g;"";3,g;"":g  g=0200:g:: \e=03:g=2010 -1:.01z# =,g:.01z# =,g+10 :g:e: "FIN  "C0,7;1;0;5;"NO PUEDES CONTINUAR" "Σ10 ,10 ;5;0;"PSSS!,TE PINCHARON LA RUEDA LAS CHINCHETAS":f=03:g=40(10 -1:.01z# =,g:g:f:8950" "ض3500 :3000 :10 ,0;5;0;" TE DIO LA ESTACA DE HIERRO ";1;2;6;" HAS MUERTO ":3510 :8950" "3500 :g=07:e=10 30:.01z# =,e:.01z# =,e-5:g:9 :10 ,0;" CONSEGUISTE EL TESORO. COGELO Y LLEVATELO. MERECES UN DESCANDO ":e:g:: "3500 :3000 :10 ,0;4;0;" ERES UN DESCUIDADO ";2;1;6;"EL FANTASMA 'PASAMUROS' TE PILLO":3510 :8950" "3500 :3000 :10 ,0;3;7;1;"ESTABAS CASI EN EL FINAL PERO ELMONJE GUARDIAN DEL TESORO TE VIO":3510 :8950" "3500 :3000 :10 ,0;7;0;1;"HAS TOCADO LAS MOMIAS Y TE HAS CONVERTIDO EN PIEDRA.":3510 :8950" "3500 :3000 :10 ,0;2;1;6;"ERES MUY LENTO, TE QUEDARAS HAY HASTA EL FIN DE TUS DIAS.!JA,JA!":3510 "OTRA PARTIDA?  #"Otra partida?(s/n)";a$ # a$"n"a$"s"8960# #a$="s"9500% # #'PANTALLA DE PIRAMIDE  #(0:0:6: #2?g=031:1,g;"#";21,g;"#":g #,60< &90Z,60<,24,24,255,189,189,189,189,126~,126~,66B,66B,66B,66B,195 &0,24,60<,24,60<,126~,126~,126~,126~,126~,60<,60<,60<,60<,24,24 &60<,126~,126~,219,219,219,255,255,255,255,255,253,189,189,173,173 &2,4,12 ,28,60<,44,,60<,124|,124|,124|,60<,60<,126~,126~,254,0 &16,16,568,255,144,16,16,16,16,16,16,16,0,0,0,0 &0,0,160,224,224,255,0,0,0,0,0,12 ,18,242,18,12 &0,0,0,15,255,15,0,0Track-Info  R ,0,6,126~,254,254,254,126~,6 &J568,568,568,480,480,64@,64@,128                                PLUS3DOS  q1:1:7::10 ,10 ;1;"PARE LA CINTA":200:0:9 :10 /h=1x1:a*x1+x+h,b*y1+y:0,-y1:h Kx3=a*x1+x:y3=b*y1+y:(a,b+1)+(a-1,b)=0x3,y3:x1,y1 ;(a,b-1)+(a+1,b)=0x3+x1,y3-y1:x1,y1 8(a,b+1)+(a+1,b)1x3+x1,y3:x1,y1 3(a,b+1)=0x3+x1,y3+y1:x1,0 <(a+1,b)=0x3+2*x1,y3+y1:0,-y1  J21,0;1;" Pulse una tecla para continuar ":0: F21,0;"Quiere ver las istruciones (s/n)":=""10 :="s"Ŧ="S"28 Q"X= ";x,"Y= ";y:y>157y8#1;"8x221 y2=((y-8)/8) #"Maximo ";(y2);" Alto puntos ";y1 y1>y221 y=y-y1*7 21,0;f$ a=0̱f$*8 b=07 (a,b)=12 b  a:557  presentacion 1:9 : 5,3;"Con este programa podra";8,3;"componer los titulos de";11 ,4;"presentacion para sus";14,0;"""programas"", en tres dimensiones" 6#1;1;"PULSE UNA TECLA PARA CONTINUAR" 0: !U""'1;4;" X,Y ";1;0;" son loas coordenadas"'"" "W3,6;"del punto extremo superior";5,6;"izquierdo del titulo" #&8,12 ;0;"Ejemplo" $g13 ,9 ;7;">";6;" "'10 ;" "'10 ;" " %18,9 ;"X=80 Y=67" &975K,67C:-10 ,0:0,-40( '6#1;1;"PULSE UNA TECLA PARA CONTINUAR" ( 0: )33,1;"Las letras y simbolos graficos" *35,1;"estan formados por puntos , el" +27,1;"programa le pedira el ancho y" ,59 ,0;"el alto (en pixel) de los nuevos" --11 ,4;"puntos que los formaran" .'13 ,12 ;0;"Ejemplo" /H15,0;"Ancho=1","Ancho=4"'"Alto=1","Alto=8"'"punto normal" 0880P,502:2;80P,502,10 1>15,27;"":2;217,513,10 2;"""c""continuar ""r""repetir";v$:v$="r"v$="R"28 3:"color(0-7)";u:u 4"color(0-7)";u:u 5 :11 6! salidas de imagen 75"titulo completo (s/n)";o$:o$="n"o$="N"12 821,0;" ":"salida impres. o caset (i/c)";o$:o$="i"o$="I":"mas copias? (s/n)";o$:o$="s"o$="S""cuantas";ti:o=1ti::o 9(o$="c"o$="C""nombre-imagen";o$:o$ :7"quiere continuar? (s/n)";o$:o$="s"o$="S"10 ; a=0 "1:1:7::1;10 ,10 ;"PARE LA CINTA":200::8000@:9000(#: Julia perez Serrano 1984 o0:0:7::lado=(*2):0,0;"Jugador N1";2,0;"Tantos.-";"0" A0,21;"Jugador N2";2,21;"Tantos.-";"0" 6iz=13 :der=13 :piz=0:pder=0 Sq=64510:a=65022:p=57342:l=49150:x=1:y=15 .pp=3+25*lado:lado=1x=-x C.05|L,15:.05|L,5:.05|L,15:incv= r4,4:247,0:0,128:-247,0:0,-128:118v+8,4:0,128:120x+8,4:0,128:122z+8,4:0,128:568+8,4:0,128:184+8,4Track-Info  R PLUS3DOS51515+U1:1:7::10 ,10 ;1;"PARE LA CINTA":200 [5:5::2:6:1;12 ,9 ;" AJEDREZ ";0 9000(#:8000@ nj=10 :t(8,8,3):e(2,2):r(4,2):l=12:c=12:e(l,c)=0:c:l nc=12:l=14:r(l,c)=((l=1)(l=2)(l=3))*2+(l=4):l:c l=18 c=18 (;(l=1)(c=1)t(l,c,3)=5:70F 2Bc=1t(l,c,3)=t(l-1,8,3):70F 8)la=8 (ca>8)ca=8 (ca<1)ca=1 .005y# =,40(:2+2*(9 -la-1),1;" ";2+2*(9 -la+1),1;" ";2+2*(9 -la),1;"*";1,2+2*(ca-1);" ";1,2+2*(ca+1);" ";1,2+2*ca;"*" " "590N -l=5020-5:.05|L,l:l l=8:c=1:a=419:a,1;" ";1,a;" ":a:2+2*(9 -l),1;"*";1,2+2*c;"*" =""690 ="7"l=l+1 ="6"l=l-1 ="5"c=c-1 ="8"c=c+1 (l<1)l=1 (l>8)l=8 (c>8)c=8 (c<1)c=1 .005y# =,40(:2+2*(9 -l-1),1;" ";2+2*(9 -l+1),1;" ";2+2*(9 -l),1;"*";1,2+2*(c-1);" ";1,2+2*(c+1);" ";1,2+2*c;"*" " "690  q((l=la)(c=ca))(t(la,ca,2)f)(t(l,c,2)=f)(t(la,ca,1)=0)3,40(:580D G(t(la,ca,1)=1)(lla)(cca)3,40(:580D  (t(la,ca,1)=2)((((la-l)=2)((ca-c)=1))(((ca-c)=2)((la-l)=1)))3,40(:580D *K(t(la,ca,1)=3)Track-Info  R ((la-l)ɽ(ca-c))3,40(:580D 4Y(t(la,ca,1)=4)(lla)(cca)((l-la)ɽ(c-ca))3,40(:580D >](t(la,ca,1)=5)((l-la)1)((c-ca)1)3,40(:580D H/(t(la,ca,1)=6)(((ca7)(ca2)((ca-c)>1))(((ca=7)(ca=2))((ca-c)>2))((f=1)(ca>c))((f=2)(ca1)((c-ca)>1)(t(l,c,1)=0))))((l=la)(t(l,c,1)0)))3,40(:580D IK1000:(t(la,ca,1)=1)(la=1)e(1,f)=1 J?(t(la,ca,1)=1)(la=8)e(2,f)=1 KFt(la,ca,1)=5e(1,f)=1:e(2,f)=1 L#t(l,c,1)5848P M9i=10 502:.1}L,i:.05|L,i-9 :i NPf=10:15,22;"GANAN";17,24;"ROJAS ": OPf=20:15,22;"GANAN";17,24;"VERDES ": Px(t(l,c,1)0)(t(l,c,1)6)r(t(l,c,1),(3-f))=r(t(l,c,1),(3-f))-1 QYt(l,c,1)0i=10 5024:.1}L,i:.05|L,i-9 :i Rpt(l,c,1)=t(la,ca,1):t(l,c,2)=f:t(la,ca,1)=0:t(la,ca,2)=t(la,ca,3) Wv=1:a=la:b=ca \#870f+10 *t(a,b,1) fb$=" ":940 pb$="":940 zb$="":940 b$="":940 b$="":940 b$="":940  b$="" 7*(6-t(a,b,3))+6*(t(a,b,3)-5):4*(t(a,b,2)=2)+2*(T(a,b,2)=1):19-2*a,1+2*b;b$(12);20-2*a,1+2*b;b$(34) +v=1v=2:a=l:b=c:860\ #5000:6000p:550& e(t(la,ca,1)=6)((ca-c)>1)(ca2)(ca7)3,40(:580D G(t(la,ca,1)=6)(lla)(c=ca)3,40(:580D m(t(la,ca,1)=6)(lla)(((la-l)>1)(t(l,c,1)=0))3,40(:580D &t(la,ca,1)110808 p=(l=la)*(c>ca)*(ca+1)+(la=l)*(ca>c)*(c+1)+(ca=c)*(l>la)*(la+1)+(ca=c)*(la>l)*(l+1)(l=la)*(c>ca)*(c-1)+(l=la)*(ca>c)*(ca-1)+(ca=c)*(l>la)*(l-1)+(ca=c)*(la>l)*(la-1) Wt((lla)*p+(l=la)*la,(cac)*p+(ca=c)*ca,1)03,40(:580D p BC(t(la,ca,1)3)(t(la,ca,1)4)1200 G p=la:m=ca L&p=p+(l>la)-(lca)-(c,00111100<,00111100<,00111100<,00000000,00000000,"r",11111100,11111100,011111100,00111100<,00111100<,00111100<,00000000,00000000 #e"p",0,0,00000001,00000111,00011111,00111111?,1,3 #}"u",0,01000000@,10000000,01100000`,11110000,11110000,11110000,11100000 #~"i",00000111,00001111,00000111,00000111,00000111,00001111,000111111?,0 #}"o",11000000,11000000,11000000,11100000,11100000,11110000,11111000,0 #E"a",0,1,3,3,1,1,3,1 #}"s",0,10000000,11000000,11000000,10000000,10000000,11000000,10000000 #U"d",1,1,3,3,3,00000111,00011111,0 #}"f",10000000,10000000,11000000,11000000,11100000,11111000,11111000,0 #E"g",0,0,0,0,0,0,1,3 #U"h",0,0,0,0,0,0,10000000,11000000 #E"j",3,1,1,1,3,7,7,0 #"k",11000000,10000000,10000000,10000000,11000000,11100000,11100000,0 #F"L",0,1,2,4,2,1,1,15 $|"m",0,1000000@,01000000@,00100000 ,01000000@,10000000,10000000,11110000 $"N"n",0,00001010 ,5,7,3,1,1,15 $,}"c",0,01010000P,10100000,11100000,11001010,10000100,10001010,11110000 $6 255,0:0,175:19,15;"URANIO" n#punto miTrack-Info  R         ra======================= x@1;7;127,87W,12 :1;7;127,87W,20:127,87W:1;7;0,32 :127,87W:7;1;32 ,0:127,87W:7;1;-32 ,0:127,87W:7;1;0,-32 e0,31:7;1;255,0:0,32 :7;255,0 7;72H,18,9 :7;72HPLUS3DOS? ? 8 COMECOQUITOS Luis Amado y MICROHOBBY SEMANAL U1:1:7::10 ,10 ;1;"PARE LA CINTA":200  680  max=0 (]x2=18:x3=4:y3=18:y2=15:px=10 :py=15:v$="":j$="" 2p$(a)=("000"+a)(a) <4:6:2: Fpunt=0 Pl$(19,30) Z.l$(1)="" d.l$(2)="" n.l$(3)="" x.l$(4)="" .l$(5)="" .l$(6)="" .l$(7)="" .l$(8)="" .l$(9 )="" /l$(10 )="" /l$(11 )="" /l$(12 )="" /l$(13 )="" /l$(14)="" /l$(15)="" /l$(16)="" /l$(17)="" l$(18)=l$(2) l$(19)=l$(1) ;:f=119:1:6:1;l$(f):f "@f=021:0;f,0;"";f,31;"":f ,Q20,0;0;7;1;" C O M E C O Q U I T O S " 6H21,0;2;6;"PUNTOS:0000 RECORD:0000" @G0,0;5;0;" LAR SOFTWARE LALIN-PONTEVEDRA " Jl$(px,py)=" " Tpunt<1745400 ^punt=17452,13 ;4;1;1;1;"BRAVO";8,14;"HAS";10 ,6;"LOGRADO";10 ,14;"UNA";10 ,18;"VICTORIA" hI18,4;7;0;1;"QUIERES CONTINUAR? (s/n)" r="s"60< |="n"9999' "s"Ŧ"n"370r =""450 ="5"j$="" ="6"j$="" ="7"j$="" ="8"j$=""  px,py;" " -j$=""l$(px-1,py)""px=px-1 -j$=""l$(px,py+1)""py=py+1 -j$=""l$(px+1,py)""px=px+1 -j$=""l$(px,py-1)""py=py-1 px,py;3;v$ 6l$(px,py)=""punt=punt+5:.01z# =,12 7l$(px,py)=""punt=punt+30:.02{# =,16 maxpx)l$(x2-1,y2)""x2=x2-1 0;(*2)+(x2py)l$(x2,y2-1)""y2=y2-1 D;(*2)+(y2 lMx3,y3;l$(x3,y3):(*2)+(x3>px)l$(x3-1,y3)""x3=x3-1 v;(*2)+(x3py)l$(x3,y3-1)""y3=y3-1 ;(*2)+(y3,121y,240,224,224,240,121y,62> K124|,158,15,7,7,15,158,124| O60<,126~,255,231,195,129,129,66B P568,124|,214,214,254,254,170,170 N24,82R,255,255,255,255,126~,36$ K0,60<,126~,126~,126~,126~,60<,0 M170,85UTrack-Info  R         ,170,85U,170,85U,170,85U C0,0,0,24,24,0,0,0  680  &i=19 :n=07 a  (i+143)+n,a *n:i 4 >:2,11 ;7;1;1;"SE ACABO" HI18,4;7;0;1;"QUIERES CONTINUAR? (S/N)" R="s"40( \="n"9999' f"n"Ŧ"s"850R ,100d,qe:q=0 Rqw=qw+1:qw600Xn=110 :.008zn,n:(*7):.01z# =,-20-n:n:65A,27:1;120x,120x,59;^3*:10 ,0;0;7;1;1;"LA NAVE OMEGA HA SIDO DESTRUIDA ":0:: T223=16Ŧ="y"t=t-10 :480,39':3;1;1;80P,480:.01z# =,10 :207,39':3,1;1;-80P,480:n=5205:.007ye`A,n:n:480,39':1PLUS3DOS9X9X92 Antonio Garcia Garcia 20-1-84 X1:1:7::10 ,10 ;1;"PARE LA CINTA":200: CONT=1 " El objetivo de este juego es dirigir una flecha parpadeante () hacia un punto blanco que se situa en el borde del tableroal azar." g:" La flecha se mueve por si solay tu trabajo es prepararle el camino libre por delante de ella " ~" Para ello has de mover las baldosas por el tablero medianteun cuadrado negro que se mueve con las siguientes teclas:" (:" A = ARRIBA Z = ABAJO N = IZQUIERDA M = DERECHA " 4A;4;1;0;21,7;"PULSA UNA TECLA" 6=""546 8 99:"Al moverlo se intercambiara con el cuadro escogido." :E:"(Puedes cambiar las teclas de direccion en las lineas 1200-3)" ;A;4;1;0;21,7;"PULSA UNA TECLA" <200:=""60< =:"Los cuadros del borde son de color amarillo, esto indica que no se pueden mover de su lugar. "::"Hay varios niveles para escojer,difieren en la velocidad de la flecha, el 1 es el mas lento y el 9 es el mas rapido." >$"INTRODUCIR NIVEL DESEADO 1 A 9",N ?N>9 N<162> @-:11 ,10 ;1;"!EN MARCHA!" A 9400$ BBTINTA=N:P=0:0:N>9 N=9 :TINTA=1 b3V=7:CONT=5CONT=1:85004! c D$(4) dBA$(12 ,3):B$(12 ,3):C$(12 ,3) e9D=2:L1=1:C1=8:L=L1:C=7:T=D fDD$(1)="":D$(2)="":D$(3)="":D$(4)="" gVL=L1:VC=0 hTINTA>7TINTA=7 iA(7,10 ) jW=5:H=7 n9A$(1)="":B$(1)="":C$(1)="" p9A$(2)="":B$(2)="":C$(2)="" r9A$(3)="":B$(3)="":C$(3)="" t9A$(4)="":B$(4)="":C$(4)="" v9A$(5)="":B$(5)=" ":C$(5)="" z9A$(7)="":B$(7)="":C$(7)="" |9A$(8)="":B$(8)="":C$(8)="" ~9A$(9 )="":B$(9 )="":C$(9 )="" <A$(10 )="":B$(10 )="":C$(10 )="" <A$(11 )="":B$(11 )="":C$(11 )="" <A$(12 )="":B$(12 )="":C$(12 )="" 'X=17:Y=110 Z:A(X,Y)=Z Y:X  6000p &X=26:Y=29 3*X-3,3*Y-3;A$(A(X,Y));3*X-2,3*Y-3;B$(A(X,Y));3*X-1,3*Y-3;C$(A(X,Y)) Y:X  1200 LL,C;1;4;D$(D) M 5 N P=P+1 O6.1}L,6:.1}L,1:.1}L,6 V21,7;P; ="n"Ŧ="N"1300 ="z"Ŧ="Z"1400x ="a"Ŧ="A"1500 ="m"Ŧ="M"1600@  2000 H21204 A(W,H)=A(W,H-1) (A(W,H-1)=12 23*W-3,3*H-3;A$(A(W,H));3*W-2,3*H-3;B$(A(W,H));3*W-1,3*H-3;C$(A(W,H)) <H=H-1:3*W-3,3*H-3;A$(A(W,H));3*W-2,3*H-3;B$(A(W,H));3Track-Info  R         *W-1,3*H-3;c$(A(W,H)) =*.1}L/N,25:.2~L/N,15 F 1204 xW61204 A(W,H)=A(W+1,H) A(W+1,H)=12 3*W-3,3*H-3;A$(A(W,H));3*W-2,3*H-3;B$(A(W,H));3*W-1,3*H-3;C$(A(W,H)) W=W+1:3*W-3,3*H-3;a$(A(W,H));3*W-2,3*H-3;B$(A(W,H));3*W-1,3*H-3;C$(A(W,H)) *.1}L/N,25:.2~L/N,15  1204 W21204 A(W,H)=A(W-1,H) A(W-1,H)=12 3*W-3,3*H-3;A$(A(W,H));3*W-2,3*H-3;B$(A(W,H));3*W-1,3*H-3;C$(A(W,H)) W=W-1:3*W-3,3*H-3;A$(A(W,H));3*W-2,3*H-3;B$(A(W,H));3*W-1,3*H-3;C$(A(W,H)) *.1}L/N,25:.2~L/N,15  1204 @H9 1204 JA(W,H)=A(W,H+1) TA(W,H+1)=12 ^3*W-3,3*H-3;A$(A(W,H));3*W-2,3*H-3;B$(A(W,H));3*W-1,3*H-3;C$(A(W,H)) hH=H+1:3*W-3,3*H-3;A$(A(W,H));3*W-2,3*H-3;B$(A(W,H));3*W-1,3*H-3;C$(A(W,H)) i*.1}L/N,25:.2~L/N,15 r 1204  L1,C1;"" фD=1T=2V=3D=4T=2V=3D=3T=2V=3D=2T=2V=3L,C;""; ҄D=1T=2V=4D=4T=2V=4D=3T=2V=4D=2T=2V=4L,C;""; 0V=A((L/3)+1,(C/3)+1) AT=3V=A((L/3)+1+VL,(C/3)+1+VC) 3000 +100d*V L=L+VL:C=C+VC  P=P+1 (L,C)1288000@ L,C;2;1;D$(D) F0.3/N,001:0.3/N,005:0.3/N,0.07}\( 21,7;P;  L1=L:C1=C  1200 ,T=3D=3T=1:2030 &,T=1D=3T=2:2030 0,T=2D=3T=3:2030 :,T=3D=4T=1:2030 D,T=1D=4T=2:2030 N,T=2D=4T=3:2030 X 1100L ,T=3D=2T=1:2030 ,T=1D=2T=2:2030 ,T=2D=2T=3:2030 ,T=3D=1T=1:2030 ,T=1D=1T=2:2030 ,T=2D=1T=3:2030 1100L ,T=3D=3T=1:2030 7T=1D=3T=2:D=1:2030 ET=2D=1T=3:VL=-1:VC=0:2030 ,T=3D=2T=1:2030 7T=1D=2T=2:D=4:2030 ET=2D=4T=3:VL=0:VC=-1:2030 ,T=3D=4T=1:2030 7T=1D=4T=2:D=2:2030 DT=2D=2VL=1:T=3:VC=0:2030 ,T=3D=1T=1:2030 7T=1D=1T=2:D=3:2030 DT=2D=3VL=0:T=3:VC=1:2030 H,T=3D=3T=1:2030 M7T=1D=3T=2:D=2:2030 RDT=2D=2T=3:VL=1:VC=0:2030 \,T=3D=1T=1:2030 a7T=1D=1T=2:D=4:2030 fET=2D=4T=3:VL=0:VC=-1:2030 k,T=3D=2T=1:2030 p7T=1D=2T=2:D=3:2030 uDT=2D=3T=3:VL=0:VC=1:2030 z,T=3D=4T=1:2030 7T=1D=4T=2:D=1:2030 ET=2D=1T=3:VL=-1:VC=0:2030 1100L t,T=3D=4T=1:2030 ~7T=1D=4T=2:D=2:2030 DT=2D=2T=3:VL=1:VC=0:2030 ,T=3D=1T=1:2030 7T=1D=1T=2:D=3:2030 DT=2D=3T=3:VL=0:VC=1:2030  1100L ,T=3D=3T=1Track-Info  R         :2030 7T=1D=3T=2:D=2:2030 DT=2D=2T=3:VL=1:VC=0:2030 ,T=3D=1T=1:2030 7T=1D=1T=2:D=4:2030  ET=2D=4T=3:VL=0:VC=-1:2030  1100L <,T=3D=3T=1:2030 F7T=1D=3T=2:D=1:2030 PET=2D=1T=3:VL=-1:VC=0:2030 Z,T=3D=2T=1:2030 d7T=1D=2T=2:D=4:2030 nET=2D=4T=3:VL=0:VC=-1:2030 x 1100L ,T=3D=2T=1:2030 7T=1D=2T=2:D=3:2030 DT=2D=3T=3:VL=0:VC=1:2030 ,T=3D=4T=1:2030 7T=1D=4T=2:D=1:2030 ET=2D=1T=3:VL=-1:VC=0:2030  1100L !D=1D=23200 "!D=3D=43100  1100L pX=09 z60,X*3;6;A$(A(1,X+1)) {61,X*3;6;B$(A(1,X+1)) |62,X*3;6;C$(A(1,X+1)) }X ~X=15 63*X,0;6;A$(A(X+1,1)) >3*X+1,0;6;B$(A(X+1,1)) >3*X+2,0;6;C$(A(X+1,1)) X X=15 83*X,27;6;A$(A(X+1,10 )) @3*X+1,27;6;B$(A(X+1,10 )) @3*X+2,27;6;C$(A(X+1,10 )) X X=09 718,X*3;6;A$(A(7,X+1)) 719,X*3;6;B$(A(7,X+1)) 720,X*3;6;C$(A(7,X+1)) X TINTA>6TINTA=1 e#0;TINTA;0,0;"" X=021 X,30;TINTA;"" X TINTA  21,0;"PASOS= ";  0,31;2;"N"  1,31;2;"I"  2,31;2;"V"  3,31;2;"E"  4,31;2;"L" 6,31;2;N AZ=(*4)+1 RAZ=1AZ1=(*10 )+1:1,3*AZ1-2;1;"" RAZ=2AZ1=(*8)+2:19,3*AZ1-2;1;"" IAZ=3AZ1=(*6):AZ1*3+1,1;1;"" JAZ=4AZ1=(*6):AZ1*3+1,28;1;"" , 241 @@2::9 ,2;"LO HAS CONSEGUIDO EN ";P;" PASOS" J211 ,2;"QUIERES VOLVER A INTENTARLO?" T13 ,11 ;"SI O NO" ^9="S"Ŧ="s"N=N+1::CONT=CONT+1:66B h="N"Ŧ="n" r=""8030^ w 8000@ !E7,8,7,8,7,8,7,8,7,8,10 ,4,10 ,9 ,11 ,11 ,10 ,9 ,4,9 ,7,9 ,1,3,2,2,3,1,10 ,8,10 ,8,1,11 ,2,2,11 ,1,7,9 ,7,9 ,1,3,2,2,12 ,1,10 ,8,10 ,8,11 ,4,11 ,11 ,4,11 ,7,9 ,5,10 ,9 ,10 ,9 ,10 ,9 ,10 ,9 ,5 #(?7,8,7,8,7,8,7,8,7,8,10 ,1,11 ,11 ,1,1,11 ,11 ,1,9 ,7,8,2,2,3,4,2,2,7,8,10 ,9 ,2,2,4,3,2,2,10 ,9 ,7,8,2,2,3,4,12 ,2,7,8,10 ,9 ,2,2,4,3,2,2,10 ,9 ,5,10 ,9 ,10 ,9 ,10 ,9 ,10 ,9 ,5 #-H7,8,7,8,7,8,7,8,7,8,10 ,3,3,3,3,3,3,3,3,9 ,7,11 ,11 ,11 ,11 ,11 ,11 ,11 ,11 ,8,10 ,4,4,4,4,4Track-Info  R ,4,4,4,9 ,7,11 ,11 ,11 ,11 ,11 ,12 ,11 ,11 ,8,10 ,4,3,4,3,4,3,4,3,9 ,5,10 ,9 ,10 ,9 ,10 ,9 ,10 ,9 ,5 #2@7,8,7,8,7,8,7,8,7,8,10 ,11 ,1,1,1,1,1,1,11 ,9 ,7,2,3,4,8,7,3,4,2,8,10 ,2,9 ,8,11 ,11 ,9 ,10 ,2,9 ,7,2,4,3,7,8,12 ,3,2,8,10 ,11 ,1,1,1,1,1,1,11 ,9 ,5,10 ,9 ,10 ,9 ,10 ,9 ,10 ,9 ,5 $19500%:F=0111o:A:"A"+F,A:F %128,128,128,128,128,128,128,128,255,0,0,0,0,0,0,0 %1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,255 %128,128,128,128,128,128,128,255,255,128,128,128,128,128,128,128 %255,1,1,1,1,1,1,1,1,1,1,1,1,1,1,255 % 24,60<,126~,255,255,60<,60<,60<,24,28,254,255,255,254,28,24 %!60<,60<,60<,255,255,126~,60<,24,24,568,127,255,255,127,568,24 %"63?,31,143,199,227,241,248,252,252,248,241,227,199,143,31,63? %# 8540\! %$ :vv=7: v=2:vv=9 : v=2:vv=10 : v=5:vv=6: v=5:vv=8: v=5:vv=9 : v=5:vv=10 : v=5:vv=12 : v=5:vv=15: v=5:vv=18: v=6:vv=8: v=6:vv=5: v=6:vv=10 : v=6:vv=20: v=7:vv=20: v=7:vv=9 : v=8:vv=6: v=4:vv=6: v=4:vv=8: PLUS3DOSQ  U1:1:7::10 ,10 ;1;"PARE LA CINTA":200  3106 L0:7:1:0:0:0:0::440 7pan=1:gus=3:mal=15:lech=15 A11 ,10 ;"Pantalla ";pan'''"pulse una tecla":0 7::5 4f=1mal:(*22),(*32 );"":f f=115 ("x=(*22):y=(*32 ) 2(x,y)=540( <x,y;4;"" Ff P#m=0:x=11 :y=16 Z"440:s=1579:l [a$= da$="o"m=0 na$="p"m=1 xa$="q"m=2 a$="a"m=3 0m=0y=y-1:y=-1y=31 /m=1y=y+1:y=32 y=0 0m=2x=x-1:x=-1x=21 /m=3x=x+1:x=22x=0 (x,y)=5240 (x,y)=4280 x,y;"" .01z# =,l s 90Z x,y;1;1;" " Df=13:g=50245--1:.01z# =,g:g:f R0,0;"Te la has pegado";21,0;"pulse una tecla":0  lech=15 (gus=gus-1::390:15 8lech=lech-1:f=45-60<:.01z# =,f:f  x,y;"" "Klech=0lech=15:pan=pan+1:mal=mal+5::15 's , 90Z 6350^:f=023 @a J "a"+f,a Tf ^O24,126~,126~,255,255,126~,126~,24 hL24,60<,60<,60<,219,255,126~,24 rO36$,24,126~,219,255,165,129,255 | gus0  7 f=10 18:f,10 ;" ":f:12 ,8;" ";13 ,8;" ";20,10 ;"Track-Info  R Desea otra partida ?" ="s"6 "n"410  23,24,26,26,24,23,21,19,19,21,23,23,21,23,24,26,26,24,23,21,19,19,21,23,21,19,19 21,23,19,21,23,24,23,19,21,23,24,23,21,19,21,14,23,24,26,26,24,23,21,19,19,21,23,21,19,19 PLUS3DOS22U1:1:7::10 ,10 ;1;"PARE LA CINTA":200 1:6: 34:1:0,0;"HIPERBOLOIDE"  "Angulo";s "resolucion";k -4:1:21,0;"S= ";s !w=02*ͧ/100d  x1=502*w y1=15*w (x2=502*(w+s) 2 y2=15*(w+s) <. 7:1:x1+120x,y1+145 F- 7:1:x2+120x,y2+25 Pw d w=0̧ͧ/k  x1=502*w , y1=15*w x2=502*(w+s) y2=15*(w+s) X x1+120x,y1+145  x2+120x,y2+25  x1+120x,y1+145 )7:1:x2-x1,y2-y1-120x $ w=1110V )w Vw=2*ͧ/(k+1) `x1=502*w jy1=15*w t x2=502*(w+s) ~ y2=15*(w+s)  x1+120x,y1+145  x2+120x,y2+25 x1+120x,y1+145 )7:1:x2-x1,y2-y1-120x w=2*1220 w 25:s=00,20;"CILINDRO" 25:s=0,20;"SISTEMA CONICO" :5:s0sɧ0,20;"HIPERBOLOIDE" "REPITES (S/N)";Z$ Z$="S"0  :"ADIOS" '"HIPER"0:9999' :c=1140 $x$>4Űx$<1140 res=x$ 8TEST=1A$(preg,60<):B$(preg,res,25) 8TEST=2E$(preg,60<):F$(preg,res,25) 8TEST=3G$(preg,60<):H$(preg,res,25) 8TEST=4I$(preg,60<):J$(preg,res,25) i=1preg 8000@:x$=" " -"Dame el texto de pregunta ";(i);" ";x$ x$>60<x$=x$(60<) /4,0;1;" ";i;" - ";x$;" " #TEST=1A$(i)=x$:250 #TEST=2E$(i)=x$:250 #TEST=3PLUS3DOSfT O Tp1:1:7::10 ,10 ;1;"PARE LA CINTA":200:cont=0:max=0 7000X:punto=0:avis=1:cilon=0:comb=25000a:jj=0:0:7:1::5000:5050:4500:4600:4700\ ¤17,10 ;8;9 ;("max:"+max+" ")(12 ):t=1:y=0:ccvv=0:cchh=0:a$="":enemy=0 zcd=23560\ (comb<0comb=0:7010b Ab$=comb+" ":16,26;b$(5):4800 ΁ccv15ccv0cch(31-a(ccv+1))ccv,cch;1;a$:2:ccv,cch;1;a$ ύccv=12 cch=141;1;ccv,cch;a$:k=16:1:64@,480:546,28:192,480:-546,28:0:k:f=69E502-1:.01z# =,f:f:1;ccv,cch;a$:cilon=cilon+1:punto=punto+200:8;8;1;1;16,8;" BLANCO!!! ":f=0502:f:4500 U0;8;18,1;punto;8;1;20,1;cilon 4zcd=103gcch=cch+1:comb=comb-75K 4zcd=104hcch=cch-1:comb=comb-75K 5zcd=107kccv=ccv+1:comb=comb-120x 4zcd=109mTrack-Info  R ccv=ccv-1:comb=comb-502 7:8:1:1;82R+cch+30,39'-(20+(ccv/2)):1;3,0:1;82R+cch+30,39'-(20+(ccv/2)):1;3,0:7:0:0:0 gavis=-avis:avis>0ccv<68;8;16,8;1;"CILON ARRIBA !" \avis>0ccv>1516,8;8;8;1;"CILON ABAJO !" [avis<0cch<38;8;1;16,8;"CILON POR BAVOR!" \avis<0cch>288;8;1;16,8;"CILON ESTRIBOR!" tcch>3cch<28ccv<15ccv>48;8;1;16,8;" CILON A TIRO!" at=t+1:t/3=(t/3)ccv=ccv+(*3)-1:cch=cch+(*3)-1 ccv<-18ccv=-18 ccv>40(ccv=40( cch<-28cch=-28 cch>60<cch=60<  3015 acch=(*100d)-30:ccv=(*80P)-20:shc=(*20):svc=(*20): 82R,0:0,31:92\,0:0,-31:f=03110 :82R,f:92\,0:f:g=82R17430:g,0:0,31:g 6:f=112p142:f,10 :0,10 :f:7:1:127,13 :1,0:-2,0:1,0:0,1:0,-2:0: \ jjjj=0:6:x(201):y(201):f=5*/2̧/2-/100d:jjjj=jjjj+1:x(jjjj)=215+38&*f:y(jjjj)=16+16*f:x(jjjj),y(jjjj):x(jjjj)=x(jjjj)-215:y(jjjj)=y(jjjj)-16:215,16:x(jjjj),y(jjjj):f ]]2:f=50210 -1:217,16:-2+x(f),y(f):f:7: comb>2008:9 :215,16:1;x((comb/125})),y((comb/125})):215,16:1;x((comb/125})),y((comb/125})):7:0 (comb/125})=5028;8;16,8;1; 1;"FUEL DE RESERVA!":G=-22:.01z# =,G:G:0:8;1;8;0;16,8;"FUEL DE RESERVA!"   9999'   17,0;4;0;" PUNTOS ";6;1;19,0;" CILONS ";20,0;" ";21,0;" ";18,0;4;" ":w=04:3;17+w,22;" ":w 0,568:557,118v:144,0:557,-118v:-63?,-8:0,-8:63?,16:0,568:63?,-8:0,-8:-63?,16:63?,480:30,64@:68D,0:30,-64@ P93],112p:-38&,63?:161,112p:38&,63? &16,8;"" 127,77M:0,16:0,-32 :0,16:-24,0:480,0:f=61=93]8:125},f:4,0:f:f=103g1518:f,75K:0,4:f  <f=14:a$:g=07:c:a$+g,c:g:f X=7000X:a(16):f=116:p:a(f)=p:f: @21,21,22,22,23,23,24,24,25,25,26,26,30,30,30,21,"a",0,0,1,0111,1110,0,0,0 J["b",0,1110,10111100,10111100,11,0,0,0 T`"c",0,1110000p,111101=,111101=,11000000,0,0,0 ^\"d",0,0,10000000,11100000,1110000p,0,0,0 ccont=cont+1:cilon5*cont+(cont/2)comb=25000a:.1}L,30:.5,10 :.5,10 :8;8;1;16,8;" DEPOSITO LLENO ":1,-10 :punto=punto+500:3015 r}23692\,0:f$=" ":21,0;:f=124:1;1;f$:f |0::f=10 30:.1}L,f:.1}L,f/2:f:1,-10 :10 ,1;1;"Se te acabo el combustible";12 ,1;"conseguiste";32 ;punto;32 ;"puntos" #500::punto>maxTrack-Info  R max=punto 9("Quieres seguir jugando(s/n)");x$:x$="s"3000  '"cilons"2900T W1:1:7::1;10 ,10 ;"PARE LA CINTA":200: 270  H=H+(V*C)  M=M+(V*D) ( P=P+1 2="0"C=1:D=0 <="O"C=-1:D=0 F="X"D=1:C=0 P="Z"D=-1:C=0 Z(M,H)=1120x dM,H i6;0,8;P n 20 x.01z# =,2 z K=K+1 |+6;0,29;502-K;" " }K=502170 M>247M=245: H>158H=158: H<9 H=9 : M<9 M=9 : -C=1C=-C:H=H-1:M=M+1: .C=-1C=-C:H=H+1:M=M-1: -D=1D=-D:H=H+1:M=M-1: .D=-1D=-D:H=H+1:M=M+1:  J=2040( $"" .005y# =,J PLUS3DOSe BELEN SAENZ DE SANTAMARIA t1:1:7::10 ,10 ;1;"PARE LA CINTA":200:4:4:0: -5,6;"INTEGRALES DEFINIDAS" p7,5;"METODO DE LAS PARABOLAS";8,14;"PARA";9 ,5;"INTEGRACION APROXIMADA." 502:5:1: -3,3;"INTERVALO DE INTEGRACION" "a",a:"b",b )5,10 ;"[a,b]=[";a;",";b;"]" ('7,3;"FUNCION A INTEGRAR" 2"INTEGRAL ";I$ <9 ,10 ;I$ F*11 ,3;"NUMERO DE DIVISIONES" P "n(par)",n ZCn0n-n0(n/2)-(n/2)080P d13 ,10 ;"n=";n ns17,0;"Si quieres efectuar alguna","correccion, pulsa .","Para continuar pulsa","cualquier tecla." x 0: ="b"Ŧ="B"10 dx=1:e=2.71828182-TO y(n) h=(b-a)/n k=1n-1 x=a+k*h y(k)=I$ k x=a:y0=I$ x=b:y(n)=I$ S=y0+y(n) k=1n-12 S=S+4*y(k) k k=2n-22 S=S+2*y(k) "k ,S=(h/3)*S 6"5,3;"LA SOLUCON DE" @'6,3;"LA INTEGRAL DE ";I$ J+7,3;"ENTRE ";a;" Y ";b;" ES" T10 ,5;S ^621,0;"(Pulse una tecla para continuar)" h 0: r)5,3;"ALGUNA INTEGRAL MAS?" |"0::="S"Ŧ="s"10  N:Y N=14173 J=1619  J,N;"" J:N d1;12 ,5;"";12 ,9 ;"";12 ,21;"";12 ,26;""   PLUS3DOSJ{1:1:7::10 ,10 ;1;"PARE LA CINTA":200:1:6:0::3 0g=175K:f=(*22):s=(*32 ):t=(*8):cd=(*26)+65A:f,s;t;cd:g:25:;1;8,12 ;"";9 ,12 ;" MESA ";10 ,12 ;" DE ";11 ,12 ;"LETRAS";12 ,12 ;"":0:200:  375w %:rec=10 ^6:NUM=0 Li=07:"a"+i,126~:i:"b",0:"b"+1,0 (i=16:"b"+i,255:i a$="ABCDEFGHIJKLMNOPQRSTUVXY" !"NUMERO DE LETRAS 8,15,24 ? ";n n=8502 #n=1560< (n=2470F - 25 2pr1=102f:pr2=113q:d=43+:ghyi=9 :ghyf=11 :ghxi=13 :ghxf=17:gvxi=14:gvxf=16:gvyi=8:gvyf=12 :lsx=17:lix=13 :lsy=12 :liy=8 7 75K <pr1=94^:pr2=121y:d=59;:ghyi=8:ghyf=12 :ghxi=12 :ghxf=18:gvxi=13 :gvxf=17:gvyi=7:gvyf=13 :lsx=18:lix=12 :lsy=13 :liy=7 A 75K Fpr1=86V:pr2=129:d=75K:ghyi=7:ghyf=13 :ghxi=11 :ghxf=19:gvxi=12 :gvxf=18:gvyi=6:gvyf=14:lTrack-Info  R sx=19:lix=11 :lsy=14:liy=6 K2:pr1,pr2:d,0:0,-d:-d,0:0,d:-1,1:d+2,0:0,-(d+2):-(d+2),0:0,d+2 P;f=ghyighyf2:c=ghxighxf:4;f,c;"":c:f UMc=gvxigvxf2:f=gvyigvyf:1;4;f,c;"":f:c:0 Z&2,7;"ESPERA UN MOMENTO" _&spx=lsx:spxn=spx:spy=lsy:spyn=spy db$=a$(1n):k=0 iy=liylsy2 nx=lixlsx2 s k=k+1 xy,x;b$(kk) }k=n135 x:y 315; -2,4;"NUMERO DE INTENTOS= ";num -0:<535ů>568145 ="7"spyn=spy+2 2,24;num ="6"spyn=spy-2 ="5"spxn=spx+2 ="8"spxn=spx-2 spxn>lsxspxn=lsx:145 spxnlsyspyn=lsy:145 spynlsyspyn=lsy:320@ J?rev=1spyn=spyn-2:spynlsxspxn=lsx:340T ^?rev=1spxn=spxn-2:spxn 9100# H%3:"Area en metros cuad: ";a1 R1:a2=a1*.01z# =:a3=a1*.0001sQX:a4=a1*.000001m7:a5=a1*1.195993H:a6=a1*.00025un:6,18;a1;8,18;a2;10 ,18;a3;12 ,18;a4;14,18;a5;16,18;a6 \ 9400$ f="0"10 p="1"21004 z 2150f CONVERSION AREAS @:3:0,0;" CONVERSION DE AREAS "  9100# 3:"Area en areas: ";b1 1:b2=b1*100d:b3=b1*.01z# =:b4=b1*.0001sQX:b5=b1*119.599o2!:b6=b1*.02471{Jl<:6,18;b2;8,18;b1;10 ,18;b3Track-Info  R ;12 ,18;b4;14,18;b5;16,18;b6  9400$ ="0"10 ="1"2250  2300 _CONVERSION HECTAREAS `@:3:0,0;" CONVERSION DE HECTAREAS " j 9100# t#3:"Area en hectareas: ";c1 ~1:c2=c1*10000':c3=c1*100d:c4=c1*.01z# =:c5=c1*11959.9:ߙ:c6=c1*2.47105%:6,18;c2;8,18;c3;10 ,18;c1;12 ,18;c4;14,18;c5;16,18;c6 9400$ ="0"10 ="1"2400` 2450 CONVERSION KILOM CUAD >:3:0,0;" CONVERSION DE KILOMETROS CUAD" 9100# )3:"Area en kilometros cuad: ";d1 1:d2=d1*1000000t$:d3=d1*10000':d4=d1*100d:d5=d1*1195990:d6=d1*247.105wH:6,18;d2;8,18;d3;10 ,18;d4;12 ,18;d1;14,18;d5;16,18;d6  9400$ (="0"10 2="1"2550 < 2600( CONVERSION YARDAS CUAD ?:3:0,0;" CONVERSION DE YARDAS CUADADAS " 9100# %3:"Area en yardas cuad: ";e1 1:e2=e1*.083613}+=J:e3=e1*.00836za:e4=e1*.00004r'ŬF:e5=e1*.00000083613l`rj:e6=e1*.00021t\3r:6,18;e2;8,18;e3;10 ,18;e4;12 ,18;e5;14,18;e1;16,18;e6 9400$ ="0"10 ="1"2700 2750 !CONVERSION ACRES "@:3:0,0;" CONVERSION DE ACRES " , 9100# 63:"Area en acres: ";f1 @1:f2=f1*4046.86|:f3=f1*40.4686!خ:f4=f1*.40469O3:f5=f1*.00405y:f6=f1*4840:6,18;f2;8,18;f3;10 ,18;f4;12 ,18;f5;14,18;f6;16,18;f1 J 9400$ T="0"10 ^="1"2850" h 2900T CONVERSION DE VOLUMENES :3:0,0;" CONVERSION DE VOLUMENES ":1:6,4;"Metros cubicos....... (1)";8,4;"Litros............... (2)";10 ,4;"Galones U.S.......... (3)";12 ,4;"Pulgadas cubicas..... (4)";14,4;"Pies cubicos......... (5)";16,4;"Galones imperiales... (6)";3;20,7;"PULSA OPCION (1-6)." ="1"3100 ="2"3250 ="3"3400H ="4"3550 ="5"3700t ="6"3850  3010 CONVERSION METROS CUBIC @:3:0,0;" CONVERSION DE METROS CUBICOS " & 9200# 0'3:"Vol en metros cubicos: ";a1 :1:a2=a1*1000:a3=a1*264.171U:a4=a1*61023.7n_3:a5=a1*35.3147 B@:a6=a1*219.978[^5:6,19;a1;8,19;a2;10 ,19;a3;12 ,19;a4;14,19;a5;16,19;a6 D 9400$ N="0"10 X="1"3100 b 3150N CONVERSION LITROS @:3:0,0;" CONVERSION DE LITROS " 9200# 3:"Vol en litros: ";b1 1:b2=b1*.001wn:b3=b1*.026418{Xj:b4=b1*61.0255t:b5=b1*.03532|O:b6=b1*.21998~aBo:6,19;b2;8,19;b1;10 ,19;b3;12 ,19;b4;14,19;b5;16,19;b6 9400$ ="0"10 ="1"3250 3300 GCONVERSION GALONES U.S. H@:3:0,0;" CONVERSION DE GALONES U.S. " R 9200# \%3:"Vol en galones U.S.: ";c1 f1:c2=c1*.00379xxa :c3=c1*3.78532rB:c4=c1*231.001gA:c5=c1*.13368~h:c6=c1*.83270U+:6,19;c2;8,19;c3;10 ,19;c1;12 ,19;c4;14,19;c5;16,19;c6 p 9400$ z="0"10 ="1"3400H 3450z CONVERSION PULGADAS CUB ?:3:0,0;" CONVERSION DE PULGADAS CUBICAS" 9200# )3:"Vol en pulgadas cubicas: ";d1 1:d2=d1*.00002q'ŬF:d3=d1*.01639{DR@:d4=d1*.00433y 1:d5=d1*.00058v $ :d6=d1*.0036xkD:6,19;d2;8,19;d3;10 ,19;d4;12 ,19;d1;14,19;d5;16,19;d6  9400$ ="0"10 ="1"3550 $ 3600 sCONVERSION PIES CUBICOS t@:3:0,0;" CONVTrack-Info  R ERSION DE PIES CUBICOS " ~ 9200# %3:"Vol en pies cubicos: ";e1 1:e2=e1*.02832{gX::e3=e1*28.316b+:e4=e1*7.48048o`:e5=e1*1728:e6=e1*6.22883GRJ:6,19;e2;8,19;e3;10 ,19;e4;12 ,19;e5;14,19;e1;16,19;e6  9400$ ="0"10 ="1"3700t  3750  CONVERSION ACRES  @:3:0,0;" CONVERSION DE ACRES "  9200# 3:"Vol en acres: ";f1 (1:f2=f1*.00455y*:f3=f1*4.54596x:f4=f1*1.20095:f5=f1*277.42 :f6=f1*.16054~$d:6,19;f2;8,19;f3;10 ,19;f4;12 ,19;f5;14,19;f6;16,19;f1 2 9400$ <="0"10 F="1"3850  P 3900< #&GO SUB 9000 #(1:6,1;"Metros..... ";8,1;"Kilometros. ";10 ,1;"Pulgadas... ";12 ,1;"Pies....... ";14,1;"Yardas..... ";16,1;"Millas..... ": #GO SUB 9100 #1:6,1;"Metros cuad..... ";8,1;"Areas........... ";10 ,1;"Hectareas....... ";12 ,1;"Kilometros cuad. ";14,1;"Yardas cuad..... ";16,1;"Acres........... ": #GO SUB 9200 #1:6,0;"Metros cubicos.... ";8,0;"Litros............ ";10 ,0;"Galon U.S......... ";12 ,0;"Pulgadas cubicas.. ";14,0;"Pies cubicos...... ";16,0;"Galones imperiales ": $GO SUB 9400 $c2:19,0;"Para volver al menu pulsa (0).";20,0;"Sino pulsa (1).": & DATAS &E0,0,0,255,255,0,0,0 &I24,24,24,24,24,24,24,24 &K24,24,24,255,255,24,24,24 &#n=07:a:"a"+n,a:n &/9920&:n=07:a:"b"+n,a:n &/9930&:n=07:a:"c"+n,a:n & 236099\,10 :10 grande el juego termina."; 1;1;"Pulse una tecla":0: & PLUS3DOSe  :1:1:7: /1;10 ,8;" PARA LA CINTA! " L4,9 ;"KAMIKACES 2OOO";16,6;" Martinez Cob. 1984" ("i=0151:a:"a"+i,a *.01z# =,a/5 -G21,2;" ":i:1,0 216,16,16,568,568,568,124|,124|,0,1,7,255,7,1,2,31 <198,255,255,255,255,17,0,1,0,0,192,254,192,0,128,240 F16,16,16,16,16,16,16,16,0,0,0,255,0,0,0,0 P7,8,16,127,61=,15,19,96`,224,16,8,254,188,240,200,6 Z124|,84T,68D,84T,254,254,186,146,255,195,223,199,223,255,195,24 d0,128,192,240,248,252,254,255,0,1,3,7,7,31,63?,255 n0,0,0,0,3,15,127,255,3,7,63?,255,255,255,255,255 x192,224,248,254,255Track-Info  R ,255,255,255,36$,60<,255,110n,118v,255,60<,36$ 0,36$,110n,568,28,118v,36$,0,0,0,0,24,24,0,0,0 A0,0,0,0,0,0,0,0 r$="BENITO":r=100d @0:7:0::0,9 ;"KAMIKACES 2OOO" 2,3;"Intenta destruir el mayor nu-mero de naves enemigas. La navedel fuel te repondra combustiblecuando la derribes." 26,3;"A los 2OOO puntos nave extra." -8,5;"Dispara con las flechas." I3;10 ,7;"";11 ,6;"..........TU NAVE" I5;13 ,6;"";14,6;".............COHETE" 36;17,6;"............PLAGAS" 32;20,6;".........NAVE FUEL" +#1;" Pulsa una tecla para empezar" /="".05|L,10 :502:232 0:1: )33!,152:184,144 '24,96`:168,86V '232,88X:80P,78N (29,46.:147,127 "<144,568:229,31:76L,128 ,d16,23;"";17,5;"";17,22;"";18,13 ;"" 6Y4:18,4;" ";18,20;" ";18,31;"" @619,0;" " J620,0;"" TU7;18,5;"";18,22;"";19,13 ;"" ^7p=0:l=1:z=0:t=3:j=1 hH0;4;21,0;"Fuel: 00000 Fase:00 " r'#1;"Record:";r;32 -r$;r$ |#f=64@:i=030:i .2~L,16:.2~L,15:.2~L,16:.21~W =p,15:.22~aG,16:.2~L,11 :.23~k,14:.2~L,12 :1.2,9 :m=0 Z0:8:40(,2:64@,0:40(,3:64@,0 "i=030:i:k=6 &i=198-1:3 i-2,15;"" 'i<19i-1,14;"" i<18i,14;" " .03{u\,i:i <0:21,27-l;l;21,32 -t;" " 90;7,l-1;" ";7,32 -l;" " f021004  2200 j1800  d=1 q=(*4) q*200+600X XAtaque cohete bs=8:x=15 ly=189 -1 v5:y-1,x;"" y<18y,x;"" y<17y+1,x;" " ="6"d=0:f=f-1 d1700 7;s,15;"" *s=y-1s=yp=p+5:1500 &s=s+1:s-1,15;" "  1700  Ataque plaga izquierda *s=13 :y=7 4x=l12 >6;y,x-1;" " H="5"d=0:f=f-1 Rd1710 \7;7,s;"" f+s=x+1s=xp=p+10 :1500 p%s=s-1:7,s+1;" " z 1710 Ataque plaga derecha s=17:y=7  x=31-l18-1 6;y,x-1;" " ="8"d=0:f=f-1 d1710 $7;7,s;"" .+s=x+1s=xp=p+10 :1500 8%s=s+1:7,s-1;" " B 1710 v=(*3) v=0600X v=11400x s=5:y=1 x=116 2;y,x-1;" " ="7"d=0:f=f-1 d1300 7;s,15;"" -s=1x>13 x<161600@ Ds=11,15;" ":d=1:s=5:1300  &s=s-1:s+1,15;" " #x:y,x-1;" ":480 xNave fuel derecha s=5:y=1 x=2913 -1 2;y,x-1;" "  1240  Explosiones e=03  ٽ((e*4+2)-8) @y-1,x-1;" ";y,x-1;" ";(159+e);" " y+1,x-1;" " .02{# =,e:e z=z+1:p=p+10 &(z/502)=z/5021900l " 480 @(f=f+25-l:f>64@f=64@ JC0:40(,2:f,0:40(,3:f,0 Tp=p-10 :1500Track-Info  R  y:1720 x e=03  ٽ((e*4+2)-8) k,15;" " 0k+1,12 ;" ";(159+e);" " <k=6k+2,15;" ";k+3,15;" " .04|# =,e:e t=t-1:t2500  380| p<2000 j=0:t=t+1 +n=010 :.15~,20:n &#0;21,33!-t;"" 0 l Nueva fase vi=05 7;i,15;"" .08}# =,i:i %i=80-1:3 $i>1i-2,15;"" &i>0i-1,14;"" i,14;" " .03{u\,i:i:l=l+1  i=1f p=p+5:f=f-1  2200 j1800 .03{u\,10 :i .5,20:380| 4Fuel agotado >21,5;" " Hi=515:3 Ri,15;" " \5i+1,14;" ";i+2,14;"" f.02{# =,i:i pk=16:1720 Impresion de puntos #0:21,19-p;p \1:40(+f,2:7,0:40(+f,3:7,0:0  Fin de juego x=030:i `.3,10 :.3,6:.32# =,10 :.31Q,16:.6,20 77:1;5,5;"Juego terminado." 48,1;"Dejaste viudas a ";z;" mujeres." p>r26102 e11 ,1;"Pulsa 'J' para jugar otra vez.";14,1;"Si no sabes jugar pulsa 'I'." 23658j\,8 ="J"240 ="I"160 ( 2580 2:1;11 ,1;"Escribe tu nombre, campeon!" <23658j\,8 F%="".2~L,10 :2630F Pr$ Z r$>17r$=r$(17) xr=p: '"KAMIKACES"10 ANT %NM=12 :FT=5:3620$ 1V=1NM:C(V)=1:F(V):P(V):V $2,24,4,30,5,29PLUS3DOSwwU1:1:7::10 ,10 ;1;"PARE LA CINTA":200 - 0:0:7::4000: +f$(3,75K):t$(3,1)  nf=0 (n=13:t$(n):n 2 "x","y","z" <<"Abcisa del origen=";x9:x9<0x9>25560< F,3,0;"Abcisa del origen=";x9'' P>"Ordenada del origen=";y9:y9<0y9>17560< Z"Ordenada del origen=";y9'' dnf=1170 nn=13 xt$(n);"=f(t)="; z$:z$>75K130 f$(n)=z$ z$'' n "Limite inferior de t=";t1 "Limite inferior de t=";t1'' "Limite superior de t=";t2 "Limite superior de t=";t2'' +:nf=0:int=(t2-t1)/(255-x9) "3,0;"Proyeccion? "; 9000(# z$'' 6z$="N"z$="n"proy=0:norm=1:400 &proy=1:n=1100d:n "Solo proyeccion? ";  9000(# "z$'' ,(z$="S"z$="s"norm=0:320@ 6norm=1 @Q"Contra que eje? ";e$:e$1((e$<"x"e$>"z")(e$<"X"e$>"Z"))320@ J "Eje=";e$'' T&eje=(e$)-87W-32 *(e$>"Z") O"Precision (0.01 a 1000000)=";prec:prec<0.01z# =prec>1e6t$400 "Precision=";prec  150  Ax9,y9:255-x9,0:x9,y9:0,175-y9:x9,y9 x9y9-y9,-y9:470  -x9,-x9 py=((175-y9)/8) pz=(x9/8) 8x9y9pz1=21:pz2=((x9-y9)/8):510 .pz2=0:pz1=21-((y9-x9)/8) pz1,pz2;"X" "py,31;"Y";0,pz;"Z"  cont=x9 &t=t1t21/prec*int 0x1=((f$(2))/int+x9) :y1=((f$(3))/int+y9) D$z1=((f$(1))/int)/(2) N x=x1-z1 X y=y1-z1 bnorm=0640 l8x<0x>255y<0y>175640 vx,y proy=0660 1000*eje t 021,0;"Pulse una tecla":0: 5,0;" MENU [1]Empezar de nuevo [2]Dejar la func. y cambiar algo[3]Cambiar los limites de t [4]Cambiar las proyecciones [5]Cambiar la precision " z$=:z$=""690 z$>"5"z$<"1"690  z=z$:  z=1 !z=2nf=1:60< z=3170 z=4220Track-Info  R  z=5400 3x1<0x1>255y1<0y1>175 x1,y1   x8=x-x1+x9 1x8<0x8>255y<0y>175 x8,y  y8=y-y1+y9 1y8<0y8>175x<0x>255 x,y8  5" Este programa dibuja funciones en 3 dimensiones." p" Para ello, primero se le han dedar las coordenadas del origen (segun el modelo de la instruc- cion PLOT)." g" Tras eso, se han de dar los va-lores de x, y , z en funcion de t.(por ejemplo x=3*t, y=t, z=t)." P" Seguidamente, se le proporcio- nan al ordenador los valores en-tre los que varia t (por ejemplodesde t=0 a t=10). Este valor det determinara la escala a la quese haga la representacion, debi-do a que la longitud de la par- te del eje y representada en la pantalla corresponde a la dife- rencia entre los dos valores ex-tremos de t." 021,0;"Pulse una tecla":0: Ҁ" A continuacion se le pedira si desea proyectar ~contra un eje~.Esto en realidad significa sobreel plano contrario a ese eje" " Ya por ultimo debera introducirel dato de la precision, o sea, una medida de la diferencia en- tre dos valores consecutivos de t. Un valor normal podria ser 5,aunque la gama sea muy amplia." r" He aqui un modelo de funcion: O=(127,37)"'"x=3*(3*t)"'"y=3*(3*t)"'"z=t"'"proyeccion contra z"'"precision=5" 221,0;"Pulse una tecla":0:: #(z$= #2z$=""9000(# #<)z$"S"z$"s"z$"N"z$"n"9000(# #F ,127PLUS3DOS._8*******BOMBARDEO*******  ANDRES SECO HERNANDEZ  -1;11 ,9 ;"PARA LA CINTA." 9000(#::100d j5:1:0:1::A=1819:B=031:1;A,B;"":B:A: Ia=1519:1;a,0;"";a,27;"":a @a=01:b=031:a,b;4;" ":b:a 20,0;4;"PUNTOS";0,26;"BOMBAS";0,13 ;"RECORD";5;1,1;"0000";1,14;"0000";1,28;"20":20,0; <0B=015:2;6;"*+";:B A621,0;" ANDRES SECO HERNANDEZ " F1;7;15,0;"HELI.";15,27;"ENEM.";5;0;16,2;"5";16,29;"0" K3,14;" ";4,15;"";17,5;Z$(1);14,2;"";14,28;"";13 ,3;"";13 ,28;"" P 120x d23658j\,8:SCORE,HELIB,CONUS,HIGH,FIRE,tiempo:R$(3,15):X$(3,4):A=13:R$(A):A:A=13:X$(A):A eq0,5,0,0,20,0,"ZX SPECTRUM","ZX SPECTRUM","ZX SPECTRUM","0000","0000","0000" o=Z$(22,22):Z$(1)=" " qMA=222:Z$(A)=Z$(A-1,22)+Z$(A-1,21):A r 10 x1,18-HIGH;HIGH;11 ,2;1;0;"Z-DERE. X-IZQU. SPACE-FUEGO":.73333,502:A=030:.1}L,-5:A:.73333,502:11 ,2;" ";11 ,14;1;0;"!VA!":0 W11 ,14;" ":X=14:XB=15:YB=4:Y=3:MM=0 Z=221-1 X1=X:XB1=XB +X=X+(="X")-(="Z"):X<4X=4 X>24X=24 MM=0XB=X+1 CY,X1;" ";YB,XB1;" ";5;0;Y,X;" ";YB,XB;"" Y=" "MM=0YB,XB;" ":.01z# =,-5:YB=YB+1:YB,XB;"":MM=1 CMM=1YB=YB+1:YB-1,XB;" ":.02{# =,502 -17,5;Z$(Z):.03{u\,20 _YB=1616,XB;1;"":MM=0:YB=4:.73333,-5:5000 "RND1=:RND2=::RND3=:RND4= Ȑrnd1>rnd2+.7333332 ,72H:80P,80P:.2~L,0:32 ,72H:1;80P,80P:X=14X=13 X=12 X=11 HELIB=HELIB-1:16,2;HELIB:Y,X;"":.3,*10 :Y,X;" ";YB,XB;" ":X=14:YB=4:XB=15:MM=0:R=12 0-1:.01z# =,R:R:Y,X;" ";YB,XB;"":220 ͫrnd2>rnd3+.7333332 ,72H:40(,80P:.2~L,0:32 ,72H:1;40(,80Track-Info  R P:X=9 X=8X=7X=6X=10 X=5X=4HELIB=HELIB-1:16,2;HELIB:Y,X;"":.3,*10 :Y,X;" ";YB,XB;" ":X=14:YB=4:XB=15:MM=0:R=12 0-1:.01z# =,R:R:Y,X;" ";YB,XB;"":220 Ҧrnd3>rnd4+.73333255-32 ,72H:-80P,80P:.2~L,0:255-32 ,72H:1;-80P,80P:X=14X=15X=17X=16HELIB=HELIB-1:16,2;HELIB:Y,X;"":.3,*10 :Y,X;" ";YB,XB;" ":X=14:YB=4:XB=15:MM=0:R=12 0-1:.01z# =,R:R:Y,X;" ";YB,XB;"":220 rnd4>rnd1+.73333255-32 ,72H:-40(,80P:.2~L,0:255-32 ,72H:1;-40(,80P:X=18X=19X=20X=21X=22X=23X=24X=25HELIB=HELIB-1:16,2;HELIB:Y,X;"":.3,*10 :Y,X;" ";YB,XB;" ":X=14:YB=4:XB=15:MM=0:R=12 0-1:.01z# =,R:R:Y,X;" ";YB,XB;"":220 HELIB=01000 tiempo=tiempo+1:tiempo=240CONUS<10 1;11 ,9 ;"TIEMPO ACABADO.":S=0600X:S:1000 Z  145 yS=0100d:S::0:0:7:0::11 ,11 ;"!SE ACABO!":S=0600X:S SCORE=03000 ':SCORE>(X$(3))G$=" TERCER " XSCORE>(X$(2))G$=" SEGUNDO ":X$(3)=X$(2):R$(3)=R$(2) WSCORE>(X$(1))G$=" PRIMER ":X$(2)=X$(1):R$(2)=R$(1)  "SCORE<(X$(3))3000 5,2;1;"ESCRIBE EL NOMBRE DEL";G$;6,11 ;"CLASIFICADO";7,7;"SOLO 15 CARACTERES.";0 G$=" PRIMER "B=1 G$=" SEGUNDO "B=2 (G$=" TERCER "B=3 -"NOMBRE: ";I$ .I$>151325- /R$(B)=I$:X$(B)=(SCORE) F 3000 6:7:0: Fb=021:b,0;"":b EA=031:3,A;"_";5,A;"_";9 ,A;"_":A s4,11 ;1;"BOMBARDEO.":A=13:5+A,5;R$(A);5+A,24;X$(A):A ,15,10 ;1;" OTRA?(S/N) " HIGH=(X$(1)) A$=:A$=""3040 A$"S" VSCORE=0:tiempo=0:FIRE=20:HELIB=5:CONUS=0:10 (17,XB)" "SCORE=SCORE+5+(*10 ):CONUS=CONUS+1:1,5-SCORE;SCORE:16,30-CONUS;CONUS:17,XB;1;"":XB=X+1:.1}L,35#:3:16,5;" ":SCORE>40(SCORE<557HELIB=HELIB+1:FIRE=FIRE+6:16,2;HELIB;1,29;"00";1,31-FIRE;FIRE SCORE>70FSCORE<85UHELIB=HELIB+1:FIRE=FIRE+6:16,2;HELIB;1,28;"00";1,30-FIRE;FIRE +16,5;" " FIRE=FIRE-1:1,28;"00";1,30-FIRE;FIRE:FIRE=011 ,5;"LAS BOMBAS SE ACABARON":1000  #(I9000(#:A=118:A$:B=07:C:A$+B,C:B:A #2"A",1,63?,1,31,535,71G,63?,25,"B",128,252,128,129,255,192,128,128,"C",126~,60<,24,24,24,24,24,0,"D",31,18,18,127,255,127,491,491,"E",128,128,159,159,255,255,134,134,"F",0,0,124|,124|,254,252,24,24 #<"G",0,16,16,123{,251,127,480,480,"H",0,0,16,16,568,254,480,480,"I",0,32 ,38&,38&,110n,255,102f,102f,"J",85U,85U,170,170,85U,85U,170,170,"K",0,24,60<,126~,126~,60<,24,0,"L",0,32 ,112p,112p,568,29,15,7 #F"M",7,13 ,15,28,63?,63?,24,0,"N",128,192,224,96`,240,248,12 ,0,"O",0,4Track-Info  R ,14,14,28,184,240,224,"P",224,176,240,156,252,252,24,0,"Q",1,3,7,6,15,31,480,0,"R",153,90Z,60<,153,90Z,60<,126~,126~ #P PLUS3DOS22 1060$ <;480,80P,112p,144,176,208 F98,40(,72H,104h,136,168 Pꏏ ZꏏCUADRICULA dꏏ n:4:4:1: sCF=120:f,6;5;" ":f xo1,26;"ULTIMA";2,26 ;" CARA ";9 ,26;"ULTIMO";10 ,26;"ESPEJO" 9:f=16:x:x,8:0,160:f 8f=16:y:480,y:160,0:f '21,6;"A B C D E" m20,5;"1";16,5;"2";12 ,5;"3";8,5;"4";4,5;"5"  ꏏ ꏏCOORDENADAS DEL ꏏPUNTO ꏏ ܞ14,27;2;6;1;"JUEGA";15,27;"EL ";t:.5,15:14,27;"JUEGA";15,27;"EL ";t mov=1 borrado "Coordenadas del espejo?";p$ rp$2#1;2;6;1;"PONGA LA LETRA SEGUIDA DEL NUM.":1,-10 :250 p$(1)<66Bůp$(1)>69Eůp$(2)<502ůp$(2)>535#1;2;6;1;" DEBE ESTAR DENTRO DEL TABLERO ":1,-10 :250 yp=y(p$(2)) "xp=x(p$(1)-64@) ,(xp+1,yp+1)#1;2;6;1;" AHI YA HAY UN ESPEJO ":1,-10 :250 6f=13:xp,yp,f:f @11 ,28;p$ Jcondicion de reflexion Txi1=xc-16 ^f=16 hxi1=x(f)v1=f:380| rf |v1=v1+64@:v$=v1 !yi1=yc+2*(yp-yc)-16 f=16 yi1=y(f)v1=f:430 f !xi2=xc+2*(xp-xc)-16 f=16 xi2=x(f)w=f:470 f w=w+64@:w$=w yi2=c$(2) ꏏcasillas posibles a$="CASILLAS":g$="POSIBLES" |f=18:f+4,1;a$(f):.01z# =,f*2:f+4,3;g$(f):.01z# =,f*2+1:f 215,1;v$;v1;17,1;w$;yi2 6v$<65Aův$>69E15,0;" " 6w$<65Aůw$>69E17,0;" " &2v1<1v1>515,0;" " 04yi2<1yi2>517,0;" " :Axi1<480xi1>176yi1<8yi1>136590N D9(xi1+16,yi1+16)15,0;" " N@xi2<480xi2>176yc<24yc>152610b X/(xi2+16,yc)17,0;" " b`h$=(15,1):j$=(15,2):k$=(17,1):l$=(17,2) l)gan=t+1:gan=3gan=1 vlh$+j$+k$+l$=" "#1;6;2;" GANADOR EL ";gan;". OTRA PARTIDA?":0:쯦*100d  ꏏ ꏏCOORDENADAS ꏏDE LA CASILLA ꏏ !"Coordenadas de la casilla?";c$ c$2740 mov=1730 c$h$+j$c$k$+l$750 dc$(1)65AƯc$(1)69EƯc$(2)491Ưc$(2)535760 c#1;2;6;1;"TECLEE LA LETRA SEGUIDA DEL NUM.":1,-10 :coordc c#1;1;2;6;" AHI NO PUEDE PONER ":1,-10 :coordc .3,28;c$:x(6):y(6) :f=16:x(f):f  f=16:y(f):f &xc=x(c$(1)-64@)+16  yc=y(c$(2))+16 4ꏏcara >xc,yc:xc,yc,12 HCmov>1xc-4,yc+4:xc-4,yc+4,2 RCmov>2xc+4,yc+4:xc+4,yc+4,2 \Jmov>3xc,yc:-2Track-Info  R ,-2:4,0:-2,2 f5mov>4xc-4,yc-7:8,0 p:mov>5xc+11 ,yc+4:0,-8,- z9mov>6xc-11 ,yc+4:0,-8, mov>7xc-12 ,yc+9 :24,0:xc-8,yc+8:0,6:16,0:0,-6 Jmov>8f=yc+8yc+14:xc-8,f:16,0:f _mov>9 xc+8,yc-9 :0,-7:xc-8,yc-9 :0,-7 1mov>10 8,4:8,-4 Omov>11 f=14:xc-2,yc-12 -f:4,0:f  ꏏ ꏏBORRADO ꏏ -f=021:f,0;" ":f: ꏏ ꏏROTULACION ꏏ Pf=1̱a$:l,((31-a$)/2)+f;a$(f):.01z# =,*20:f: ꏏ $ꏏINICIALIZACION .ꏏ 823658j\,8 Bcuadr=90Z Lcoordp=190 Vcoordc=660 `borrado=980 jrot=1020 tmov=1:t=0 ~ꏏ ꏏINSTRUCCIONES ꏏ :6:6:1 ':l=10 :a$="PARE LA CINTA":ROT L=5:A$="EL JUEGO DE LOS ESPEJOS":ROT:L=6:A$="QUE SE DESPLAZAN":ROT:L=8:A$=" MATIAS VAQUERO 1984":ROT 6l=12 :a$="QUIERE INSTRUCCIONES?":rot:0 ="N"1440 ć:l=1:a$="ESTE JUEGO ESTA BASADO":ROT:L=2:A$="EN EL CUENTO":ROT:L=3:A$="''ACERCAMIENTO A AL-MU'TASIM''":ROT NL=4:A$="DEL ABOGADO HINDU":ROT:L=5:A$="MIR BAHADUR ALI":ROT ~L=6:A$="QUE LO SUBTITULO:":ROT:L=7:A$="''UN JUEGO CON ESPEJOS":ROT:L=8:A$="QUE SE DESPLAZAN''":ROT 100d:L=13 :A$="EL CUENTO (IGUAL QUE EL JUEGO)":ROT:L=14:A$="TRATA DE LA BUSQUEDA DEL ALMA":ROT:L=15:A$="DE ALMOTASIM A TRAVES DE LOS":ROT:L=16:A$="REFLEJOS QUE DEJA EN OTROS":ROT:L=17:A$="PERSONAJES":ROT #1;" PULSE UNA TECLA PARA SEGUIR ":0::L=1:A$="EN CADA PASO SE FORMA UNA CARA":ROT:L=2:A$="(UN POCO OCCIDENTALIZADA)":ROT:L=3:A$="QUE ES EL REFLEJO DE OTRA":ROT:L=4:A$="ANTERIOR":ROT L=5:A$="HASTA QUE LLEGA EL MOMENTO":ROT:L=6:A$="EN QUE UN ROSTRO NO SERA REFLEJO":ROT:L=7:A$="DE NINGUN OTRO:":ROT:L=8:A$="ES ALMOTASIM":ROT  ]502:L=10 :A$="LA PARTIDA Y LA NOVELA":ROT:L=11 :A$="HAN TERMINADO":ROT 502:L=13 :A$="PARA JUGAR SE DEBERA SITUAR":ROT:L=14:A$="PRIMERO UN ESPEJO EN LAS":ROT:L=15:A$="INTERSECCIONES DE LAS CASILLAS":ROT L=16:A$="Y DESPUES EL ROSTRO REFLEJADO":ROT:L=17:A$="DEL ANTERIOR":ROT:502:L=19:A$="PIERDE EL QUE NO PUEDA HACERLO":ROT (V#1;" PULSE UNA TECLA PARA DEMOSTRACCION ":0 2ꏏdemostraccion <r$=" B4B5E5E2D2A2B2B3A3D3E3" Fq$=" D5D4E4E2C2B2E3B4C4E5" Pcuadr Z t=t+1 dmov>1p$=q$(mov*2)+q$(mov*2+1):;1;15,27;"PULSE";16,27;" UNA ";17,27;"TECLA":0:f=1517:f,27;" ":f:borrado:260 n7c$=r$(mov*2)+r$(mov*2+1):700 xmov=mov+1 pmov=12 #1;"EL QUE JUEGA PIERDE POR NO PODERCOLOCAR OTRA CARA. ":0:1460  1370Z ꏏ ꏏPROGRAMA PRINCIPAL ꏏ mov=1:t=1 cuadr coordp coordc mov=mov+1:t=t+1 t=3t=1  1480 ꏏotra o final x%:10 ,10 ;"HASTA OTRA": l 1440 n=6a$(6)=" F-G " n=7a$(7)=" G-H " n=8a$(8)=" H-I " n=9 a$(PLUS3DOS  z**  By J.F.J. Soft. ** 1:1:7::10 ,10 ;1;"PARE LA CINTA":200:236099\,150:max=0::950 &1:1:6::1  10 ,0;"SOY LA GUARDIANA DEL LABERINTO Y COMO NO SOY TAN MALA TE DEJO DEFINIR TUS TECLAS DE MOVIMIENTO  Track-Info  R ":200: _5,0;"EN ESTE JUEGO TU DEBES MANEJAR AFIXU,EL NOBLE CABALLERO,QUE QUIERE SALVAR A LA INOCENTE Y CANDO-ROSA DAMISELA GOI . TEN MUCHO CUIDADO CON LA GUARDIANA DEL LA-BERINTO LA TERRIBLE PETETE QUE INTENTARA QUITARTE TUS 3 VIDAS.PARA CONSEGUIR MAS PUNTOS TRATA DE COMERTE A LOS ESCURRIDIZOS KAITOS QUE ANDAN SUELTOS." "tecla para ARRIBA";x$ "tecla para ABAJO";z$ ("tecla para la IZQUIERDA";v$ 2"tecla para la DERECHA";y$ 7121,0;" UNA TECLA PARA EMPEZAR" <0::L$="" A21,0;" ";20,0;" ";19,0;" ";18,0;"  " FF=116:F-1,12 ;" ";F,12 ;4;" ";F+1,12 ;4;"";7;"":10 :F P`U=1821:U,15;U-1,15;" ";U,15;7;"":10 :U U 100d Z10 ,0;"NUESTRO VALIENTE FIXU ACABA DE INTRODUCIRSE EN LA CUEVA DE LAS TERRIBLES RATAS A SALVAR A SU QUERIDA GOI." d 200 nmat=0:v=3 xpu=0:gonyis=0 npu=318> Ex=2:y=29:a=2:b=2:c=19:d=29 c$="" a$(20,31) /a$(1)="" /a$(2)="............................" /a$(3)="............" /a$(4)="...................." /a$(5)="..................." /a$(6)="................." /a$(7)=".................." /a$(8)=".................." /a$(9 )="... ....." 0a$(10 )="........ ..........." 0a$(11 )="..... .........." "0a$(12 )="........ ..........." ,0a$(13 )="... ...." 60a$(14)="..................." @0a$(15)="................" J0a$(16)=".................." T0a$(17)="......................" ^0a$(18)=".................." h0a$(19)="........................." r0a$(20)="" |"0,0;"";a$(1) -z=120:z,0;"";a$(z):z $21,0;"";a$(20) !0,14;"KAITOS=";mat 0,24;"VIDAS=";v "21,10 ;"RECORD=";max gonyis5 a,b;4;c$(1) x,y;4;"" c,d;7;"" =""520 =x$c$="" =z$c$="" =v$c$="" =y$c$="" c$(1)""550& ,a$(a-1,b)""a,b;" ":a=a-1  630v &c$(1)""580D 0,a$(a+1,b)""a,b;" ":a=a+1 : 630v Dc$(1)""610b N,a$(a,b+1)""a,b;" ":b=b+1 X 630v bc$(1)""630v l,a$(a,b-1)""a,b;" ":b=b-1 va,b;4;c$(2) xa=xb=yz=-10 10 :.05|L,z:z:mat=mat+1:x=2:y=29:0,14;"KAITOS=";mat <.3700 4bda$(c,d+1)""c,d;a$(c,d):d=d+1 4a>ca$(c+1,d)""c,d;a$(c,d):c=c+1 4a29y=29 Jbya$(x,y-1)""x,y;a$(x,y):y=y-1:y<2y=2 4axa$(x-1,y)""x,y;a$(x,y):x=x-1 4axa$(x+1,y)""x,y;a$(x,y):x=x+1 c,d;6;"" x,y;4;"" a=cb=d850R  Oa$(a,b)="."pu=pu+1:.01z# =,25:0,0;"PUNTOS=";pu  a$(a,b)=" "  Qb>29a,b;" ":z=2030:.01z# =,z:z:b=2:8204 *Ob<2a,b;" ":z=3020-1:.01z# =,z:z:b=29 4*punpugonyis=gonyis+1:910 >.01z# =,-10 H 440 Rca,b;5;"":z=125:.01z# =,z-30:z:v=v-1:v0870f \?0,24;"VIDAS=";v:a=2:b=2:440 f9pu=pu+(mat*25)+(gonyis*100d):pu>maxmax=pu pJ:11 ,0;4Track-Info  R ;1;"TE QUEDASTE SIN VIDAS !!!!!" zu13 ,5;"RECORD= ";max:15,5;"PUNTOS= ";pu'''"Y HAS MATADO ";mat;" KAITO";:mat1"S" )"ENTER PARA JUGAR OTRA VEZ";c$:3 ?npu=npu+318>:n=30*20*-:.01z# =,n:n Pf=11 18:11 ,f;4;" ":.05|L,10 :8:f G30:.9ffff,0:a,b;" ":11 ,20;7;"" ?21,0;2;"POR FIN LIBRE!!!!!!!!!" Zn=1502:.01z# =,n-10 :1:4:1:4:0:n o10 ,12 ;" ":g=13 15:11 ,g;2;" ":.01z# =,-10 :10 :g }q=1513 -1:11 ,q;2;"";4;" ":.01z# =,0:10 :.05|L,-10 :q 10 ,13 ;"" t11 ,13 ;" ":w=1611 -1:11 ,w;4;" ":.05|L,10 :12 :w ?21,0;2;"FIXU SALVAME!!!!!!!!!!" ds=100d1-1:2:6:2:0:.009ztj,s/2-10 :s  170 _10 ,10 ;7;"":0:10 ,10 ;7;"":0:940 >F=144164:N=07:B:(F)+N,B:N:F  E0,96`,491,25,15,3,0,0 Q127,255,255,255,255,255,244,248 O176,252,255,254,240,232,36$,18 L16,124|,84T,84T,568,124|,40(,108l K176,176,124|,18,24,72H,72H,8 K502,502,124|,160,24,72H,72H,64@ J502,502,124|,160,24,72H,72H,8 L176,176,124|,18,24,72H,72H,64@ N60<,126~,219,219,126~,60<,39',224 $M60<,126~,219,219,126~,60<,228,7 .M0,126~,255,219,126~,126~,36$,60< 8K66B,195,36$,24,24,36$,195,66B BH0,127,0,3,7,15,127,255 LN0,255,64@,252,254,255,255,255 VI0,192,0,3,7,255,255,254 `A0,0,4,3,8,7,0,0 jK255,127,40(,255,32 ,255,0,0 tM254,252,160,255,128,254,0,0 ~I40(,84T,568,568,568,40(,40(,40( H24,66B,98b,82R,74J,70F,66B,0 G16,0,16,16,16,16,16,0 Cancion de muerte 1,2,1,2,1,2,1,2,1,5,1,4,1,4,1,2,1,2,1,2,1,2,1,2  n<5 111 ,18;"";11 ,26;""  n<6 $171,524:-1,-12 :12 ,0:1,6:1,-6:12 ,0:-1,12 )Ih=03:17+h,22;"";17+h,23;"":h B n<7 L121,21;"";21,23;"" `>n>63,2;" !!!TE HAS AHORCADO!!! " t s=1 ~s=08300l :0:0,4;"LA PALABRA ERA: ";3;a$ <0:21,2;"? DESEA SEGUIR JUGANDO (S/N)?" ="S"30 ="N"9990'  6380 Xa10 ,10 ;1;"EL AHORCADO";11 ,9 ;5;"":100d b:4,13 ;3;"UTILICE"'';2;" PALABRAS DE MAXIMO 10 LETRAS";12 ,0;"DISPONDRA DPLUS3DOSb, Jose A.Hurtado # SIS.SOLAR # ZX-Spectrum U1:1:7::10 ,10 ;1;"PARE LA CINTA":200 0:1:7: ?1;0,0;" S I S T E M A S O L A R " 51,0;"PLANETA NOMBRE PLANETA NOMBRE" (O0,160:255,0:127,167:0,-167 23Track-Info  R ,9 ;"PLUTON";5,8;"NEPTUNO";8,10 ;"URANO";20,8;"SATURNO";6,25;"JUPITER";11 ,27;"MARTE";13 ,26;"TIERRA";16,27;"VENUS";18,24;"MERCURIO" d57:i=01:18,148,i:i x65:i=010 :18,132,i:i ?4:i=010 :5:18,107k,i:i 2:i=030:4:524,524,i:i:i=.2~L.353333.02{# =:8,17:85U,75K,*i:-85U,-75K,*i:i @4:i=032 :2:160,126~,i:i 52:i=03:160,81Q,i:i 55:i=06:160,64@,i:i >5:i=06.5:160,44,,i:i 57:i=02:160,28,i:i 81;20,16;"PULSE UNA TECLA":0 A:1;0,0;" S I S T E M A S O L A R " 72,13 ;"OPCION";3,13 ;"______" m5,0;"1 MERCURIO";6,0;"2 VENUS";7,0;"3 TIERRA";8,0;"4 MARTE";9 ,0;"5 JUPITER";10 ,0;"6 SATURNO";11 ,0;"7 URANO";12 ,0;"8 NEPTUNO";13 ,0;"9 PLUTON" "OPCION?";A &A=A:A<1A>9 240 A=1300, A=2400 A=3500 "A=4600X #A=5700 $A=6800  %A=7900 &A=81000 'A=9 1100L ,):1;0,0;"MERCURIO:" 6'"Diam.aparente min. 4"",7con telesc.(o '"")max. 12"",9Distancia media del Sol(millones de Km.) 57,9Periodo de traslacion(dias) 88Periodo de rotacion(dias) 59Diametro ecuatorial(Km.) 4880" @818,8;"PULSE UNATECLA":0:210 &:1;0,0;"VENUS:" '"Diam.aparente min. 9"",9con telesc.(o '"")max. 63"",1Distancia media del Sol(millones de Km.) 108,2Periodo de traslacion(dias)224,7Periodo de rotacion(dias) -243Diametro ecuatorial(Km.) 12104" 818,8;"PULSE UNATECLA":0:210 ':1;0,0;"TIERRA:" '"Distancia media del Sol(millones de Km.) 149,6Periodo de traslacion(an"+8+21+1+"~os) 1Periodo de rotacion 23h.56m.4s.Velocidad orbital media(Km/s) 29Diametro ecuatorial(Km.) 12756,3" 818,8;"PULSE UNATECLA":0:210 X&:1;0,0;"MARTE:" b'"Diam.aparente min. 3,5con un telesc.(o)max. 252Distancia media del Sol(millones de Km.) 227,9Periodo de tralacion(dias) 687Periodo de rotacion 24h.37m.23s.Diametro ecuatorial(Km.) 6787" l818,8;"PULSE UNATECLA":0:210 (:1;0,0;"JUPITER:"   '"Diam.aparente min. 30"",5con un telesc.(o'"")max. 49"",8Distancia media del Sol(millones de Km.) 778,3Periodo de traslacion(an"+8+21+1+"~os) 11,8Periodo de rotacion 9h.50m.30s.Diametro ecuatorial(Km.) 142800" 818,8;"PULSE UNATECLA":0:210  (:1;0,0;"SATURNO:" *'"Diametro aparente min. 15""con un telesc.(o'"")max. 20"",8Distancia media del Sol(millones de Km.) 1427Periodo de traslacion(an"+8+21+1+"~os) 29,4Periodo de rotacion 10h.14m.Diametro ecuatorial(Km.) 120000" 4818,8;"PULSE UNATECLA":0:210 &:1;0,0;"URANO:"  '"Diametro aparente min. 3"",0con un telesc.(o'"")max. 3"",8Distancia media del Sol(millones de Km.) 2869,6Periodo de traslacion(an"+ 8+21+1+"~os) 84,0Periodo de rotacion 11h.Diametro ecuatorial(Km.) 51800" 818,8;"PULSE UNATECLA":0:210 (:1;0,0;"NEPTUNO:"  '"Diametro aparente min. 2"",0con un telesc.(o'"")max. 2"",1Distancia media del Sol(millones de Km.) 4496,6Periodo de traslacion(an"+ 8+21+1+"~os)164,8Periodo de rotacion 16h.Diametro ecuatorial(Km.) 49500" 818,8;"PULSE UNATECLA":0:210 L':1;0Track-Info  R ,0;"PLUTON:" V '"Diametro aparente min. 0"",2con un telesc.(o'"")max. 0"",3Distancia media del Sol(millones de Km.) 5900Periodo de traslacion(an"+ 8+21+1+"~os)247,7Periodo de rotacion 6d.9h.Diametro ecuatorial(Km.) 3000" `818,8;"PULSE UNATECLA":0:210 (si/no)";T$ T$="SI"502 T$="si"502 ꏏ    DEFINICION DE CARACTERES   E0,73I,73I,42*,28,8,8,8 *J96`,19,12 ,24,40(,40(,40(,24  4K224,19,12 ,24,40(,72H,72H,56 8 >I16,16,124|,16,16,0,124|,0 HA6,9 ,9 ,6,0,0,0,0 PLUS3DOSPPCALENDARIO PERPETUO Z SPECTRUM 16/48 K  d  J. MORON  nI100d,24,66B,98b,82R,74J,70F,0 xi="N""N"+7 x:i,x:i r1:1:7::10 ,10 ;1;"PARE LA CINTA":200:7:7:0: ,"NACISTE UN LUNES? UN MIERCOLES? UN...?": S"TU SABES CUANTOS AOS TIENES... SABES TAMBIEN CUANTAS SEMANAS? CUANTOS DIAS?": D"EL DIA DE NAVIDAD DEL AO QUE VIENE, SERA DOMINGO?; SERA...?": "EL 5 DE MAYO DE 1821, MURIO EN SANTA ELENA NAPOLEON BONAPARTE. CUANTAS SEMANAS Y CUANTOS DIAS HACE?. ERA VIERNES? O ERA...?": 9"CUANTOS DIAS FALTAN PARA TU PROXIMO CUMPLEAOS?": ҄"PREGUNTAS ASI SON LAS QUE AYUDA A RESPONDER EL PROGRAMA";21,3;2;1;" PULSA CUALQUIER TECLA ":0: _10 ,5;"C A L E N D A R I O":12 ,5;"":130: C(24) M$(12 ,12 ) S$(7,9 ) N$(7,12 ) F$(28,3) t0,31,59;,90Z,120x,151,181,212,243,273,3040,334N "t0,31,60<,91[,121y,152,182,213,244,274,3051,335O ,r"ENERO","FEBRERO","MARZO","ABRIL","MAYO","JUNIO","JULIO","AGOSTO","SEPTIEMBRE","OCTUBRE","NOVIEMBRE","DICIEMBRE" 6U"DOMINGO ","LUNES ","MARTES ","MIERCOLES","JUEVES ","VIERNES ","SABADO " @j" 1 8 15 22"," 2 9 16 23"," 3 10 17 24"," 4 11 18 25"," 5 12 19 26"," 6 13 20 27"," 7 14 21 28" J" 29"," 30"," 31","","","","" T" 29"," 30","","","","","" ^" 29","","","","","","" h"","","","","","","" rN=124:C(N):N |N=112 :M$(N):N N=17:S$(N):N N=17:N$(N):N N=128:F$(N):N h6,10 ;"OPCIONES":10 ,0;"VER UN MES COMPLETO:":12 ,15;"PULSA <1>" N16,0;"TIEMPO ENTRE DOS FECHAS:":18,15;"PULSA <2>" ="1":470 ="2":870f  440 -::N=112 :5;M$(N);N:N F"QUE MES LE INTERESA? (DIGA EL NUMERO) ";MES;" DE QUE AO? ";ANO jMES<1MES>12 :12 ,0;"ENTRADA ERRONEA; PRUEBE OTRA VEZ":200::470 ANO<1:8,0;"LO SIENTO. NO ESTOY PROGRAMADO PARA CALCULAR AOS ANTERIORES A LA ERA CRISTIANA":20,6;"PULSA CUALQUIER TECLA":0::420 s0:0:7::0,0;M$(MES);0,25;ANO:"" <ANO<1583/6;"CALENDARIO JULIANO"::540 $5;"CALENDARIO GREGORIANO":  BIS=0 &*ANO/4=(ANO/4)BIS=12 0<ANO>1580,ANO/100d=(ANO/100d)BIS=0 :.ANO/400=(ANO/400)BIS=12 D Z=0 N=MES=4MES=6MES=9 MES=11 Z=7 X4MES=2ANO/4=(ANO/4)Z=14 b4MES=2ANO/4ɺ(ANO/4)Z=21 lGANO>1580,MES=2ANO/100d=(ANO/100d)Z=21 v8MES=2ANO/400=(ANO/400)Z=14 LD=ANO*365m+((ANO-1)/4)-(ANO/100d)+(ANO/400) D=D+C(MES+BIS) +D=(((D/7)-(D/7Track-Info  R         ))*7.1c333) N=17 W=D+N ,ANO=1582.MES<10 W=D+N-4 ANO=1582.MES=10 :"OCTUBRE DE 1582 FUE EL MES DE LAINSTAURACION DEL CALENDARIO GRE-GORIANO. SOLO TUVO 21 DIAS, SAL-TANDO DEL JUEVES 5 AL VIERNES 15":770 ANO<1582.W=D+N-4 .W>7W=W-7:W>7720 .W<1W=W+7:W<1730 4;S$(W);N$(N);F$(N+Z) (4;W;"" N b19,0;"MES ANTERIOR: A. EL SIGUIENTE: SCOPIA EN IMPRESORA: I. MENU: OTERMINAR: T."  ="A"Ŧ="a"MES=MES-1 ,MES=0MES=12 :ANO=ANO-1  ="S"Ŧ="s"MES=MES+1 *,MES=13 MES=1:ANO=ANO+1 4$="A"Ŧ="a"Ŧ="S"Ŧ="s"510 >5="O"Ŧ="o"7:7:0::412 H,="T"Ŧ="t"7:7:0:: R="I"Ŧ="i" \ 780  fR3;"DIFERENCIA ENTRE DOS FECHAS":3;"": p`"AMBAS DEBEN SER POSTERIORES A LAINSTAURACION DEL CALENDARIO GRE-GORIANO (AO 1582)":502 zM:"EL MES NO DEBE INTRODUCIRSE POR SU NOMBRE, SINO POR SU NUMERO":502 p:"ESTA PARTE DEL PROGRAMA NO CON- TROLA LOS ERRORES. DIA, MES Y AO DEBEN INDICARSE CON CUIDADO":502 =20,5;1;"PULSA CUALQUIER TECLA":0 6:"PRIMERA FECHA: DIA? ";D1;" MES? ";M1,"AO? " ;A1 2"SEGUNDA FECHA: DIA? ";D2;" MES? ";M2,"AO? ";A2 A1<1583/8,0;"ENTRADA NO VALIDA."::"AMBAS FECHAS DEBEN SER POSTERIO-RES AL AO 1582":20,5;"PULSA CUALQUIER TECLA":0::420 D01=D1:D02=D2  A01=A1:A02=A2:M01=M1:M02=M2 AT=A2-A1:MT=M2-M1 +MT<0AT=AT-1:MT=MT+12 $S1=(D1/7):S2=(D2/7)  ST=S2-S1 BIS1=0 )A1/4=(A1/4)BIS1=12 ,A1/100d=(A1/100d)BIS1=0 -A1/400=(A1/400)BIS1=12 BIS2=0 $)A2/4=(A2/4)BIS2=12 .,A2/100d=(A2/100d)BIS2=0 8-A2/400=(A2/400)BIS2=12 BLD1=D1+A1*365m+((A1-1)/4)-(A1/100d)+(A1/400) LD1=D1+C(M1+BIS1) VMDP1=(((D1/7)-(D1/7))*7.1c333):DP1<1DP1=DP1+7 `LD2=D2+A2*365m+((A2-1)/4)-(A2/100d)+(A2/400) jD2=D2+C(M2+BIS2) tMDP2=(((D2/7)-(D2/7))*7.1c333):DP2>7DP2=DP2-7 ~DP2<1DP2=DP2+7  DT=D2-D1  DPT=DP2-DP1 W=(DT/7) +DPT>7DPT=DPT-7:W=W+1 +DPT<1DPT=DPT+7:W=W-1 :"DESDE EL ";S$(DP1):;D01;" DE ";M$(M01):"DEL AO ";A01 ;:"HASTA EL ";S$(DP2):D02;" DE ";M$(M02):"DEL AO ";A02  ::"SON": +DPT=7DPT=DPT-7:W=W+1 *(DT/7);" SEMANAS Y ";DPT;" DIAS " :"= ";DT;" DIAS." ;20,0;"ALGUN OTRO DATO? PULSA CUALQUIERTECLA" 0::420 O+13 ,x;" ";14,x-1;" " T&vi=vi-1:19,26;vi ^vi=07500L h515,mi;4;"";15,md;4;"" rno=1:600X #((aa=11111111:bb=001110008 #2w=18 #<x$:j=07:z #F x$+j,z #Pj:w #ZK"a",0,00011000,01111110~,aa,aa,0,0,0 #dx"b",00010000,01111111,10111000,10111000,bb,00101000(,00101000(PLUS3DOSk1:1:7::10 ,10 ;1;"PARE LA CINTA":200:500:w=1 =:y=0:a=0:b=(*5)+15:wy=0 d=(*5)+10 h=5:g=0 ]18,0;"Puntos:";y;18,18;"Saltos:";h;21,10 ;"Caidas:";g Q0,10 ;3;"SOY UN MONO";5,11 ;1;"Record:";w x$="":z$="" f=9 13 :f,0;"";9 ,0;"":.01z# =,f:f Ph=5:e=(*13 )+2:f=(*15)+16:jk=(*28)  18,18;"Saltos:";h f=1416:f,0;4;" ";13 ,0;"";0;"";4;"":.01z# =,f:f Z8,0;" " Track-Info ! R!!!!!!!!! _!13 ,e;"";13 ,f;"" awy>0340T bE11 ,30;x$;12 ,30;z$:10 ,27;"" d;11 ,26;"";10 ,26;"":xy=1 eO12 ,d;"";1;"";0;"";12 ,a;"";12 ,b;"" f10 ,jk;"" m="m"210 n*a=a+(="0"a<29)-(="1"a>0) oc=(*20) pvb=b+(c<5b<21)-(c>4c<11 b>14):jk=jk+(c>10 jk<24)-(c<11 jk>0) q?d=d+(c<15c>10 d<15)-(c>15d>9 ) u;10 ,26;"";11 ,26;"":xy=0 ="m"210 ,a=ba=da+1=ea+1=f260 100d h<1 O12 ,d;"";1;"";0;"";12 ,a;"";12 ,b;"" 12 ,a;"" ;a=a+2:11 ,a-1;"":.1}L,40( a=jk+1a=jk260 *a-2=24xy=1320@ *a-2=24xy=0260 '.01z# =,30:12 ,a;"" 011 ,a-1;"":.01z# =,-20 ,a=ba=da+1=ea+1=f260 -h=h-1:18,18;"Saltos:";h ,a>ba>da+1>ea+1>f300,  a=5100d f=13 16:f,a+1;"";f-1,a+1;2;"";12 ,a+1;"":.05|L,0:f:16,a;2;"" g=g+1:21,10 ;"Caidas:";g:g=3n=0100d:n:16,a;"":.73333,0:.73333,-5:.73333,-10 :290"  a=0  10 "-11 ,10 ;"SE ACABO.....":0 ' ( 2 ,@f=05:.005y# =,f:y=y+f:18,7;y:f -y>ww=y:5,18;w 6 115s @#1;"Y Y I I P P P E E E !!":f=020:.01z# =,(*502)-25:f:f=0100d:254,6:254,1:254,3:254,4:f J17:"":wy=wy+1:a=0:10 T@wy=1x$=18+1+""+18+0+"": ^*wy=2x$=18+1+"": h\wy=3x$=18+1+"":z$=18+1+""+18+0+"": r:wy=4x$=18+1+"":z$=x$:390 | E11 ,30;x$;12 ,30;z$:10 ,27;"" )n=029:12 ,n;"":n n=12 8-1:n,30;"":n:12 ,30;"";11 ,30;"";10 ,30;"";9 ,30;"" 1n=301-1:8,n;" ":n n=05 ,8,0;"";7,1;"" .05|L,0 ,8,0;"";7,1;" " .05|L,10 n n=029:8,n;" ":n:8,30;" ":n=9 12 :n,30;"":n:9 ,30;"";10 ,30;"";11 ,30;"";12 ,30;"" 3n=270-1:12 ,n;"":n %y=y+500:h=5:g=3  10 "550&:n=144160 "f=07:a:n+f,a:f n  &L16,40(,16,120x,524,568,198,131 0M85U,170,85U,170,85U,170,85U,170 :M2,35#,85U,137,255,255,255,255 DG1,0,1,0,1,255,255,255 NK0,128,0,128,0,255,255,255 XH1,14,10 ,14,16,32 ,80P,32 bL85U,170,85U,170,192,64@,85U,42* lE0,0,2,253,194,0,0,0 vJ85U,42*,85U,170,2,37%,85U,137 G0,0,0,0,0,130,253,255 Q192,255,192,192,255,192,192,255 G3,255,3,3,255,3,3,255 L0,63?,33!,62>,126~,250,138,252 K68D,84T,108l,568,16,568,40(,108l I68D,68D,68D,68D,68D,68D,68D,68D F0,0,0,0,84T,255,84T,84T L24,24,255,255,24,24,60<,126~ Track-Info " R""""""""" es","e","imos","is","en" &"ia","ias","ia","iamos","iais","ian" )"i","iste","io","imos","isteis","ieron" ,"ire","iras","ira","iremos","ireis","iran" 2"iria","irias","iria","iriamos","iriais","irian" cabeceras  "PRESENTE" "PRET. IMPERFECTO" "PRET. INDEFINIDO" "FUTURO IMPERFECTO" "PRET. PERFECTO" "PRET. PLUSCUAMPERFECTO" "PRET. ANTERIOR" "FUTURO PERFECTO" "CONDICIONAL SIMPLE" "CONDICIONAL COMPUESTO" $formas personales (indicativo)PLUS3DOS & & *********************** * SPIROGRAFISMOS * * POLIGONOS REGRESIVOS* * DIAGONALES * *********************** U1:1:7::10 ,10 ;1;"PARE LA CINTA":200 x(gi- )=g*rd+(-g*re+g)*d #(OTRA POSIBLEx(g)=g*rd+(-g*re)*d (y(gi- )=g*rd+(-g*re+g)*d -(OTRA POSIBLEy(g)=g*rd+(-g*re)*d 2&1:0:7:0: F#"1Spirog. 2Polig.Regres.3Diag.";w P8w<1w>3wɺw.3,-20:70F ZU.2~L,0:(110nw=1)+(600Xw=2)+(400w=3) nSPIROGRAFISMOS x 1000 "Radio mayor Ej:80?";rm H255-rmx175-rmy.3,-25:150 "Radio menor Ej:50? ";rn &rnrm.3,-25:180 rd=rm-rn:re=rm/rn "Radio de dibujo Ej:35? ";d %d>rn.3,-25:200 "Grados por giro Ej:20?";gr gr=gr*/180  g=0 "ink;x+x(g),y+y(g) ,a=x(g):b=y(g) 6g=g+gr @ink;x(g)-a,y(g)-b J=""290" O.6,0 T+#1;"Desea borrar la pantalla s\n ?" ^="s":70F h="n"70F r 350^ DIAGONALES  1000 "radio ?Ej:85 ";rp H255-rpx175-rpy.3,-25:430 "N de lados Ej:16 ? ";n *n<3.3,-20:440 g=2*/n j=1n-1 a=x+(g*j)*rp:b=y+(g*j)*rp k=j+1n  a2=x+(g*k)*rp:b2=y+(g*k)*rp ink;a,b:ink;a2-a,b2-b k j & 335O WREGRESION DE POLIGONOS Xa(g#G,r0)=r*g bb(g#G,r0)=r*g l 1000 v"Radio del poligono Ej:85?";r Cr>xr>yr>255-xr>175-y.1}L,10 :630v "N de lados Ej:3? ";n ig=2*/n !"Regresion en grados Ej:5? ";rg rg=rg*/180/n:ig=ig+rg  "Regresion del radio(Ej:3)?";p 'p>(r/n).1}L,10 :690  p=p:p=p/n "Radio minimo Ej:10? ";rm $rmr.1}L,10 :720  g=0 a=a(g,r):b=b(g,r)  g=g+ig r=r-p:rrm335O  ink;x+a,y+b *ink;a(g,r)-a,b(g,r)-b 4 770 "coordenada x Ej:127 ? ";x 7x>230x<25.3,-25:110n "coordenada y Ej:87 ? ";y 7y<25y>155.3,-25:130 L"Color de la tinta ";ink VBink>7ink<1inkɺink.5,-20:1100L ~ PLUS3DOS04U1:1:7::10 ,10 ;1;"PARE LA CINTA":200 M(8,6) 1:1:6: !x=0:y=0:j=0 4;" ";6;21,5;"  por $R R.Bernat." v15,3;"Quien enpieza tu o yo? (t/y).":a$:15,3;" ":2500 &i=18:m=16 (M(i,m)=0:m:i dJ12 ,16:0,100d:8,0:0,-92\ nn=18:8,0,:0,92\:8,0:0,-92\:n:0,-8:12 ,-16:-25,0:0,9 :-110n,0:0,-9 :-25,0 x*5,1;" 1 2 3 4 5 6 7 8 " Track-Info # R######### a$="y"700 OM(5,1)=1:xp=5:yp=1:color=1:3000  700 I12 ,20;4;1;"PENSANDO ":p=0:pp=0  p=0 i=18 x=i:2000 y>6i &;color=1:1030:1;5,i+20;i 0 psp>ppsp<301600@ :psp>pp=psp:xp=x:yp=y ?psp=.05|Li D9color=2:1030:psp30psp=29.9o333 Npsp>pp=psp:xp=x:yp=y X8i:1;0;5,20;" " b!color=1:M(xp,yp)=1 l%2500 :3000 :j=j+1 vp>303500 5j=48012 ,20;"Empate":3600 Y******************************** TU JUEGAS ******************************************* )4;12 ,20;"TU MUEVES" x  x<1x>8710 Qcolor=2:2000:y>612 ,20;"No valido":710 'yp=y:xp=x:color=2:3000 M(xp,yp)=2:j=j+1 veo si ganas  1030 psp303550  Kj=4801;21,0;" ...fin":3600  499 psp=0:np=0 $dx=1:dy=0:1500 psp=ps $%dx=-1:dy=0:1500 . psp=psp+ps 8%dx=0:dy=-1:1500 Bps>psppsp=ps L%dx=1:dy=-1:1500 np=ps %dx=-1:dy=1:1500  np=np+ps np>psppsp=np $dx=1:dy=1:1500 np=ps &dx=-1:dy=-1:1500  np=np+ps np>psppsp=np   #ps=0:xx=x:yy=y:b=0 xx=xx+dx:yy=yy+dy 7(xx<1)(yy<1)(xx>8)(yy>6) #M(xx,yy)colorM(xx,yy)0 6M(xx,yy)=colorb=0ps=ps+10 :1510 &ps=ps+1:b=1:1510 ?8****************************************************** @,M(x,y)=1:color=2:y=y+1 J 1030 Tpsp30psp=0.05|L ^y=y-1:M(x,y)=0: cont=0 cont=cont+1 cont>6y=7: M(x,cont)02010  y=cont: 7n=16:n*n/100d,n:n/502,n:n: color=17 color=22 Fxx=((xp*2)+1)*8:yy=((yp*2)+1)*8 (n=17:xx,yy,n:n:7  2;"  ":3600 ދ2;" " '"Te juegas otra? (s/n)":a$:a$="s" PLUS3DOS{"CAOS DE HISTORIA U1:1:7::10 ,10 ;1;"PARE LA CINTA":200 7:0:3:  9000(# dat=10 ( z=20 2pit=.75@ < q=0 Z dL10 ,10 ;"Pulsa SPACE";11 ,5;"para una demostracion" n=""100d x=" "7000X 4: _5,8;1;4;"Desea introducir";6,6;" algun nuevo nombre?" r$ &r$"s"r$"S":10 :3106 _:5,10 ;1;4;"Cuantos?";6,2;"Puede elegir entre 1 y ";z w w<1w>z140 ;b=(30-z)+1(((30-z)+1)+w)-1 K"Nombre de persona:";(b-10 );" ";b$:b$32 a$(1,b)=b$ %b$>32 5000:220 I"circ. de tiempo:";(b-10 );" ";b$:b$32 a$(2,b)=b$ %b$>32 5000:230 J"verbos en pasado:";(b-10 );" ";b$:b$32 a$(3,b)=b$ %b$>32 5000:240 S"ob. directos o indirectos:";(b-10 );" ";b$:b$32 a$(4,b)=b$ %b$>32 5000:250 D"conectores:";(b-10 );" ";b$:b$32 a$(5,b)=b$  %b$>32 5000:260 b z=z-w , dat=dat+w 6 6: @+2,5;"ATENCIONTrack-Info $ R$$$$$$$$$ , COMIENZA ..." E:: Jf=-10 10 T .03{u\,f ^f h p=1 m q=q+1 r 2000 |x$=a$(p,azar)  3000 p=24  2000 x$=a$(p,azar)  3000 p '10 q=0:"Quiere imprimirlo?(s/n)";r$:r$="s"r$="S":z0130 - q=0z0130 0 360h AZAR azar=(*dat)+1 T IMPRIMIR h=0 h=h+1 "x$(hh+1)" "3020 x$=" "+x$(1h-1) k=1̱x$ 4x$(k)=" "ƾ23688\>9 x$(k);:3300 3x$(k)=" "ƾ23688\<9 x$(k):3300 x$(k); k  LONGITUD  %8,8;"DEMASIADO LARGO " %10 ,8;"PRUEBE OTRA VEZ" 80P:: XDEMOSTRACION bdat=10 l 6: v$n=020:.05|L,n:n 410 ,8;1;1;"DEMOSTRACION" -n=200-1:.05|L,n:n   p=1  2000 x$=a$(p,azar)  3000  p=24 * 2000 4x$=a$(p,azar) > 3000 Hp pit=.75@ (16,2;3;;1;"Aguarda unos segundos" #Ka$(5,30,32 ) #Pf=110 #ZKa$(1,f):a$(2,f):a$(3,f):a$(4,f):a$(5,f) #df #"Edison","en el siglo XX","creo","la bomba atomica","y","Roosevelt","en la ultima guerra","lucho contra","los nazis","entonces" #"Juana de arco","en la guerra de los 30 anos","murio en","la hoguera","por eso","Caligula","en el Imperio Romano","asesino a","montones de subditos","ademas" $T"Robespierre","durante la Revolucion Francesa","guillotino a","muchos franceses inocentes","por lo cual","Edison","a principios de siglo","invento","la luz electrica","tambien" $"Galileo","gracias a un telescopio","vio","las estrellas mas lejanas","al mismo tiempo","Tutankhamon","nombrado faraon de Egipto","mando construir","grandes piramides","anos despues" $"Magallanes","junto a otros navegantes","dio la vuelta a","la Tierra","sin embargo","Yamamoto","perdida toda esperanza","se suicido con","una espada","al poco tiempo" % 40( % PLUS3DOSY1:1:7::10 ,10 ;1;"PARE LA CINTA":200:2000:23618B\,25:23620D\,1  c,d;" ": m(c,d)=1c,d;0;1;"":a=120:.01z# =,-a:a:s1=s1-5:1010:m(c,d)=0:30   e,f;" ": m(e,f)=1e,f;0;1;"":a=120:.01z# =,-a:a:s2=s2-5:1010:m(e,f)=0:30  (l,g)=0m(l,g)=0l,g;0;1;"":a=130:.01z# =,*24:a:s1=s1+10 :1010:30 (l,g)=0m(l,g)=1l,g;0;1;"":a=115:.01z# =,30-a:a:0:s1=s1-1:m(l,g)=0:11 :o1=o1+1:o1-(o1=22)*21,0;7;1;1;"":290"  l,g;" ": 2l,g;Track-Info % R%%%%%%%%% 0;"":.01z# =,24:0: (h,i)=0m(h,i)=0h,i;0;1;"":a=130:.01z# =,*24:a:s2=s2+10 :1010:30 (h,i)=0m(h,i)=1h,i;0;1;"":a=115:.01z# =,30-a:a:0:s2=s2-1:m(h,i)=0:17:o2=o2+1:o2-(o2=22)*21,31;7;1;1;"":290"   h,i;" ": 2h,i;0;"":.01z# =,24:0: c=ed=fc,d;0;1;"":a=130:.01z# =,*(-a):a:s1=s1-(*5):s2=s2-(*5):1010:30  O0:0::7:1,10 ;1;1;"STAR CRASH" 3,10 ;"MANDOS";5,10 ;"JUGADOR 1";7,15;"1-Disparo";8,15;"Q-Arriba";9 ,15;"A-Abajo";10 ,15;"Z-Izquierda";11 ,15;"X-Derecha";13 ,10 ;"JUGADOR 2";15,15;"0-Disparo";16,15;"O-Arriba";17,15;"K-Abajo";18,15;"N-Izquierda";19,15;"M-Derecha" "A cuantos puntos vamos? ";n pm(21,31):s=0:p=0:s1=0:s2=0:c=1:d=1:e=1:f=1 +s1=0s2=00:5: 2:5:a=031:0,a;3;" ";21,a;3;" ":a:a=120:a,0;3;" ";a,31;3;" ":a:1000:o1=0:o2=0:x=1̺(*30)+5 2a=(*19)+1 7b=(*29)+1 <#a,b;0;"":m(a,b)=1 Fx PLc=(*19)+1:d=(*13 )+1:m(c,d)=180P ZMe=(*19)+1:f=(*14)+15:m(e,f)=190Z dc,d;2;"" ne,f;1;"" s<un=1:do=2:tr=3:cu=4:s=cu:p=tr xo64510=1902:c=c-1+(c=1)*20:3:c,d;2;"":s=un:19 o57342=1895:e=e-1+(e=1)*20:6:e,f;1;"":p=un:19 s65022=1902:c=c+1+(c=20)*(-20):3:c,d;2;"":s=do:19 s49150=1875:e=e+1+(e=20)*(-20):6:e,f;1;"":p=do:19 o65278=1892:d=d-1+(d=1)*30:3:c,d;2;"":s=tr:19 o32766=1835:f=f-1+(f=1)*30:6:e,f;1;"":p=tr:19 s65278=1872:d=d+1+(d=30)*(-30):3:c,d;2;"":s=cu:19 s32766=1875:f=f+1+(f=30)*(-30):6:e,f;1;"":p=cu:19 "l=c:g=d:h=e:i=f ,63486=190s=unx=15:l=l-1+(l=1)*20:8:l,g;0;"":.002xn,480:11 :x:12 :11 661438=190p=unx=15:h=h-1+(h=1)*20:14:h,i;0;"":.002xn,480:17:x:18:17 @63486=190s=cux=15:g=g+1+(g=30)*(-30):8:l,g;0;"":.002xn,480:11 :x:12 :11 J61438=190p=cux=15:i=i+1+(i=30)*(-30):14:h,i;0;"":.002xn,480:17:x:18:17 T63486=190s=dox=15:l=l+1+(l=20)*(-20):8:l,g;0;"":.002xn,480:11 :x:12 :11 ^61438=190p=dox=15:h=h+1+(h=20)*(-20):14:h,i;0;"":.002xn,480:17:x:18:17 h63486=190s=trx=15:g=g-1+(g=1)*30:8:l,g;0;"":.002xn,480:11 :x:12 :11 r61438=190p=trx=15:i=i-1+(i=1)*30:14:h,i;0;"":.002xn,480:17:x:18:17 ^.005y# =,0:0:23618B\,120x:23619C\,0:23620D\,1 F21,1;3;"JUG.1:PUNT.";S1,"JUG.2:PUNT.";S2 ps1ns2