MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 23  AA  AA 0 AA 1 AB AB 0 AC 3AC 0 AD  !AD 0 "AE H#$%&'()*+BA ,BB -BB 0 ./BC 0BD e123456789:;<=BD 0 >BD 1 ?BE @ABCBE 0 DEBE 1 FPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "23" 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 23 (REVISTAS 89 a 92) 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,8;"A-Tron"  8,8;"B-Compresor" &9 ,8;"C-Sprite" 010 ,8;"D-7 * 7" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,8;"A-Interrup" 8,8;"B-Sprite I" 9 ,8;"C-Estadist" $10 ,8;"D-RTTY" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 23" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 89-92"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS5.(0:0:7:31999| "AA.0"32000},28640 "AA.1"5e4P,2464 ]f=23296[23317[:a:f,a:f:50008X,0:50009Y,64@:5e4P 23296[:46700l,7:34297,0:34298,0:34299,0:(23635S\+23636T\*256)+4,234 33!,0,64@,17,64@,156,1,0,27,237,176,201,17,0,0,1,0,1,205,185,131,201 "TR Proyet":p(10 ):a$(10 ,4):f=110 :p(f)=f*10 :f:f=19 2:a$(f)="RGM.":a$(f+1)="AGM.":f bc=34005Մ (%bcw#p!,~~&}ogBx888H !~O V~xɀ@ Ð&h)|Xg BC6-# Ð                   >$!~h>$!h>-!2~y Ò~(#### { N#F#^#V~Ð̀~~wÐ"@āɐ!# x !@~~# x Ð!uÐ!@X>$!~I>$!I>-!2~y Ò~(#### { N#F#^#V~Ð >$!~͞ >$!͞>- !2~x G̀~(####{ N#F#^#V~Ð >$! >$!~>- !2~x G̀~(####{ N#F#^#V~Ð[x2\>W{_ &o)))[6\~0 BK"#>_{_[{ SÐ"2x :G0ÐÐ!X~< >w# x ÐxGyOy2xGyÒ~ BKxƟGyƸO"  :O Ð͛"@~!>G͖!>͖! >G͖!͹͵͠}#|  x :\ Ͱ9TRPrograma realizado por:Juan Enrique Romero Moreno 1986N Xp N]2Є]2τ!>C͖=@~&.X"!"DŽ!"+"Ʉ"˄!"!O"ń!X"Ä͠xAO͠Kτ͠@~͠}*˄~#"˄| !"˄*ń"} K͵*Ä6K̀~̰K͠͠}!@4!7@4K>82\Ѓ:!τ #: SDŽ@ x *τ"B*"DK[xWy_S͠}*?͇:ʄ@Sʇ:Ʉʇ͠}[{ O[zOO6#6+$]2τ]2ЄKτ͠Kτ̀~ Kv\+-474A218͢-Cv\*Ʉ#"Ʉ!VKDŽ x(6,6PREPARATE PARA CORRERKDŽ CDŽx@~Ͱ !>͖͹=/ІͲKɄFIN DE JUEGOK̀~K̀~K ̀~K ̀~> !O"ńS!X"Äͥ> !0"ńS!X"Äͥ> !ق"ńS!X"Äͥ>!"ńS! X"Äͥ >2~~!͵?#}P G???? 0񇇇OxA 0p@=&o))) [~#[SÐTrack-Info  R PLUS3DOS  P>!x@~( #z[ #Fx#~Ð 8@>~~888d@@@ <dddT@||?~~TTT%8'9L@@@?~~LLL;8@@@ <888 )~>@~#@MCQ@B@?x ????% `??N ?? l? ??^&? O4?  6I??? ? ????A? | ![~ N F ^ V!aR8͖ADIRECCION DEMASIADO BAJA!`i+"WB!R"QBYP>7+"TB͢A6+[WBRDM[QBSTB*QB%B"[SB!RT]s#r͑A͖ADIR. ORIGEN: K [͈A͖A LONGITUD: K [͈A͑A͖A DIR. COMPRIM: K[͈A͖A LONGITUD: *TB#[[RDMC[͈A͎A͖A ,,DEJAR {S-L-D} [>O@>Track-Info  R OW +--͑A~#("OBx y0YM~ݾ( x(@+~ݾ + x y(~ݾ(z> 9{>02T]x z> >w+s+W(r+*OB~w++z T]zBw+s+W(r+~w++ x¢A!~+N+W(F+O #oB+PLUS3DOSe("a")=126~10  "AC.0""a" 19999':#0;"PULSA UNA TECLA":0 J:#0;" NUMERO DE PERSEGUIDORES ";:0:<"1"Ŧ>":"140 =tt=:#0;tt:vid=5:.07}\(,9 :0 IN=3:num=tt:23560\,0:23658j\,0:23692\,255:cos=0:m$="":v$="":h$="":KO=0:200 -F=0304.6333:.2~L,F:F CIC=500:1000 60:0:1:0::X(NUM):Y(NUM) `7;0,0;"CICLOS";5;" VICTORIAS";6;" OBJETOS";4;" VIDAS" PF=130+2*NUM:6;*20+1,*31;"":F aF=17+2*NUM:1;7;1;*20+1,*31;"":F XF=16+2*NUM:2;1;*20+1,*31;"":F XF=15+2*NUM:1;2;*20+1,*31;"":F bF=115+2*NUM:1;1;7;*20+1,*31;"":F XF=15+2*NUM:3;1;*20+1,*31;"":F lF=1NUM:Y(F)=(*19+3):X(F)=(*31+1):5;1;Y(F),X(F);"":F 40,0;" " BXM=2:YM=2:4;1;2,2;"": 123560\=0 6AYM=YM:AXM=XM @523560\="q"YM>1YM=YM-1:H$="" E23560\<":"ƾ23560\>"/"4;1;0,0;" P A U S A pulsa una tecla ":502:1,11 :0:0,0;" ":1500:s=110 :.01z# =,s:s: J623560\="a"YM<21YM=YM+1:H$="" T623560\="p"XM<31XM=XM+1:H$="" ^523560\="o"XM>0XM=XM-1:H$="" h923560\<60<ž23560\>198500 r"23560\<82R400 |-(YM,XM)0XM=AXM:YM=AYM:395 AYM,AXM;" " =23560\,0:0;4;1;YM,XM;H$: b23560\="Q"((YM-1,XM)=6ū(YM-1,XM)=79O)PASO=-1:450 a23560\="A"((YM+1,XM)=6ū(YM+1,XM)=79O)PASO=1:450 a23560\="P"((YM,XM+1)=6ū(YM,XM+1)=79O)PASO=1:470 b23560\="O"((YM,XM-1)=6ū(YM,XM-1)=79O)PASO=-1:470  .21~W =q,-10 :600X ²F=YM+PASO(2PASO=-1)+(20PASO=1)PASO:(F+PASO,XM)>64@F,XM;" ";8;1;F+PASO,XM;"":700:6;F+PASO,XM;"":600X !(F+PASO,XM)0600X C0;0;F,XM;" ";6;F+PASO,XM;"":F:600X ֲF=XM+PASO(1PASO=-1)+(30PASO=1)PASO:(YM,F+PASO)>64@YM,F;" ";8;1;YM,F+PASO;"":700:6;ym,f+paso;"":600X !(YM,F+PASO)0600X C0;0;YM,F;" ";6;YM,F+PASO;"":F:600X 23560\=""YM<21ƫ(YM+1,XM)=66;YM+1,XM;"":.01z# =,-20:cos=cos+1:.02{# =,-10 :ym+1,xm;" " 23560\=""YM>0ƫ(YM-1,XM)=66;YM-1,XM;"":.01z# =,-30:cos=cos+1:.02{# =,-15:ym-1,xm;" " 23560\=34"YM<31ƫ(YM,XM+1)=67;YM,XM+1;"":.01z# =,-20:cos=cos+1:.02{# =,-10 :YM,XM+1;" " 23560\=";"YM>0ƫ(YM,XM-1)=67;YM,XM-1;"":.01z# =,-27:cos=cos+1:.02{# =,-17:YM,XM-1;" " & .02{# =,-30:600X b#1500:23560Track-Info  R \,0: p23560\,0:s=1560<9.9fff:.03{u\,s:.02{# =,s-.73333:.032|n,s+1:s cos=cos+1: fq=1NUM:300,:1500:AX=X(q):AY=Y(q):(AY,AX)69EKO=KO+1:10808 IX(q)=X(q)+(XM>X(Q))-(XM6) IY(q)=Y(q)+(YM>Y(Q))-(YM5) x(q)=xm y(q)=ym1200  "(Y(q),X(q))01100L %21Y(q)Y(q)=AY %31X(q)X(q)=AX $"(Y(q),X(q))01100L .-AY,AX;" ";1;5;y(q),x(q);"" 3 300, 8$q: ko01035  V*in=4:X(Q)=AX:Y(Q)=AY:1070. 2:23692\,255:4;1;ym,xm;"":6;1;0,0;" TE COGIERON " 1,-34":vid=vid-1:vid>0s=120:4;ym,xm;"":20:4;ym,xm;"":.07}\(,-20:20:=""s vid>02025 Ĕ10 :1,-30:100d:4::''''" A D I O S ":s=0-40(-3:.03{u\,s:254,s:s:0: K7;21,0;"q ";q;" x ";x(q);" y ";y(q);" ";(y(q),x(q))  0,0;" ";0,20+vid;" ":7;0,0;CIC;5;0,5;m$(KO):CIC=CIC-1:6;0,15;cos;4;0,20;v$(vid) +cic<0.01z# =,-10 :0  ա1500:S=2065A7.8y:3:.05|L,S:3:.06|u\,S+1:254,S:3:S:6:6::''''" HENORABUENA " X'''" LO CONSEGUISTE EN "'500-CIC;" CICLOS "''" y has destruido ";cos;" objetos " ߀CIC>0COS>29M=(COS/20):''" TE CORRESPONDEN ";M;" VIDAS MAS ":VID=VID+M:;"LO QUE HACE UN TOTAL DE ";VID QVID>7VID=6:''"POR PASARTE TE QUITO DOS VIDAS":1,-24 5'''" Pulsa una tecla ":f=13:5:.1}L,0:f:2000:.07}\(,5:1,10 :150 #("Z. R. "1: '(0:4:4:0:: PLUS3DOS X~~Zf~ǟ~$~n~<~׫~~Ï~a  d-d-d<~Ù~<6d-d-d- lp>s8|f>>3w~~f-d-d-d-d-d-d-d-d-d-d-PLUS3DOS j j [ 49999O / CARGA LOS GRAFICOS EN LA DIRECCION 50100 "AD.0"50100 #m1;" PARA UTILIZAR ESTE PROGRAMA DEBEMOS TENER EN LA MEMORIA EL PROGRAMA SPRITE I DE LA CARA B " (VOLCADO DE DATAS 2$A=5E4P50099:B:A,B:A <NUMERO DE SPRITES F60305,2 PDIRECCION DE LA TABLA Z-60306,80P:603Track-Info  R 07,195 d#ACTIVAMOS LA OPCION DE SPRITE n60303,64@ xDATOS DE LA TABLA (84T,195,132,195 #DIRECCION INICIAL DE PANTALLA 23,7 DESPLAZAMIENTO DE X , Y 255,255 MAXIMA COORDENADA X , Y 30,17 MINIMA COORDENADA X , Y 1,2 FLAGS DE X , Y 240,240 &DIRECCION DEL CARACTER A DIBUJAR 244,195 "FRAMES DESPLAZAMIENTO X , Y 3,3 VELOCIDAD X , Y "5,5 ,)FRAMES ANTES DE CAMBIAR DE CARACTER 6 3 @FRAMES ENTRE CARACTER J 5 TNUMERO CARACTER ACTUAL ^ 2 h0NUMERO DE CARACTERES QUE SE SUCEDEN r 4 |+BASE TABLA DE DIRECCION DE CARACTERES 122z,195 #FLAGS QUE DESCRIBEN EL SPRITE  69E VPUERTO DE ENTRADA PARA EL DESPLAZAMIENTO MANUAL;DERECHA,IZQUIERDA,ARRIBA Y ABAJO A0,0,0,0,0,0,0,0 COLOR DEL SPRITE  0 COLOR DE PANTALLA  120x 3MASCARA DE CHOQUE ALTA RESOLUCION Y ATRIBUTOS 0,0 ,SUBRUTINA QUE SE LLAMARA SI HAY CHOQUE 0,0 FLAGS,DETENER Y BORRAR  0 TABLA DE CARACTERES &Q180,195,244,195,212,195,244,195 0- TABLA DE DATOS DEL SEGUNDO SPRITE :Q0,0,16,17,0,1,30,17,1,2,0,0,244,195,3,3,5,10 ,3,5,2,4,170,195,69E,0,0,0,0,0,0,0,0,0,120x,0,0,0,0,0 D&TABLA DE CARACTERES DEL SPRITE 2 NQ180,195,244,195,212,195,244,195 X0,0 PLUS3DOS<;wo??;7oo??;w?;;777340 h|p`|PLUS3DOS#2# 2# >0:0:7::9000(#:85004!:1 ;n=020:n,0;" ":n c0,175:167,0:0,-167:-167,0:0,167 c2,173:163,0:0,-163:-163,0:0,163 (n=15131-24:2,n:163,0:2,n+1:163,0:n-8,10 :0,163:n-7,10 :0,163:n -l1;2;4;1;9 ,9 ;" ";10 ,9 ;" ";11 ,9 ;" " 28n=1420:n,24;5;" ":n P\n=0:m=0:j=1:2500 :n=18:m=18:j=2:2500 Z%d1=(*6)+1:2007 d0,22;1;"JUGADOR 1";2,22;0Track-Info  R         ;c$(1);6,22;1;"JUGADOR 2";8,22;0;c$(2) nsj=1:v(2):h(2):v(1)=1:h(1)=1:v(2)=7:h(2)=7 c$(j)="SPECTRUM "j=1d1=(*10 )+5:#1;1;1,0;" ME TOCA A MI ":2007 c$(j)="SPECTRUM "j=2d1=(*10 )+5:#1;1;1,0;" ME TOCA A MI ":2007 *c$(j)"SPECTRUM "j=12000 *c$(j)"SPECTRUM "j=22000 *c$(j)="SPECTRUM "j=13000 *c$(j)="SPECTRUM "j=23000 ic$(j)"SPECTRUM "j=1#1;1,0;1;" DIRECCION? (5-6-7-8) P-pasar " ic$(j)"SPECTRUM "j=2#1;1,0;1;" DIRECCION? (5-6-7-8) P-pasar " =z$=:z$=""((z$<"5"z$>"8")(z$"p"z$"P"))1050 $.1}L,12 )z$="p"z$="P"4000 .Lz$="5"h(j)-d<1(h(j)-d=h(3-j)v(j)=v(3-j))1050 8Nz$="6"v(j)+d>7(h(j)=h(3-j)v(j)+d=v(3-j))1050 BLz$="7"v(j)-d<1(h(j)=h(3-j)v(j)-d=v(3-j))1050 LLz$="8"h(j)+d>7(h(j)+d=h(3-j)v(j)=v(3-j))1050 V@n=(v(j)-1)*3:m=(h(j)-1)*3:2500 `z$="5"h(j)=h(j)-d jz$="6"v(j)=v(j)+d tz$="7"v(j)=v(j)-d ~z$="8"h(j)=h(j)+d @n=(v(j)-1)*3:m=(h(j)-1)*3:2500 lv(j)=4h(j)=49 ,9 ;1;1;2;4;" ";10 ,9 ;" ";11 ,9 ;" ":5000 v"j=1j=2:1000 "j=2j=1:1000 G#1;1,0;1;"PULSA UNA TECLA PARA TIRAR DADO " ,d1=(*10 )+5:=""2002 ""2005 &o=1d1:d=(*6)+1 {d=15;0;15,25;b$(1);17,25;b$(3);19,25;b$(1) {d=25;0;15,25;b$(2);17,25;b$(1);19,25;b$(4) {d=35;0;15,25;b$(2);17,25;b$(3);19,25;b$(4) {d=45;0;15,25;b$(5);17,25;b$(1);19,25;b$(5) {d=55;0;15,25;b$(5);17,25;b$(3);19,25;b$(5)  {d=65;0;15,25;b$(6);17,25;b$(1);19,25;b$(6) .1}L,0:o  La$=""+22+(n+1)+m+" "+22+(n+2)+m+"" 1;n,m;a$ !n+1,m+1;1;j .1}L,7: Npasa=4:p$(4):p(4):o=14:p(o)=1000:o \h(j)-d>0(v(j)v(3-j)h(j)-dh(3-j))p$(1)="1":pasa=pasa-1 \v(j)+d<8(v(j)+dv(3-j)h(j)h(3-j))p$(2)="1":pasa=pasa-1 \v(j)-d>0(v(j)-dv(3-j)h(j)h(3-j))p$(3)="1":pasa=pasa-1 \h(j)+d<8(v(j)v(3-j)h(j)+dh(3-j))p$(4)="1":pasa=pasa-1 upasa=4#1;1;1,0;" PASO ":1.5@,12 :1910v ?p$(1)="1"p(1)=(v(j)-4)+(h(j)-d-4) ?p$(2)="1"p(2)=(v(j)+d-4)+(h(j)-4) ?p$(3)="1"p(3)=(v(j)-d-4)+(h(j)-4) ?p$(4)="1"p(4)=(v(j)-4)+(h(j)+d-4) Rz$="":p(1)p(2)p(1)>p(3)p(1)>p(4)p$(1)=" " XTp(2)>p(1)p(2)>p(3)p(2)>p(4)p$(2)=" " bTp(3)>p(1)p(3)>p(2)p(3)>p(4)p$(3)=" " lTp(4)>p(1)p(4)>p(2)p(4)>p(3)p$(4)=" " v/o=(*4)+1:p$(o)=" "3190v z$="5678"(o):1110Track-Info  R         V (h(j)-d>0(h(j)-dh(3-j)v(j)v(3-j)))(v(j)+d<8(h(j)h(3-j)v(j)+dv(3-j)))(v(j)-d>0(h(j)h(3-j)v(j)-dv(3-j)))(h(j)+d<8(h(j)+dh(3-j)v(j)v(3-j)))1050  1900l [n=-12 24:.01z# =,n:.01z# =,n+2:.01z# =,n+3:n:0: %9 ,6;"HA GANADO "+c$(j) P3,0,1,2,1,4,1,7,3,9 ,1,14,1,12 ,1,9 ,3,7,1,4,1,7,1,9 ,3,3,3,2,3,0,1,2,1,4,1,7,3,9 ,1,14,1,12 ,1,9 ,3,14,3,16,1,12 ,1,7,1,4,1,7,1,4,1,0,3,3,1.5@,2,1.5@,1,3,0,3,-17,3,-24 55020:n=136$:o,p:o/9 ,p:n %:#1;"CONTINUAS JUGANDO? s/n" -="s"Ŧ="S":8520H!:1:15 ="n"Ŧ="N"  5050 ^ 0:: !43:n=015:0,n+8:247,0:247-n,8:0,167:247,175-n:-247,0:0+n,175:0,-167:n:7:n=2264:m=2192:m,n;"7X7":m:n !6:0,6;3;6;" PERE SANCHEZ 1985" !>Z0:c$(2,10 ):c$(2)="SPECTRUM":"COMO TE LLAMAS? "'';c$(1) !Cb$(6,5):b$(1)=" ":b$(2)=" ":b$(3)=" ":b$(4)=" ":b$(5)=" ":b$(6)=" " !Hm0::t(2):0,0;"VAMOS A VER QUIEN EMPIEZA":n=1420:n,24;5;" ":n:d1=(*10 )+5:2007:2000:t(1)=d:5,0;"TU PUNTUACION ES: ";t(1):n=1150:n:d1=(*10 )+5:2007:t(2)=d:8,0;"MI PUNTUACION ES: ";t(2) !MSc$(2)"SPECTRUM "z$=c$(2):c$(2)=c$(1):c$(1)=z$ !Rst(1)>t(2)#1;1,0;1;" EMPIEZAS TU ":2,0:: !\t(1),239,219,254,31,568,249,225,241,237,69E Track-Info  R         PLUS3DOSuuX 59999_ "BB.0"60250Z .62463,199:62464,235 (60260d 2"" PLUS3DOSZ>>GV>G^>2!w" 2<< 9T ALARMA alarma ,@[@@, ddddd @ w!{~(*[>  = :[*|(Z:=2 Q:2#"[7R8*"*~0> o&)))*6\@!@>Nq# = !{n(!X~@wi*O\##s#rx_x  F(0N!(5!^ +C[~+!{~<ݾwݖw#:{!{F($[:~> :}> :|!{NV ^!|#: :2!{^V((! >Ek- %k:H\8!{V(!|:(=(s2!~݆ݾw864#!{f(G*""*">21 0 y񇇇*6\ O >w = vxFnf^#V#Jv~%N ͋N S%#+ͩ%F(%̋NSnݦ!ݾ"fn#f$5~w5 ~wfn^^#Vs r 5 ~w ^(2V ,N~ݦ(~ݦ~Dw~Dw~݆wݾ8-v(ݖݖw~Dwn(ݖw~wݾ~(ݖݖw~Dwf(ݖwݾ~wF(UN>ݖGn f ͥ~!xͱ"DG^#WF(S^##F(ٮwz#w{#w= N F͛Y^ V +VFN ͛ +^FN ͛ >wF(#wN(#w++ = FF(T~ͬ_~ͧͻ~ͬ_~ͧͻ~ͬ_~ͧͻ~ͬ_~ͧͻDǧ>ݖ^Xo&)))))V^ɶqF#qN(#q++ N bF(\#n(U: <2!d:\w#"++"5P(1*cѧR[*R0*:\w#":<2GPLUS3DOS`1DEMOSTRACION MENSAJES GIRATORIOS FA$="ESTO ES UNA DEMO DEL FUNCIONAMIENTO DE LOS MESAJES GIRATORIOS #" DIR=50000P A=1̱A$ ( B$=A$(A) 2 DIR,B$ <DIR=DIR+1 FA Z)A=(DIR/256):B=DIR-(A*256) d60316,B:60317,A n-60314,80P:60315,195 x,60318,10 :60319,10 -60308,81Q:60309,195 60303,10000000 PLUS3DOS&211t62975:23658j\,8:236099\,20:"BD.0"63232,770:"BD.1"64520,760 236077\,251:n$(40(,30):d(44,,7,5)::10 ,0;" Espera unos 27 segundos.":n=140(:i=17:o=15:d(n,i,o)=-1:o:i:n  M E N U  u:7,2;"Track-Info  R         ********** MENU ********** * * * 1.- Introducir lista. * * 2.- Introducir notas. * * 3.- Medias y D.T{picas.* * 4.- Evoluci^n gr~fica. * * 5.- Notas de un alumno.* * 6.- Corregir datos. * * 7.- Salvar en cinta. * * * **************************" (]n=9 15:n,4;1;n-8:8:a$=:a$>"0"a$<"8":60< 2#n,4;n-8:n:40( <:1000*a$:30  LISTA DE ALUMNOS  z7,5;"INTRODUCIR LISTA";10 ,5;"2.- Cargar desde cinta";11 ,5;"3.- Crear nueva lista" nn=10 11 :n,5;1;n-8:8:a$=:a$>"1"a$<"4":1000+100d*a$ %n,5;n-8:n:1020 G"` N]mero de alumnos ? ";alum:alum>40(alum<11200 10 ,5;"Pon la cinta en marcha":""n$()::10 ,5;"Correcto";12 ,5;"Espera un momento, voy a ordenar los nombres":1500:: G"` N]mero de alumnos ? ";alum:alum>40(alum<11300 n=1alum:"` Nombre del alumno ? "," ";n$(n):n:10 ,5;"Espera un momento, voy a ordenar los nombres":1500: Xn=1alum-1:m=n+1alum:n$(m)52020 2030:2040 :10 ,5;"1.- Primera";11 ,5;"2.- Segunda";12 ,5;"3.- Tercera";13 ,5;"4.- Cuarta";14,5;"5.- Quinta";15,5;"6.- Final";16,5;"7.- Septiembre": L"` N]mero de la evaluaci^n ? ";eval:eval<1eval>72040 :8000@+asig  (a$:1,(32 -a$)/2;a$ 5eval=63,12 ;"Final":21004  :eval=73,10 ;"Septiembre":21004 *&3,8;eval;"_ Evaluaci^n" >19,6;1;"No calificado: -1":n=1alum:21,0;n$(n):"` Cual es su nota ? ";d(n,eval,asig):n::  SACAR NOTAS Z  j" 1 Calcular medias y d.t{picas"," 2 Representar notas Z ";el:el<1el>23010 3010 +10 *el #:10 ,0;" Estoy calculando las medias y desviaciones t{picas, tardar\ unos segundos.":i=17:o=15:w=alum:media=0:n=1alum:W=W-(d(n,i,o)=-1):media=media+d(n,i,o)*(d(n,i,o)-1):n:w=w+(w=0):d(42*,i,o)=media/W Ѷvar=0:n=1alum:var=var+(d(n,i,o)-d(42*,i,o))*(d(n,i,o)-d(42*,i,o))*(d(n,i,o)-1):n:d(43+,i,o)=var/W:d(44,,i,o)=d(43+,i,o):o:i: Z:2010:"` N]mero de la asignatura ? ";asig:asig<1asig>53030 de=0:in=0:su=0:bi=0:no=0:so=0::2030:"` N]mero de la evaluaci^n ? ";eval::eval<1eval>73040 f10 ,10 ;" ESPERA ";11 ,10 ;" ";9 ,10 ;" " `n=1alum:d(n,eval,asig)-1d(44,,eval,asig)=d(44,,eval,asig)+(d(44,,eval,asig)=0):z=(d(n,eval,asig)-d(42*,eval,asig))/d(44,,eval,asig):de=de+(z<-1.95y):in=in+(z-1.95yz<-1):su=su+(z-1z<0):bi=bi+(z0z<1):no=no+(z1z<1.95y):so=so+(z1.95y) 6n::0,2;"Porcentaje de puntuaciones Z" @eval<62,5;"de la ";eval;"_ evaluaci^n de" :eval=62,4;"de la FINAL de junio de" @eval=72,1;"de la prueba de SEPTIEMBRE de" 8000@+asig:a$:4,(32 -a$)/2;a$:16,568:231,0:16,2;"DEFI INSU SUFI BIEN NOTA SOBR" &W=alum:n=1alum:W=W-(d(n,eval,asig)=-1):n:de=(de*100d/W):in=(in*100d/W):su=(su*100d/W):bi=(bi*100d/W):no=(no*100d/W):so=(so*100d/W):20,14;" M-Men] " 0m=16:90102#Track-Info  R         +m:v,b,c:n=079O*c/100d:v,568+n:31,0:n:14,b;1;c;1;"%":m ;/"` N]mero de {tems"," de la prueba ? ";k:d(43+,eval,asig)=d(43+,eval,asig)+(d(43+,eval,asig)=0):fia=(k/(k-1))*(1-(d(42*,eval,asig)*(k-d(42*,eval,asig)))/(k*d(43+,eval,asig))):fia=((fia*100d))/100d:18,6;"Fiabilidad = ";fia D0:="M": N 3140D  EVOLUCION GRAFICA  :0,2;"Evoluci^n en las 5 materias":n=26:n,0;(7-n)*2;n,11 ;(7-n)*2;n,22;(7-n)*2;n+9 ,5;(7-n)*2;n+9 ,16;(7-n)*2:n:n=2420088X:n,160:0,-40(:557,0:n:n=64@15288X:n,88X:0,-40(:557,0:n 7,3;"12345JS 12345JS 12345JS";16,8;"12345JS 12345JS":v=15:9020<#+v:y,x,a,b,a$:a,b;a$:n=17:m=yy+d(42*,n,v)*4:x+8*(n-1),m:7,0:m:n:v:20,12 ;" M-Men] " 0:="M":  4030  NOTAS DE UN ALUMNO  v10 ,7;" M-Men] ":"` Lista de alumnos o un alumno ?";" (L/A) ";a$::a$="L"5010:5020 a$="A"5020  a$="M"  5002 0,0;"******* LISTA DE ALUMNOS *******":236077\,246:n=1̺(alum/2):d$=n$(n):m=1̱d$-12:n,m/2;d$(m);n,m/2;1;((d$(m+1))+32 ):m:n:p=nalum:d$=n$(p):m=1̱d$-12:p-n+1,m/2+16;d$(m);p-n+1,m/2+16;1;((d$(m+1))+32 ):m:p:236077\,251: 6"` Qu\ alumno ? ";a$:a$<3n=a$:5050 0n=1alum:b$=n$(n):a=1:b=1 a>a$b>b$5050 Ca$(a)=" "b$(b)=" "a=a+(a$(a)=" "):b=b+(b$(b)=" "):5032 3a$(a)=b$(b)a=a+1:b=b+1:5032 kn::10 ,5;"No conozco a";12 ,0;a$;16,8;"Pulsa una tecla":0: :0,0;"(O=Atr~s) NOTAS DE (P=Adelante)";2,0;n$(n);4,2;" MATE. CIEN. IDIO. LENG. SOCI.":m=210 2:4+m,0;m/2;"_":m:16,0;"Ju";18,0;"Se";20,0;"1-Cuantitativas 2-Cualitativas 3-Cuant.Z 4-Cual.Z M-Men] ":i=2013216:15,i:240,0:i:i=15255480:i,20:0,112p:i:5070:5095 oi=17:o=15:d(n,i,o)=-14+2*i,-3+6*o;"N.C.":o:i: xd(n,i,o)=((d(n,i,o)*100d))/100d:4+2*i,-3+6*o;(d(n,i,o)<5);d(n,i,o):o:i: Ҏl$="DEFIINSUSUFIBIENNOTASOBR":i=17:o=15:d(n,i,o)=-14+2*i,-3+6*o;"N.C.":o:i: l=d(n,i,o):ll=(l<3)+5*(l3l<5)+9 *(l5l<6)+13 *(l6l<7)+17*(l7l<9 )+21*(l9 ):4+2*i,-3+6*o;(l<5);l$(llll+3):o:i: {i=17:o=15:d(n,i,o)=-14+2*i,-3+6*o;"N.C.":o:i:5090: d(44,,i,o)=d(44,,i,o)+(d(44,,i,o)=0):z=((((d(n,i,o)-d(42*,i,o))/d(44,,i,o))*100d))/100d:4+2*i,-3+6*o;(z<-1);z:o:i:5090: ֎l$="DEFIINSUSUFIBIENNOTASOBR":i=17:o=15:d(n,i,o)=-14+2*i,-3+6*o;"N.C.":o:i: gd(44,,i,o)=d(44,,i,o)+(d(44,,i,o)=0):l=(d(n,i,o)-d(42*,i,o))/d(44,,i,o):ll=(l<-1.95y)+5*(l-1.95yl<-1)+9 *(l-1l<0)+13 *(l0l<1)+17*(l1l<1.95y)+21*(l1.95y):4+2*i,-3+6*o;(l<-1);l$(llll+3):o:i: Ai=17:o=15:d(n,i,o)=-1o:i: rz=(d(n,i,o)-d(42*,i,o))/d(44,,i,o):z<04+2*i,-4+6*o;(z<-1);"-" o:i: l=01616:20,l;1;(l/16+1):8:20,l;(l/16+1):8:l$=:l$="1"l$="2"l$="3"l$="4"l$="O"l$="P"5115 bTrack-Info  R 21,l;1;(l/16+3):8:21,l;(l/16+3):l$="M" l:5095 bl$="P"l$="O"n=n-(l$="O")+(l$="P"):n=n+40(*(n=0)-40(*(n=41)):5060 i=17:o=15:4+2*i,-4+6*o;" ":o:i:5070+(l$)*2:5095 p CORREGIR DATOS  z51,5;"Correcci^n de datos" "` Desea cambiar nombre o nota ?"," (1/2) ";a$:a$="1""` Qu\ nombre desea cambiar ? "," ";a$:"` Por qu\ otro ? "," ";b$:6100:6160 a$="2""` De qu\ alumno ? "," ";a$:2010:"` En qu\ asignatura ? ";asig:2030:"` De qu\ evaluaci^n ? ";eval:eval<1eval>7asig<0asig>56030 v6100:"` Cual es la nueva nota ? ";d(n,eval,asig):"` Otra correcci^n (S/N) ? ";r$:r$="S"a$="2":6030 3020 : a$<3n=a$: 0n=1alum:c$=n$(n):a=1:c=1 a>a$c>c$ Ca$(a)=" "c$(c)=" "a=a+(a$(a)=" "):c=c+(c$(c)=" "):6120 3a$(a)=c$(c)a=a+1:c=c+1:6120 n::10 ,5;"No conozco a";12 ,0;a$;16,0;"Pulsa una tecla para volver al men]":0::30 :10 ,0;" Espera unos segundos,";11 ,0;"voy a ordenar las notas.":i=17:o=15:d(41),i,o)=d(n,i,o):o:i:u=n+1alum:n$(u-1)=n$(u):i=17:o=15:d(u-1,i,o)=d(u,i,o):o:i:u m=1alum-1:b$10 űb$>10 7010b g:10 ,0;" Prepara una cinta para grabary pulsa una tecla.":a$n$()::10 ,3;"Pulsa una tecla.":b$d(): l]:"` Nombre de las notas ? "," (M~x.: 10 carac. ";b$:b$<1űb$>10 7020l qT:10 ,0;" Prepara una cinta para grabary pulsa una tecla.":b$d(): v:7010b A"MATEMATICAS" B "CIENCIAS" C "IDIOMA" D "LENGUA" E "SOCIALES" #316,3,de #4568,8,in #596`,13 ,su #6136,18,bi #7176,23,no #8216,28,so #=2480,64@,18,4,"Matem~ticas" #>1480,152,18,18,"Ciencias" #?/120x,200,9 ,24,"Idioma" #@/120x,112p,9 ,13 ,"Lengua" #A/120x,24,9 ,1,"Sociales" PLUS3DOS|$$$~$$~$>(> >bd&F(*D:  >>> < >>|~~~~~~||<|pppp~~|8888xppppp|<||~~||||ppp|<|l||Tll~|8p888|MP<; P PPLUS3DOS::0:7:0: ~11 ,7;"RTTY CARGANDOSE";13 ,7;"POR FAVOR ESPERE";#1;" F.ENGUIX 1 9 8 6"  0 S"BE.0"32768,1024:"BE.1"64256,500: F. Enguix 1986 9F="A":N=33624X33664:F,N:F=F+1:N XMENU=20:EU=502:US=7:NOR=502:INV=7:23658j\,8 0:7:1: 3,10 ;"__ MENU __";7,3;"1.- RECEPCION";15,3;"6.- LECTURA TEXTO";8,3;"2.- NORMA EUROPEA" r9 ,3;"3.- NORMA EEUU";16,3;"7.- SAVE TEXTO";17,3;"8.- LOAD TEXTO" #X10 ,3;"4.- ENTRADA NORMAL";11 ,3;"5.- ENTRADA INVERTIDA" (N255,0:0,175:-255,0:0,-175 -_5,5:245,0:0,165:-245,0:0,-165 2%#1;"Pulsa la opcion deseada." 7B22787Y,EU:22819#Y,US:22851CY,NOR:22883cY,INV 9.05|L,35# < 0 Az$= F.05|L,35# Kz$="1"120x Pz$="6"150 Uz$="2"185 Zz$="3"225 _Z$="5"325E dZ$="4"3051 iz$="7"265  nZ$="8"290" s 60< xN:255,0:0,24:-255,0:0,-24 }[6,6:11 ,0:0,11 :-11 ,0:0,-11 ]238,6:11 ,0:0,11 :-11 ,0:0,-11 =20,3;"MARK";20,24;"SPACE" 8,3;"Para volver al menu, pulsa SPACE durante la recepcion de un texto.";12 ,3;"Pulsa una tecla para recibir" 0 236077\,250 32768 236077\,60< MENU J:#1;"Pulsa ""M"" para volver al menu.":N=3380065500 N=0175 A$=¾N:A$; ="M"MENU N 6#1;"Fin texto, pulsa cualquier tecla":0 MENU NORMA EUROPEA A330753,7:330808,16:33085=,12 A33106R,6:33111W,14:33116\,14 A33137q,5:33142v,12 :33147{,12 ?33168,3:33173,9 :33178,7 V33199,2:33204,5:33209,6:33032,143 EU=502:US=7 557 NORMA EEUU A330753,8:330808,16:33085=,16 A33106R,7:33111W,15:33116\,11 A33137q,6:33142v,13 :33147{,11 @33168,4:33173,10 :33178,4 U33199,2:33204,6:33209,7:33032,85U EU=7:US=502  557  :10 ,8;"ESPERE UN MOMENTO POR FAVOR":N=3380065000 n0n L=N-33799: "text"33800,L MENU "*:20,8;"CARGANDO TEXTO" ' "text" ,MENU 1ENTRADA NORMAL 6NOR=502:INV=7 ;33049,0:33036 ,1:33041,0:33046Track-Info  R ,502:33054,502:33059#,0 @ 557 EENTRADA INVERTIDA JNOR=7:INV=502 O33049,1:33036 ,0:33041,502:33046,0:33054,0:33059#,502 T 557 Y "INICIO: ";INI,"INTERV.: ";INT ^6L=INI-256*(INI/256):H=(INI/256) c/59580,INT:59582,L:59583,H h59294 PLUS3DOS{!>>>>< ̈́!6{ ;;{ r >2r > 2r:_:\ 0ʁ (w# >0(ËA(A y:G%:G%y:G%y>/NmԌԫPr Pr(>>>ʁ!6!6!6>>>>ʁ!6!6 !6 >>>>ʁ!6!6 !6>>>>ʁ!6!6!6>>>>ʁ!@6@>>>> T O HNM LRGIPCVEZDBSYFXAWJ UQK 5 9 ,. )4 80:;3"$?*6!/-2, 71(  VEL. BAUDS PW P PMV V \Wq MMMXLXLWq !@kv>!'扉))))))$$'q!!'~@|@@@>MMZWMM> P PM\ P  3>`\Wq MQ ?v2PLUS3DOSta66$$~jH~ J~>>>00 @~00 ~bRJfb~  ~~@@r~~>~@@@Hh~~@~F~~@~Bbb~><$$~BF~>"">00000000 @~B~BB~BbbxH~Bbb~~B@@bb~xDBBbdx~@@x``~~@p@@``~@@Fbb~BB~BBbbLL|BDHxdbb@@@@``~|JJJjjjBbRJfff~BBBbb~~bB~```~BBBjf~~bB~hdb~b@~B~~BBBBbb~BBBBdhxbbBJ^tbbbbbBB~~>&~Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''