MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 18  AA , AB 5AC TIPO1 TIPO2 AD H !"#$AE &%&'()AF L*+,-./0123AF 0 45AG 6TECLAS1 7TECLAS2 8TECLAS3 9TECLAS4 :BA 5;<=>?@ABB DBCDEFGHIJBC KBC 0 'LMNOPBD 4QRSTUVWBE 4XYZ[\]^PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "18" 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;;88888887778888PLUS3DOSdCINTA 18 (REVISTAS 69 a 72) 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-Voyager" !7,18;"B-Contabili" &8,3;"C-Antirun" 08,18;"D-Karate" : 9 ,3;"E-Integral2" D9 ,18;"F-Batcode" N"10 ,3;"G-Teclastick" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Dibujo" !7,18;"B-Circuitos" 8,3;"C-Marte" $8,18;"D-Futbol" .9 ,3;"E-Estadist" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 18" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 69-72"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS66q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 7:7:7: !170:220:230  m=12 LX=12000:4;4,m;" ":o=((*3))-1 (150:m=m+o:=""X 2m260:F=020.8L:.002xn,30:.009ztj,-11 :.002xn,502-F:F 27RP=0 Fm0:((po+2)*8,93])((PO+RP+2)*8,93])L=3584:290" PfPO=PO+RP:M$=(B$(3)D=1)+(B$(3)D=3)+(" "D=2)+(" "D=4) Z7;1;6,PO;" ";0;"";1;" ";7,PO;B$(2);8,PO;M$:D=D+1:D>4D=1 d/l=3584:KM=KM-1:SC=SC+.33( nU0;7;0,26;KM;" ";0,8;(SC):FI=FI+.004yn xF=FI:130:60< ^M=1F:R=(*3)+1:2;0;21,*27+1;A$(R):M l=3584: 'm+o>28m+o<5o=0: :7:0:1;2,2;" ";3,2;" FELICIDADES! HA ENCONTRADO ";4,2;" EL MONOLITO. ES VD. UNICO. ";5,2;" Track-Info  R  ":400:.1}L,20: A:x=120:A$:f=07:s:a$+f,s:f:x: x"a",0,0,0,0,0,6,6,7,"b",60<,255,195,129,129,195,126~,126~,"c",0,0,0,0,0,96`,96`,224,"d",4,5,3,7,7,3,1,1,"e",126~,255,189,189,126~,126~,189,255 "f",32 ,160,192,224,224,192,128,128,"g",1,0,0,0,0,0,0,1,"h",255,238,238,238,238,170,68D,238,"j",0,3,31,63?,95_,139,208,47/,"k",0,192,248,252,250,74J,65A,60< ȇ"l",0,255,255,255,255,36$,68D,130,"m",32 ,160,71G,79O,63?,15,12 ,30,"n",9 ,198,226,242,252,240,480,120x,"o",0,3,31,63?,255,0,63?,1,"p",238,238,238,238,14,10 ,4,14 Ҍ"q",238,238,238,238,224,160,64@,224,"r",0,192,248,252,255,0,248,128,"s",128,64@,160,80P,168,84T,170,85U,"t",170,85U,170,85U,170,85U,170,85U,"i",0,1,2,5,10 ,21,42*,85U ܸD=1:A$(7,4):V(3):A$(3)="":A$(2)="":A$(4)="":A$(1)="":B$(3,5):B$(2)=" ":B$(3)=" ": 0:0:5: 1;5,4;"             " ~6;9 ,4;"MOISES VILALTA PONS 1985";21,0;4;1;" MOVIMIENTO: A-DRCHA -- L-IZQDA": SC=0:KM=700:FI=1:0:2::F=09 :F,0;1;" ":F F=115:L=3584:F:0,0;0;6;1;" SCORE: DISTANCIA: ":PO=12 F=180P:7;*255,166-(*32 ):F:7;1;6,PO;" ";0;"";1;" ";1;7,PO;B$(2);8,PO;B$(3): "u40(:7:1:6,po;" ";7,po;" ";0;"";1;" ";8,po;b$(2) ,.02{# =,-10 :7,po;" ";8,po;" ";0;"";1;"":.04|# =,-11 :8,po;" ":f=205-1 61.002xn,f:.002xn,-11 :f:40( @!0;6;1;7,7;" PULSA UNA TECLA ":2,2;7;1;0;" ";3,2;" TU MISION HA FRACASADO.MIRA ";4,2;" EL RECORRIDO QUE TE QUEDABA ";5,2;" " J2:0:KM=(((KM+100d)/7))*7:H=KM0-7:l=3584:0;7;0,26;h;" ":F=1:130:=""H T360h:400: ^ 20: hPF=13:L=3584:7:21,15;"";5;"" rEL=3584:21,14;"";5;"":L=3584 |c21,13 ;"";5;"":L=3584:21,12 ;"";5;"" 'F=14:L=3584:F: P40(:g=110 :f=-20g*57:.01z# =,f:f:g  202: Track-Info  R PLUS3DOS*Cq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: -40000@=0i=1800:4  i=81Q Oni=0:bu=2:nde=0:nha=0:dir=30900x:1500 35:6:"FECHA 'DIA' ";d;" ";"'MES' ";m D:1,11 ;"* MENU *";';"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $" 7,5;"1 > SAVE DATOS";9 ,5;"2 > LOAD DATOS";11 ,5;"3 > INTRODUCIR DATOS";13 ,5;"4 > LIST SALDO TOTAL";15,5;"5 > LIST SALDO PARCIAL";17,5;"6 > ACTUALIZAR CUENTAS" K$=:K$="6"200 K$="1"18 K$="2"25 K$="3"28 K$="4"70F K$="5"87W  10  SAVE DATOS I:1,9 ;"* SAVE DATOS *";';"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $" 9"NOMBRE DE LOS DATOS ";n$:n$>10 n$=""19 x11 ,4;1;"GRABANDO DATOS EN CINTA":n$dir,i*18:11 ,4;"QUIERES VERIFICAR (S/N) ?" KK$=:K$="S"K$="s"n$dir,i*18:20,28;"OK.":8 K$="N"K$="n"8  21  LOAD DATOS I:1,8;"* LOAD DATOS *";';"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $" 3"NOMBRE DE LOS DATOS ";n$:n$>10 26 T11 ,4;1;"CARGANDO DATOS EN MEMORIA":n$dir,i*18:8  INTRODUCIR DATOS :1000:0,4;"* INTRODUCIENDO DATOS *":"INGRESADO EN LA CUENTA ";cl1:cl1<1cl1>1923618B\,29:23620D\,4 cl1=196 8"CANTIDAD ";nu:nu<0nu>1677721631 !M"EL DINERO HA SALIDO DE LA CUENTA ";cl2:cl2>18cl2<132 "^16,0;"INGRESADO EN ";a$(cl1),"LA CANTIDAD ";nu;" PTS"'"SALIDA DE ";a$(cl2) #4#0;1;" ES CORRECTO (S/N) " $)k$=:k$="s"k$="S"#0:39' %k$="n"k$="N"29 & 36$ 'bs=(nu/65536) (a=nu-(bs*65536) )bM=(a/256) *bp=a-(bM*256) +@x=dir+((cl1-1)*i):n=xx+i9 :bu=046. ,/n>0ž((x+i)-7)>0513 -8(dir+(((cl2-1)*i)+i)-9 )>060< .2ni<0bu=0(n-3),cl2:480 /n,cl2 0J(n+3),bs:(n+2),bM:(n+1),bp:n+7,d:n+8,m 1bu=0 2 535 3n 4F#0;1;" NO HAY SITIO EN ";a$(cl1):150:900 59n=dir+((cl2-1)*i)dir+((cl2-1)*i)+i9 6n>058: 7!n,cl1:n+7,d:n+8,m 80(n+4),bp:(n+5),bM:(n+6),bs 9 28 :n:60<:28 <cl1=cl2:524 FSALDO TOTAL GL:nd=0:nh=0:nha=0:nde=0:bu=2:sa=0 HP"CUENTAS * LIST TOTAL * SALDOS"'"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $":285 In=dirdir+(18*i)i J5nde=0:nha=0:w=nn+(i-9 )9 Kw=079O LKnd=((w+1))+(256*((w+2)))+(65536*((w+3))) MKnh=((w+4))+(256*((w+5)))+(65536*((w+6))) Nnde=nde+nd:nha=nha+nh O&w:sal=nde-nha:sa=sa+sal:b$=(sal) P/bu,0;"..............................." Qbu>1985U SCbu,0;a$(bu-1);27-b$;b$;" Pts":bu=bu+1 Tsal=0:n U'"SALDO TOTAL ";sa;" PTS":m$="s" V=#0;" PULSA ""ENTER"" PARA MENU ":0:8 Wsaldo parcial X 285 Ynd=0:bu=2:nde=0:nha=0::1000:0,0;" * SALDO PARCIAL * "'"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $" ZL280:"DAME CLAVE DE LA CUENTA ";cl:cl<1cl>1989Y [cl=198 \N:" SALDO DE ";a$(cl)'"$ $ $ $ $ $ $ $ $ DB $ $ $ HB $" ]1x=dir+(cl-1)*i:w=xx+(i-9 )9 ^/w<1žw>18bu=2:110n `)cl=w:di=(w+7):me=(w+8) aMnd=((w+1))+(256*((w+2)))+(65536*((w+3))) bKnh=((w+4))+(256*((w+5)))+(65536*((w+6))) cnha=nha+nh:nde=nde+nd dbu=0 eq$=nh:w$=nd hbu,0;"...............................";bu,0;di;"/";me;6;a$(cl);" ";bu,24-w$Track-Info  R ;w$;31-q$;q$;':m$="s"m$="S"di;"/";me;6;a$(cl);24-w$;w$;31-q$;q$ iybu=bu+1:bu>191600@:n=220:n,0;" ":n:bu=2 jw n$'"EL SALDO ES ";nde-nha;" Pts." o*m$="s""EL SALDO ES ";nd-nha;" Pts." s 1600@ x 89Y ACTUALIZAR CUENTAS X:1000:0,6;"ACTUALIZAR CUENTAS"'"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ " G" CUAL QUIERES ACTUALIZAR? ";cl1:cl1<1cl1>19210 #cl1=19bu=2:6 6"CANTIDAD INICIAL ";ni:ni>16777216217 bu=0:cl2=cl1 ni<0250 nu=ni 39':210 Inu=ni*(-1):dir=dir+3:39':dir=dir-3:210 IMPRESORA Mm$="s";" * SALDO PARCIAL * "'"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $"  ?" QUIERES SALIDA POR IMPRESORA (S/N)?";m$:m$=""285  BORRAR CUENTAS 6"QUIERE SALDAR LA CUENTA (S/N)";V$:V$=""900 'V$=83SůV$=115s906 &V$=78NůV$=110n29  900 &nha=0:nde=0:bu=0 x=dir+(cl1-1)*i w=xx+(i-9 )9  97a w !n=xx+(i-9 ):n,0:n cl2=cl1:nu=nde:39' @nu=nha:dir=dir+3:39':dir=dir-3:bu=2  28 $'"$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $" Qn=311 :n,0;4;n-2;6;" ";a$(n-2):n Rn=311 :n,15;4;n+7;6;" ";a$(n+7):n O12 ,15;7;2;"19";0;6;" MENU PRINCIPAL"  Ca$(18,14):n=118:k$:a$(n,̱k$)=k$:n: @?21,0;" PARA MAS DATOS '' ENTER '' ":0: "MERCADERIA","EF. A/C","CLIENTES","DEUDORES","CAJA","BANCOS","MOBILIARIO","EQ.OFICINA","TRANSPORTE","SUMINI.GAS","TELEFONO","SUMINI.LUZ","PROVEEDORES","ACREEDORES","EF. A/P","PRESTAMOS","CAPITAL","OTROS GASTOS" PLUS3DOS99 q1:1:7::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 8,0;" Para la utilizacion de estautilidad, es aconsejable leer elarticulo aparecido en la revistanumero 69, pagina 25, donde nosesplicara su funcionamiento."  100d PLUS3DOS 1! ] S\~ ( #C\>M2\!"\|!#"\2!\\q[\*\*\7R8 DM|[S\*Y\+K\*S\U#K\ "K\*S\[\+"W\#` ͎Track-Info  R PLUS3DOS 1! ] S\~ ( #C\>M2\!"\|!#"\2!\\̀[\*\*\7R8 DM|[S\*Y\+K\*S\U#K\ "K\*S\[\+"W\#\ ͩPLUS3DOS#[#[#sq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 23658j\,8 ZJ=7:I=5:H=7:mov=29:Y$="":J$="":R$="":S$="":M=2 /D$="":PUN=0:VID=5:E=100d (D=0:7:0:0: G.D.U 'a=020:w=07 s:(144+a)+w,s w (a 2K16,568,568,16,568,60<,122z,121y ="I"1100L H="W"900 R="O"Z$="":1200 W="P"X$="":1300 \Q12 ,M;"";13 ,M;"";12 ,M+1;" ";13 ,M+1;" " f 800  MOVIMIENTO DELANTE  9000(# MOV=MOV-1:2000 19,26;PUN 2:="W"M=M+1 ="Q"830> ="I"1000 $M15M=M-1:535 ="O"Z$="":1200 ="P"X$="":1300 I=M+1PUN=PUN+25 312 ,M-1;" ";13 ,M-1;" "  900 *PATADA DELANTE** @2:12 ,m;"";13 ,m;"":0.1}L,1 12 ,m+1;" " GE=E-1:;4;1;19,1;"ENERGIA : ";E;" " D=2M=MOV-212 ,MOV;"":.009ztj,40(:.009ztj,19:12 ,MOV;" ";12 ,MOV;" ":MOV=29:D=(*3):960 M=MOV-28000@ D=2M=MOV-2  930 L*PATADA ATRAS* VF2:12 ,M-1;"";13 ,M;"":0.1}L,1 [GE=E-1:;4;1;19,1;"ENERGIA : ";E;" " `12 ,M-1;" " eM=MOV+28000@ j 830>  SALTO 312 ,M;Z$;13 ,M;" ":0.5,1 GE=E-1:;4;1;19,1;"ENERGIA : ";E;" " CI=M-113 ,M;D$:13 ,M-1;" ":I=M+1  ***AGACHARSE**** 313 ,M;X$;12 ,M;" ":0.5,1 #GE=E-1:;4;1;19,1;"ENERGIA : ";E;" " (zD=2M=MOV-1MOV=M-1:12 ,M-1;"";12 ,M+1;" ":MOV=M-1:PUN=PUN+25 2 MOVIM.Y PATADA MALO $0:MOV=2MOV=29 D=2Y$=R$:J$=" " D2Y$="":J$="" #12 ,MOV;Y$;13 ,MOV;J$ 512 ,MOV+1;" ";13 ,MOV+1;" " *.005y# =,19:.005y# =,10 -12 ,3;" ";13 ,3;" " ިD=2M=MOV12 ,M;"";13 ,M;"":.009ztj,40(:.009ztj,19:12 ,M;" ";13 ,M;" ":PUN=PUN+502:E=E-1:2090* E02080  %D2MOV=M+12050  '12 ,MOV;"";13 ,MOV;" "  .09}8Q,-5 012 ,MOV-1;" ";13 ,MOV;" " MUERTE DEL HEROE  13 ,M-1;"" %VID=VID-1 &64;1;21,1;" VIDAS : ";VID ' E=100d *=X=0:Y=15:A$="2228222822244448222844282224444" 'B$="59:<59:<59:<959799759<<:99:<9575" J=1̱A$ *C=A$(J)-480:DISCO=B$(J)-480 C/Y,DISCO+X:J '12 ,MOV;" ";13 ,MOV;" " `0:0.05|L,1:12 ,MOV+1;" ";13 ,MOV+1;" ":MOV=29 &VID=09100# 0 960 @CAIDA DEL NIDO APUN=PUN+502 BD=(*3) D!D<0D>38002B E%12 ,MOV;" ";13 ,MOV;" " J 1 T=3:U=12 15:U,MOV;"";U+1,MOV;"" ^ .05|L,U hU,MOV;"";U+1,MOV;"" rU | 0 MOV=29: " 800  #(SERPIENTE #2D=0D=2D$=S$ #4I>MOV9020<# #7D=1D$=R$ #<.0001sQX,30 #P5I=I+1:13 ,I;D$;13 ,I-1;" " #ZI=29I=1: #_I=M13 ,M;"";12 ,M;""Track-Info  R         :.009ztj,40(:.009ztj,19:30:13 ,M;" ";12 ,M;" ":2085% #d %CONSOLACION %& 9540D% %07:0:6,2;"DESEAS JUGAR OTRA VEZ (S/N)";7,2;"==========================";10 ,2;"HAS CONSEGUIDO ";PUN;" PUNTOS";14,2;" JOSE AVILA AVILA RUIZ":PUN=0:E=100d:VID=5 %5="S"9600%:500 %7 ="N" %: 95255% %?rutinas  %Di0:a=516:0:b=130:0:0.005y# =,40(:a,b;"":b:a %I %ia=165-1:0:b=130:5:0.005y# =,40(:a,b;"":b:a % %FELICITACION % 9540D% %6,3;"ERES UN BUEN SAMURAI";7,3;"====================";10 ,2;"DESEAS JUGAR OTRA VEZ (S/N)";13 ,2;"ABAJO TIENES LA PUNTUACION";15,2;"!!!!!BUENA SUERTE SOLDADO!!!!" & 95244% PLUS3DOSTT+ q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: @_l(x2)=x*((x>64@)*(x<91[)+(x>96`)*(x<123{)+(x>47/)*(x<58:)) Aap(xx)=3*((x=43+)+(x=45-))+2*((x=42*)+(x=47/))+(x=94^) E+d$=e$:8480 !:pvar=0e$="0": G)a$=e$:paren=0:8040h:e$=a$ Jb$="":o=1̱e$ L,e$(o)0b$=b$+e$(o):o:8024X N=np=0:i=o+1̱e$:e$(i)=40(np=np+1 P8e$(i)=41)np=np-1:np=08020T R,i:1;"numero impar de parentesis": TInuevao=i+1:a$=e$(o+2i-1):paren=0:8040h U=a$="1"b$(b$)="*"b$=b$(1̱b$-1):8023W V b$=b$+a$ Wo=nuevao:oDZe$8012L X b$=e$: Ze$=b$:8010J gparen=1 ha(25,2):b(25):ax=1:np=0:a(1,2)=0:i=1̱A$:A$(i)=40(np=np+1:np=1ax=ax+1:a(ax,1)=i:i m@A$(i)=41)np=np-1:np=0a(ax,2)=i:i o3i:np0"numero impar de parentesis !!!": ra(ax+1,1)=A$+1:a(2,1)=1a(2,2)=A$A$=A$(2(A$-1)):8039g wno=0:niv=0:b(1)=0:j=1ax:i=a(j,2)+1a(j+1,1)-1:orden=p(a$(i)):orden>nivniv=orden:no=2:b(2)=i:8062~ |0orden=nivniv>0no=no+1:b(no)=i ~!i:j:b(no+1)=A$+1 (8100+100d*niv): a$=i$a$="1": 0solo=0:a$(2̱a$)=i$solo=1 (7930+a$(1)) Ia$=""+a$(2̱a$)+"*"+0+"("+a$(2̱a$)+")":8130 Oa$="(-"+a$(2̱a$)+")"+"*"+0+"("+a$(2̱a$)+")":8130 Qa$="1/"+a$(2̱a$)+"^2"+"*"+0+"("+a$(2̱a$)+")":8130 Ua$="1/(1-"+a$(2̱a$)+"^2)"+"*"+0+"("+a$(2̱a$)+")":8130 Xa$="(-1)/(1-"+a$(2̱a$)+"^2)"+"*"+0+"("+a$(2̱a$)+")":8130 Ta$="1/(1+"+a$(2̱a$)+"^2)"+"*"+0+"("+a$(2̱a$)+")":8130 Ja$="1/"+a$(2̱a$)+"*"+0+"("+a$(2̱a$)+")":8130 8a$=a$+"*"+0+"("+a$(2̱a$)+")":8130 ?a$="1/2/"+a$+"*"+0+"("+a$(2̱a$)+")":8130 1a$=0+"("+a$(2̱a$)+")":8130 0solo=1a$=a$(1(a$-i$-4))  c$=a$(b(2)+1b(3)-1):i=3no:c$=c$+"*"+a$(b(i)+1b(i+1)-1):i:no3c$="("+c$+")" 4d$=a$(1b(2)-1):8480 !:pvar1=pvar:d$=c$:8480 !:pvar2=pvar:pvar1*pvar20a$=a$(1b(2)-1)+"^"+c$+"*("+a$(1b(2)-1)+"*"+0+"("+c$+")+"+c$+"/"+a$(1b(2)-1)+"*"+0+"("+a$(1b(2)-1)+"))": wpvar20a$=a$(1b(2)-1)+"^"+c$+"*"+a$(1b(2)-1)+"*"+0+"("+c$+")": .m(x2)=l(x)*((x<480)+(x58:)) !btra=0:i=1̱c$:tra=tra+m(c$(i)):i:tra=0c$=(c$):c$=0a$="0": #>c$="1"a$=0+"("+a$(1b(2)-1)+")": &ka$=c$+"*"+a$(1b(2)-1)+"^("+c$+"-1)*"+0Track-Info  R         +"("+a$(1b(2)-1)+")": lc$="" vai=1no:d$=a$(b(i)+1b(i+1)-1):8480 !:pvar=0i:8350 Zd$="":j=1no:jid$=d$+a$(b(j)+(j=1)b(j+1)-1):j:8340 a$(b(i)+(i=1))="/"sg=45-:d$=d$+"/("+a$(b(i)+1b(i+1)-1)+")^2*"+0+"("+a$(b(i)+1b(i+1)-1)+")":j:8340 Rsg=43+:d$=d$+"*"+0+"("+a$(b(j)+1b(j+1)-1)+")":j c$=c$+sg+d$:i S(c$(12)="+*")+(c$(12)="-*")=1c$=c$(3̱c$) %c$(1)="+"c$=c$(2̱c$) paren=1a$="("+c$+")": a$=c$: ld$=a$(b(1)+1b(2)-1):8480 !:pvar0c$=0+"("+d$+")":8410 c$="" vi=2no:d$=a$(b(i)+1b(i+1)-1):8480 !:pvAr0c$=c$+a$(b(i))+0+"("+d$+")" #i:paren=1a$="("+c$+")": a$=c$: ! d$=""pvar=0: !*pvar=0:fin=d$-i$+1:p=1fin:d$(p(p-1+i$))=i$(((l(d$(p-1+(p=1)))=0)+(p=1))*((l(d$(p+i$-(p=fin)))=0)+(p=fin)))=1pvar=p: !,p: PLUS3DOS% %(# %    (c) 1985   Sergio Martinez Lara  (  2$j$(x)="000"(3-x)+x <%s$(x)="0000"(4-x)+x Fm(x)=(x/256) P'r(x)=x-256*(x/256) Z&p(x)=x+256*(x+1) d0"32495756543283698271737932776582847378699032" nO"DAT","SAL","DSC","MOV","SUM","RES","SAC","SMY","CMP","COD","SET","INT","NOP" x %w$:c$=" ":c$(2)=127 3i=1̱w$2:c$=c$+°w$(ii+1):i 1:7:1: 30,7;2;"* EDITOR DE BATCODE *" '2,5;1;1;c$ ?T$(39'):f$(22000U):p$(2500 ):m$(2500 ) linea=-1 's$=" " 0I=139'3:t$(ii+2):i 'p$(1)=p$(1):65502 'm$(1)=m$(1):65502 502: =1000:"Desea finalizar el juego (S/N) ";l$:l$="S"  250 analizador sintactico 23658j\,8:l$  l$="" @i=1:1830&:l$=l$(i):i=1:error1000 long=l$:l$=l$+" " %l$(1)="L"Z$="L":2040 $%l$(1)="D"Z$="D":2040 .%l$(1)="P"z$="L":2010 8%l$(1)="I"z$="D":2010 Bl$(1)="S"2470 Ll$(1)="C"2580 Vl$(1)="N"2650Z `l$(1)="A"2720 jl$(1)="T"2850" tl$(1)="E"3130: ~l$(1)="B"3000 l$(1)="M"3060 i=1:1640h error1890b:1010  dir=valor 4dir<0dir>500 1890b:1010  r$=l$(i) long41980 #l$(i)" "1880X:1010  1830& 0longlongerror=1: md1=md:op1=valor  1730  error md2=md:op2=valor " ,ANALISIS DE 1 OPERANDO 6 1730 @ error Jmd1=md:op1=valoTrack-Info  R         r T ^obtencion de un numero h+1830&:error1890b:1000 rw$="" |i=ii+4 l$(i)=" "1710 <(l$(i)<"0"l$(i)>"9")l$(i)"+"l$(i)"-"error=1:  w$=w$+l$(i) i  valor=w$  numero con modificador  md=0 i>long error=1: l$(i)" " error=1:  i=i+1 i>long error=1: 0l$(i)="#"i=i+1:md=1:1810 0l$(i)="@"i=i+1:md=2:1810  1630^  &SALTA ESPACIOS 0error=0 :i>l$error=1: D$l$(i)=" "i=i+1:1850: N XMENSAJE DE ERROR bL20,0;s$;s$;20,0;l$;21,i-1;"^ ERROR" l0.5,20 v conversor complemento 2 x<0x=x+65536  w$=" " w$(2)=((x/256)) )w$(1)=(x-256*w$(2))  borrado de una linea 6cod=12 :op1=0:op2=op1:md1=op1:md2=op1  1370Z impresion  x=3  2060   listado  x=2    dir=1  l$<32120H *i=2:1630^ 4Herror=0valor>1valor500dir=valor*5-4 >Rz$="D"(error=0valor>1valor44000)dir=valor*5-4 Hi=019 R,Z$="D"w$=F$(dirdir+4):2150f \w$=p$(dirdir+4) f 23608 p5z$"D"#x;j$((dir/5)+1);:2180 z!#x;s$((dir/5)+1); 9#x;" ";t$(cod*3+1cod*3+3);" "; cod=12 2270 "md1=1#x;"#";:2220 "md1=2#x;"@";:2220  #x;" "; #x;op1;14; &cod1cod=11 2270 !md2=1#x;(8);"#"; !md2=2#x;(8);"@";  #x;op2; /dir=dir+5:dir>22000Udir=1 $Z$="L"dir>2500 dir=1 #x:i 421,0;"Pulse 'S' para seguir listando" 0:w$= w$="s"w$="S":2120H linea=19 $20,0;s$;s$ . 1000 8decodificacion Bmd2=w$(1) L)op1=w$(2)+256*w$(3) V&op1>32767op1=op1-65536 `)op2=w$(4)+256*w$(5) j&op2>32767op2=op2-65536 tcod=(md2/16) ~md2=md2-cod*16 md1=(md2/4) md2=md2-md1*4  salvar programa  20,7;2;"* SALVAR PROGRAMAS *" '2,5;1;1;c$ ("Nombre del programa a salvar: ";w$ w$=""2840 w$p$() -#1;"Rebobina la cinta para verificar" 10 ,0; w$p$() 2840 carga de programa  (20,7;2;"* CARGAR PROGRAMAS *" 2'2,5;1;1;c$ <("Nombre del programa a cargar: ";w$ F ""p$() P 2840 ZNUEVO PROGRAMA d n30,12 ;1;2;"* ""NEW"" *" x'2,5;1;1;c$ "Seguro (S/N)";w$ Bw$="S"w$="s"p$(1)=p$(1):65502:2840 2840 Pantalla de ayuda w$="A-Ayuda B-Borr. lin.C-Carga prg.S-Salva prg.M-Mover lin.N-Nuevo prg.L-Listar P-Imp. list.D-Dump mem. I-Imp. Dump T-TransladarE-Ejecucion " .3,17;6;" " 64,17;6;" ";4,31;" " i=011 |i+5,17;6;" ";1;" ";w$(i*12 +1(i+1)*12 );6;i+5,31;" " i 817,17;6;" ";17,31;" " /18,17;6;" " 420,7;2;"* PANTALLA DE AYUDA *" 0#1;0,5;1;1;c$  0 97:1:1::linea=-1:1000 "TRANSLADAR PROGRAMA , 650,6;2;"* TRANSLADAR PROGRAMA *" @'2,5;1;1;c$ J&9 ,7;"S .- Salvar prog." T'11 ,7;"C .- Cargar prog." ^'13 ,7;"I .- Inter. prgs." hf#0;" Elija una opcion (S/C/I) ";:0:o$=:#0;O$:o$>96`o$=(o$-32 ) ro$="S"m$=p$ |o$="C"p$=m$ o$"I"2840 f$(2500 )=m$ m$=p$ p$=f$(2500 ) 2840 Borrado de lineas i=2:1490 error1890b:1000Track-Info  R          E(op1+op2>501)op1<1op2<11890b:1000 Cop1=op1*5-4:65498,r(op2):65499,m(op2) +p$(op1)=p$(op1):65497:1000 Mover lineas 6i=2:1490:error1880X:1000 +1630^:error1880X:1000 gop1+valor>500op2+valor>500valor<0op1<1op2<11880X:1000 Oop1=op1*5-4:op2=op2*5-4:valor=valor*5-1 &,m$=p$:p$(op2op2+valor)=m$(op1op1+valor) 03m$(1)=m$(1):65502:1000 :Batalla !!! DO:pos2=(*2400` +1000):64259,r(pos2):64260,m(pos2) N60,5;2;"* BATALLA DE PROGRAMAS *" X'2,5;1;1;c$ b?"Ejecucion paso a paso (S/N) ";o$:64064@,o$="s"o$="S" l'f$(1)=f$(1):65507 vPf$(12500 )=p$:f$(pos2*5+1pos2*5+2500 )=m$ 0:6:6 'f$(1)=f$(1):64236 o$="s"o$="S"20,6;" Pulse una tecla ":0:20,6;2;" " ^=" ".1}L,.1}L:20,6;1;" Ejecucion interrumpida ":3260 u65122b=020,6;1;" Pierde el programa ";(64@+65121a);" ":2830 3f$(1)=f$(1):64444:3220 Z0:="C"Ŧ="c"20,6;2;" ":3240 2840 @SALVAR EL EDITOR J>::A$="GUERRA.BAS":"SALVANDO """;A$;"""...":A$9000(# ^ #(CARGA C/M #2C63999:10 ,5;1;"CARGA DE CODIGO MAQUINA" #< "AF.0" #Fq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: #P 10 PLUS3DOS~Track-Info  R         PLUS3DOS~ r1:1:7::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I:  8,0;" Para la utilizacion de estas cuatro rutinas, es recomendable la lectura de la revista numero 70 pagina 28." PLUS3DOS/P>G >g >W _ g PLUS3DOSO>G >g >W _ g y(2\M>G^2\>?GVPLUS3DOS4`->W >G >G >O G PLUS3DOST >W >G >G >O G y(2\M>G^2\>?GVTrack-Info  R PLUS3DOSdq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 64999:8000@ (6:6:0:izq=0  Xx(9 ):"ALTURA = ";x(3)'"ANCHURA = ";x(1)'"PROFUNDIDAD = ";x(2) 6OPX=20:OPY=10 :ORX=0:ORY=0 {lpx=150:lpy=150:lm=x(1):lm=lm+(x(2)-lm)*(x(2)>lm):lm=lm+(x(3)-lm)*(x(3)>lm) lrx=lm:lry=lm:5000  ""ANCHURA","PROFUNDIDAD","ALTURA"  m(502,3) #1035 :k=13:a$ j=11000 6j>1"COTAS EN LA ";(a$)'M(J,k):J;" ";m(j,k) $+m(j,k)x(k)x(k+3)=j:j=1010 &j:k (Guno=(x(4)<10 )*(x(5)<10 )*(x(6)<10 ) )"PLANTA",1,x(2),2,x(1),"ALZADO",1,x(3),3,x(1),"VISTA L.",2,x(3),3,x(2) .?1065):k=13:a$::c$="RECTAS":cir=0 8#p=01:hor=p:sub,lpl =bj=1x(sub+3):xpl=x(m(j,sub)*(p=0)):ypl=y(m(j,sub)*(p=1)):5200P ?j$=j Bj<10 j$="0"+j$ Lml=01:nex=p(xpl-14*(hor=1)+6*l,ypl-7*(hor=0),j$(l+1)):l Nj Op PNcon=0:dire=50000P+5000*(k=2)+10000'*(k=3) Qdir=dire:5049 V(c$);" DE ";(A$);" ";R$ `+r$<2x(k+6)=con:1140t ar$<6r$=u$+r$ cu$=r$(58) f(r$=r$+"0":r$<10 +cirr$=r$+"1" hscon=con+1:j=15+cir/2:(dire+10 *con)+j-1,r$(2*j-12*j):j j8dir=dire+10 *con:dir+5+cir/2,0 l1(dir+4+cir/2)=205600 o5100:1110V t2cir=0cir=4:c$="ARCOS":1110V Ek:x(9 )0"LA VISTA L. ES ..(i/d) ? ",i$:izq=(i$="i") "p,a,v,c,e =";q$ q$"e"p$=q$ 2vista=(q$="p")+2*(q$="a")+3*(q$="v") 1550+502*vista q$="e"1750 Q:v=13:vista=v:5050:5400:5500|:v:1500 2:5050:5300:5500|:1500 "Escala de 1 a 8 ";qwe 7qwe=(3/14*(qwe-1)+1/2) ,lpx=lpx*qwe:q$=p$:5000:1510 <x(x)=(x*escx+indx)*(xmix)+255*(x>max) <y(y)=(y*escy+indy)*(ymiy)+175*(y>may) Vlpy=lpx:escx=lpx/lrx:indx=-escx*orx+opx:max=(255-indx)/escx:mix=-indx/escx Mescy=lpy/lry:indy=-escy*ory+opy:may=(175-indy)/escy:miy=-indy/escy Sray=(x(1)/25*escx+1):ray=(ray+4-(ray-4))/2  =vista=(dir50000P)+(dir55000)+(dir60000`) <sub1=1+(vista=3):sub2=2+(vista1)  px=x(m(dir,sub1)) py=y(m((dir+1),sub2)) $incx=x(m((dir+2),sub1))-px px,py $incy=y(m((dir+3),sub2))-py ang=0:(dir+5)0x1=px-x(m((dir+4),sub1)):y1=py-y(m((dir+5),sub2)):x2=x1+incx:y2=x2+incy:vec=1e-10_[+(x1*y2-y1*x2):mod=((x1*x1+y1*y1)*(x2*x2+y2*y2)+1e-3wn):es=x1+x2+y1*y2:ang=vec*(es/mod) .5120-10 *((dir+4)0) (incx-incx),(incy),ang: /fin=(incx*incx+incy*incy):rayx=ray*incx/fin rayy=ray*incy/fin i=1fin/2/ray+.5:pxf=(px+(i-1)*2*rayx):pyf=(py+(i-1)*2*rayy):pxf,pyf:rayx*(pxf<255-rayx*rayx)*(pxf>-rayx*rayx),rayy*(pyf<175-rayy*rayy)*(pyf>-rayy*rayy):i: Pui=1lpl/4*escx+1:xpl+(i-1)*4*(hor=1),ypl+(i-1)*4*(hor=0):i: U .opx=255/2:opy=175/2 6orx=x(sub1)/2:ory=x(sub2)/2Track-Info  R :5000 Yy1=175*(x(2)+x(1)/8)/(x(2)+x(3)+x(1)/4) "Jx12=x(1)/2/(x(2)+x(1)*5/4)*255 '4x1=x12*(izq0)+(255-x12)*(izq=0) (opx=x1:opy=y1 ,5420,+10 *vista 6;orx=x(1)/2:ory=x(2)+x(1)/8 8 5000 @=orx=x(1)/2:ory=-x(1)/8:5000 Jforx=(x(2)+3/4*x(1))*(izq=0)-(3/4*x(1))*(izq0) L%ory=-x(1)/8:5000 |Zf=1x(vista+6):dir=45000ȯ+5000*vista+10 *f:5100:f: si=1:con=con-1:c=1con:e=03+cir/2:si=si*((dir+e)=(dir-10 *c+e)):5610-si e ,5615+5*(e=4+cir/2) (c:#0;"Mete la linea otra vez": \e=13:(dir-10 *c+1+e),(dir-10 *c-1+e)+(e=3):e: @ 8050r J&i=65000650775:a:i,a:i T&i=65400x65431:a:i,a:i ^Yi=65480655274:j=02:a:i+j,a:j:i+3,0:i r205,148,30,245,205,153,30,197,205,153,30,197,225,209,123{,198,5,95_,241,229,38&,255,203 |39',203,39',198,200,111o,78N,44,,86V,44,,70F,225,96`,121y,205,120x,255,205,120x,255,122z,205,120x (255,205,120x,255,124|,205,120x,255,125},198,5,6,0,79O,205,43+,45-,1,0,0,205,43+,45-,1,1,0,197,205,43+,45-,193,201 06,4,197,203,127,40(,11 ,67C,77M,245,213,229,205,223,34",225,209,241,44,,203,7,193,16,234,79O,125},214,4,111o,121y,29,201 R105i,153,96`,38&,34",32 ,105i,36$,240,105i,41),96`,38&,111o,32 ,248,225,224,104h,233,96`,241,36$,64@,105i,105i,96`,105i,113q,96`,0,0,32 ,0,112p,0 /p(x2,y",n)=x+y*n^65000  PLUS3DOS! ! !zq7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I:  57975w  21004  502 o17,144,226,33!,0,64@,1,0,24,237,176,201 o33!,144,226,17,0,64@,1,0,24,237,176,201 $i=087W:a:"a"+i,a:i 24,90Z,24,255,255,24,90Z,24,32 ,32 ,80P,144,9 ,10 ,4,4 35#,92\,148,162,34",34",34",28,196,58:,41),69E,68D,68D,68D,568 102f,102f,102f,231,102f,102f,102f,102f,126~,129,129,199,169,169,145,126~ 8,4,3,12 ,480,192,32 ,16,12 ,2,121y,134,130,134,121y,1 1,121y,134,130,134,121y,2,12 ,8,255,255,0,0,255,255,8,126~,137,129,153,137,137,157,126~ 6"Cuantos nudos vas a introducir ?";n:q(n,2): (8nn=1:x=0:y=0:b=0:140 2M'''Track-Info  R "PRESENTACION Y RESOLUCION EN PANTALLA DE CIRCUITOS ELECTRICOS": d4a$=:(a$<8ůa$>11 )a$"n"100d ib=1:140 n6x=x+(a$=9 x30)-(a$=8x0) x8y=y+(a$=10 y21)-(a$=11 y0) ;y,x;1;144:b=1b=0:110n ="n"y,x;"X":#0;0,0;1;nn:q(nn,1)=x:q(nn,2)=y:nn=nn+1:0:nn=n+1170 100d W#0;0,0;"VAMOS A INTRODUCIR LAS RAMAS"'"(Pulsa una tecla)":0 *"numero de ramas: ";nrs:r(nrs,10 ) Bk=1nrs:"nudo origen ";r(k,1),"hasta ";r(k,2) 3100 250 j=48:a$ (a$);"? ";r(k,j) <j=7r(k,7)"fase de la tension ";r(k,9 ) @j=8r(k,8)"fase de la intensidad ";r(k,10 ) j V"RESISTENCIA","INDUCTANCIA","CONDENSADOR","FUENTE DE TENSION","FUENTE DE INTENSIDAD" &i=r(k,1):j=r(k,2):nr=k 500:k "Introduce la frecuencia ";om " 1000 Iq1=q(i,1)-(q(i,1)-q(j,1))*(q(j,1).23675{\,200:23676|\,250 Hi=57976x57999 R a:i,a:i \ /3040 :xx,yy+1-2*ix;:ix 3040 :xx+1,yy;  6xx=24-23689\:yy=33!-23688\: lq(r(k,1),1)=q(r(k,2),1)q(r(k,1),2)=q(r(k,2),2)200 &8#0;"Nudos no alineados":0:k=k-1:k @ z(dim,dim,2):x(2) J i=1 Tj=i ^4z(j,i,1)1e-6m7j=j+1:8030^ hXjik=idim:l=12:x(l)=z(j,k,l):z(j,k,l)=z(i,k,l):z(i,k,l)=x(l):l:k ri=dim-18090 |ii=i  k=i+1dim:8200 :k i=i+1:8020T  ii=2 k=i-12-1 8200 :k $i=i-1:i28090 i=1dim-1 2z(i,dim,1)=z(i,dim,1)/z(i,i,1) 2z(i,dim,2)=z(i,dim,2)-z(i,i,2) i: z(k,i,1)=0 *x(1)=z(k,i,1)/z(i,i,1) *x(2)=z(k,i,2)-z(i,i,2) & l=iidim 0x=x(1)*z(i,l,1) :y=x(2)+z(i,l,2) D(xx=z(k,l,1)*z(k,l,2)-x*y N(yy=z(k,l,1)*z(k,l,2)-x*y Xqz(k,l,1)=(xx*xx+yy*yy)^.5:z(k,l,2)=(yy/(xx+(xx=0)))+(yy+(yy=0))*(xx<0)* ]*xx=0z(k,l,2)=/2*yy bl: PLUS3DOSKK(0:0:0:39999?  "BC.0" 47300ĸ PLUS3DOSĸ"!G"6\>2j\۸0lͣ!XX6!)G>0$0(0*< ͣ!*)G< !"{! !25>27!GH60ǯ<cco&om F#N#n&<]T=(ů > +| !@Tu>>G>G>~< >Gx/>>G000~#(1&o)))[6\KjxTrack-Info  R @Wx_ Cj~#F#N#Cjͣ!:\!i)!O2\:\ (A8[0w![2[6+)#< ϯ24!ͣ!))7Zͣ!):4@!XXwY!448?Z!GcF!c> 8 ,#& [![ = !ȯɯ6"0w#,V!"O Fͪ"G>Fw!ȯ ~ =Znf^V~w NF͸~݆wO:4 "8 q~݆G:4 "8xwG͸[A͍0 4 :8 <28&!^V~(8͍036 ~:4!< 6:5<25< 25%  •!~8-wNFnf(%~Ow~wG͸͸ t:6<26=O!P2͸>P2"(:4  "x2=2Ky2A2OO! ut ut6"w"w"0w"0w6 ûd"=(/= 6 &o)))))  NF4 ͸͸qnf~(nfNF![>6= >Ͱ"(![G##++### ![#{ { _z { _8zWzP8@ __ _x28{ 000000  :8Ÿ:9*=[?29(KA!ʾ6=Ͱܿ"!<~(::N(O:;N(GCA͸ø6<29:C<( (8 ( 8(0C:2CO!N n&)))))P "= "?:<<(2<:<8!D)>22C<282O= >26!P͸>O= >P2xGCA!ʾͿøx0Dy0D=(/= !86&o)))))  KA:8<28͸ø>2!P:7827O͸>P2!P!7:6ڙ26dA>A !~(KA::wO:;wGqp:C8!)))))6 Put͸!P:6O>2͸>P2 MARTELa batalla cosmica 1.- TECLADO 2.- KEMPSTON 3.- CURSORES 1985 Pablo Ariza software ltd. Han colaborado Carlos y JoseJOSE .......... 004012CARLOS .......... 001342PABLO .......... 000984YO .......... 000010 ?????? .......... 000000 ?????? .......... 000000?????? .......... 000000?????? .......... 000000?????? .......... 000000?????? .......... 000000?????? .......... 000000 INTRODUCE TU NOMBRE ------  FASE UNODOSTRESCUATROCINCO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!La batalla cosmica!!!!!!!!!!!!!!!!!!VIDAS: PUNTOS FUEGO:!Lw:8 +4#+~!D)---------------VID@&d?33 @@@&d?33 @@@ 33?&d@@ 33?&d@ 60E5E50 05E5E60  l?gg? ` `?gg? lX ')$: X 'SItp \$1[  p @ H.1[  p @@ p  [1. H@ p  [1$ \ptIS' X :$)' X8(l6T*T*l6(8p9pp9p %)RLp2JH00HJp2LR)% pHVj)( P P()VjHp8"D)$$H H$$)"D8 0#&LL@@   0`&&&   `@`@H==H@`@@` Pxx P`@@0p-hC{C,hp0@5X980%H@~@%H0985Xh0 P 8p  L6H 8%<,(8;pc0 )$54< KL?Pc0o/R#}!Y#8%'),.14{7f:Q>?A-EI NRW]------2krn13...:. ?30>33? 33333   >>  3 }E]U]A6ccc6~c~ccf|3sps3|fccflx3a|`330~003spw36wccc6?m m?cg>#fl|fc1000`o`"wkcc6"s{kog63sss3?ss~pp83aam'?ss~vs93x>c>[ 6wcccw>"cccc6"cckw"c66cac6>Fp>? UIU%UIUREU<~"]D3>33>989339?8>3?>  6:5555>3333999>3>00>3?8?  99911115553 333? ? ?JUE:~l>A]Q]A>Track-Info  R PLUS3DOSKK%q7:7:0::1;10 ,8;" PARE LA CINTA ":I=164@:.02{# =,I:I: 23658j\,8 1:1:7: F;6;18,2;"PULSE UNA TECLA PARA EMPEZAR" K*6;8,10 ;"MICRO HOOBY" P66;10 ,4;" ANTONI FREIXANET 1985" ZA=27 dA;2,7;" " i .01z# =,A n =""A x=""90Z 96;10 ,2;"-ELIJA NIVEL DE DIFICULTAD" ͖12 ,2;"-PROFESIONAL:1";14,2;"-MEDIO:2";16,2;"-PRINCIPIANTE:3";18,2;" " ;II "II>3II<1200 6;10 ,2;"-LAS TECLAS DE CONTROL SON:";7;12 ,2;"-O....IZQUIERDA";14,2;"-P......DERECHA";16,2;"-Q........SUBIR";18,2;"-A........BAJAR" "F=0100d:F , 0 1:4:0: ***G.D.U.*** <A=144147:B=07:C:A+B,C:B:A I24,24,0,60<,90Z,24,36$,102f E0,0,0,0,24,60<,60<,24 E0,0,24,60<,60<,24,0,0 I0,24,60<,126~,126~,60<,24,0 /P1=0:P2=0:T1=5:T=1 ***GRAFICS***  'N$="" 'M$="" V$="" W$="" <1;2,1;" " =1;19,1;"" @I=318:1;I,1;"";I,30;"":I H23,71G:-8,0:0,42*:8,0 $I232,71G:8,0:0,42*:-8,0 .g92\,170:2:73I,0:0,-13 :-73I,0:0,13 3(108l,170:0,-12 61148,170:0,-12 :0 8B1,14;"5:";1,12 ;P1;1,19;P2 B2:21,0;M$ Lh20,0;N$;0,0;W$;0,21;W$;1,0;V$;1,21;V$ ***VARIABLES*** VQ=0:E=1:S1=11 :S2=11 :A3=11 :A4=8:B1=15 BA$=" -PERFECTO ME HAS GANADO,LO INTENTAS OTRA VEZ (S/N)?" LB$="-LO SIENTO PERO HE GANADO, QUIERES INTENTERLO DE NUEVO (S/N)?" &C$="-HAS JUGADO BIEN PERO NO HAS GANADO,ELIGE OPCION: -UNA PROROGA (TECLA-P) -EMPEZAR DE NUEVO (TECLA-E) -TERMINAR EL JUEGO (TECLA-T)" l$A=10 :A1=10 :B=4 v&Y=A1:X=B1:A2=10 :B2=28 ***PRINCIPIO*** $T=10 1,16;" " "T=T-1:1,16;T "T=0T1=09000(# <T=0T1=T1-1:T=60<:1,14;T1  A,B;" " (="P"(A,B+1)=" "B=B+1 (="O"(A,B-1)=" "B=B-1 (="Q"(A-1,B)=" "A=A-1 (="A"(A+1,B)=" "A=A+1 * A1,B1;" " 42;A,B;"" %(A1,B1+1)" "B1=B1-1 %(A1,B1-1)" "B1=B1+1 %(A1+1,B1)" "A1=A1-1 %(A1-1,B1)" "A1=A1+1 7;A1,B1;"" YA1XB16110 KI2=(*II):II=1Q=Q+1:Q=5I2=1:Q=0 ! A2,B2;" " &\I2+(A2A1)(A2-1,B2)=" "A2=A2-1:A2=5B2=B2+1:A2=A2-1 :1I2+(B2B1)(A2,B2-1)=" "B2=B2-1:B2=5A2<8B2=4:A1,B1;" ":A1=A1+1 I?B2=5A2>12 B2=4:A1,B1;" ":A1=A1-1 JBA2=10 B2=4A2,B2;" ":B2=B2+1:A2=A2+1 KBA2=11 B2=4A2,B2;" ":B2=B2+1:A2=A2-1 L0A2=A1B2=B1-1A2,B2;" ":B2=B2+2 N1;A2,B2;"" pS1,2;" " uS1=(*5)+8 z2;S1,2Track-Info  R ;"" S2,29;" " S2=(*5)+8 1;S2,29;""  2000 7F=812 :(F,3)=39'7010b F 8F=812 :(F,29)=39'7020l F  Y=A1:X=B1  3060 bP2=P2+1:A1,B1;" ":7;A1,B1-1;"":2,30:1,19;P2:A,B;" ";A1,B1-1;" ";A2,B2;" ":B1=5:7030v ldP1=P1+1:2,30:1,12 ;P1:A,B;" ";A1,B1;" ";A2,B2;" ":B1=25 vF=015:2;21,0;N$;20,0;M$;0,0;W$;0,21;W$;1,0;V$;1,21;V$ z2;21,0;M$;20,0;N$;0,0;V$;0,21;V$;1,0;W$;1,21;W$ ~(.01z# =,-2:.01z# =,-0 F  1900l #(2,12 #*P1=P29900& #-P2>P19200# #21;1,12 ;P1 #<F=0100d:F: #FR.01z# =,12 :5,2;A$(E):E=E+1:E<58:9030F# #P 9790>& #1;1,19;P2 #F=0100d:F: $R.01z# =,12 :5,2;B$(E):E=E+1:E<70F9220$ &> ="S" &H="N"9999' &\ 9790>& &41;1,12 ;P1;1,19;P2 &F=0200:F: &.01z# =,12 &?5,2;C$(E):E=E+1:E<1579915& &*="P"T=1:T1=2:1000 & ="E" &="T"9999' & 9930& ' 7:7::9999' Frf``44|l888L@4`80844P\9\(804ְ88188/84808P4x808ְ88 !L5AQ10 30 ="1"ntab0110n "="1"ntab=0100d (*="2"ntab>290Z:2000 - ="2"ntab=22010 2*="3"ntab>290Z:1000 7 ="3"ntab=21050 F="4"90Z H`="5""nom t"a$():"dat t"a():70F:"Numero de tablas definidas ?";nt:ntab=nt+1 J"="6""nom t"a$():"dat t"a() L="7""graf estad"6 N ="8" P*(0,0)248:10 U 30 Z16,11 ;"":z=615:z,10 ;z-5;":";a$(z-5):z:z=716:z,22;"":z _]87W,47/:-8,0:0,81Q:97a,0:0,-8: dntab=1:nt=1 n:"Tabla ";ntab;":"; x""Nombre de la tabla ?:";a$(ntab) a$(ntab): M"Numero de Datos ? ";a(ntab,535):a(ntab,535)>502140 &"Numero de datos :";a(ntab,535) $"Valor Maximo ? ";a(ntab,513) %"Valor maximo :";a(ntab,513): z=1Track-Info  R a(ntab,535) "Dato Numero ";z;":"; a(ntab,z) 'a(ntab,z)>a(ntab,513)180 -a(ntab,524)=a(ntab,524)+a(ntab,z) a(ntab,z) z ;z=a(ntab,535)+1502:a(ntab,z)=0:z ntab=ntab+1 L#1;1;1;" PULSA UNA TECLA ":0:: 6"Numero de tabla ? ";nt:nt>ntab-11000 :140,100d:105i,0:135,95_:120x,0:0,80P:-120x,0:0,-80P "Tab ";nt;":";a$(nt) ":"Numero Datos:";a(nt,535)  ":"Valor Maximo:";a(nt,513) "5,7;"_" $T6,0;"Media (X)=";(a(nt,524)*100d/a(nt,535))/100d .:nx=(100d/a(nt,535)):e=1a(nt,535) 3:nx=(100d/a(nt,535)):e=1a(nt,535) 8#y=60<*a(nt,e)/a(nt,513) =(nx*e)-nx+143,100d B#0,y:nx,0:0,-y Ge L'140,100d:0,60< P%a(nt,513)>301110V QNb=0a(nt,513):141,(b*60</a(nt,513))+100d:b V`143,((a(nt,524)/a(nt,535))*60</a(nt,513))+7:100d,0 [K140,7:108l,0:140,7:0,60< _%a(nt,513)>301125e `Lb=0a(nt,513):141,(b*60</a(nt,513))+7:b e_135,2:120x,0:0,80P:-120x,0:0,-80P je=1a(nt,535) o#y=60<*a(nt,e)/a(nt,513) t(nx*e)+143,y+7 ye=a(nt,535)1160 ~.nx,60<*a(nt,e+1)/a(nt,513)-y e `143,((a(nt,524)/a(nt,535))*60</a(nt,513))+7:100d,0 [2,2:98b,0:0,98b:-98b,0:0,-98b (502,502,40(:an=0 %a(nt,524)>90Z1195  ang=(2*)/a(nt,524) w=02*ang +42**w+502,42**w+502 w -j=1a(nt,535):502,502 1o=a(nt,j):an=an+((2*)*o/a(nt,524)) ,sx=40(*an:sy=40(*an:sx,sy:j L#1;1;1;" PULSA UNA TECLA ":0:: 0"Tabla a modificar ?:";nt:nt>ntab2000 &:21004:3000 :2090* s="4"2200::a(nt,524)=0:z=1a(nt,535):a(nt,524)=a(nt,524)+a(nt,z):z: ="1"2025 ="2"2040 ="3"2060   2012 &"Nuevo valor maximo ";a(nt,513) 21004: Uc=a(nt,535):"Numero de datos ?:";a(nt,535):ca(nt,513)#1;"Valor maximo incorrecto":100d:2025:2200 x: Ql=a(nt,535):l10 fi=1:col=0:zz=5:3100 : Ml203200 :fi=11 :col=6:zz=-5:3100 : [l303200 :3210 :fi=21:col=12 :zz=-15:3100 : gl40(3200 :3210 :3220 :fi=31:col=18:zz=-25:3100 : g3200 :3210 :3220 :3230 :fi=41):col=24:zz=-35#:3100 : ,x=fil:x+zz,col;x;":";a(nt,x);" ":x: Ax=110 :x+5,0;x;":";a(nt,x);" ":x: Ax=11 20:x-5,6;x;":";a(nt,x);" ":x: Cx=2130:x-15,12 ;x;":";a(nt,x);" ":x: Cx=3140(:x-25,18;x;":";a(nt,x);" ":x: Cx=41)502:x-35#,24;x;":";a(nt,x);" ":x: 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'''''''''