MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 06  AA 3 AB 3AC "AD 8 !"#$%&AE l'()*+,-./01234AF +56789:AG B;<=>?@ABCAH UDEFGHIJKLMNBA 3OPQRSTUBB ]VWXYZ[\]^_`aBC 2bcdefghBD SijklmnopqrsBE tuvwBF Cxyz{|}~BG EBH ,BF +BG 4BH ,BI BJ BK %BL 7PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "06" 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 06 (REVISTAS 21 a 24) 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-Graficos" !7,18;"B-Blackjack" &8,3;"C-Comestar" 0!8,18;"D-PopurriMC" :9 ,3;"E-Frogger" D9 ,18;"F-Parejas" N10 ,3;"G-Gorila" X"10 ,18;"H-Vciclista" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Otelo" 7,18;"B-Poker" !8,3;"C-Sietemedia" $!8,18;"D-Circuitos" .9 ,3;"E-Suicida" 8 9 ,18;"F-Colegios" B"10 ,3;"G-Gsubmarina" L"10 ,18;"H-Regresion" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 06" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 21-24"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  "BE" B$="F"B$="f""BF" B$="G"B$="g""BG" B$="H"B$="h""BH" $IF B$="I" OR B$="i" THEN LOAD "BI"  $IF B$="J" OR B$="j" THEN LOAD "BJ" $IF B$="K" OR B$="k" THEN LOAD "BK" $IF B$="L" OR B$="l" THEN LOAD "BL" ($IF B$="M" OR B$="m" THEN LOAD "BM" 2$IF B$="N" OR B$="n" THEN LOAD "BN" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 06" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 21-24"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOSm1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I (n=03:("a"+n),0:n *n=47:("a"+n),255:n *n=07:("b"+n),240:n (DA(20):INK=7:color=2:c=2:opcion=0 20:7:0: <56;0;0Track-Info  R ,9 ;"MENU PRINCIPAL" F4:0:5,3;"1/ GRAFICO DE BARRAS.";8,3;"2/ GRAFICO LINEAL.";11 ,3;"3/ AMBOS GRAFICOS.";14,3;"4/ 3D-GRAFICO.";17,3;"5/ CAMBIO DE GRAFICO."; 20,3;"6/ VOLVER AL BASIC." P6#0;1;" PULSE LA OPCION DESEADA. " ZV="1".1}L,20:opcion=1:160:230:340T:430 dc="2".1}L,20:INK=7:opcion=2:160:230:600X:430 nh="3".1}L,20:opcion=3:160:230:340T:INK=c:600X:430 xe="4".1}L,20:opcion=4:160:230:color=1:700:430 7="5":opcion0.1}L,20:650 ="6".2~L,10 :"ESTAS SEGURO? (s/n) ";s$:s$=s$+" ":#0;1;" PULSE LA OPCION DESEADA ":s$(11)="s" 90Z 0:7::"Numero de datos.";A(20):A(20)=A(20):.1}L,20:A(20)>12 A(20)<110 ,3;1;5;0;"1 al menos pero menos de 13":1,0:70F::160 max=0 i=1A(20) "DATO = ";A(i):.1}L,20:A(i)<01,0:#0;1;" INVALIDO (VALOR NEGATIVO) ":190 A(i)>maxmax=A(i) i: :1 S0:0::#1;4;0;" GRAFICO EN EJECUCION " Jl=221:l,0;4;"":4;l,31;"":l m2,0;4;0;"";2,1;4;0;"" 21,0;0;4;"";21,1;0;4;"";21,31;4;0;"" 1:0,1;2;"COMANDOS";0,10 ;0;7;"Print Rango Save Load";1,10 ;"Color Enter Tit. Menu" 7:1:1:0,160:0,15:255,0:0,-15:19,150:0,-135:228,0 "20,15;"X-eje.":4,1;"Y";5,1;"-";6,1;"e";7,1;"j";8,1;"e" ,\f=09 :18,138-(f*12.3D):17,138-(f*12.3D):f 6:ancho=((222-(A(20)*4))/(A(20))) @alto=122z/max JSTEP=1: T#0:c:j=1A(20) ^0inicio=((j-1)*(ancho+4)+24) hk=inicioinicio+anchoSTEP r0A(j)>0k,16:0,(A(j)*alto) |k >a(j)>0(inicio+ancho),16:0,(A(j)*alto) j .1}L,20  *""a$=:.1}L,20:450  430 ¸a$="s""NOMBRE ? ";b$:b$=b$+" ":A(19)=max:b$(110 )A():.1}L,20:#0;0;4;" GRABACION EFECTUADA. ":430 a$="l""NOMBRE ? ";b$:21,0:7:1:b$A():0:4:max=A(19):.1}L,20:#0;1;4;0;" CARGA EFECTUADA ":100d:650 a$="m"502 a$="t""Titulo ? ";b$:#0;0;4;" GRAFICO EN EJECUCION. ":b$=b$+" ":3,11 ;0;7;1;b$(110 ):430 ;opcion=1:a$="e"160:230:340T ;opcion=2:a$="e"160:230:600X Fopcion=3:a$="e"160:230:340T:600X ;opcion=4:a$="e"160:230:700 opcion=1:a$="c""COLOR ";c:#0;0;4;" GRAFICO EN EJECUCION. ":STEP=8:340T xopcion=2:a$="c""COLOR ";c:#0;0;4;" GRAFICO EN EJECUCION. ":INK=c:600X &opcion=3:a$="c""COLOR ";c:#0;0;4;" GRAFICO EN EJECUCION ":INK=c:STEP=8:340T:600X 0opcion=4:a$="c""COLOR DE LA PRIMERA BARRA ? ";c:c=c-1:#0;0;4;" GRAFICO EN EJECUCION ":color=c:STEP=8:730 :a$="p":430 Da$="r""UNIDADES Y(4max.)";a$:.1}L,20:a$=a$+" ":div=max/10 :#1;4;0;" Cada division Y= ";div;" ";a$(14) N 430 XvINK:inicio=0:1:2Track-Info  R 4+(ancho/2),((A(1)*alto)+16):j=1A(20)-1 b inicio=(inicio+ancho+4) l.(ancho+4),((A(j+1)-A(j))*alto) vj '.1}L,10 :4:0: "QUE GRAFICO PREFIERES ? ";opcion:.1}L,20:opcion<1OPCION>4#0;1;" FUERA DE RANGO ":1,0:100d:650 1opcion=1230:340T:430 1opcion=2230:600X:430 Copcion=3230:340T:INK=c:600X:430 1opcion=4230:700:430 ;ancho=((230-(A(20)*14))/(A(20))) alto=(118v/max) STEP=1  0:j=1A(20) 3color=color+1:color8color=2 color 1inicio=((j-1)*(ancho+14)+24) k=inicioinicio+anchoSTEP  fA(j)>0k,18:0,(A(j)*alto):(k+1),((A(j)*alto)+20):4,4 k  :r=1:w=(inicio+ancho+2):i=ww+4STEP *?A(j)>0i,18+r:0,(A(j)*alto):r=r+1 4i >:A(j)>0(w+4),23:0,(A(j)*alto) Hj R.1}L,20: \"GRAFICOS"1 ,140:30,-40(:-10 ,-10 %'g=59 :g,25;"":g % 4 %205,140:30,5,-1:205,142:20,5,-1:205,138:30,0,-1 %205,140:-30,5,1:205,142:-20,5,1:205,138:-30,0,1 %`205,136:-20,0,1:205,136:20,0,-1 %!17,0;1;"" % 11 &GINSTRUCCIONES  &H6:1:7: &MI18,0;4;0;;" " &R.0,10 ;1;"INSTRUCCIONES" &SPLUS3DOS=  9600% INICIALIZACION VARIABLES l=1000 (700::g=l 28x=0:y=1:c$=" ":w=1:pu=0 <100d:200 dSACAR CARTA DE LA BARAJA i1n=(*13 +1):p=(*4+1) n!p=1u=1:i=2 x!p=2u=3:i=4 !p=3u=5:i=6 !p=4u=7:i=8 "j$=b$(n,ui):j$=" "105i b$(n,ui)=" " 3j$(2)=""j$(2)=""2:7 3j$(2)=""j$(2)=""0:7  COLOCACION *c=05:x+c,y;7;c$:c mx,y;j$(1);x+1,y;j$(2);x+4,y+3;j$(2);x+5,y+3;j$(1) :w=1w=2y=y+5:w=w+1:300, 9w=3x=7:y=1:w=w+1:300, :w=4w=5y=y+5:w=w+1:300, ,w=6x=0:y=1:w=1 ,PUNTUACION 6n>10 n=10 @!w3n=1n=11 J'w=2pu=n:100d:200 T pu=pu+n ^<14,0;5;0;"TIENES ";pu;" PUNTOS" hw3pu=2116,6;3;7;1;" !!ENHORABUENA!! ";0;17,6;"HAS HECHO BLACK-JACK":n=13:f=10 25:.03{u\,f:f:n:l=l+a*2:2000 rpu<21500 | pu>2116,10 ;1;6;" MALA SUERTE ";17,10 ;"TE HAS PASADO":f=151-1:.05|L,f:f:l=l-a:2000 OTRA CARTA? ^16,9 ;7;2;"?OTRA CARTA?";17,9 ;1;" SI/NO "  a$=:a$"s"a$"n"510 )a$="s"550&:100d:200 a$="n"550&:1000 &N16,9 ;4;" ";17,9 ;" ": CUANTO APUESTAS? b4::19,7;7;"DISPONES DE ";l;" `";20,8;"CUANTO APUESTAS?" u" ";7;a:a>l20,6;7;2;" NO TIENES ";a;" ` ":200:710 a<1720  SACAR CARTA CROUPIER .pc=0:w=1:x=0:y=17  100d COLOCACION CARTA CROUPIER *c=05:x+c,y;7;c$:c mx,y;j$(1);x+Track-Info  R 1,y;j$(2);x+4,y+3;j$(2);x+5,y+3;j$(1) ;w=1w=2y=y+5:w=w+1:1300 ;w=3x=7:y=17:w=w+1:1300 ;w=4w=5y=y+5:w=w+1:1300 -w=6x=0:y=17:w=1 PUNTOS CROUPIER n>10 n=10 (n=1n=11 2 pc=pc+n <614,19;5;0;" CROUPIER ";pc F$pc<17100d:1020 Ppc>2116,5;0;6;"EL CROUPIER SE HA PASADO";17,5;" !GANASTE! ":f=10 25:.05|L,f:f:l=l+a:2000 Zpcpu16,6;2;9 ;"EL CROUPIER SE PLANTA";17,6;" !PERDISTE! ":f=150-1:.05|L,f:f:l=l-a:2000 CONTROL APUESTAS ڃf=1921:1;f,5;" ":f:19,8;1;6;"ANTES TENIAS ";g;" `" <20,8;1;6;"HAS APOSTADO ";a;" `" 921,9 ;1;6;"TE QUEDAN ";l;" `" 9830f&:f=0150:f:l019,5;1;7;" LASTIMA QUE SE ACABO ";20,5;" ":21004  200  l>016,5;4;" ";3;6;1;"?OTRA APUESTA?";0;4;" ";;17,5;4;" ";3;" SI/NO ";4;" ":a$=:a$=""2060   a$="n"  a$="s"40( 4p1;7;16,6;1;" ?OTRA PARTIDA? ";17,6;" Si o No " >a$=:a$=""21004 H a$="n" R 30 %GRAFICOS %&>i=144148:j=07:w:i+j,w:j:i: %:H0,546,127,127,62>,28,8,0 %DG0,8,28,62>,127,62>,28,8 %NG0,8,28,42*,127,42*,8,28 %XG0,8,28,62>,127,42*,8,28 %bI0,70F,201,73I,73I,73I,230,0 %INSTRUCCIONES %1:7::1 %-1;7,8;" PARA LA CINTA " %y12 ,9 ;2;1;" BLACK JACK ";11 ,9 ;" ";13 ,9 ;" " %#15,9 ;" by E. Sainz" %621,0;" Pulsa una tecla para continuar " % 0: %40,9 ;2;1;" BLACK JACK " %'" El juego consiste en aproximar-te a 21 puntos, sin pasarte, encuyo caso pierdes lo apostado. A continuacion el croupier haralo mismo, con la ventaja de quese plantara cuando te supere." %'" Las REGLAS DEL JUEGO son: -Black Jack consiste en conse-guir 21 puntos con las dos pri-meras cartas. -las figuras valen 10 puntos. -el AS vale 11 en las dos pri-meras cartas menos para el crou-pier, que siempre le vale 11." %ړ" -el croupier no se puede plan-tar antes de 17 puntos. Tu si. Empiezas con 1000 `. A ver concuantas acabas." %9500%:9800H& %""Pulsa ENTER para empezar ";a$: &HCREACION BARAJA &R3n$(13 ):f=113 :a$:n$(f)=a$:f &\5"A","2","3","4","5","6","7","8","9","","J","Q","K" &ab$(13 ,8) &fFn=113 :b$(n)=n$(n)+""+n$(n)+""+n$(n)+""+n$(n)+"":n &p 'Q"black jack"1::10 ,5;1;"LISTO PARA VERIFICAR":"": ):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 PLUS3DOSddU1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i::59999_:0:0:7::7000X:#0;"PULSA UNA TECLA":0: record=0 n$="RECORMAN" 23658j\,0 1000 d`17-n,p;4;" ";18-n,p;4;" ";19-n,p;3;" ": nn=010 :100d o((p+2)*8+3,(5+n)*8+3).1}L,10 :punt=punt+1:#0;1,3;punt*10 pn q97,p;4;" ";8,p;4;" " rn=10 1-1 tU17-n,p;" ";18-n,p;4;" ";19-n,p;4;" " vn x 1i=031:20,i;5;"":i   p=12 pin=100d  n=0 punt=0 @t()=100d-((256*23673y\+23672x\)/502) pin  130 1#0;0,0;1;"PUNTUACION" S#0;0,15;1;n$;1,17;0;record*10 H21,0;5;1;" F R A N C I S C O O R C E R A" *23673y\,0:23672x\,0 1,(31*);"*" down=6e4` *p=p+(="p"p<27)-(="o"p>0) pin ="1"110n  .001wn,30 t()>02010 (punt10 2640P d%n=030:.005y# =,n:n ,:10 ,0;"Otra partidita S/N ?" .1}L,30* ="s":1000 ="n"3050 3010 :3050 X{"EL COMEDOR DE ESTRELLAS ES UNA PLANTA QUE COMO SU NOMBRE INDICACOME ESTRELLAS Y SU VIDA ES DE UNOS CIEN SEGUNDOS"''"TIENES PUES ESE TIEMPO PARA MA- NEJAR TU PLANTA Y COMER EL MAXI-MO NUMERO DE ESTRELLAS "''"LAS ETRELLAS QUE NO COJAS CON ELCENTRO DE LA BOCA NO SERAN DEVO-RADAS CUANDO COMAS UNA ESTRELLA SONARA UN PITIDO DE CONFIRMACION"'''"O-IZQUIERDA"'"P-DERECHA"'"1-COMER" @"1,0,7,33!,223,79O,17,255,79O,237,184,6,8,33!,224,64@,17,0,72H,197,229,213,1,32 ,0,237,176,1,0,1,209,225 J*9 ,229,213,225,9 ,229,209,225,193,16,232,17,255,71G,33!,223,71G,6,8,197,213,229,1,224,0,237,184,225,1,0,1,237 T66B,209,229,213,225,237,66B,229,209,225,193,16,230,201 ^28000@:n=60000`60077:a:n,a:n h0,0,0,145,147,211,246,238,0,0,0,1,1,131,131,197,0,0,0,34",178,250,250,246,110n,118v,546,27,13 ,7,1,0,229,235,243,123{,127,183,210,111o,238,236,220,184,184,112p r|224,192,44,,524,110n,118v,110n,524,44,,524,0,1,3,7,14,14,14,14,145,147,182,126~,247,247,247,247,128,192,224,240,240,112p,112p,112p,7,7,3,1,1,0,0 w0,123{,251,253,253,253,252,121y,502,112p,224,224,64@,64@,128,0 |.8040h:n="a""a"+102f:a:n,a:n  '-:"m";1;"nuevo":*"m";1;"nuevo" 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)0PLUS3DOSZZo1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: de23658j\,9 :1::"SI QUIERE VARIAR EL RAMTOP PULSE S":0:="S"RAM:RAM n 510 xcucu=0::0,0;" CONVERSION DECIMAL-HEXADECIMAL";8,9 ;"DEC. HEX.":64@,100d:15*8,0:126~,100d:0,-502 221,0;"SI QUIERE IR AL MENU PULSE " A$="":D$="0123456789ABCDEF" 160+cucu A A=510 X=A/4096 A$=A$+D$(X+1) Y=X*4096-X*4096 Y=Y/256 A$=A$+D$(Y+1) Z=Y*256-Y*256 Z=Z/16 A$=A$+D$(Z+1) W=Z*16-Z*16 A$=A$+D$(W+1) 290"+2*cucu ""10 ,9 ;A;17;A$ ,(126~,100d:0,-15 6330J-cucu @ J 140 T6:0,0;" CONVERSION HEXADECIMAL-DECIMAL" ^221,0;"SI QUIERE IR AL MENU PULSE N" hx8,9 ;"HEX. DEC.":64@,100d:15*8,0:126~,100d:0,-502 rF$ |F$="N"510  410  480 fA=10 :B=11 :C=12 :D=13 :E=14:F=15:F$>4F$=F$(4) F$=1F$="000"+F$ F$=2F$="00"+F$ F$=3F$="0"+F$ F$=0F$="0000"+F$ UJ=F$(1)*4096+F$(2)*256+F$(3)*16+F$(4)  +10 ,9 ;F$;17;J;" " (126~,100d:0,-15  370r 1:1:7: cucu=0 10,0;"PULSE LA SELECCION QUE DESEE" b8,0;"1-CONVERSION DEC-HEX."''"2-CONVERSION HEX-DEC."''"3-TRADUCCION SONIDOS A M/C." &m'"4-ANALISIS PROGRAMA M/C."''"5-INTRODUCCION PROGRAMA M/C."''"6-CARGAR BITES."''"7-MOVER BYTES EN MEMORIA." 0="1"120x :="2"340T D="3"640 N="4":1390n X="5"1690 b="6"1960 g="7"1970 l<"1"Ŧ>"7"5600 v 5600 3:0,0;"SI QUIERE IR AL MENU PULSE " 3,4;"DEC. HEX."  6,0;"HL:";''"DE:" N25,140:100d,0:74J,140:0,-502 '"NOTA BASIC (DESDE -12 HASTA 40):"'HL %HL<-12 HL>40(680 HL=510 860\+10 *HL:HL %FREC=437500U/(HL+30.125q)  A=HL:cucu=10 :140 V6,0;"HL: ";HL;10 ;A$;" ":74J,140:0,-502 "TIEMPO EN SEGUNDOS:";SEC DE=(FREC*SEC+.5) DE>65535750  A=DE:cucu=10 :140 W8,0;"DE: ";DE;10 ;A$;" ":74J,140:0,-502  680 *A=F:140 4B$=A$ >A=F:140 HB$=B$(3) R \ 3320 f 3130: p 2950 z 2780  2620<  2475  2320  2200  2075  1950  1850:  1740  1642j  1548   1459  1376`  1297  1222  1152  1085= $ 1023 . 964 8 908 B 855W L 805% V 760 ` 715 j 670 t 632x ~ 596T  5655  530  495  466  438  412  388  365m  342V  322B  302.  285  265   250  233  218 ( 206 2 192 < 180 F 167 P 156 Z 146 d 136 nicucu=10 :"DIRECCION INICIAL (hex):";F$:410:AS=J:"DIRECCION FINAL (hex):";F$:410 x/Track-Info  R         "PULSE N PARA ABANDONAR"'"PULSE S PARA PARAR" cucu=10 F=ASJ cucu=10  ="S" BA=F:A=1A=17A=33!A=34"A=42*A=491A=502A=58:A=194A=195A=196A=202A=204A=205A=210A=212A=218A=220A=226A=228A=234A=236A=242A=244A=250A=2521560 ="N"510 $A=F:A=6A=14A=16A=22A=24A=30A=32 A=38&A=40(A=46.A=480A=546A=568A=62>A=198A=206A=211A=214A=219A=222A=230A=238A=246A=2541600@ A=F:A=2371630^ `A=F:A=203810*:F;" ";A$;" ";B$;:F=F+1:810*:",";B$:1640h !810*:F;" ";A$;" ";B$;  :F 2"ALGUNO MAS?:(S/N)";F$:F$="S":1390n F$="N"510  1530 !810*:F;" ";A$;" ";B$; "!F=F+1:810*:",";B$; ,%F=F+1:810*:",";B$; 6 1510 @0810*:F;" ";A$;" ";B$;:F=F+1 J810*:",";B$; T 1510 ^810*:F;" ";A$;" ";B$;:F=F+1:A=F:A=67CA=75KA=83SA=91[A=99cA=107kA=115sA=123{1660| h810*:",";B$ r 1520 |7G=12:810*:",";B$;:F=F+1:G 810*:",";B$  1510 :0,0;"PULSA N PARA REPETIR INTROD.DAT.";2,0;"PULSA M PARA IR AL MENU";4,0;"PULSA S PARA INTROD. OTRO M/C";6,0;"PULSA O PARA PONER EN MARCHA M/C";8,0;"PULSE G PARA GRABAR BITES"  "DIRECCION INICIAL (hex):";F$  1750 410:DI=J  "DATOS (hex):";F$:1750  1810 F$="N"1730 F$="M"510 F$="S"1690 F$="O"18400 F$="G"1880X  410:DA=J:DI,DA DI=DI+1 & 1730 0!"DIRECCION COMIENZO (hex):";F$ : 410 D""PULSE UNA TECLA":0::J I%#0;"PULSE UNA TECLA":0 N 1690 X,:"DIRECCION INICIO (hex):";F$:410 bF=J l""LONGITUD (hex):";F$:410 v"NOMBRE:";H$ H$F,J :"VERIFICAR: REBOBINE" ""  1690 :"SI QUIERE CARGAR LOS BYTES EN ALGUNO DIRECCION ESPECIAL PULSE:"'15;"A":"SINO PULSE OTRA TECLA":0:="A""DIRECCION ESPECIAL:";DS:""DS "" }:"DIRECCION TABLA(hex):";F$:410:W=J:"DIRECCION NUEVA(hex):";F$:410:G=J:"LONGITUD(hex):";F$:410 FSEG=46./1535*J:MIN=(SEG/60<):SEG=SEG-MIN*60< T5,3;"TARDARE UNOS ";MIN;" MINUTOS";7,15;SEG;" SEGUNDOS" &D=0J-1:(G+D),(W+D):D  510 00@,10000000,01100000`,11110000,11110000,11110000,11100000 #~"iPLUS3DOS5551:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:0:0:7::1;10 ,7;"ESPERA UN MOMENTO" 236099\,32 9000(# ?2300:SI DETIENES EL PROGRAMA PULSA GOTO 15 PARA SEGUIR  5000  7000X  8000@ [ca=5ca=0:x=17:x1=36$:y=15:y1=123{:pan=pan+1:f=15:3,c(f);5;" ":f:f=15:c(f)=0:f:100d \>f=15:c(f)3,c(f);5;1;"" _f dt=t-.25~:t=(t)19,7;6;" ";19,7;" "(t);0;5 evid=1103g fp>5000vi=vi+1:f=13:.3,20:f:1,24;:f=1vi:0;6;" ";:f:vid=1 g721,10 ;1;6;"PANTALLAS:";pan i<6;0;1,1;"00000"(5-p);p nt=11010 xU.002xn,30:.0082zYJ,60<:.002xn,10 :.002xn,45- x,y;pa;7;r$ 9a$(1)=a$(1,32 )+a$(1)(31) 9a$(2)=a$(2,32 )+a$(2)(31) 9a$(3)=a$(3,32 )+a$(3)(31) 9a$(4)=a$(4Track-Info  R         ,32 )+a$(4)(31) b$=b$(2)+b$(1) 6="8"y<30y=y+1:y1=y1+8:r$="" +="7"x1=x1+8:x=x-1:r$="" 6="6"x<17x1=x1-8:x=x+1:r$="" 5="5"y>1y1=y1-8:y=y-1:r$="" .x=11 x=17pa=1:210 pa=4 x,y;pa;7;r$: 3x=17x,y+1;pa;" ";x,y-1;" " &x=161;17,y;" " V4;0;12 ,0;a$(1)'a$(2)''a$(3)'a$(4) (14,0;4;5;b$ 4x17x11 Ʃ(y1,x1)=11010 x=11 3106 , 100d 6 x,y;pa;7;r$: 7t=t-.25~:t=(t)19,7;6;" ";19,7;" "(t) 8t=11010 9*.002xn,30:.002xn,30 :<6;0;1,1;"00000"(5-p);p ;pan<4350^ J4cu=cu+1:11 ,cu;1;6;" " T;cu=30cu=0:11 ,30;1;" " ^7c$(1)=c$(1)(2)+c$(1,1) h9c$(2)=c$(2,32 )+c$(2)(31) r7c$(3)=c$(3)(2)+c$(3,1) w?5,0;5;0;c$(1)''''c$(3) |47,0;5;2;c$(2) 6="8"y<30y=y+1:y1=y1+8:r$="" ,="7"x1=x1+16:x=x-2:r$="" 7="6"x<11 x1=x1-16:x=x+2:r$="" 5="5"y>1y1=y1-8:y=y-1:r$="" 1x=11 y=cu+1pan>31010 #x=11 pa=1:500 Jpa=(5x=3)+(0x=9 x=5)+(2x=7) (x,y)=41)1010 -x=3ƫ(3,y)=34"1010 x,y;pa;7;r$ %x=9 11 ,y;1;" " 3x=11 x,y+1;pa;" ";x,y-1;" " rfr=1x=11 y=rnd1f=155-1:.03{u\,-f:f:p=p+300,:fr=1:800  M(y1,x1)=1x11 x=9 x=5y=y-1:y1=y1-8  8x=7Ʃ(y1,x1)=1y=y+1:y1=y1+8 ^(y1,x1)=0x=9 ũ(y1,x1)=0x=7ũ(y1,x1)=0x=51010 Jx=9 y=0x=7y=31x=5y=01010 x=3850R ca>33106 !<.1}L813- &rnd=(*10 ) 0rnd=8800   3106 !fr=0803# " 811+ #rnd1=(*29+1) %=11 ,rnd1;1;3;"":fr=1:3106 +11 ,rnd1;1;" " ,fr=0:3106 /co=08204 0co=1:835C 4rnd2=(*5)+1 5rnd2=1coc=3 6rnd2=2coc=9 7rnd2=3coc=15 8rnd2=4coc=21 9rnd2=5coc=27 :D(3,coc)40(ū(3,coc+1)40(8204 ><3,coc;5;1;"":co=1:3106 C33,coc;5;" ":co=0:3106 H 3106 Ry=3y=4y=9 y=10 y=15y=16y=21y=22y=27y=28ca=ca+1:p=p+(10 *(t)):x1=36$:x=17:t=24 \cas=(1(y=3y=4))+(2(y=9 y=10 ))+(3(y=15y=16))+(4(y=21y=22))+(5(y=27y=28)):c(cas)=y:30 vi=vi-1  1 .1}L,0:.2~L,2:x,y;"*":10 :.3,6:x,y;2;"$":10 :.3,9 :.2~L,6:x,y;5;"#":5:x,y;pa;" " 0f=15:.1}L,f:.1}L,-f:f: 3x=17:y=15:x1=36$:y1=123{  0 $ t=25 .d1,24;6;" ";1,24;:f=1vi:6;0;" ";:f 3vi=02000 8 30 B!FIN DE JUEGO Y TABLA DE RECORDS 210 ,11 ;0;5;"GAME OVER"  5100 (100d:2:7:2: pr(5)2300 v$="":fi=9 :2,0;" Has logrado mejorar un record.";4,0;"Escribe tu nombre a continuacion.Maximo 14 caracteres." 10 ,8;0;" ";11 ,8;0;6;" ";12 Track-Info  R         ,8;0;" " ""2203 =""2204 =13 2211 z=12 fi=fi-1:11 ,(fifi>7)+(9 fi=8);6;" ";:v$=v$(fi-9 ):2203 v$>13 2203 ;11 ,fi;6;0;;:fi=fi+1:v$=v$+  2203 4:4:0: p>r(1)n$(5)=n$(4):r(5)=r(4):n$(4)=n$(3):r(4)=r(3):n$(3)=n$(2):r(3)=r(2):n$(2)=n$(1):r(2)=r(1):r(1)=p:n$(1)=v$:2220 p>r(2)n$(5)=n$(4):r(5)=r(4):n$(4)=n$(3):r(4)=r(3):n$(3)=n$(2):r(3)=r(2):r(2)=p:n$(2)=v$:2220 p>r(3)n$(5)=n$(4):r(5)=r(4):n$(4)=n$(3):r(4)=r(3):r(3)=p:n$(3)=v$:2220 hp>r(4)n$(5)=n$(4):r(5)=r(4):r(4)=p:n$(4)=v$:2220 8p>r(5)r(5)=p:n$(5)=v$:2220 4:4:0::0,0;7;2;" FROGGER ";1;3;0;3,11 ;"GAME OVER" &6,12 ;2;"RECORDS" c8,2;1;6;n$(1);25;"00000"(5-r(1));r(1) d10 ,2;2;6;n$(2);25;"00000"(5-r(2));r(2) d12 ,2;3;6;n$(3);25;"00000"(5-r(3));r(3) d14,2;4;6;n$(4);25;"00000"(5-r(4));r(4) d16,2;5;6;n$(5);25;"00000"(5-r(5));r(5) H#1;1;3;6;" QUIERES JUGAR? " $"s"Ʀ"n"2340$ .="s"20 ` 5200P  9300T$ dur,son:dur=0 dur>2dur:5001  dur,son  5001  9400$ dur,son:dur=0 dur>2dur:5101  dur,son  5101 P0:7:0: n8,10 ;" " x.4L,-30:.3,-20:.3,-10 :.4L,-20:.4L,-15:1:.73333,-10 &3:7:0:5: p 10000'  VARIABLES Xx=17:y=15 ba$(4,32 ) l0a$(1)=" " v0a$(2)="----------------------" 0a$(3)="--------------------" 0a$(4)=" " 'b$=" " c$(3,32 ) Pc$(3)=" " 0c$(2)=" " 0c$(1)=" " 4vi=3:p=0 Hr$="" x1=36$:y1=123{  t=24 b=1000  pa=1 =pan=0:ca=0:fr=0:co=0:cu=0  c(5) rnd1=0  vid=0  @3:5: Jk2,0;4;2;;"";" " O{3,3;5;" ";3,9 ;" ";3,15;" ";3,21;" ";3,27;" " T(11 ,0;1;0;,, ^4;,,,,,,,,,,,, h(17,0;1;0;,,  0,0;6;,,,, %18,0;6;,,,,,,,, ?21,0;1;" " \0,12 :5;255,0:0,27:5;255,0 K19,0;2;"TIEMPO:";0;" " e6;2;0,1;"SCORE";0,8;n$(1);0,24;"FROGGER" s568,175:6;3;0,-15:184,175:6;3;0,-15 &71,1;6;0;1,24; 0!f=1vi:6;" ";:f :V5,0;0;c$(1)'';2;c$(2);'';0;c$(3) DF1,13 ;0;"00000"(5-r(1));rTrack-Info  R         (1) " #(=f=020:q$:g=07:a:q$+g,a:g:f #)ar(5):n$(5,16):f=15:r(1)=0:n$(f)="ZX SPECTRUM":f #1 #2@"a",0,0,480,a,127,239,230,a #,a #A@"c",230,a,239,127,480,a,0,0 #F?"d",62>,a,190,252,24,a,0,0 #KD"e",0,0,0,126~,a,0,63?,126~ #PK"f",0,0,0,568,568,0,252,126~ #UD"g",126~,63?,0,126~,a,0,0,0 #ZD"h",126~,252,0,568,a,0,0,0 #_M"i",65A,73I,62>,28,28,34",65A,34" #dK"j",0,16,38&,255,38&,16,0,0 #iU"k",234,205,211,243,221,198,247,227 #nI"l",63?,71G,187,a,155,215,71G,63? #x="m",248,252,254,a,a,252,248,a #U"n",255,223,231,243,251,247,239,255 #M"o",34",65A,34",28,28,62>,73I,65A #O"p",194,37%,568,120x,568,37%,194,0 #N"q",67C,164,28,30,28,164,67C,0 #L"r",0,0,132,79O,63?,15,13 ,24 #P"s",4,16,160,224,193,254,96`,24 #G"t",6,16,568,126~,127,62>,a,24 #K"u",0,0,0,33!,114r,94^,136,0 #DATAS DE SONIDO $T..3,40(,.3,40(,.3,40(,15,0,.3,40(,.3,40(,.3,40(,4,0,.3,40(,.3,45-,.3,35#,.3,36$,.3,40(,4,0,.3,42*,.3,42*,.3,42* $YY3,0,.2~L,40(,.3,41),.3,40(,.2~L,40( $^3,0,.2~L,40(,.3,40(,.3,39',.2~L,39',.3,40(,.6,38&,.2~L,45-,0,0 $E.4L,0,.4L,2,.4L,3,.4L,2 $E.4L,0,.4L,2,.4L,3,.4L,2 $E.4L,3,.4L,5,.4L,7,.4L,7 $E.4L,3,.4L,5,.4L,7,.4L,7 $.4L,7,.4L,8,.4L,7,.4L,5,.4L,3,.4L,2,.4L,0,.4L,0 $.4L,7,.4L,8,.4L,7,.4L,5,.4L,3,.4L,2,.4L,0,.4L,0 $0,0  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=PLUS3DOSuo7:7:0::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: 8 RICARDO DE PRADO 1984:COMPATIBILIDADES BIORRITMICAS Introduccion e instrucciones 3000 Carga matrices de datos  2000 Entrada de nombres y fechas  indi=0:"Tu Nombre?";A$ 4"Fecha de nacimiento"'"AA?";AA:"MM?";MM:"DD?";DD #$70F:4000:FECHA1=FECHA ("Nombre de tu pareja?";B$ 99cAA<0MM>12 MM<1DD>31DD<1indi=1:1000 HDIO1=DD:MOS1=MM:AN1=AA K PRAA>99cAA<0MM>12 MM<1DD>31DD<11000 TDIO2=DD:MOS2=MM:AN2=AA U d n(A$;A$+3;"( ";DIO1;"/";MOS1;Track-Info  R         "/";AN1;" )"'B$;B$+3;"( ";DIO2;"/";MOS2;"/";AN2;" )")'"Todo correcto (s,n)? ";F$ x(F$110nF$115s110n }F$="n"20 ?Calculo de la posicion de los ciclos en el dia del nacimiento :POSE1=(((FECHA1/28)-(FECHA1/28))*28) :POST1=(((FECHA1/33!)-(FECHA1/33!))*33!) :POSF1=(((FECHA1/23)-(FECHA1/23))*23) :POSE2=(((FECHA2/28)-(FECHA2/28))*28) :POST2=(((FECHA2/33!)-(FECHA2/33!))*33!) :POSF2=(((FECHA2/23)-(FECHA2/23))*23) ECalculo de la posicion relativa de una curva con respecto a la otra J=(POSE1-POSE2)+1 K=(POST1-POST2)+1 L=(POSF1-POSF2)+1 &Visualiza los resultados en pantalla  >3;2,0;"COMPATIBILIDADES BIORRITMICAS DE" J4,1;A$;4,A$+3;"( ";DIO1;"/";MOS1;"/";AN1;" )" 5,7;"Y" J6,1;B$;6,B$+3;"( ";DIO2;"/";MOS2;"/";AN2;" )" "8,10 ;"************" C2;10 ,1;"Compatibilidad Emocional =";E(J);"%" C2;12 ,1;"Compatibilidad Intelectual=";T(K);"%" C2;14,1;"Compatibilidad Fisica =";F(L);"%"  MEDIA=(E(J)+T(K)+F(L))/3 ~MEDIA<206;1;1;18,1;"YO QUE VOSOTROS ME LO PENSABA ANTES DE CASARME!!":290" hMEDIA<40(6;1;1;18,1;"ESTAIS ROZANDO EL DIVORCIO!!":290" xMEDIA<60<4;1;1;18,1;"COMO PAREJA VAIS DE MEDIOCRES POR LA VIDA!!":290"  oMEDIA<80P2;1;1;18,1;"NO SOIS LA PAREJA IDEAL,PERO CASI!!":290" !P2;1;1;18,1;"LO VUESTRO ES ROMEO Y JULIETA!!" "Repite o finaliza el programa $("Desea copia por impresora (s,n)?";F$ &(F$110nF$115s292$ ( F$="s" ,."Desea alguna otra compatibilidad(s,n)?";W$ 1 6(W$110nW$115s300, ;W$="s"15 @F1;1;12 ,6;"HASTA LA PROXIMA!!":9999' Escribe el error  e1;1;11 ,1;"FECHA FUERA DEL INTERVALO 1 ENERO 1900-31 DICIEMBRE 1999" indi=120  40( Subrutina para carga de datos  E(28) J=128 E(J) J  T(33!)  K=133! T(K)  K * F(23) 4L=123 >F(L) HL R100d,92\,84T,75K,67C,58:,502,44,,37%,30,22,15,7,0,7,15,22,30,37%,44,,502,579,64@,71G,78N,86V,93],100d \)100d,92\,84T,78N,71G,64@,579,502,502,44,,38&,32 ,25,18,12 ,6,0,7,14,21,27,34",42*,502,502,568,62>,68D,74J,80P,87W,93],100d f100d,90Z,80P,70F,60<,502,40(,32 ,24,16,8,0,8,16,24,32 ,40(,502,60<,70F,80P,90Z,100d p +Subrutina de introduccion e instrucciones 71;1;4,7;"COMPATIBILIDADES" 8,1;"Este programa calcula las compatibilidades de una pareja basandose en los ciclos vitales:Emotivo,Intelectual y Fisico (Biorritmos) dando el resultado en % de compatibilidad." P1;18,0;"PULSE I PARA INICIAR EL PROGRAMA Y S PARA SALIR!!" ="I"Ŧ="i": U="S"Ŧ="s":1;1;10 ,6;"HASTA LA PROXIMA!!":9999' 3030 <Calculo de los dias transcurridos desde principio de siglo 2(AA/4)=AA/44500:4020 DIAS=(AA/4)+1 AA1=AA-1 DIA1=AA1*365m &MM=1DIA2=0:4090 MES1=MM-1  4080 I=1MES1 DIA2 I l31,59;,90Z,120x,151,181,212,243,273,3040,334N FECHA=DIA1+DIA2+DIAS+DD  Ano bisiesto 4MM>2DIAS=(AA/4)+1:4530 DIAS=(AA/4)  ,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,3PLUS3DOS 8 8 7:7:0: ::X=110 :.01z# =,X:X:;1;11 ,9 ;"PARA LA CINTA";12 ,15;"Y";13 ,6;"ESPERA UNOS SEGUNDOS":1340<::1250 nT=1::23658j\,200:236099\,0:0:tanques=3:"NOMBRE DEL JUGADOR=";A$ #A$0űA$>810 F$="":P$="" (DIBUJAR PANTALLA 20,8;"XXX";0,0;"tanques:":x=427:7,x;P$;12 ,x;P$;15,x;P$;18,x;P$:x: <7x=328:2,x;"";21,x;"":x F7y=220:y,3;"";y,28;"":y Px=720 Zx=78,8;F$;9 ,8;F$;10 ,8;F$;11 ,8;F$;8,24;F$;9 ,24;F$;10 ,24;F$;11 ,24;F$ d9x=12 13 ,16;F$;14,16;F$ ncx=1616,8;F$;17,8;F$;16,24;F$;17,24;F$ xex=1919,13 ;F$;20,13 ;F$;19,19;F$;20,19;F$ x L4,14;"";5,14;"";6,14;"" y3=11 :y2=11 :x2=20:y4=14:x4=13 :y5=14:x5=19:y6=17:x6=24:yy6=17:xx6=8:y7=20:x7=16 0m=(*2)+1:m=1x3=19 m=2x3=12 hy=20:hx=5 112 ,11 ;" ";12 ,20;" " Ehy,hx;"  ":T=T+1:3,18;"TIEMPO:";(T/5) hy20240 y7,x7;" ":x7=x7+1 !x721x7=-9 x7=-x7 hx5hx=5 hx24hx=24 '(hy,hx+1)=01170 pp=hy pp=17460 "pp=14690 ,pp=11 870f 6pp=61100L @="5"hx=hx-1 J="8"hx=hx+1 T0hx10 hx1520,13 ;F$ ^0hx17hx2120,19;F$ h="7"hx=12 390 r="7"hx=18430 | 200 -19,13 ;F$;20,13 ;F$ hy,hx+1;F$  hy=17  200 19,19;F$ hy,hx+1;F$  410 R4;y6,x6;" ":x6=x6+.5:2;yy6,xx6;" ":xx6=xx6+.5 %x624.5Dx6=-4.5x6=-x6 %xx624xx6=-9 xx6=-xx6 '(hy,hx+1)=01170 .hx5hy11 17,8;F$ 0hx17hy2217,24;F$ ="5"hx=hx-1 ="8"hx=hx+1 ="7"hx=7590N &="7"hx=23620l 0="6"hx=12 650 :="6"hx=18660 D 200 N17,8;F$ X hy=14 b 200 l17,24;F$ v hy=14  200 17,13 ;" " 17,19;" "  hy=20  200 ="5"hx=hx-1 I1;y4,x4;" ":x4=x4+2:x422x4=-7x4=-x4 '(hy,hx+1)=01170 0hx13 hx1614,16;F$ ="8"hx=hx+1 ="7"hx=15780  ="6"hx=7810* ="6"hx=23840H  200  14,16;F$  hy=11  200 *14,8;" " 4 hy=17 > 200 H14,24;" " R hy=17 \ 200 f="5"hx=hx-1 p="0"hx=12 hy,hx;" ":10 :hy-1,hx;"":10 :hy-1,hx;" ":10 :hy-1,hx-1;"":10 :hy-1,hx-1;" ":10 :hy,hx-2;"":hx=hx-3 z="0"hx=18hy,hx;" ":10 :hy-1,hx+1;"":10 :hy-1,hx+1;"  ":10Track-Info  R  :hy-1,hx+2;" ":10 :hy,hx+3;" ":hx=hx+3 hx=10 hx=11 hy,hx+1;" ":x=hy20:x-1,hx+1;" ";x,hx+1;"":x:hy=20:15,9 ;P$;P$;P$;P$;P$;18,9 ;P$;P$;P$;P$;P$;P$ hx=19hx=20hy,hx;" ":x=hy20:x,hx+1;"";x-1,hx+1;" ":x:hy=20:15,20;P$;P$;P$;18,20;P$;P$ P1;y3,x3;" ":X3=X3+.25~:X319.25X3=-11.254X3=-X3 ="8"hx=hx+1 '(hy,hx+1)=01170 ="6"hx=151010 ="7"hx=71040 ="7"hx=231040 -hy5hy9 11 ,8;F$ 0hy22hy2611 ,24;F$  200 11 ,16;" "  hy=14  200 ,11 ,8;F$;11 ,24;F$  hy=6 $ 200 .11 ,24;F$ 8 hy=6 B 200 L4,14;" ";5,14;" ";6,14;" ":X=526:6,X;" ":X:D$="":E$="":F$="" VyX=4285:F=110 :F:4,X;D$;5,X;E$;6,X;F$:X:G=1100d:G `P10 ,6;"NO ESTA MAL ";A$;13 ,9 ;"R=RUN N=PARAR" j="N"1610J:1130j t="R":10 ~717,10 ;"PUNTOS=";(10000'/T*tanques)  1130j :Y=15:X=110 :.01z# =,X:X:Y )0,7+(tanques-4);" " 5tanques=tanques-1:tanques0200 1,0:1,2:.5,3:.5,2:1,0:1,0:1,2:.5,3:.5,2:1,0:1,0:1,2 :10 ,9 ;"OTRA VEZ SERA";12 ,12 ;A$;14,8;"R=RUN N=PARAR";17,11 ;"PUNTOS=0" ="R":10 ="N"1610J  1220 $:20,2;"Pulsa una tecla para ver las";21,9 ;"instruccioneS":0::1,6;"**TECLAS DE MANEJO**";9 ,10 ;"5=IZQUIERDA";11 ,10 ;"6=ABAJO ";13 ,10 ;"7=ARRIBA ";15,10 ;"8=DERECHA";17,10 ;"0=SALTAR" 5#1;"Pulsa una tecla para continuar.":0 ':1,7;"***SUPER COCO***" 4,0;"Tu mision es llegar arriba de lapantalla,para ello has de evitar que te cojan los guardianes del reino de los gorilas."  #1;"Pulsa una tecla para empezar.":9 ,0;" Solo podras utilizar tu habili-dad saltarina cuando te encuen- tres frente a un agujero.":e=16E4`:x=70-1:X:;X;15,6;"BUENA SUERTE !!!!":""1310 x:e  7 ( 0 2 10 <y=65A79O F$x=07:a:(Y)+x,a:x Py ZI0,0,0,0,240,248,252,252 dE0,0,0,0,15,31,63?,63? nM7,63?,64@,153,130,192,192,231 xJ224,236,2,153,65A,3,3,231 Q127,127,127,254,254,254,253,251 Q240,255,247,220,128,192,240,253 J15,255,239,59;,1,3,15,191 Q254,254,254,127,127,127,191,223 I251,171,67C,67C,66B,61=,1,1 O255,254,252,252,236,196,4,252 K255,127,63?,63?,557,35#,32 ,63? P223,213,226,226,98b,188,128,128 M73I,41),41),46.,110n,255,255,124| M255,129,129,255,16,16,255,0 Q195,195,195,195,255,195,195,195   "SUPER COCO"1  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<0PLUS3DOS}*))l1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I::23658j\,8:e$(7,3):z$(3,10 ):9500%:4000 Gr=1etapa::d=(*11 )+10 :5400:j=1pa g:9600%:0,0;" Vuelta Ciclista al ZX Spectrum Patrocinada por Micro Hobby " Kw=15:g=12 :z=12 *8:y=18*8:f=1 zx=d*16 sd=zx/4 a$="" Bz,175:0,-174:y,175:0,-174 x21,0;"SALIDA";21,25;"SALIDA";21,11 ;"";21,19;"" #;3,0;" Duracion etapa=";16*d;" cuadros" $#2,0;"Equipo ";i$(j) %/4,0;1;"Pulse ""5""" (N10 ,w;a$;9 ,w-1;e$(1);8,w-1;e$(1) 2 5000 4?23674z\,0:23673y\,0:23672x\,0 7Ptis=((653368*23674z\+256*23673y\+23672x\)/502) < h=0 F n=1d Gnd2000 P a=(*8):b=(*2) Zb=0a=-a \"x=14:zx=zx-1 ],(x/2)=(x/2)a$="":96` _a$="" `F23692\,255:k=3582 :9 ,w;" ":10 ,w;a$ az<24a=a by>231a=-a d.z,8:a,-8:y,8:a,-8 nz=z+a:y=y+a s?2;8,w-1;1;e$((*7)+1) t%zx=(sd*2)-55300 u;<.05|L21,((z/8))+2;4;a$ vW<.2~L21,((z/8))-1;"";21,((y/8))+1;"" wzxsd8 x0="1"10 ,w;" ":w=w-1:300, 0="0"10 ,w;" ":w=w+1:300, (11 ,w)" "9000(# x:n ,(10 ,w)" "9000(# 1 h=h+3 6x:n p12 ,w;4;a$:s=13 21:5:s-1,w;" ";4;s,w;a$:s:21,w;" ": h=h+502 f=43000 Ր(z/8)>821,0;z$(f):21,(z/8);"";21,(y/8);"":19,0;zx;" c.":2020 ړ(y/8)<2221,23;z$(f):21,(z/8);"";21,(y/8);"":19,25;zx;" c.":2020 521,0;z$(f):19,0;zx;" c." *f=1s(j)=s(j)+1:2090* *f=2v(j)=v(j)+1:2090* +sa=3m(j)=m(j)+1:2090* +sa=1m(j)=m(j)+3:2090*  m(j)=m(j)+2 * f=f+1 4 70F a$="":x=08:w=(z/8)+4:23692\,255:k=3582 :z,8:0,-8:1;21,(z/8)-2;"":y,8:0,-8:21,(y/8);"":x:1,w;" " :z,8:480,0:z,0:480,0 31;1;21,((z/8));"META" cx=115:23692\,255:k=3582 :9 ,w;" ":1;10 ,w;a$ @x>521,0;"" x:9 ,w;" " Ptil=((65536*23674z\+256*23673y\+23672x\)/502) $0,0;"PULSA ""5""" 7700:7500L 5000:4100 m:0,0;" Vuelta Ciclista al ZX SPECTRUM"''" Inscripciones"''"Numero de etapas y equipos" "Etapas ? ";etapa "Equipos ? ";pa t$(pa,10 ):t(pa):n$(5,10 ):p(5):b(pa):i$(pa,10 ):l$(pa,10 ):i(pa):l(pa):m(pa):m$(pa,10 ):v(pa):v$(pa,10 ):s(pa):s$(pa,10 ):a(pa):f$(pa,10 ) ^x=1pa:"Max.10 letras ";i$(x):f$(x)=i$(x):t$(x)=i$(x):x+5,0Track-Info  R ;i$(x):x 8x=1pa:m$(x)=i$(x):v$(x)=i$(x):s$(x)=i$(x):x !21,0;"PULSE ""5"""  5000  4j=pai(j)=i(j)+h:t(j)=t(j)+(til-tis):4200h %i(j)=l(j)+h:t(j)=t(j)+(til-tis):j h)q=1pa:ma=-1:x=1pa r0i(x)>mama=i(x):l$(q)=i$(x):da=x:l(q)=i(x) |x:i(da)=-2:q :0,7;"ETAPA ";r ''"Clasificacion general por puntos": ,x=1pa:l$(x);"=";l(x);",puntos.":x )x=1pa:i(x)=l(x):i$(x)=l$(x):x 0n$(1)=i$(1):p(1)=i(1) !21,0;"PULSE ""5""" :5000:0  7000X )q=1pa:ma=-1:x=1pa s(x)>mama=s(x):hf=x +x:a(q)=hf:b(hf)=s(hf):s(hf)=-2 q E:0,7;"ETAPA ";r''"Premio de los Sprints Especiales": Ex=1pa:x+4,0;s$(a(x));"=";b(a(x));",puntos.":x 6n$(2)=s$(a(1)):p(2)=b(a(1)) x=1pa:f$(x)=s$(x):x q=1pa:x=1pa q>pa4355 (i$(q)=f$(x)s$(q)=f$(x):s(q)=b(x):q x !21,0;"PULSA ""5""" 5000:5900  )q=1pa:ma=-1:x=1pa v(x)>mama=v(x):hf=x +x:a(q)=hf:b(hf)=v(hf):v(hf)=-2 !q &C:0,7;"ETAPA ";r''"Premio de las Metas Volantes": 0Ex=1pa:x+4,0;v$(a(x));"=";b(a(x));",puntos.":x 56n$(3)=v$(a(1)):p(3)=b(a(1)) :x=1pa:f$(x)=v$(x):x Dq=1pa:x=1pa Nq>pa4460l X(i$(q)=f$(x)v$(q)=f$(x):v(q)=b(x):q bx g!21,0;"PULSA ""5""" l5000:5900  v)q=1pa:ma=-1:x=1pa m(x)>mama=m(x):hf=x +x:a(q)=hf:b(hf)=m(hf):m(hf)=-2 q @:0,7;"ETAPA ";r''" GRAN PREMIO DE LA MONTAA": Ex=1pa:x+4,0;m$(a(x));"=";b(a(x));",puntos.":x 6n$(4)=m$(a(1)):p(4)=b(a(1)) x=1pa:f$(x)=m$(x):x q=1pa:x=1pa q>pa4570 (i$(q)=f$(x)m$(q)=f$(x):m(q)=b(x):q x !21,0;"PULSA ""5""" 5000:5900 :r H:0,0;" Final de la Vuelta Ciclista"'" Resultados"'' Z4,0;"Ganador de la Vuelta por puntos:"'n$(1);"=";p(1);",puntos" `7800x:7,0;;"Ganador de la Vuelta por tiempo:"'n$(5);"=";g$;",minutos" W10 ,0;"Ganador Sprints Especiales :"'n$(2);"=";p(2);",puntos" S13 ,0;"Ganador Metas Volantes :"'n$(3);"=";p(3);",puntos"  Y16,0;"Ganador Premio de la MONTAA :"'n$(4);"=";p(4);",puntos" !21,0;"Pulse ""5""" 5000:8100  ""1 * 4630 "5"5040  W(z/8)>719,0;"PUERTO";21,0;sa;" cat": =19,25;"PUERTO";21,25;sa;" cat": $d*16<213sa=3: "$d*16>262sa=1: ,sa=2:  !a(pa):b(pa):f$(pa,10 ): X1q=1pa:ma=2^42*:x=1pa bt(x)pa7200  (i$(q)=f$(x)t$(q)=f$(x):t(q)=b(x):q x !21,0;"PULSA ""5"""  5000:5900  * LG21,0;"Puntos=";h;" ";"Tiempo=";(til-tis);",segundos": Dfr=(b(a(x))/60<):tr=b(a(x))-(60<*fr):tr=tr/100d: (tr*100d=0g$=(fr)+".00": /(tr*10 )=tr*10 g$=(fr+tr)+"0": g$=(fr+tr): xIt=((p(5))/60<):tr=p(5)-(60<*t):tr=tr/100d 'tr*100d=0g$=(t)+".00": .(tr*10 )=tr*10 g$=(t+tr)+"0": g$=(t+tr): til=til+((zx*.5))  @`:70F,0:120x,0:0,70F:-120x,0:0,-70F J_80P,10 :100d,0:0,502:-100d,0:0,-502 Tl73I,3,2:187,3,2:73I,67C,2:187,67C,2 ^L125},70F:0Track-Info  R ,30:135,70F:0,30 h_35#,502:0,20:-80P,0:0,-20:35#,-502 rO170,160:30,0:-502,-60<:-15,0 |N170,150:10 ,0:-30,-40(:-8,0 M90Z,160:-30,0:502,-60<:15,0 L90Z,150:-10 ,0:30,-40(:8,0 $0,0;"Pulse ""5"""  *8000@:15,13 ;"GANADOR" 16,12 ;".tiempo."  19,11 ;n$(5)  5000 H8000@:15,13 ;"GANADOR";16,12 ;".puntos." ,19,11 ;n$(1):5000 lG8000@:15,13 ;"GANADOR";16,13 ;"sprints" v,19,11 ;n$(2):5000 K8000@:15,13 ;"GANADOR";16,11 ;"M. Volantes" ,19,11 ;n$(3):5000 !4G8000@:15,13 ;"GANADOR";16,13 ;"MONTAA" !>.19,11 ;n$(4):5000: #' #(Ptil=((65536*23674z\+256*23673y\+23672x\)/502) #)O7900:20,0;"Te la pegaste !!! (pulsa 5)" #-=11 ,w;1;a$:7500L:5000:4100 %#9540D%:x=144149 %&c=07 %0a:x+c,a:c:x %:"n",24+36$ %? 9400% %DD4,4,0,18,45-,33!,4,4 %EK0,124|,124|,124|,64@,64@,64@,64@ %FJ32 ,32 ,0,72H,180,132,32 ,32 %RK24,153,66B,126~,24,24,36$,66B %SE8,8,0,102f,153,0,8,8 %TG480,80P,80P,60<,0,120x,0,0 %09610%:x=13:a$:z$(x)=a$:x % 9620% % "SPRINT","M.VOLANTE","MONTAA" %29630%:x=16:d$:e$(x)=d$:x: %%""," "," "," "," "," " T c 220 hi m17,13 ;"JUEGA!" r w1,2;"ESTO ES MUY FACIL:";2,2;"TIENES QUE ORDENAR LAS LETRAS DE UN TABLERO,EN EL MINIMO NU- MERO DE INTENTOS POSIBLE.";6,1;"PARA ORDENAR,SOLO PUEDES MOVER LAS LETRAS,CAMBIANDOLAS POR EL ESPACIO EN BLANCO.";10 ,1;"UTILIZA LAS TECLAS DEL CURSOR. LA DIRECCION QUEPLUS3DOSx*OTHELLO -1985 Sn=021:n,8;1;" PARE LA CINTA ":.2~L,12 :n  "3,6;"O T H E L L O" 6:2:6 ,236099\,100d:23658j\,8  800  600X  7:0 =N=021:N,10 ;1;" UN MINUTO ":N #7200 :7300 ( 1000 XInstrucciones ]#"DESEAS VER LAS REGLAS (S/N) ";r$ br$"S"640 g01,8;1;" JUEGO DE OTHELLO " ly3,0;" PUEDES JUGAR CONTRA UN AMIGO ",," , CONTRA EL ORDENADOR,O VER ",," DEMOSTRACION. ",," EL JUEGO CONSISTE EN DEJAR ",,," EL MAYOR NUMERO DE FICHAS DE ",," TU COLOR. ",," PARA MOVER TIENES QUE PASAR ",," POR ENCIMA DE UNA FICHA DE OTRO",," COLOR.(es obligado comer) ",," PULSAR ENTER PARA PASAR. " {&#0;" PULSAR TECLA ":0   Variables "`s$(2,9 ):s$(1)="NEGRAS ":s$(2)="BLANCAS ":f1=1:f2=7 # d=0 %#y(p@)=((p-1)/8) *&x(p@)=(p-1)-y(p)*8 /Bc$(p+)=("A"+(p-2)-((p-1)/10 )*10 ) 4-r$(p+)=("0"+((p-1)/10 )) 9  DATOS JUEGO  tc=0 b"CUANTOS JUGADORES ?(1,2) Demostracion(3) ";j:j1j2j31030  "j=3d=1:1090B  d=0 B t=1 LHj=1"MUEVES PRIMERO ?(S,N) ";a$:a$="S"t=0:1200 t=t:fc=0 #j=23000 :1220 $d=02000+T*1000 d=12000 cg=25000 x(b(p)=t+1:7500L:7400 ,s(1)+s(2)=64@5100 tc=tc+1  1200 NEGRAS 8300l :8200 a=164@ Track-Info  R tc=0a=a+(*4) p=p(a):7000X fc21004 a  8000@  cg=cg+1: 4 8100 > cg=0 H BLANCAS .8300l :8200 :"COORDENADAS - ";a$ 21,0,, a$=""8000@:3200 a$23000 6x=a$(1)-"A":x<0x>73000 6y=a$(2)-"1":y<0y>73000 :p=(y+1)*10 +x+2:7000X:8100 Ufc=021,0;"NO ES POSIBLE.PRUEBE OTRO..":85004!:3000  cg=0  VERIFICANDO -21,0;1;"VERIFICANDO..." _a=60<1-1:p=p(a):7000X:fca:cg=cg+1:21,0,,: [21,0;1;"ERROR!";0;" PUEDES MOVER A ";c$(p);r$(p):85004! 3000 FINAL &20,0;"YA NO PODEMOS..." 21,0,, |s(1)=s(2)20,0;"TABLAS! QUIERES DESEMPATAR ?...":85004!:5200P -t=0:s(2)>s(1)t=1  8300l :8400 P("OTRA PARTIDA ? ";a$:a$="S"3 Ua$"N"5200P Z: b fc=0 lb(p) vi=18:mc=0 +xp=p+i(i):b(xp)(t)+17100 Hmc=mc+1:t(fc+mc)=xp:xp=xp+i(i):b(xp)=(t)+17050 b(xp)t+1mc=0  fc=fc+mc i   INICIALIZA *4b(100d):i(8):t(30):p(64@) 4 7240H >Gx=164@:p:p(x)=(y(x)+1)*10 +x(x)+2:x H81,491,5,17,18,6,502,2,513,579,41),33!,34",42*,58:,524,7,43+,13 ,25,26,14,44,,8,19,35#,27,61=,62>,28,36$,20,21,37%,29,63?,64@,30,38&,22,9 ,45-,15,31,32 ,16,46.,10 ,535,59;,47/,39',40(,480,60<,546,3,557,11 ,23,24,12 ,568,4 Rx=09 :b(x+1)=9 :b(91[+x)=9 :b(10 *x+1)=9 :b(10 *x+10 )=9 :x \Tb(45-)=1:b(46.)=2:b(557)=2:b(568)=1 f(7285u:x=18:i(x):x uI-11 ,-10 ,-9 ,-1,1,9 ,10 ,11 w 9500% z  TABLERO :6:x=031:1,x;" ":x:x=16:9 ,x+19;" ";13 ,x+19;" ":x:9 ,26;" ";17,22;" ":4:y=419:y,1;" ":y 5:y=4164:x=113 4:y,x+2;" ";y+1,x+2;" ";y+2,x;" ";y+3,x;" ":x:y:7 $3,1;"A B C D E F G H" 4y=18:3+y*2,0;y:y FICHAS  s(2) y=4182:x=1152:z=b(((y-4)/2+1)*10 +(x-1)/2+2):z(f2*(z-1)+f1*(2-z));8;y,x;"";y+1,x;"";y+1,x+1;"";y,x+1;"":s(z)=s(z)+1 x:y Iz=12:0,16*(z-1);s$(z);" ";s(z);" ":z 6d=11,10 ;1;"DEMOSTRACION" B L ACTUALIZA V$f=1fc:b(t(f))=t+1:f ` @;12 ,20;1;"PASAN ":.2~L,20: T12 ,20;"MUEVEN";16,22;c$(p);r$(p):.25~,30: K12 ,20;"JUEGAN";16,22;" ":.25~,10 : l#8,20;s$(t+1): L12 ,20;1;"GANAN ";16,22;" ":85004!: !42ep=*10 :x=ep30:.015zu\,ep:x: % GRAFICOS %! 9515+% %&<X=144148:S=07:A:X+S,A:S:X %+m0,0,3,15,31,31,63?,63?,0,0,192,240,248,248,252,252,63?,63?,31,31,15,3,0,0,252,252,248,248,248,192,0,0,0,60<,126~,126~,126~,126~,60<,0 %0 1*.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;PLUS3DOSe.--0A....  J.G.E. ......... ....~~~~~~~~~~.........  0:4:4:  a$=" 23456789JQKA":b$="" !x="a""a"+39':a:x,a:x x1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:0: :"A PARTIR DE QUE CARTA",CARD:CARD=1CARD=2 |152,164,164,164,164,164,164,152,0,568,568,16,214,254,214,16,0,16,568,124|,254,124|,568,16,108l,254,254,124|,124|,568,16,0,0,16,568,124|,254,254,214,16 hC$(9 ,16):z$(5,3):a(535):b(5):C(5):X(5):Y(5) (C$(1)="PAREJA DE":C$(2)="DOBLE-PAREJA ":C$(3)="FIGURAS ":C$(4)="TRIO DE":C$(5)="ESCALERA AL":C$(6)="COLOR ":C$(7)="FULL DE":C$(8)="POKER DE":C$(9 )="ESCALERA-COLOR AL" c,:ap=0:SX=1000:SY=1000 iIsX09 ,16;1;"HAS PERDIDO":0:99c jHSY09 ,16;1;"He PERDIDO":0:99c ss5,16;"TIENES ";SX;"$ ";16,16;"TENGO ";SY;"$ ";11 ,16;"APUESTA ";ap;" " x013 ,16;" PULSA TECLA ":0 1ap=ap+100d:sx=sx-502:sy=sy-502 t21,16;" ";0,15;" ";13 ,16;" " s5,16;"TIENES ";SX;"$ ";16,16;"TENGO ";SY;"$ ";11 ,16;"APUESTA ";ap;" " Gx=110 :7;4;x,0;" ":x Hx=12 21:7;4;x,0;" ":x ^4,87W:116t,0:0,81Q:-116t,0:0,-81Q ]4,0:116t,0:0,80P:-116t,0:0,-80P ?x=1967C16:x,87W:0,80P:x >x=1967C16:x,0:0,79O:x qZ=1:X=14:y=CARD14:A(Z)=X*100d+Y:Z=Z+1:Y:X:Z=4*(15-CARD) ESP=1:x=15:1100L:1200:X(X)=B(X):x 6:SP=12 :x=15:1100L:Y(X)=B(X):x @#X=15:Z$(X)=Y(X):X T,X=15:B(X)=Z$(X,2):X Xy=14:x=14:b(x)>b(x+1)b=b(x):b(x)=b(x+1):b(x+1)=b:B=Z$(X,1):Z$(X,1)=Z$(X+1,1):Z$(X+1,1)=B Yx:y ^:X=15:Y(X)=Z$(X,1)*100d+B(X):X c CO=0 hZ$(1,1)=Z$(2,1)Z$(2,1)=Z$(3,1)Z$(3,1)=Z$(4,1)CO=1:co1=5: iZ$(5,1)=Z$(2,1)Z$(2,1)=Z$(3,1)Z$(3,1)=Z$(4,1)CO=1:co1=1: jZ$(1,1)=Z$(2,1)Z$(2,1)=Z$(3,1)Z$(3,1)=Z$(5,1)CO=1:co1=4: kZ$(1,1)=Z$(2,1)Z$(2,1)=Z$(4,1)Z$(4,1)=Z$(5,1)CO=1:co1=3: lZ$(1,1)=Z$(3,1)Z$(3,1)=Z$(4,1)Z$(4,1)=Z$(5,1)CO=1:co1=2: q ES=0 rtB(1)+1=B(2)B(2)=B(3-1)B(3)=B(4)-1ES=1:ES1=5 sB(1)+1=B(2)B(2)=B(3-1)B(3)=B(4)-1B(1)>CARDB(4)<15ES=2:ES1=5 wtB(2)=B(3-1)B(3)=B(4)-1B(4)=B(Track-Info  R 5)-1ES=1:ES1=1 xB(2)=B(3-1)B(3)=B(4)-1B(4)=B(5)-1B(2)>CARDB(5)<15ES=2:ES1=1 Ex=15:Y(x)=z$(x,1)*100d+b(x):b(x)=y(x):x -1300:A6s=0:500 "<.1}Ls=0:500 a<5420 "co=0s=0:500 *>1/20s=0:500 &c(1)=co1:s=1:490 a<4430 ".2~LS=1:490 RC(1)=1C(2)=2:C(3)=3:S=3:490 >C(2)=1:C(3)=2:S=3:490 A=0470 =CO=1ƥ<.1}LS=1:C(1)=CO1:490 @ES>0ƥ<.1}L*ESS=1:C(1)=ES1:490 -0ƥ<.2~L*ESS=1:C(1)=ES1:490 oS=5:C(1)=1:C(2)=2:C(3)=3:C(4)=4:C(5)=5 SX520  ap=ap+apx Msx=sx-apx:11 ,16;"APUESTAS ";AP;"$";5,23;SX;" " ?rd=(2*a+5)/10 -card/100d-apx/3000 V>RD21,16;1;" NO LO VEO ":SX=SX+AP:ap=0:100d &x=1100d:21,18;1;" LO VEO ":x:SY=SY-APX:16,23;SY;" ":AP=AP+APX:11 ,25;AP Ng0,18;" ":V=1100d:21,16;"CAMBIO ";S;" ":V O<SP=12 :R=1S:X=C(R):1100L:Y(X)=B(X):R X.......CAMBIO2........ Y!X=15:B(X)=X(X):X Z-0,18;1;" CAMBIA " [F0:=" "S=15:C(S)=S:S:S=S-1:650 \="p"670 ]D$= ^:D$<491ůD$>535.3,-20:603[ `s=15 b C(S)=D$ gb7;1,1+2*(C(S)-1);" ";2,1+2*(c(s)-1);" " l"0:D$=:D$=" "650 qAd$="e"SP=1:x=15:1200:x:600X v:D$<491ůD$>535.3,-20:620l y"R=1S:C(R)=D$620l R:S 60,18;" ":.3,10 <SP=1:r=1S:X=C(R):1100L:1200:R !X=15:X(X)=B(X):X .sp=12 :X=15:B(X)=Y(X):X  1300 APX=0:APY=0 Ird=-.2~L+(2*a+5)/10 -card/100d-apx/3000 60,18;1;" APUESTAS ":0 4"s"APY>0SY=SY+AP:AP=0:100d !"s" ƥ>rd-.1}L900 "s"800  40,18;" ":"APUESTA ?",APX APX>SX765 Xap=ap+apx:sx=sx-apx:11 ,16;"APUESTAS ";AP;"$";5,23;SX;" " APX=APY900 *APXRD21,16;1;" NO LO VEO ":SX=SX+AP:ap=0:100d >rd-.1}L21,16;1;" LO VEO ":SY=SY-APX:16,23;SY;" ":AP=ap+APX:11 ,25;AP:900  apy=10 *(*40(*rd) %Yapyapxsx=sx+ap:ap=0:21,16;1;" NO LO VEO ":100d *<21,16;1;" ";APX;" Y ";APY-APX;" MAS " /0sy=sy-apy:ap=ap+apy:apy=apy-apx:apx=0 1C11 ,16;"APUESTAS ";AP;"$";16,23;SY;" " 4 750 kSP=12 :X=15:b(x)=y(x):1200:X:1300:AX=A:BX=B:SP=21:1900l !x=15:B(X)=X(X):X $1300:SP=0:1900l 'AX>ASY=SY+AP:ap=0:999 'A>AXSX=SX+AP:ap=0:999 a=6100d 'bX>bSY=SY+AP:ap=0:999 'b>bXSX=SX+AP:ap=0:999  100dTrack-Info  R  K....CARTAS........ LA=(*z)+1 W b(x)=a(A) aB=Az:a(B)=a(B+1):B k z=z-1  Z$(1)=b(x) 'z$(1,1)22 'z$(1,1)>20 7;SP,1+2*(x-1);a$(z$(1,2));SP+1,1+2*(x-1);b$(z$(1,1)) rx=5SP+8,14;7;a$(z$(1,2));SP+9 ,14;b$(z$(1,1))  0  ......COMPROBACION....  A=0 #x=15:z$(x)=b(x):x (z$(1,1)=z$(2,1)z$(1,1)=z$(3,1)z$(1,1)=z$(4,1)z$(1,1)=z$(5,1)a=6 2,x=15:b(x)=z$(x,2):x b(x+1)b=b(x):b(x)=b(x+1):b(x+1)=b Fx:y Pb(1)=b(2)-1b(2)=b(3)-1b(3)=b(4)-1b(4)=b(5)-11450 Z$B(1)B(2):1400x _HB(3)=B(4)B(2)=B(3)A=8:B=B(1): dVB(2)=B(3)B(4)=B(5)A=7:B=B(1):C=B(4): iVB(3)=B(4)B(4)=B(5)A=7:B=B(3):C=B(1): meB(2)=B(3)A=4:B=B(1):S=2:C(1)=4:C(2)=5: n0B(1)>10 A=3:B=B(5): pTb(3)=b(4)a=2:B=B(4):C=B(1):C(1)=5: qTb(4)=b(5)a=2:B=B(4):C=B(1):C(1)=3: sWA=1:B=B(1):C(1)=3:C(2)=4:C(3)=5: x#B(2)B(3)1430 }HB(3)=B(4)B(4)=B(5)A=8:B=B(2): eB(2)=B(4)A=4:B=B(2):S=2:C(1)=1:C(2)=5: 0B(1)>10 A=3:B=B(5): TB(4)=B(5)A=2:B=B(5):C=B(2):C(1)=1: WA=1:B=B(2):C(1)=1:C(2)=4:C(3)=5: {B(3)=B(4)B(3)=B(5)A=4:B=B(3):S=2:C(1)=1:C(2)=2: 0B(1)>10 A=3:B=B(5): nB(4)=B(5)A=1:B=B(4):C(1)=1:C(2)=2:C(3)=3: nB(4)=B(3)A=1:B=B(4):C(1)=1:C(2)=2:C(3)=5: b=b(5)  &b=b(5):A=6A=9 :  A=5: k.....RESULTADOS....... v&A=0SP,16;"NADA ";: SP,16;C$(A); $S=117:C$(A,S)" "S R=S+19 a=3a=6SP,R;: ,a=2SP,R-3;a$(b);"-";a$(c): &a=7SP,R;a$(b);" Y ";a$(c):  SP,R;a$(b)  'Ard=.25~+(a+b/502)/8-card/35#-ap/3000 '  '-:"POKER"9999':"POKER""a",40( ' """a": ;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-1PLUS3DOSVVC23658j\,8 o1:6::0:1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: kA=07:B:"H"+A,B:A:126~,0,98b,82R,74J,70F,66B,0  6000p Y10 ,3;"EL ORDENADOR ES BANCA";12 ,3;" RICARDO GOMEZ 1984 " ;"INTRODUZCA EL NUMERO DE JUGADORES HASTA 10 MAX.";J: J<1J>10 6 N$(J,30):A=1J 421,0;"INTRODUZCA EL NOMBRE N ";A N$(A) /A*2,0;A;A*2,2;N$(A) 3T=1̱N$(A)-A*3+3:.1}L,T:T A P(J) B:20,4;"INTRODUZCA EL DINERO QUE TIENE LA BANCA":B #%B<1B>1000000t$30 (C(J) 2D(J) d X(40() n%A=140(:X(A)=1:A x I=1 $U=0Track-Info  R :K=10 :L=1: I>J1000 O=(*40()+1 .3,O X(O)=0135 *0,5;"JUGADOR ";I;" ";N$(I) W7;1;K,L;M$(O);K+1,L;" ";K+2,L;" ";K+3,L;W$(O) .2~L,K X(O)=0 LU=0" APUESTA ";P(I):P(I)0P(I)>100000CP180 #20,1;"APUESTA=";P(I) U=U+1 D(I)=D(I)+V(O) <18,1;"PUNTOS=";" ";18,8;D(I) D(I)>7.5pI=I+1:17,10 ;1;"TE HAS PASADO";0;21,0;"PULSE UNA TECLA PARA CONTINUAR":.2~L,-30:0:129 0D(I)7.5p"C CARTAS P PLANTARSE ";E$ E$="C"L=L+4:130 E$="P"I=I+1:129 E$"P"E$"C"190 4:0,3;"AHORA ES EL TURNO DE LA BANCA"  F=0 K=10 :L=1 O=(*40()+1  .25~,O X(O)=01010 W7;1;K,L;M$(O);K+1,L;" ";K+2,L;" ";K+3,L;W$(O) X(O)=0  F=F+V(O) $$F<6L=L+4:1010 )918,1;"PUNTOS=";" ";18,8;F .F6F7.5p17,10 ;1;"ME PLANTO";0;21,0;"PULSE UNA TECLA PARA CONTINUAR":.2~L,25:0::2000 8F>7.5p17,10 ;1;"ME HE PASADO";0;21,0;"PULSE UNA TECLA PARA CONTINUAR":.4L,-30:0::2000 50,0;"NOMBRE PTOS. DINERO RESULTADO" .1}L,9  A=1J .1}L,A*5 >A*2,0;N$(A)(10 );A*2,11 ;D(A) MD(A)FF7.5pA*2,25;"PIERDES":B=B+P(A):C(A)=C(A)-P(A) ID(A)>7.5pA*2,25;"PIERDES":B=B+P(A):C(A)=C(A)-P(A) SD(A)7.5pF>7.5pA*2,25;"GANAS":B=B-P(A):C(A)=C(A)+P(A) ND(A)7.5pFa21,0;"BANCA";21,11 ;F;21,16;" ";21,16;B A kB020,0;"SE ACABO EL JUEGO LA BANCA LO PERDIO TODO.RUN OTRO JUEGO"::2201 &"PULSE S PARA SEGUIR,P PARAR";Y$ Y$="S"2500  Y$="P" Y$"S"Y$"P"2210 A=1J D(A)=0 A %A=140(:X(A)=1:A 110n  pA=07:B:"A"+A,B:A:60<,66B,155,189,189,155,66B,60< mA=07:B:"B"+A,B:A:0,126~,126~,60<,24,24,126~,0 kA=07:B:"C"+A,B:A:1,3,6,140,88X,480,80P,232 oA=07:B:"D"+A,B:A:15,31,31,63?,60<,120x,112p,192 kA=07:B:"E"+A,B:A:0,94^,210,82R,82R,82R,94^,0 kA=07:B:"F"+A,B:A:0,36$,108l,36$,36$,36$,36$,0 kA=07:B:"G"+A,B:A:0,76L,210,66B,68D,72H,94^,0 eA=07:B:"I"+A,B:A:0,4,10 ,4,0,0,0,0 BARAJA M$(40(,3) W$(40(,3)  V(40() A=140(  MA=1A=11 A=21A=31M$(A,1)="1":V(A)=1  MA=2A=12 A=22A=32 M$(A,1)="2":V(A)=2  MA=3A=13 A=23A=33!M$(A,1)="3":V(A)=3 MA=4A=14A=24A=34"M$(A,1)="4":V(A)=4 MA=5A=15A=25A=35#M$(A,1)="5":V(A)=5 MA=6A=16A=26A=36$M$(A,1)="6":V(A)=6 MA=7A=17A=27A=37%M$(A,1)="7":V(A)=7 KA=8A=18A=28A=38&M$(A,1)="":5300 KA=9 A=19A=29A=39'M$(A,1)="":5300 (LA=10 A=20A=30A=40(M$(A,1)="":5300 24((A-1)/10 )=0M$(A,3)="" 34((A-1)/10 )=1M$(A,3)="" 44((A-1)/10 )=2M$(A,3)="" 54((A-1)/10 )=3M$(A,3)="" KW$(A,3)=M$(A,1Track-Info  R ) LW$(A,1)=M$(A,3) PA  :5 V(A)=0.5: p|0,3;1;2;" JUEGO DEL SIETE Y MEDIO ";0;2,10 ;7;1;"INSTUCCIONES" z24,4;"SE JUEGA CON BARAJA ESPAOLA." >" ACEPTA HASTA 11 JUGADORES, UNO DE ELLOS ES LA BANCA." " LA BANCA JUEGA SOLA." " EL JUEGO TRATA DE QUE EL JU- GADOR TIENE QUE SUPERAR A LA BANCA, SI NO PIERDE LA CANTIDAD APOSTADA,LA CUAL SE LLEVA LA BANCA." K" SI SE PASA DEL 7.5 LA CANTI- DAD DE LA APUESTA PASA A LA BANCA." d" EL VALOR DE CADA NAIPE ES EL QUE INDICA ,ESCEPTO EL 10 ,11 Y 12 QUE SU VALOR ES MEDIO PUNTO."  5000 '"7,5"1 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 ,127PLUS3DOSb)((+DIBUJO DE CIRCUITOS ELECTRICOS.V.S.-1985. o7:7:0::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: '39500L:9000(#:8100: I23658j\,0:236099\,100d:"PAPEL= ";p," TINTA= ";i: p>7i>78 "POSICION INICIAL: X- ";x "POSICION INICIAL: Y-";y #x>255y>17510 p:i:p: x,y s=1:g=1 &0,0;0;",";0  8000@ m$="" m$= (m$"5"m$"8"(m$-3)*100d .m$"5"m$"8"60< 2.557:z=115:u$,u:u$=m$u 4z 7"f",6500d,"b",5500|,"s",6000p,"i",3500 ,"p",1000,"",20,"c",2000,"r",2500 ,"t",3000 ,"d",4000,"n",1500,"m",4500,"g",7000X,"e",7500L,"x",9100# <a,b >s=064@ @^x=255m$="8"x=0m$="5"y=175m$="7"y=0m$="6"s=0:20 Ax=x+a Cy=y+b D'0;0,0;" " E#0;0,0;x;",";y Fg=1a,b:75K K s=1 P 20 -1,0 ,0,-1 0,1 1,0 " COORDENADA X =";x " COORDENADA Y =";y x,y:20 "g=1g=0:1510 g=0g=1:x,y /.2~L,10 :5:.2~L,20  20 ,"HORIZONTAL-h O VERTICAL-v";k$:8000@ :"ELECTROLITICO (s/n)";z$:8000@:z$="s"21004 4"VARIABLE (S/n)";z$:8e3@:z$="S"2050 ߆k$="h"0,8:0,-16:x=x+6:y=y-8:x,y:0,16:0,-8:y=y+8:20 k$="v"-8,0:16,0:y=y+6:x=x+8:x,y:-16,0:8,0:x=x-8:20  2005 k$="h"x-4,y-8:14,16:0,-2:0,2:-2,0:2,0:x,y:2015  k$="v"x-6,y-4:16,14:-2,0:2,0:0,-2:0,2:x,y:2020  2010 46"PRIMERO EL POSITIVO O NEGATIVO (p/n)";z$:8e3@ > k$="v"z$="p"8,0:-16,0:0,3:16,0:0,-3:x,y+6:-8,0:16,0:0,1:-16,0:0,1:16,0:-8,0:y=y+9 :20 Hk$="v"z$="n"8,0:-16,0:0,1:16,0:0,1:-16,0:x,y+6:-8,0:16,:0,3:-16,0:0,-3:0,3:8,0:y=y+9 :20 Rk$="h"z$="p"0,8:0,-16:3,0:0,16:-3Track-Info  R ,0:x+6,y:0,80,-16:1,0:0,16:1,0:0,-16:0,8:x=x+9 :20 \k$="h"z$="n"0,8:0,-16:1,0:0,16:1,0:0,-16:x+6,y:0,8:0,-16:3,0:0,16:-3,0:3,0:0,-8:x=x+9 :10 a 2007 ,"HORIZONTAL-h O VERTICAL-v?";k$:8e3@ "VARIABLE (s/n)";z$:8e3@ z$="s"2700 ήk$="h"0,4:18,0:0,-8:-18,0:0,4:0,-4:18,0:0,4:x=x+18:20 خk$="v"4,0:0,18:-8,0:0,-18:4,0:-4,0:0,18:4,0:y=y+18:10 2500 k$="h"-3,3:3,-3:-3,-3:3,3:0,8:0,-16:6,0:0,16:-6,0:3,0:y=y+8:x=x+3:10 k$="v"-3,-3:3,3:3,-3:-3,3:8,0:-16,0:0,6:16,0:0,-6:0,3:x=x+8:y=y+3:20 2505 ,"TRANSISTOR pnp O npn (n/p)";z$:8e3@ `z$="n"x+6,y,8:x,y:2,0:0,5:0,-10 :1,0:0,10 :1,0:0,-10 :0,3:4,-4:0,1:0,-1:-1,0:1,0:-4,4:0,2:6,4:x=x+10 :y=y+4:20 `z$="p"x+6,y,8:x,y:2,0:0,5:0,-10 :1,0:0,10 :1,0:0,-10 :0,3:4,-4:-4,4:1,0:-1,0:0,-1:0,1:0,2:6,4:x=x+10 :y=y+4:20 3000 +"HORIZONTAL-h O VERTICAL-v";z$:8e3@ z$="h"2,0:7,0,:-2,0:7,0,:-2,0:7,0,:2,0:x=x+21:20 z$="v"0,2:0,7,:0,-2:0,7,:0,-2:0,7,:0,2:y=y+21:20 3500 +"HORIZONTAL-h O VERTICAL-v";z$:8e3@ B0,0;"PRIMERO CATODO (c) o ANODO (a) ";k$:8e3@ z$="h"k$="c"0,6:0,-12 :0,6:7,-6:0,12 :-7,-6:7,6:0,-6:x=x+7:20 z$="h"k$="a"0,6:0,-12 :7,6:-7,6:7,-6:0,6:0,-12 :0,6:x=x+7:20 ȵz$="v"k$="c"6,0:-12 ,0:6,0:-6,7:12 ,0:-6,-7:6,7:-6,0:y=y+7:20 ңz$="v"k$="a"6,0:-12 ,0:6,7:6,-7:-6,7:-6,0:12 ,0:y=y+7:20  4000 xb=21-((y/8)) yb=(x/8) 1,0;xb;",";yb xb,yb;p;" " ""QUIERES MODIFICAR MAS (s/n)";q$ q$="s"q$="S"4535 1,0;p;" "  g=0 8000@:20 "(5-6-7-8)";b$ b$"5"b$"8"4552  4535 1,0;xb;",";yb b$="5"yb=yb-1 b$="6"xb=xb+1 b$="7"xb=xb-1 b$="8"yb=yb+1 1,0;xb;",";yb  4510 |+"HORIZONTAL-h O VERTICAL-v";z$:8e3@ 5"PRIMERO ,POSITIVO O NEGATIVO (p/n)";k$:8000@ z$="v"k$="p"-7,0:14,0:x,y+3:3,0:-6,0:3,0:y=y+3:20 z$="v"k$="n"3,0:-6,0:x,y+3:-7,0:14,0:-7,0:y=y+3:20 z$="h"k$="p"0,7:0,-14:x+3,y:0,3:0,-6:0,3:x=x+3:20 z$="h"k$="n"0,3:0,-6:x+3,y:0,-7:0,14:0,-7:x=x+Track-Info  R 3:20  5500| p,"HORIZONTAL-h O VERTICAL-v";k$:8000@ z7k$="h"14,7:x=x+14:x,y:20 7k$="v"7,14:y=y+14:x,y:20  6000p d."HORIZONTAL-h O VERTICAL-v ?";k$:8000@ nk$="h"0,4:0,-8:1,0:0,8:1,0:0,-8:1,0:0,8:10 ,0:0,-8:-10 ,0:10 ,0:0,4:x=x+13 :20 xk$="v"4,0:-8,0:0,1:8,0:0,1:-8,0:0,1:8,0:0,10 :-8,0:0,-10 :0,10 :4,0:y=y+13 :20 } 65000 X2;9 ;"QUIERES GRABAR LA PANTALLA (s/n)?";w$ ]w$="s"w$="S"7020l b%w$="n"w$="N"8000@:20 g 7000X l"QUE NOMBRE QUIERES ?";n$ m"p:0,0;p;" " q"n$" v L#xb=21-((y/8)):xe=xb Qyb=(x/8):ye=yb V"t=22528X+((32 *xb)+yb) W;t<22528Xt>23295Z.1}L,5:7530j Xv=t [1xexbyeyb(22528X+((32 *xe)+ye)),v `xe=xb:ye=yb e-(22528X+((32 *xb)+yb)),v+64@ j;"(5-6-7-8-0)":0:z$= tz$="5"yb=yb-1 yz$="6"xb=xb+1 ~z$="7"xb=xb-1 z$="8"yb=yb+1 8z$="0"(22528X+((32 *xb)+yb)),v:7570  7510V g=0:"TEXTO ";d$  xb,yb;d$ 8000@:20 @B10 :#0;"C-R-T-D-I-S-B-F-P-M-N-G-E-X=MENU (5-6-7-8)" J ?0,7;1;1;" CIRCUITOS ELECTRICOS " h2,4;"CON ESTE PROGRAMA PODRAS DIBUJAR CIRCUITOS ELECTRICOS CON SEMICONDUCCTORES." $6,8;"--COMPONENTES--" 7,3;"C-Condensadores R-Resistencias T-Transistores (pnp)-(npn) D-Diodos I-Bobinas S-Contactos Reles B-Baterias F-Reles " ǽ15,3;"P-CAMBIAR COORDENADAS DIBUJO. M-MODIFICA DIBUJO. N-NO DIBUJA. N-DIBUJA. G-SALVAR PANTALLA. E-ESCRIBIR (0-TEXTO). X-MENU." 421,0;"TECLAS CURSOR PARA MOVIMIENTO." %#0;"PULSAR TECLA PARA SEGUIR" 0:20 ="x"Ŧ="X"8155  #( 90157# #-n=39501M39524d #2 a:n,a:n #733!,0,64@,17,44,,176,1,0,27,237,176,201,0,33!,44,,176,17,0,64@,1,0,27,237,176,201 #< #39501M # .1}L,5::8100 #:39514Z:x,y # 20 5Aů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;" GANADOPLUS3DOS  M{0:0:7::i=115:.5,i:1;10 ,10 ;"PARE LA CINTA":i::8000@ 23658j\,0 35000:#0;"PULSA UNA TECLA":0: record=0  n$="RECORD"  can=1 1000 dpantalla fGn=1920:n,0;"":n gF#0;0,22;" MANUEL";1,22;" ORCERA" hH18,0;5;0;"" iGn=02:15+n,0;" ":n j8n=10 17:n,25;4;"":n k8#0;0,10 ;n$;1,11 ;record l n camilla pY16,13 ;0;6;" ";17,13 ;0;6;"" r x salto zsh=30:sv=8 |U1:nTrack-Info  R =010 :sv,sh;"";sv+1,sh;"":.05|L,n:n:0 }!sv,sh;" ";sv+1,sh;" " ~= (sv+2,sh-1)=4sh=sh-1:125} Hsv,sh;" ";sv+1,sh;" ":sh=sh-1:al=.15~+(2*) an=08:sh=sh-al:sv-n,sh;" ";sv-n+1,sh;" ";sv-n+2,sh;" ":n sh=sh %0,sh;" ";1,sh;" " sv=0   par=0 camilla=110n punt=0 sal=120x  c=12 vivo=3000 muerto=4000 $pant=100d .puntu=3000 8a$="" Bb$="" r=110 pant  camilla sal  sv=sv+can Xsv-1,sh;" ";sv,sh;" ";sv+1,sh;" ";sv+2,sh;"";sv+3,sh;"" *c=c+(="p"c<19)-(="o"c>0)  +16,c;" ";17,c;" " sv142200 4 2030 nc+2=shc+3=shc=12 :punt=punt+1:n=02:.1}L,0:n:puntu:r c=12 :r punt=10 can=can+.5:par=par+10 :#0;0,0;" ";1,0;" ":1010 punt+par72340$ .23658j\,0 8:4000 punt N#0;0,0;a$(1punt);1,0;b$(1punt)   fin 2:n=030:n/7:0.01z# =,n:n 10:10 ,5;"Otra partida s/n ?" "="s":can=1:1000 ="n"4060  4030   4070 $" SUICIDAS ES UN JUEGO DE RESCATE"  U"TU OBJETIVO COMO BUEN CAMILLERO QUE ERES ES RESCATAR AL MAXIMO NUMERO DE HOMBRES"  ^"PUEDES MOVERTE HACIA LOS LADOS CON LAS TECLAS O & P (IZQUIERDA Y DERECHA RESPECTIVAMENTE)"   "SUERTE"   @428,62>,226,28,28,8,62>,61=,59;,39',30,12 ,12 ,502,126~,58:,136,199,75K,45-,22,24,36$,60<,60<,60<,24,19,14,7,7,2,60<,126~ J255,36$,38&,24,0,88X,60<,126~,255,36$,100d,24,0,26,91[,95_,96`,60<,16,60<,62>,44,,170,127,85U,42*,0,0,0,0,189,254,126~,170,0,0,0,0,218,250,6,60<,8,60<,124| TZ524,255,145,145,255,255,137,137,255 ^ 8000@ h#n="a""a"+87W:a:n,a:n: L=19:A$="PIERDE EL QUE NO PUEDA HACERLO":ROT (V#1;" PULSE UNA TECLA PARA DEMPLUS3DOS!  1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:1:0:4: 50:y=16:x=812 :2000 -y=20:x=13 15:2000 -y=36$:x=1620:2000 -y=35#:x=2124:2000 -y=36$:x=2526:2000 -y=37%:x=2729:2000 -y=38&:x=3034":2000 -y=39':x=35#38&:2000 -y=40(:x=39'43+:2000 -y=43+:x=44,45-:2000 -y=44,:x=46.47/:2000 -y=45-:x=480491:2000 -y=480:x=502524:2000 -y=491:x=535557:2000 -y=502:x=56859;:2000 -y=535:x=60<62>:2000 -y=546:x=63?65A:2000 -y=557:x=66B69E:2000 $70F,0:0,67C -y=66B:x=71G76L:2000 $77M,0:0,68D -y=67C:x=78N82R:2000 $83S,0:0,68D $84T,0:0,66B $85U,0:0,75K $86V,0:0,77M $87W,0:0,79OTrack-Info  R  $88X,0:0,81Q $89Y,0:0,87W $90Z,0:0,81Q $91[,0:0,79O !$92\,0:0,77M "$93],0:0,75K #-y=535:x=94^95_:2000 $-y=546:x=96`97a:2000 %.y=58::x=98b105i:2000 &%102f,59;:0,3 '/y=568:x=106j111o:2000 (/y=579:x=112p119w:2000 )/y=58::x=120x133:2000 */y=59;:x=134148:2000 +/y=60<:x=149160:2000 ,%161,0:0,77M -%162,0:0,78N .%163,0:0,79O /%164,0:0,79O 0%165,0:0,80P 1%166,0:0,80P 2%167,0:0,81Q 3%168,0:0,81Q 47y=80P:x=1691792:2000 57y=81Q:x=1701802:2000 6/y=60<:x=181184:2000 7/y=61=:x=185188:2000 8/y=63?:x=189192:2000 9/y=65A:x=193196:2000 :/y=64@:x=197201:2000 ;/y=66B:x=202205:2000 /y=535:x=218226:2000 ?/y=502:x=227228:2000 @%229,0:0,44, A%230,0:0,36$ B%231,0:0,35# C%232,0:0,34" D%233,0:0,33! E/y=32 :x=234238:2000 F/y=31:x=239246:2000 G/y=30:x=247255:2000 H 1 I$20,28:0,2 J$84T,61=:0,2 K$87W,71G:0,3 L$90Z,71G:0,3 M<6:1:x=-15+12815+128 N5y=(15^2-((x-128)*(x-128))) O"x,80P-y:0,y:0 P6y=-(15^2-((x-128)*(x-128))) Qx,80P-y:0,y:x RA$="  JUAN MONTOYA MOYANO" SI=021 T.7;4;I,0;A$(I+1) U.01z# =,I+5:I V90:4:1,7;" " W'2,7;" " X'3,7;" " Y'4,7;" " Z'5,7;" " [.1}L,-5 \S$="PROGRAMA NOTAS" ]P7,16-S$/2;6;1;1;S$:.1}L,20 ^F7;0;21,2;"Pulse una tecla para continuar" _:0:.1}L,-5:.1}L,5:2500 x,0:0,y:x: Đ1:6::2;1;5,11 ;"***********";7,11 ;"***********";1;6,11 ;" M E N U " B2;4;10 ,4;"GRAFICO DE ASIGNATURAS (A)" =2;4;12 ,6;"GRAFICO DE CURSOS (C)" =0;20,1;"Pulse la tecla correspondiente" %="A"Ŧ="a"2830 :2835 %="C"Ŧ="c"2985 :3500 2550 (,21,0;"Desea otro grafico S/N" 2="S"Ŧ="s"2500 12 2915c m:7;4;2,0;C$:.1}L,10 r("ASIGNATURA? (menos de 10 letras)";A$ wA$>10 2930r |D6Track-Info  R ;3;2,13 ;A$:.1}L,15:0 9"NUMERO DE ALUMNOS DEL CURSO ";AC:J=5:W=3 /3;7;J,30;AC:.1}L,-J 9"ALUMNOS CON MUY DEFICIENTE ";N:Q=20:3000 ,"ALUMNOS CON INSUFICIENTE ";N:3000 )"ALUMNOS CON SUFICIENTE ";N:3000 #"ALUMNOS CON BIEN ";N:3000 &"ALUMNOS CON NOTABLE ";N:3000 8"ALUMNOS CON SOBRESALIENTE ";N:3000 :2600( 1:0::3;0,24;"";1,24;"";2,24;"":.1}L,10 : ;J=J+2:3;7;J,30;N:.1}L,-J C=((100d*N)/AC) PI=32 32 +C:Q,I:6;27,0:.01z# =,-I/5:I _Q=Q+32 :4;1;1;4,W;C;"%":.1}L,C/10 :W=W+4: S1;6;1;0,1;"GRAFICO DE CURSOS":.1}L,0 |6:16,31:0,104h:163,0:0,-104h:-163,0:.1}L,5 J=1:S$="* % ALUMNOS *" I=5̱S$+4 B2;4;I,0;S$(J):.01z# =,-I:J=J+1:I L2;4;20,4;"S U S P E N S O S":.1}L,10 O6;2;18,2;" 0 1 2 3 +3 ":.1}L,15 (3620$:I=6162 .7B$:3;7;I,24;B$:.01z# =,-I:I B1"AL= "," 0= "," 1= "," 2= "," 3= ","+3= " L6"CURSO? (menos de 12 letras)";C$:.1}L,10 VC$>10 3660L `'7;4;2,2;C$ j9"NUMERO DE ALUMNOS DEL CURSO ";AC:J=6:W=3 t/3;7;J,27;AC:.1}L,-J ~6"ALUMNOS CON 0 SUSPENSOS ";N:Q=20:4000 )"ALUMNOS CON 1 SUSPENSO ";N:4000 *"ALUMNOS CON 2 SUSPENSOS ";N:4000 *"ALUMNOS CON 3 SUSPENSOS ";N:4000 ="ALUMNOS CON MAS DE 3 SUSPENSOS ";N:4000:2600( ;J=J+2:3;7;J,27;N:.1}L,-J C=((100d*N)/AC) OI=32 32 +C:Q,I:6;27,0:.01z# =,I/5:I _Q=Q+32 :4;1;1;4,W;C;"%":.1}L,C/10 :W=W+4: ,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,1PLUS3DOS"!!% MARTIN SAGUER DIAZ 1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:7:0:7:   236099\,10 23658j\,0 M.S.D. 10/3/84 SUBMARINO-II (F=020 2O0,F;" ";F,0;" ";20,F;" ";F,20;" " 7 7 9F <)8,2;"SUBMARINE ATTACK" A%10 ,4;"BY M.SAGUER" F 7 P 6000p b 5700D n'R=0:TO=30:EN=5000 POSICION NAVES 900 V=XY 900 H=XY 900 O=XY  900 E=XY $H-O=0V-E=0200  5500| "%H-O=0V-E=03250 ,314,24;1;7;"-verde" 6%D=((((H-O)*(H-O))+((V-E)*(V-E)))) | 1000 RADAR 414,14;"R":F=1100d:F V+2,H+11 ;"m" P=V-2V+2 W=H-2H+2 !P<1P>10 500 !W<1W>10 490 _1;6;P+2,W+11 ;"":.01z# =,4:V+2,H+11 ;"o" JP=EW=O1;6;P+2,W+11 ;"":.01z# =,30 )P+2,W+11 ;" ":10 W P #V+2,H+11 ;"o" Track-Info  R  RUTINA POSICION NAVES XY=(*10 )+1   SIN ENERGIA 5200P:2:1 Z=312 Z,12 ;" " Z Q7:6,23;EN;" TN.";18,10 ;"SIN ENERGIA!":0  2030  5200P $18,0;"D-disparar" F20,0;"M-movimiento";18,13 ;"cual? " ="d"1150~ #="r"400:EN=EN-100d ="m"1040 14,14;"R" Z7,2;D;" cuadr.";6,23;EN;" TN.";10 ,24;">";TO;" u " EN<10 950  1010  MOVIMIENTO SUBMARINO  5200P A19,0;"rumbo-grados=?";18,13 ;" " $R=1:L$ )B19,0;" ";V+2,H+11 ;" " ,%21,0;"MOV. rumbo= ";L$ .L=0360h 3'(L)=L$1095G 8L Bb1:21,12 ;L$:1,0:0:21,12 ;" ":1060$ GL=(L$):EN=EN-10 LM=L Q X=V:Y=H V 5000 [9EN<100d14,24;7;"-roja" ` V=X:H=Y jV+2,H+11 ;"o" oF=1502:F t 290" yDISPARO SUBMARINO ~ 5200P iTO=010 ,24;1;">";TO;" u ":18,2;"No hay torpedos!":2030 *18,0;"orientacion disparo:" R=0:I$ I=0360h (I)=I$1195 I a1:18,21;I$:1,0:0:18,21;" ":1180 EN=EN-10 I=(I$):18,21;I M=I TO=TO-1 719,24;"PULSA P":24;"DISPARO" "p"1240 519,24;" ":24;" "  A=1 5TO<214,24;7;"-roja"  X=V:Y=H  5000  A=A+1  A=31310  1270 K=Y (LL=X FK=OLL=E2000 P(DD=((((O-K)*(O-K))+((LL-E)*(LL-E)))) ZDD=121004 d 3000 x 5200P +18,5;"tiro errado " F=1100d:F  3106  CUENTEO  5200P UE+2,O+11 ;1;" ":18,7;"DESTRUCTOR HUNDIDO!" *:"PULSA C-CONTINUAR T-TERMINAR" ="c"EN=0110n ="c"EN>1200 ="t"2900T  2040  5200P 4Q18,0;"TOCADO!,DESTRUCTOR CON DANOS":E+2,O+11 ;" " C17,25;"_" H 2030 T ^<" DENTRO DE 10 SEGUNDOS....":" SE BORRARA EL PROGRAMA." cF=10 0-1 h10 ,14;F;" " m 30 rF 0 MOVIMIENTO DESTRUCTOR R=0:Y=O:X=E M=(*360h)+1 5000 O=Y:E=X CONTROL DISPARO DESTR. G=(*8)+1 &G=33130: 0 :DISPARO DESTRUCTOR DG=E-3E+3 NQ=O-3O+3 S.01z# =,60< X"G<1G>10 3210 b"Q<1Q>10 3200 llG=V+1G=V-1Q=H+1Q=H-114,24;7;"-roja ":EN=EN-500 vG=VQ=H3250 Q G 3106 7,1;"XXXXXXXXXX" 11 ,1;"XXXXXXXXXX" 12 ,1;"XXXXXXXXXX" 6,23;"XXXXXXXX" 10 ,24;"XXXXXX" 5F=312 :F,12 ;" ":F 5200P *14,24;7;"-roja " jE+2,O+11 ;"D";V+2,H+11 ;"X";18,0;"TOCADOS...SIN SALVAMENTO"  2030 SUBRUTINA MOVIMIENTO Q"norte","nordeste","este","sudeste","sur","suroeste","oeste","noroeste","norte" :J=1:K=22.54 F=0360h45- X$ M-KF5080  J=J+1 F ~R=112 ,1;" ";11 ,1;" ":12 ,1;X$;11 ,1;M;" grados" }X=X+1*(J=4)+1*(J=5)+1*(J=6)-1*(J=1)-1*(J=2)-1*(J=8) X<1X=1 X>10 X=10  }Y=Y+1*(J=2)+1*(J=3)+1*(J=4)-1*(J=6)-1*(J=7)-1*(J=8) Y<1Y=1 Y>10 Y=10 < PPANTALLA EN BLANCO ZTrack-Info  R F=1721 d$F,0;" " nF x 502  |PANEL SUBMARINO #23624H\,40(:5: ,"  " <" * RADAR * SUBMARINO CONTROL " (" " J"       " 6"    ENERGIA " 0" DISTANCIA   " B"     " 6"     " 0"   TORPEDOS " 4" RUMBO SUB.   " 4"     " 8"     " 6"     ALARMA " (" " ," RADAR   " (" M-84 " (" " V+2,H+11 ;"o"  Do5,22;"QUIERES";6,22;"INSTRUC-";7,22;"CIONES";9 ,25;"s/n ?" N="s"5730b X ="n" ] 5710N b l#7;" SUBMARINE ATTACK " v32,10 ;" MARTI-84":4,0; A$="En este juego te encuentras en un mar hostil a bordo de un sub-marino. Un destructor intentara destruirte si no lo hundes tu antes." F=1135 A$(F); .01z# =,0 F A$="En la pantalla aparecen los con-troles,radar,... En la zona in-ferior del display el ordenador de a bordo te pedira los movi- mientos para un final feliz!" : F=1156 A$(F); .01z# =,0 F : %"TE ATREVES A CORRER ESE RIESGO?": ,:"PULSA UNA TECLA PARA COMENZAR EL JUEGO" 0.1}L,-40( "" 0.1}L,-40(  5850 p GRAFICOS z"a"+0,00000000 "a"+1,00000000 "a"+2,00000000 "a"+3,00011000 "a"+4,00011000 "a"+5,00000000 "a"+6,00000000 "a"+7,00000000 "b"+0,00000000 "b"+1,01000010B "b"+2,00100100$ "b"+3,00011000 "b"+4,00011000 "b"+5,00100100$ "b"+6,01000010B "b"+7,00000000 8 EMBRE" 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$PLUS3DOS# # /0:1:6:1:1: d11 ,10 ;1;"STOP THE TAPE";21,4;0;"Press any key to continue" 0,0;" by Jose M. Albarran"::4;"Calculo de regresiones. Ajuste de curvas lineales, logaritmicas,exponenciales y potenciales" (2,15:0: -4"Vas a usar impresora ";v$:v$=045- .v$(1)="s"v$(1)="S"64973:64524 ,4:64519,1:64973:14;27;"-";1;" CALCULO DE CURVAS DE REGRESION" 2menu 7 <.2,4;"Que tipo de curva deseas?" F:4;"1.-Regresion lineal 2.-Regresion logaritmica 3.-Regresion exponencial 4.-Regresion potencial" P!::" Pulsa opcion deseada" Z-i$=:i$"1"i$"2"i$"3"i$"4"90Z d n opcion=i$ xopcion=1i$=" lineal" #opcion=2i$=" logaritmica" #opcion=3i$=" exponencial" !opcion=4i$=" potencial" :5;"Regresion";i$ d1;"Cuantos puntos tiene la nube de datos";1;"?";0;" ";n:n<2165 :"Calculo de regresion ";i$ a(n):b(n):x(n):y(n) :"Introduce los puntos por parejas":" x(i)","| y(i)":"-Track-Info  R         -------------------------------":132,0:0,140 K:27;"-";0:"DATOS DE ENTRADA"::27;"-";1;" X ";19;" Y " ):27;"1";27;"-";0;13;19;27;"-";1 i=1n )"x(";(i);")= ";a(i),"y(";(i);")= ";b(i) uopcion=2a(i)0"No existen logaritmos de numerosnegativo.Introduce un valor apropiado":210 topcion=3b(i)0"No existen exponenciales negativos.Introduce un valor apropiado":210 vopcion=4(a(i)0b(i)0)"No puedo trabajar con negativos Introduce valores positivos":210 " ";a(i),"| ";b(i) ;:2;a(i);9;19;12;b(i);:27;"-";0:8;19;27;"-";1 i 910 calculo de sumatorios sumx=0 0i=1n:sumx=sumx+x(i):i:sumatorio de x Isumy=0:i=1n:sumy=sumy+y(i):i:calculo de sumatorio de y "Msumxy=0:i=1n:sumxy=sumxy+x(i)*y(i):i:calculo sumatorio x*y ,Esumx2=0:i=1n:sumx2=sumx2+x(i)*x(i):i:sumatorio x^2 6calculo de coeficientes @+b=(n*sumxy-sumx*sumy)/(n*sumx2-sumx*sumx) Ja=(sumy-b*sumx)/n T%opcion=4opcion=3a=a ^expresion de la curva h m+v$="s"64519,0:64973 ra$=a:b$=b |'opcion=1f$=" "+a$+"+"+b$+"*x" $opcion=2f$=a$+"+"+b$+"*x" )opcion=3f$=a$+"*"+"("+b$+"*x)" #opcion=4f$=a$+"*"+"x^"+b$ [27;"2":"RESULTADOS:":27;"-";0:"Curva de regresion";i$:"f(x)=";f$ &:"La curva de regresion ";i$;" es:" " f(x)= ";f$ definicion de funciones f(x,)=f$ t$=" algun " 4"Deseas obtener";(t$);"valor de regresion? ";r$ ¯r$"s"¯r$"S"520 6t$=" algun ":"CALCULO DE VALORES DE REGRESION": "Que valor deseas x= ";x "x=";x,"f(x)=";f(x) .27;"-";0;"f(";x;") = ";f(x): t$=" otro ":470 dibujo de graficas   +opcion=1x0=127:y0=87W )opcion=2x0=1:y0=87W &*opcion=3x0=127:y0=1 0(opcion=4x0=1:y0=1 5!14;"GRAFICA DE LA CURVA" :scx=40(:scy=40( D"xmax=a(1):ymax=b(1) N"xmin=a(1):ymin=b(1) X i=1n ba(i)>xmaxxmax=a(i) la(i)ymaxymax=b(i) b(i)254x0+scx*xmin<1scx=scx/1.5@:670 Iy0+scy*ymax>174y0+scy*ymin<1scy=scy/1.5@:675  i=1n :x0+scx*a(i)-1,y0+scy*b(i)-1:2,2 ;x0+scx*a(i)-1,y0+scy*b(i)+1:2,-2 i >0,y0:255,0:x0,0:0,175  scx1=scx  scy1=scy -scx1<3scx1=10 *scx1:740 -scy1<3scy1=10 *scy1:745 4i=x0255scx1:i,y0+1:i,y0-1:i 3i=x00-scx1:i,y0+1:i,y0-1:i 3i=y00-scy1:x0+1,i:x0-1,i:i  4i=y0175scy1:x0+1,i:x0-1,i:i n=xmin-1  m=xmax+1 * h=.5 4%n=n*scx+x0:n1n=1.05fff >&m=m*scx+x0:m>255m=255 H x=nmh R;t=scy*f((x-x0)/scx)+y0:t>175t<0870f \$é(x,(t+.5))x,(t+.5) fx kv$(1)="s"65044:15;"****************************************************************************************************************" p"Deseas hacer otra?";r$ z¯r$="n"¯r$="N"9999'  502 2calculo x(i),y(i) segun el tipo de regresion +:11 ,10 ;1;" RUNNING "  i=1n &opcion=1x(i)=a(i):y(i)=b(i) 'opcion=2x(i)=a(i):y(i)=b(i) 'opcion=3x(i)=a(i):y(i)=b(i) (opcion=4x(i)=a(i):y(i)=b(i) i  s:";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