) : +---------------------------+Q: !UTIL.BAS nova verso 3.00 !y: !(c) 1990/92->A & L Software!(: +---------------------------+2:<: InicializaĀF:PP AZ:ͷ:():(): ,,: : (: : ,: A$(p),M$(p):  : : ,, ,, :() :(): k ,: ,؁ZA$(X,Y)((Y,0)((X),((X))),Y): >: : V:  : I : H$(I),ST(I),ND(I):: F,:DR:  [d  : I 3: A$: `I,("&H"A$):: `: q:  : ,( H): I : ( I,(X I):  I,(` I):cn:zx: Menu principal::X:  , ,:"UTIL.BAS nova verso 3.00": ,:"(c) 1990/92->A & L Software": : ,:"Opes:": ,:"Configurao: drive "(@DR):"disco ";CO$I Disco,Arquivos,DOS,FimjX:Y :NO: T :X()x A A ,P ,: P): ,:"Confirma sada (S/N)?":A$: A$"S"  : A$"N"  :  A SYSTEM ,:A():(: Disco0:H:X: ,:  y ,: ,:"Disco":  ,:"Opes:": Ƅ Editar disco,Mudar nome do disco,Informaes,Drive,Data,Menu principal"X :Y:NO: T :X(), A 6,,f,B,,6:%@: Editar disco-J:TT:X:  :  ,:"Editar disco"o^ ,:"(RET) - Sai"h ,:"Entre o setor:";: N$: N$""  : N(N$): N NST hr: I : I(,: I(,: I(,: I(%,:: ,\| ,: (,"-"): ,: (,"-"): ,: (,"-"): ,: (,"-") ,: ,: ,: %,: ,: ,: ,: ,І b,N,,l: I :(I) :) ,:"F1-Grava F2-Avana F3-Recua F4-Hex/Ascii": :GE: :C:L:CC:AH_ ,:"Posio:";(E)" Setor:";A$(N,);:DH AH CDH,L:PPCDH : C,L:PPCCR(L(PP): ();I$: I$""  : L(PP,CR: AH I$(`) I$((I$) )+ AH CDH,L : C,LK I$() ,: a I$( )  AH I$;:D(I$): E,D: C,L: ("00"(D),): ۈ I$"0" I$"9" I$"A" I$"F" CC:  I$;:D$(CC)I$:CCCC DH: CC eDH:D("&h"D$()D$()): E,D: C,L: D D D "."; : (D);EE:CC: C LL: 0&CC: 0 L L:C:CC‰: C CщDCC: N Z(( Q)( R)) CC:  XGZ: :EE:CC: >b L(PP,CR: DR,N: XlAHAH: AH AHov L(PP,CR:  I$() CC:EE I$() NJ I$() L EE:LL늞 I$() EE:LL: 0 C L C:LL : CC:EE'CC: S Z( Q)( R) CC: rGZ: :EE: K$(DR,N)E( Q)( R): I : M :V(G): M,I: ("00"(V),);: M V V V "."; : (V);&GG: M,I:ZG:.:J : Mudar nome do discoR: :X:  :  ,:"Mudar nome do disco": ,* ,:"(RET) - Sai"Ȍ4K$(DR,):E( Q)( R)> ,:"Nome anterior:"; H KE E : ((K));::N$""UR ,:"Novo nome:";: N$: N$""  : N$(N$" ",)\ K : EK,((N$,K,)):: DR,: f:p: Informaesz:Ӎ:X:  : ,:"Informaes"퍎 ,:" ":X:   ,:"Nmero de setores do disco..";STI ,:"Bytes por setor.............";BSv ,:"Nmero mximo de arquivos...";NA ,:"Setor da FAT 1..............";ώ ,:"Setor da FAT 2..............";T2 ,:"Setor inicial do diretrio..";ND/ , :"Tamanho do diretrio........";TD"set"d , :"Nmero de clusters..........";(ST)TC , :"Tamanho de um cluster.......";TC"set"ˏ , :"Setores livres..............";AL"-";ST ,:"Nmero de trilhas...........";NT. ,:"Setores por trilha..........";(ST)NTa ,:"Tamanho da FAT..............";TF"set" ,:"Nmero de faces.............";NFĐ$ ,:"Capacidade total (bytes)....";BS(ST). ,:"Bytes em um cluster.........";BSSB 8 "" 8 : B:#L: Drive+V:K`:X:  : ,:"Drive"dj ,:" ":X:  t ,:"Drives no sistema..............";( G)Α~ ,:"Drives conectados na interface.";( ) ,:"ltimo drive usado............. ";: (A( ))C ,:"Slot da interface..............";( H){ , :"Drives fsicos do sistema......";( G)Ȓ , :"Delay do drive ...............";( DR): , : (@DR) , :"Drives ativos do sistema.......";( G) ""  : :+: Data3:R:X:  : ,:"Data"l ,:"Data atual:"; ( H)"/"( I)"/"( J):"Alterar (S/N)?"ۓ A$: A$"S"  : A$"N"  :  " ,:"Data atual:";: N$: (N$)  : (N$) WE((N$,)):E1((N$,,)):E2((N$,))n( E E 2 E1 E1 < E2P E2c ΔFE2E2P: H,E: I,E1: J,E2: ֔P:Z: Arquivosd:knF:F1:ARQ$"": FD,: I x: I ,::A():A():BL(DR): I x: ( I ) FFI : x F1FF F1FFᕂX(): I : I(,: I(,:: ,: (,"-"): ,: (,"-"): ,:" "*X:  : ,: ,:"Arquivos": ,: ,:  ,: /,4  ,:"Drive ";(@DR)" "A$(FF,)" arqs. "A$(BLBSSB,);" bytes livres";䖪 : I : A$: ,I: (A$,):: : ,:"Opes:": ARQ$""  A(): ,:">"ARQ$"<";: s Cabealho,Recuperar,Exibe,Deletar marcados,Copiar marcados,Diretrio,Outro arquivo,Menu principalX:Y :NO: T :X() A ,X,,, , ,,Η : $X():ARQ$"": : ( ) , :ARQ$"":"DIRETRIO": , :"VAZIO":A F1FF F2FF : F2F1[ IF F2:P  I˘S$"": JP P :S$S$((J)): J:S$(S$,)"."(S$,): ,(IF): S$;: S$A$(I) M$(I) : Ә IX:Y:C$()" X,Y: C$: I  :+,A()(): A X,Y:" "?6YY(A)(A)`@ Y Y : Y YJK$: K$" "  : K$"C"  : K$"D" T ,Y: M$(F(Y))י^ (Y(X) YYh A F FF:F1F1: : 5r A F2FF FF:F1F1: : N| I  : I: "~P$"": J  :P$P$((Y(J))::ԚSF(Y): M$(S)"" M$(S)" " M$(S)"=": :A$(S)P$ : M$(S)" ":A$(S)""隚 ,Y: M$(S):?SF(Y): M$(S)"" M$(S)" " M$(S)"+": :A$(S)P$ : M$(S)" ":A$(S)""T ,Y: M$(S):t I : ,I: ):: X,Y:" ":ARQ$"": :ARQ$P$::: Cabealho:ӛ ( ) : ARQ$ AS #A$$(,#)Y (A$) :"V15L64O1C.": ,:"No binrio":: I :: ,: ): I$$(,#):F$$(,#):E$$(,#):EI((I$,))((I$,)):EF((F$,))((F$,)):EE((E$,))((E$,))& ,: (,"-"): ,: (,"-")T0 ,:"Incio :": ,:"Fim :": ,:"Execuo:": ,: ("0000"(EI),): ,: ("0000"(EF),): ,: ("0000"(EE),)ϝD "" D : N: N I : ,I: )::X:b: Recupera arquivos deletados#l:Xv:A():X:  :  ,:"Recuperar arquivos"s ,:"(ESC) - Sai" I FD  X$: X$() I d::: Pݞ (I)  : (I) X I: j, 7:A(): ,: ): ,: x): , :"Sem mais arquivos apagados": j, : I ::: PS$"": JI I :S$S$((J))::S$"?"(S$,)"."(S$,)ԟ ,:"Arquivo:"S$: , :"Recuperar? (S/N)"; P$$(): P$"S"  : P$"N"  : a , :"Primeiro caracter do nome:";:A$$(): A$: I,(A$): , : ();: i:x: Exibir: ( ) ڠ: ,: (,"-");: ,:"Exibir "ARQ$: ,: (,"-");  ,:"Impressora,Tela,Menu":A$. A$"T" A$"I" A$"M"   :  I  A$"M" N: ^* ARQ$ AS #r4 A$"I" OP> A$"T" OP:H I  : I,"":: ,"S=Sai": ,"P=Pausa"ޡR: ,"S=Sai": ,"P=Pausa": \ () f #,A$KpX$: X$"S" :A(): : ( OP): N:  : X$"P" ez OP A$ : A$X$: X$"S" :A(): : ( OP): N:  : X$"P"  \բ "P"  : 㢢X():: I  :: "" B( OP): I ::: N:A():A(): : J:l: Deletar arquivos marcadost: ( )  ,: (,"-"): ,: (,"-"): ,:"Deletar marcados": ,:"Confirma (S/N)?""A$: A$"S"  : A$"N" N:  : r ,: ): ,:"Deletando... ": I p: M$(I)"+"   A$(I): ,: A$(I):A$(I)"":M$(I)"" I: N: P :ܤ$ : Copiar arquivos marcados. :8 ( ) XB ,: (,"-"): ,: (,"-"): ,:"Copiar marcados": ,:"Confirma (S/N)?"L A$: A$"S" V : A$"N" N:  : L V ,: ,: ): ,:"Destino:";:A$$(): A$:D(A$)@: D D( G) : V "` ,:  ): ,:"Disco DOS (S/N)?"9j P$: P$"" j Rt D2$(@D):X()x~ N: ,:"Preparando cpias" :"A&LUTCOP.BAT" AS # I p: M$(I)"="    :#,"COPY "(DR@)":"A$" "D2$": /V /B"1 I:#,"BASIC A&LUTCOP.BAS"::A$( )"A&LUTCOP.BAT"( )y P$"N" A$( )"PAUSE Troque o disco e chame A&LUTCOP"( )ʧ "A&LUTCOP.BAS" AS #:#,"10 KILL"(")"A&LUTCOP.*"(")":NEW": P$"N" ,:"Coloque o DOS"): ""  C : I (A$): I,((A$,I,)):: , : , EEdI`(A$):EH(E):ELE(EH): ,EL: ,EH: SYSTEM : : : ,: :̨ : DiretrioԨ : A()::X:   ,:"Diretrio"4( I FD  : ,: (I) : I2 (I) It< "Nome : ";: J  : J ".";F ((JI));::P "Hora :";:S(I):S1(I):S$("00000000"(S),):S1$("00000000"(S1),)MZ S$S$S1$:H("&B"(S$,)):M("&B"(S$,,)):S("&B"(S$,)):H"hrs"M"min"S"seg "d "Data :";:S(I):S1(I):S$("00000000"(S),):S1$("00000000"(S1),) n S$S1$S$:D("&B"(S$,)):M("&B"(S$,,)):A("&B"(S$,)):D"/"M"/"A" "Zx "Tamanho:";(I)(I)(I)(I)EeS`"bytes " ,:"[ESPACO]-Continua [ESC]-Fim"ǫ A$: A$() :  : A$" "  :  ׫ I:: ߫ : : Rotina de tratamento de erros : := E$"Erro"()", linha"()"."^ < E$"Erro na F.A.T." B E$"Disco cheio. Cpia impossibilitada"̬ C E$"Diretrio cheio. Cpia impossibilitada" D E$"Disco protegido" E E$"Erro de E/S!!!"+ F E$"Sem disco"j T(E$):C'T: C,: I T: (E$,I,);:"V15L64O1C"{ ()  " , I :: 6 :@ : Rotina de menuJ :T I NO: X,Y(I): A$: A$::LY^ X,L:">" h I :r X,L:" ":| A():LL(A)(A)Y A1$: A1$() d A1$() DRDR: DR( G) DR NO A1$()  : ,: (@DR)Ӯ LY(NO) LYꮮ LY LY(NO) K$: ()() K$( ) AL(Y):+ I :5 ^ "3% Face simples",719,5,"3% Face dupla ",1439,7,"",0,0,"",0,0,"5^ Face simples",354,5,"5^ Face dupla ",719,5 :ɯ : L configuraoѯ : A$(,):E( Q)( R)7 S9(E)(E):BS(E )(E ):SB(E )K FM(E) d STST(FM):CO$H$(FM)& NDND(FM): FM TD : TD0 FM TD : FM TD : FM TDְ: FM TC : TCD FM T2 : T2N AL : FM AL : FM AL3X NTP: FM NT(Jb TF: FM TFcl NAp: FM NA@v NF: FM FM NFձ FD TD: d,ND(FM): g,TD:P$"11111": FM FM F$"1" : F$"0" FM FM T$"0" : T$"1"- P$P$T$"0"F$: i,("&B"P$): l,DR:ϲ 21,00,C2,11,00,00,06,00,0E,00,A7,3E,00,CD,A7,FF,C9,21,00,C2,11,00,BD,01,0B,00,7E,FE,00,C8,FE,E5,28,08,ED,B0,01,15,00,09,18,ED,01,20,00,09,18,E7,F7,00,22,40ײ : : Rotina de janela : P: P PN (P)(,: (P)(',: (PX)(,: (PX)(', I X: (PI)(,: (PI)(',: ,P: (&,"-");: ,PX: (&,"-");: :ܳ : Rotina para formatar nomes :1 S1$(A$(I),): J  : (S1$,J,)" " S1$(S1$,(S1$))d J:S2$(A$(I),): S2$" " S1$S1$"." J  : (S2$,J,)" " (S2$) S2$(S2$,(S2$)) : S2$""ٴ* J: S2$"" S1$S1$S2$4 A$S1$:S1$"":S2$"":