@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C eԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: I BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSSPEICHERFEHLERDOS LADEN? J/NSxH)Dh) D&} L RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT $2080 +} F. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED 572 FREE SECTORS COPYING---D1:TEXTJ.TXTl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 128ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8 uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8 u ԍ) 0ԍ- $ J`X=USR(8255) Jʍ ! G"0{ " #ЅMh߬T} #~v! UP #ɪйL$, ,L@%,L$ L% BHILV L$ԍ !R $T J U}l !`}POKE842,12:GR.0 MENU D1 OPTIONBasic SELECTMenu STARTLoV}ad D:*.*DOS.SYS(5BP]jx %2@MZhu"0=JXer -:HUbpW}!"R! $UTF! $` BLV "BqD!EJKLV &" `ͩ(X}Ω̢͝DΝEHIB V0 "L"̅=ͩ(ΠUȄTˤ˱ ˥U' "۩ԅ y#`iͥY}i`X}}!ͥY}!"#Π I͈`xx~# ̈ եEՈ Ș80Z}Ȅե̐Ո " "Յ`D|:} ~ͩ(Φ " ~.~͝ȱ͝[}ȱ͝` "B|D#$EJK V0D,EHIB VCH "h`} !!! BASIC cartridge is disabled !\}!! } !!! This file cannot be loaded !!! } !!! This file is not on this disk !!! +$ T$}$UT $XiͥY]}iΩϠ&I͈ $% "LS ϠˆͅΤ˱ E `ԍR(% $|L }POKE842,12:GR.0:RUN"R^}} |DEHI,,H,H L R(% $|L }POKE842,12:GR.0:RUN"RN06JBAXXX(@@SAVE "D:EDITOR.BAS" *EDITOR DE PANTALLA*d;A `},;@@,n(>:A%,x A##@@K:##*****************************"-@ a}(" A)@&"@A0&10=CTRL "J" &"@ AP&20=CTRL 'T" "F:@ b},"@6" A>F:@,!@8*@@84 A> A`33F:@,!@)F:@, @ c}AP++"AV)"AW)"A%A` (>:, A`-@@"( ESTA SEGURO?")@ d}-@@##( @:S,AP##***************************** e}-@@-@AB@ AB@&&67$@5&@4<$@5,." f},##*****************************6&;(>:A%,@-@@J$$(7$@5&@4<$@5,T ^ g} Ac APh&67@,. 67A,. 67@,.X@Z- h}(\-@@( ^@@b-@l"(USE CTRL J PARA ACEPTAR"$-@ i}@%%2@P@@ (%2($ D:EDITOR.BAS-@ vtuYmCCANBBMODHRNVRNI5FSAAAAAAAAAAAAAAAAAAAADEFGLAAOk}MA@@@@@8@ A @ @ @l}m} !"#$%&'()*+,-n}./0123456789A:;<=o}>?@@@ABSAVE "D:DIBUJA.BAS"*PROGRAMA QUE DIBUJA********************yp};@,6-A&+@0@C(F(a(MOOO GRAFICO (3 AL 8)ey"@@U(%(q}COLOR DEL CURSOR (0 A 14)),(Q(LUMINOSIDAD DEL CURSOR (0 A 14)U8($(FONDO DE COLOR (SI o NO)(84N@r}S($(COLOR DEL FONDO (0 A 14)(+(O(LUMINOSIDAD DEL FONDO (0 A 14)S!"@6-A!6-1s}"@)"@%6-AY16-@y 1"@)"@%6-@y16-@9 '"@6-@8'6t}-@c+0@#010@;@MAR@Y6-Ac A#( HORIZONTALu}-#( VERTICAL - 2 A"T:,"(,2 @ @ ,-@@! '-6(@ @ v}@ d,6-R:,"@,6-&@i+"@6-%@+6-%@n"@6-%@sw}+"@6-%@+6-&@x"@6-&@}"@6-%@+"@ 6-&@x}+6-%@+"@6-&@+6-&@ 6- !6- !6- y}6-Z"!AV3AW@N( MEM.DISP.. I:,Z6-@iF:Ad,"z}@V" A 4AV@S(RAPIDEZ(DIBUJA MAS LENTO) _6-@i A@"F:Ad,"@b)", {}A >AV@c( * * * DIBUJANDO FACILMENTE * * *o6-y A@6-@"@$lF:A|}d,"@" A 4AV@FAW@^(GRAF., b l A@ F:Ad,"@(A}}jF:Ad,"@X" A 4AV@FAW@'\(DIB., ` j A@/AV~}'AW@/( AW@( ,$AdAU$6-A6-6-$}6-A6-6-$6-A6-6-$6-A 6-6-$6-A#6-6-$ 6-}A06-6-$6-A36-6-$6-A@6-6-$6-AC6-6-$6-AP}6-6-$&6-AS6-6-$)6-A`6-6-$06-Ac6-6-$36-Ap6}-6-$:6-As6-6-$=6-A6-6-$D6-A6-6-$G6-A6-}6-$N6-A6-6-$Q6-A6-6-$X6-A6-6-$[6-AP6-6-}$ A$$0-"*"*"*"0$6-%@.+( PLOT ,:DRAWT}O ,.$ + ( ( (i 6-6-6-6-% A P+6-16-76-=6-G A PM6-S6-Y6}-_6-i A Po6-6-6-!6-+ A P16-76-=6-C6-M A PS6-Y6-_6-e6-o A }Pi 6-6-6-6-% A P+6-16-76-=6-G A PM6-S6-Y6-_6-i A PU 6-6-}6-6-% A P+6-16-76-=6-G A PU( GOTO 4000L*-'AB@*%%2}@@@-@@ %%2$6-6-'6-}36-?6-K6-W6-c6-o6-{6-6-6-6-}6-6-6-6-6-6-6-6-6-6-}'6-36-?6-K6-Q6-]6-i6-u6-6-6-6-}6-6-6-6-6-AB@ D:DIBUJA.BAS6-6-d  :RFISAVE "D:ARCHIVA.BAS"d +n&&;@},;@,;@,x&&(INGRESA EL NOMBRE DEL ARCHIVO$6.D:$67B:,%@,. +-@}@" (CONT&l @@6--@#6.=:@0%,67B:,%}@,.b? 67B:,%@,.>:@4,-@@9 167B:,%@,.>:,  67B:,%}@,.>:@4,  67B:,%@,.>:@Y, 67B:,%@,.>:AU, @6.   *}@-@"( D:ARCHIVA.BAS67B:,%@,.>:AU, @6.   *7eNTABYTZAHITSMALLBIGAu2@$@@5B#EA AN z#dSAVE }"D:NOMVAR.BAS"%%PROGRAMA PARA IMPRIMIR TABLA DENOMBRES DE VARIABLES ]6-@6-@5'6-B#E]9@},9@<@ ,;@5,;A,%%6-F:A0,%AV$F:A1,-@# (F:%,,"} ( ( ( (2-@#4(>:F:%,,6  D:NOMVAR.BAS-@# (F:%,,"S-.zZAHITSMALLBIGNTAVTAVARNUBYTVARCH@@5B#EA AN z#dAuw}Aux @ @ @ AuvSAVE "D:VALVAR.BAS"PROGRAMA PARA IMPRIMIR LA##TABLA DE VALORES DE VARIA}BLES + ]6-@6-@5'6-B#E]9@,9@<@ ,;@5,;A,77BUSCA LA }DIRECCION INICIAL DEL NOMBRE DE LA TABLA%%6-F:A0,%AV$F:A1,66BUSCA LA DIRECCION INICIAL DEL VALOR DE LA} TABLA%%6-F:A4,%AV$F:A5,# (VAR NOMVAR DATA VTAB#(#6-(-@-(#} 2-@ %@7-A< 6-%A@F:,!A(%(>:F:,&A(,36-%@6'@ @}F(>:F:,,K P-@%@U-@Z(F:%$@%,_ @(,d i}(n6-%@s  D:VALVAR.BASU-@Z(F:%$@%,_ @(,d i1-BA SAVE "D:VALVAR2.BAS" + ;@, Aj!(INGRESA 0 PARA MINU }SCULAS8(64 PARA MAYUSCULASU(128 PARA MODO DE CONTROLj( TERMINA#++*@d*A(@0 }(A2< ( ( (F @ d (}  D:VALVAR2.BAS#++*@d*A(@0 V r@SAVE "D:STARTOP.BAS"  + **("PRESIONA ALGUNA TECLA DE FUNCIONES6-F:B2y,$}F:B2y,"@ GG%@@P@`@p@@AA( @2(START+SEL$}ECT+OPTION$<( SELECT+OPTION$F( START+OPTION$P(OPTION$Z( SELECT+START$d(SELECT$n ($}START$ D:STARTOP.BASTION$F( START+OPTION$P(OPTION$Z( SELECT+START$d(SELECT$n ($AADBCRESPBINMODOINSTTDNTITULOLINEANOMBREMENCLICDIRECCIONTEMPKBBBBBBBBINSDIRECC(}I0HEESPERTICLDIRECCION  A 0 8 L(} b AA`A@AU@@@@@(}@@@ !"#A$%@&@'@()SA(}VE "D:PEEKPOKE.BAS";@,;@,;@,;@,;@,;@,;@,;@,9@,(};@,;@ ,;@",;@",&6-A6-A`&6.0000 AP'66SUBRUTINA DE CONVERSION DE(} DECIMAL A HEXADECIMAL( 6-F:,6-F:,<6-@F 6-G$6-P:'@,$6-&$@H' @67<(},.=:,' @P 67<,.>:&@%@:A,,Z'6-&@' @p[R"@)"@/(HEX=7(}<@,96.[,]D6. O6. R$_!@$d77SUBRUTINA DE CONVERSION DE HEXADECIMAL A BINARIO.n@5(}7@<@,4[,])7@<@,40@6.0000x'7@<@,41'6.0001'7@<@,42(}'6.0010'7@<@,43'6.0011'7@<@,44'6.0100'7@<@,45'6.01(}01'7@<@,46'6.0110'7@<@,47'6.0111'7@<@,48'6.1000'(}7@<@,49'6.1001'7@<@,4A'6.1010'7@<@,4B'6.1011'7@(}<@,4C'6.1100'7@<@,4D'6.1101'7@<@,4E'6.1110'7@<@(},4F'6.1111'7@<@,40'6.0000'7@<@,41'6.0001"'7@<@,42'(}6.0010,'7@<@,43'6.00116'7@<@,44'6.0100@'7@<@,45'6.010(}1J'7@<@,46'6.0110T'7@<@,47'6.0111^'7@<@,48'6.1000h'(}7@<@,49'6.1001r'7@<@,4A'6.1010|'7@<@,4B'6.1011'7@(}<@,4C'6.1100'7@<@,4D'6.1101'7@<@,4E'6.1110'7@<@(},4F'6.1111M"@)"@*(BINARIO=46.[,]?6. J6. M$R((HEX:7<@,+((}DECIMAL:<(BINARIO:R(PEEK()=F:,<"@)"@#6.[,].6. 96. <$5"@(}%(HEX=7<@,((26.[,]5$9"@ (BINARIO=+6. 66. 9$66SUBRUTINA DE CONVERSION (}DE BINARIO A HEXADECIMAL k6-A:7@<@,,76-A:7@<@,,Q6-A:7@<@,,k6-A:7@(}<@,,(4000000006-( A&k6-A:7@<@,,76-A:7@<@,,Q6-A:7@<(}@,,k6-A:7@<@,,jj6-P:$@#@%$@#@%$@#@%$@%$@%$@(}%$@%, **(*(*(*(*(*(*(*6-&@!"@(DECIMAL=!$"@$  $W(}MENU PRINCIPALX[(>:A%,"AR@4-@@=(MENUO-@@X(----[(bc-@@(}3(1 REVISAR CONT.DE MEMORIAE-@@ c(2 CAMBIAR CONT.DE MEMORIAdn-@@9(3 CONV. NRO. DECIM(}AL A HEXADEC.K-@@n(4 CONV. NRO. DECIMAL A BINARIOgn-@@9(5 CONV. NRO. HEXADEC. A DECIMALK(}-@@n(6 CONV. NRO. BINARIO A DECIMALho-@@9(7 CONV. NRO. HEXADEC. A BINARIOK-@@(}o(8 CONV. NRO. BINARIO A HEXADEC.i4-@@4(9 INGRESAR POKES SUCESIVOSj$-@@$( 10 TERMINA(}l v-@@"(( ELIJA OPCION ,2(}AAPAAAAAA(}AA`66SUBRUTINA DE CONVERSION DE HEXADECIMAL A DECIMAL-@@7<,4068,-(}7<,4168,-@7<,4268,-@7<,4368,-@7<,4468,-@(}7<,4568,-@7<,4668,-@7<,4768,-@7<,4868,-@(}7<,4968,-@ 7<,4A68,-@7<,4B68,-@7<,4C68,-@(}7<,4D68,-@7<,4E68,-@7<,4F68,-@D )6-8@,$@%8@(},5"@D(DECIMAL=$++"1" REVISAR LOS CONTENIDOS DE MEMORIAB( (*( 6QUE DIRECCION QUIERES VER?.(}8 @@B A B++"2" CAMBIAR LOS CONTENIDOS DE MEMORIAV(R(FPOR FAVOR INGRESA LA DIRECCION A LA (} CUAL DESEAS CAMBIAR EL CONTENIDOV$r(r(gAHORA INGRESA EL NUMERO EN BINARIO QUE DESEAS PONER EN EL REGISTRO(LOS BITS(} SE NUMERAN DE 7 A 0 DESDE I.: A(*(PEEK()=F:,-(0(: APKGG"3" Y "4" CONVIERTEN UN NUMERO DE(}CIMAL A HEXADECIMAL 0 A BINARIO"LM( (5(&INGRESA EL NUMERO QUE QUIERE CONVERTIR9C @`M A,,"5" CONVER(}TIR UN HEXADECIMAL A DECIMAL--"5" CONVERTIR UN HEXADECIMAL A DECIMAL"c( (@(1INGRESA EL NUMERO QUE QUIERE CONVERTIR(}(2 DIGITOS)DSB:,!@Y(}c A A A//"6" CONVERTIR UN NUMERO BINARIO A DECIMALN( (}(6('INGRESA EL NUMERO QUE QUIERES CONVERTIR:D AN Aw,,"7" CONVERTIR UN HEXADECIMAL A BINARIOxY( (A(}(2INGRESA EL NUMERO QUE QUIERES CONVERTIR(2 DIGITOS)EO AY A,,"8" CONVERTIR UN BINARIO A HEXADECIMAL(}^( (6('INGRESA EL NUMERO QUE OUIERAS CONVERTIR:D AJ6-T @`^ A?MM"9" INGRESAR UNA SERIE DE PO(}KES EN LOCALIZACIONES DE MEMORIAS SUCESIVAS@N( (J(;INGRESAR INSTRUCCIONES EN FORMA DECIMAL(D) 0 HEXADECIMAL(H)NJH(}(>(2CUALES LA DIRECCION INICIAL(EN DECIMAL, POR FAVOR)BH6-T(7@<@,4H(6-@Y(7@<(}@,4D(6-^4(4()AHORA INGRESA LAS INSTRUCCIONES UNA A UNAh) A A) A`r A(}|# 6-%@#A@ APJ(%(ES LA ULTIMA INSTRUCCION?)J7@<@,0SA(}@b(=(1DESEAS EJECUTAR EL PROGRAMA QUE INGRESASTE RECIENAb7@<@,4SAP  6-?:(},==**** TITULO INICIAL,SETCOLOR=FONDO NEGRO LETRAS BLANCAS0@70@@@D(>:A(}%,VAR@q6.JUEGA AL PEEK Y POKE6.PRESENTADO POR 6.EDICIONES COMPUGRAFICAZ6-P:B:,'@(},%-@9-@&@V(*7&%@<%,*Z ^ 6-P:B:,'@,)-@=-@&@ (}Z(*7&%@<%,*^ @^ 6-P:B:,'@,)-@=-@&@Z(*7&%@<%,(}*^ E |-@A  p0-@)B2y- 0$z"AR+"(}D:PEEKPOKE.BASA  p0-@)B2y- 0$z"AR+"(W CHCBUFFNCTTNSM @@SAVE "D:ARCHCAS.BAS,}" 11**PROGRAMA QUE CREA UN ARCHIVO DE DIRECTORS**EN CASSETTE(>:A%,,,**DEFINICION DE VARIABLES Y CONSTA,}NTES(H<;A(,;@,;@,;@,;@,H6-@233**COMPLETA EL BUFFER DEL CASSETTE CON BLANC,}OS<(-@A($67<,. ( F33**INGRESO DEL NOMBRE DEL VOLUMEN DEL CASSETTEP<<(4INGRESA EL NOMBRE DEL CA,}SSETTE(MAXIMO 16 CARACTERES)Zd00**PONE EL NOMBRE DEL CASSETTE EN EL BUFFERn67@<,.x//**INGRESA INFORM,}ACION DE HASTA 6 ARCHIVOS-@@%%(INGRESE NOMBRE DEL ARCHIVO i#7@<@,4>:@',},- Api**CUANDO SE PRESIONA LA TECLA ESCAPE SETERMINA EL INGRESO""67$%@<$%@,.::(2LECTURA DEL,} CONTADOR PARA ESTE ARCHIVO (3 DIGITOS)&&67$%@<$%@,.%%**FORMA DE ALMACENAR EL ARCHIVO''(QUE,} COMANDO SE USO PARA GRABAR?##(CSAVE/SAVE C/LIST C-(C,S,U)67$%<$%,. 22**GRABA EL ARCHIVO D,}IRECTORIO EN EL CASSETTE$$(PRESIONA PLAY/RECORD-RETURN "##@@C:,(GRABANDO EL DIRECTORIO,} 6(@@@ D:ARCHCAS.BASRETURN "##@@C:,(GRABANDO EL DIRECTORIO,5V(CBUFFNCTTNISMSAVE"D:ARCHCAS2.BAS"0} 00**DESPLIEGA UN MENU PARA LEER LOS ARCHIVOS ( ,,**DEFINICION DE VARIABLES Y CONSTANTES(B6;A(,;@0},;@,;,;@,B6-@2**OPEN CASSETTE<$$(PRESIONA PLAY Y LUEGO RETURNF##@@0}C:P00**LLENA EL BUFFER DEL CASSETTE CON BLANCOSZ`-@A($67<,. ( `**LEE E IMPRIME EN LA PAN0}TALLA EL NOMBRE DEL CASSETTEd55(>:A%,"LEYEND0 EL DIRECTORIO DEL CASSETTEn@(1x(7@<@0},(22**IMPRIME EL MENU DE ARCHIVOS EN LA PANTALLA-@@""6.7$%@<$%@,""6.7$0}%@<$%@,6.7$%<$%,(   ( 55**PREGUNTA POR EL PROGRAMA QUE SE QUIE0}RE CARGAR?(?(4INGRESA EL NUMERO DEL PROGRAMA QUE QUIERES EJECUTAR ""6.7$%@<$%@,""6.7$0}%@<$%@,##(AVANZA LA CINTA HASTA EL  AP''**DECIDE CON QUE COMANDO CARGARLO" 7$%<$0}%,4CA0, 7$%<$%,4EA@6**CARGA EL PROGRAMA@ C:(PRESIONA RETURN J5(PRESIONA R0}ETURNT C:^!!(RETROCEDE LA CINTA AL h AD:ARCHCAS2.BAS(PRESIONA RETURN J5(PRESIONA R0T,- DESPECFFNDSCCFLFLAPPIFIPPIAv@@B4}@9 SAVE "D:UTCATDIS.BAS" A +'0@4}@@A0@@ 119A,;@,;@,;@,6-@##@@4}K:..(&UTILIT. PARA CATALOGACION DE DISKETTES<(SIMBOLO COMODIN?%)@1"AU<6-@:*,4}#-@@8(>:,# h@(>:A%,G('UTIL. DE CATALOGACION DE DISKETTES[UCD]J(e([C] CATALOGA4}R DISKETTEh(([D] DIRECTORIO COMPLETO(5-@@"(( TU ELECCION=>5)@-A>:,0C*>:,0D7(>:4}A%,>:AS,D o CA @@2>:,4CA0<**FUNCION DE DIRECTORIOAS-(>:A%,>:@),[UCD]DI4}RECTORIO96-S0@@@FB+(#INSERTE DISKETTE DE DATOS, 8)@B @KP"(SALID4}A POR IMPRESORA(S/N)/)@:>:,4SF6-@P @M6-PY&(QUIERES ESPECIFICAR RANGO(S/N)3)5}@>>:,4SI(RANGOOY AZ6-@6-B d(ARCHIVO DESEADOi@ 4 67@,5}.>:,.67@,..@67@,.>:,n: 6.#67@<@,. 267@,.:6. x -#6.D:DISC5}O#67@,.=:,R A*@@7(DISCO A AER3DISCO @6-@5}****BUSQUEDA Y COMPARACION DE ARCHIVOS::7@<@,0*7@<@,0*A)@:7<,,"65}-%@) A7<,4.A7<,07<,AP$  B:,6-%@$ A`6-%@5}(3 AP"6-%@"6-B:,&@@:7<,,"A7<,07<,AP2  B:,65}-%@(6-%@2 A6-%@(3 APX(@ ]P('( ARCHIVO(S) E5}NCONTRADO(S) +.3P3 ARCHIVCO(S) ENCONTRADO(S) ^-@A b @  **FUNCION DE CATALOGACION5} |(>:A%,*0@@@D0@@V( CATALOGO[UCD]Y(x(NRO DEL DISCO A CATALOGAR|5 } #6.D:DISCO#67@,.=:, 9((INSERTA DISCO ,( 9)@ 2&@@D5 }:*.*26-  A5)@ $ 68,-6-%@$ A0P 68%@,-%@( S(&IN5 }SERTA DISKETTE DE DATOS-LUEGO RETURN`)@}@@6- 6 A6 >:8,,(*@5 }8,66-%@ 8,"A6 A54(CATALOGACION FINALIZADA*@4 @ D:UTCAT5 }DIS.BAS-%@ 8,"A6 A54(CATALOGACION FINALIZADA*@4 @ D:UTCAT4**HEXBLAKNOTNDKN0TVBBITWMENUSETSECALBUFPSECFUFFGHCBYTBNBNSECSLNSSSSSBI9}TMOBIOARRSLNFRNFRENFREHHBLABUAHALSECHSECLDSKINVNAALSECL,&@ q  9}@R B ?P ] @#9} !"#$9}%&'()*+,-e ./012349}56789:;< =>?@ASAVE "D:DESCU9}BRE.BAS"d**PROGRAMA DESCUBRIDORi.@.@@K:k.@.@@9}S:mAf~~;A0,;@,;@,;@,;@,;AU,;@8,;@,;@9},;@,;@,6.0123456789ABCDEF 6.104,32,83,228,96 #A-@@"9}67,.>:, 33104,104,104,133,209,104,104,37,209,133,209,96 #A-@@"67<,.>9}:, ! 6.!67@,.>:@,! 6.!67@,.>:@i,KK72,169,8,141,31,208,173,31,208,201,5,208,8,9}173,255,6,73,255,141,255,6UU173,255,6,201,255,240,7,169,148,141,198,2,208,5,169,162,141,198,2,104,76,95,228 #A09}-@@D"A5% ((104,162,6,160,0,169,6,32,92,228,96 #A@-@@9}"67,.>:, 6-?:C:,,6-A(-@@67,.>:,6-'@" ,O6-9}@#!-O(>:A%,(EN UN DISKETTE DOS STANDARD 1?9(1LOS SECTORES 361-368 CORRESPONDENALDIRECTORI9}O)<(?(6(1.-REVISAR UN SECTOR ;66(.2.-REVISAR UN SECTOR DENTRO DEL DIRECTORIO@(3.-RASTREAR UN ARCHIVOE*9}*("4.-REVISAR UN CONJUNTO DE SECTORESJ66(.5.-MAPA DE SECTORES ENCADENADOS EN EL DISCOO""(6.-MAPA DE UN SOLO ARCHIV9}OT(7.-COPIAR UN SECTORY""(8.-RESPALDAR EL DIRECTORIO^((( 9.-PROTEGER/DESPROTEGER SECTORESc(10.-REVISAR LA 9 }MEMORIAd ( h__AAAPAA AAAAAuAw(>:A%9!},(((x,((LOCALIZACION DE MEMORIA INICIAL,y5('(NUMERO DE BLOQUES A REVISAR+5 A(>:A%,9"}(())(!(SECTORES DEL DIRECTORIO 361-368)( QUE SECTOR%"@6-@% A  A9#}(>:A%,((++("CON QUE SECTOR COMENZAR EL RASTREO A(>:A%,(((NUMERO DE SECTORES9$}((SECTOR INICIAL (>:A%,(("( 1-AUTOTRACE(2-PAUSE"(X(>:A%,((Z9%}(TIPO DE DESPLIEGUE:(\:( 1-CARACTERES()( 2-HEXADECIMAL,(:( 3-DECIMAL] A`( APb/(,(9&}!4-MAPA HEXADECIMAL DEL SECTOR 360/(g@A(6-@(>:A%,(6-@''-%A(9'}$+&@,A(2-@2(MEMORIA COMENZANDO EN -@A(67,.>:F:%&@,,9(}  A5!"@!-%&@ 67A(,.  6-@ A//GUARDA LU6AR PARA FUTUROS 9)}ENCADENAMIENTOS''A@A@@APA@@"@A@@A .(+( BYTES DE ENTRA9*}DA DEL DIRECTORIO:.(C( START+0=FLAGC(*(66/NORMAL;128/ELIMINADO;98/ PROTEGIDO;ETCO,($START+1,2=CONTADOR DE SECTORE9+}S LO/HIO(START+3,4-SECTOR INICIAL LO/HI  Ap*,-@@ ,(NRO DEL ARCHIVO=/6-@@!6(9,}PROXIMO PUNTERO AL SECTOR=4?-@@"?(SECTORES EXTRA=A%&@:7A(,,H"F:A,"AU" A09-}M"@ A RY-@@#B('PRESIONA CUALOUIER TECLA PARA CONTINUARO)@Y Ay"@9.}*"+-@@#0(B-@@#W(FIN DEL RASTREOc6-@o6-@y APq@9/}!-@@!%(7-@@!d('PRESIONA CUALQUIER TECLA PARA CONTINUARq)@"@ "90}@6- A "@  A"@AG5-2(>:A%, NRO SECTOR91} 5(Af@$"(BYTE 02468ACE SSTLTH"(%-@@)f0(@$+&@,-@$&92}@D-@f6-@$+&@,%@%+++IF ASC(BUF$(K,K))=155 THEN POKE 766,0,++? CHR$(253);"*"93};:POKE 766,1:GOTO 1070- (7<,. /& Aa)!Ah(& Au0k-@0@%@k(AV$@:794}@$+&@,%@,,%@:7@$+&@,%@,,1k-@5@%@k(AV$@:7@$+&@,95}%@,,%@:7@$+&@,%@,,3 Af6$O"F:A,"AU" A0Q"@96}' A 5R4-@@+-@@ %0(4 S? A0(DESEAS CAMBIAR EL SECTOR(S/N)4<0S97}?$V8 A4(!INSERTA NUMERO(N) 0 CARACTERE (C)8X4NA0Z0CA\E 6.  AA(&CUA98}NTOS CARACTERES QUIERES CAMBIARE^+ A'(EN QUE BYTE COMENZAR+`D A@( ESCRIBE LOS  CARACT99}ERES A INSERTAR .....Db06-%@&67<%&@,.0 APj8 A4(!CUANTOS BYTES CON EL MISMO NUMERO9:}8v? A-(NRO DEL BYTE PARA COMENZAR1?6-%@x0 A0( BYTE ANTIGUO =@:7<,,z( B9;}YTE NUEVO =| -%}67<,.>:, ~W 6.  AC((ESCRIBE S PARA MODIFICAR EL SECTORG9<}W0SA&6-@ A'& A .-@@!(+-@@!.$x&-#(>9=}:A%,&(}%!(NRO. DEL SECTOR A COPIAR%<(<(1INSERTA DISKETTE FUENTE, PRESIONA CUALOUIER TECLA7)@9>}!67A(,. -6-@7 A0 6- (,(NRO. DEL SECTOR DE DESTINO0c(@(5INSERTA DISKETTE DE DESTIN9?}O, PRESIONA CUALQUIER TECLAM)@Y6-@c A+6-@6-!6-@+ Aj(!( SECTOR 9@} ANTIGUOF(GRABADO COMO EL SECTORNUEVOI(j(CUALQUIER TECLA PARA EL MENU)@ A@V-9A}#(>:A%,&(V(+INSERTA DISCO CON DIRECTORIO A GRABARE>1()Y PRESIONA CUALQUIER TECLA PARA CONTINUAR>)9B}@J46-@ 67A(,. 4-@OH6-A`% A16-A($%@D67<%A'9C},.H T7(3('NRO DEL SECTOR INICIAL PARA GRABAR DIR.7YJ(=(2INSERTA DISCO DE DESTINO, PRESIONA CUALOUIER TECLA9D}J)@^A6-@#-@+6-%A6-A($%@cF6.7<%A', A$ 06-@9E}<6-@ F AhZ(6(DIR GRABADO EN EL SECTOR AL %@9(Z(CUALQUIER TECLA PARA EL MENUr)@9F} AJ-"(>:A%,1( 1=PROTEGERC( 2=DESPROTEGERF(J)( (%(COMENZAR CON EL SECTOR9G}) ((CUANTOS SECTORES L6-A`%-&@667A(,. B6-@L A, 6-%9H}6-P:'@,,6-&@$16-@:7@%,,%6-%@16-@:7,,[6-?:C:,<<,[+"@*F:A ,!9I},)+"@*F:A ,",A8"@6-?:C:,<<,.6-F:A ,8 A5G6-?:C:,<<AU9J},(6-F:A ,86-?:C:,<<,G6-F:A ,c67@%,.>:,?6-@:7@,,%AV$@:7@,,K"@Y9K}6-&@c AE6-%@$6-P:'AV,$6-&AV$'67@,.>:,'67@,.>:,6-@9L} A  "@)"@ $ A67A(,.  6-2-?(>:A%,e(9M} EL ARCHIVO COMIENZA EN EL SECTORi{@@A@O6-@ A# Ap16-%@9N}="@ I6-@L(O(!( 6-!A&]@@'A@*(>(FIN DEL MAPA...9O}SF:A,"AU] A00A-@@#*(CUALQUIER TECLA7)@A An(>:A%,6-(9P}6-@967A(,. K-@@#n(CUALQUIER TECLA PARA TERMINARnAdAU'Af@;-9Q}@#A-n($@0%@-+%@,$@01-@ #-@@016-%@6F:A9R}d,"AU" A, Ap6 A 8%AdAU''% A!P @(* A!) @9S}(>:%@H,) A!5!@  @6+(>:%@U,5 A! !@5(>:%@a,4   f9T}"F:A,"AU" A0pJ-@@#(,-@@#J(PRESIONA CUALQUIER TECLA,Af9U}")@, A \AdAU'Af@1 A0`<@\@@P: %-9V}%-@9  -)@ !A'6-&A( 3 @2)"A')(@*3 9W}A0E (@>:, -  3F:Ad,"AU# - A0P "AdAU'" A0P 3 3 3 "A9X}f B"${-@A@>6-@:7P:'@,%@,,O6-P:'@,_6-&@$m69Y}-%@{6-%@T67<,.7<,367%@<%@,.7<,P67%@<%@,. T "@9Z}( ABm3(>:A%,(3(SECTOR  EN HEXADECIMALrx-@@t(@$+&@,-@$&@9[}7@$$+&@,%@<@$$&@,x |R"@6-@G/-@@;-@6@(N69\}-%@dR $'@@'A@"@ AP%=-@=(>:A%,SECT9]}OR  EN DECIMAL 1(-@*(>:@0,. 1(.-@@.(@$+&@,H-@9^}@A(@:7@$+&@,%,,>:@0,E H(+ A@+@@$bV6-@:7A9_}&,,+6-?:C:,<<@,B6-F:A ,$AVV6-%@:7A',,<6-@:7A&,,+6-?:C:,<<AR,<6-P:'9`}@,$J6-AhT%%@@%%@h- 6-C:,6-P:'AV,-6-&AV$r%@9a}%@|$6-P:'AV,$6-&AV$%@%@ 6-?:C:,, 6-F:%@,"@9b}A"@AY-"(>:A%,%(((E(SECTOR  =SECTOR MALOY"@A9c}L(2('PRESIONA CUALQUIER TECLA PARA CONTINUAR?)@B'L A$ D:DESCUBRE.BAS@A8opFILACOLFIILA@AA`@0@@@@ @ =e}SAVE "D:JOYARR.BAS" A<6-R:,6-%8,(6-%8,<"@@ 9 ,@=f}#,)6-/6-9 @ (* @@"6@&6-* 2"@6-@y < "6@6-=g} F"@H6-@G d9@,9@,e#n9-@@&68,-568,-=q}Kb%DOS SYSb*)DUP SYSb SAUTORUN SYSB _EDITOR BASB$jDIBUJA BASBARCHIVA BASBNOMVAR BASBVALVAR BASBVALVAR2 BASBSTARTOP BASB:PEEKPOKEBASB ARCHCAS BASB ARCHCAS2BASBUTCATDISBASBVDESCUBREBASBdJOYARR BASBsJOYGOTO BASByUSOJOY BASB~PTRUEBAJBAS9 x3-@@"&68,-/68,-3 J +@!6-@0# @@5AA2GA A"=r}J$1,1,1,-1,1,0,0,0,-1,1!!-1,-1,-1,0,0,0,0,1,0,-1,0,0 D:JOYARR.BAS@5AA2GA A"<W@cx@@@ @@SAVE "D:JOYGOTO.BAS" @p#6-At}%@6-%@# #6-%@6-&@# 6-%@  #6-&@6-%@#  #6-Au}&@6-&@#  6-&@  6-%@ 6-&@  R:,9 ,Av}@#,)6-/6-9 @) @0"@%6-@y) ("6@6- 2"@H6-Aw}@G < "6@6- FQ6-@ +@!+AA=A @G @0Q @Ax} D:JOYGOTO.BAS@6- FQ6-@ +@!+AA=A @G @0Q @@ 9?SDD@@"@SAhSAVE "D:USOJOY.BAS" 9 +@#6-@y%6-Ez}@G/@9 A` 6-R:,GG6-+"@)"@)"@,&+"@ )"@)"@,(GG6-+"@E{})"@ )"@,&+"@)"@)"@,2$d6- @ n(+),Ax# 6-%!AE|}Y#6- 6-AY# 6-%!@#6- 6-@ ,006-AE}}U&P:+'AY%'@,$A%,2@@ A D:USOJOY.BAS ,006-ADm%@ @@ @SAVE "D:PTRUEBAJ.BAS") +@AR@) A %6I}-@$6-@% A%6-@$6-@% A%6-@%6-@% A %6-@6-I}@% A %6-@6-@% A %6-@6-@% A %6-@ 6-@% AI}%6-@ 6-@% A6-@ 6-@9 )@)/@ @3@9/I}% @,@ @%,,((A@f&T:,$@f'AV@'AW@(STII}CK(0)R:,(STRIG(0)T:,-F:Ad,AU*AdAU-% 6-6- R:,I}D:PTRUEBAJ.BAS,(STRIG(0)T:,-F:Ad,AU*AdAU-% 6-6- R:,H/