:': Atualizador de BACKUP=: A&L 1992,1994E(:]2 : (: : ,< : AZ: E,J,C,T: D1$(p),D2$(p),AF$(p),T1(p),T2(p),TD$(p)F:  )"ATUALIZADOR DE BACKUP":: )"by A&L 92,94"::P"Coloque o disco original no drive..."#Z "" Z:d"Lendo arquivos:"nnD1: I  :A$(,I):E( Q)( R)x JE E  : (J)  (J)  CJ J :D1$(D1)D1$(D1)((C))::D1D1:D1$(D1)(D1$(D1),)"."(D1$(D1),)% ,: D1$(D1)dT1(D1)(J)(J)(J)(J)EeS`p J: ID1D1:"Total de arquivos:";D1:"Coloque o disco BACKUP no drive..."҂ "" "Lendo arquivos:"D2: I  :A$(,I):E( Q)( R)D JE E  : (J) "Z (J)  CJ J :D2$(D2)D2$(D2)((C))::D2D2:D2$(D2)(D2$(D2),)"."(D2$(D2),)Ճ , : D2$(D2)T2(D2)(J)(J)(J)(J)EeS`  J: IE"D2D2:"Total de arquivos:";D2\,:"Tecle algo..."m6 "" 6@ I : ,I: ();:J , :"Comparando discos:"TTDń^ I ph , : (IA );"%"r J p(| D1$(I)D2$(J) :D1$(I)"":D2$(J)"": 0 Jx I:CF: I p: D1$(I)"" AF$(CF)D1$(I):CFCF:D1$(I)""녚:F1CF: I F1:D1$(I)AF$(I):AF$(I)""::CF: I p: D2$(I)"" AF$(CF)D2$(I):CFCF:D2$(I)"":F2CF: I F2:D2$(I)AF$(I):AF$(I)"":bCF: I p: TD$(I)"" AF$(CF)TD$(I):CFCF:TD$(I)"":TDCF: I TD:TD$(I)AF$(I):AF$(I)"":† ,:"Fim da comparao. Tecle algo."ӆ ""  I : ,I: ();:V F1 F2 TD " Os discos esto em perfeita simetria.": ,:"Reinicia Fim": vԇ ,:"XFalta backupRFalta orig.WRWTam. dif.WY": : ,I:"V V V V":3 ,:"ZWWWWWWWWWWWWQWWWWWWWWWWWWQWWWWWWWWWWWW["i ,:",-scrool -campo Reinicia Imprime Fim" I  : ,I: D1$(I): ,I: D2$(I): ,I: TD$(I)::I:II():II():II():FF() :FF() :FF() : F1 FF()F1*XX():XX():XX(): F2 FF()F2aTT:TT()F1:TT()F2:TT()TD: TD FF()TD{&TTTT: TT TT0 F1 TT TT: F2 TT TT̉D TD TT TT: 0N ,: ((): XX(TT),:"":XA(): A II(TT) II(TT)II(TT):FF(TT)FF(TT)vb A FF(TT)TT(TT) FF(TT)FF(TT):II(TT)II(TT)l A &vA$: A$"F" A$"f" : : : A$"p" A$"P"  : A$"R" A$"r"  F1 F2 TD v A Xx III(TT) FF(TT): XX(TT),III(TT): TT D1$(I) : TT D2$(I) : TT TD$(I): X T1(I)T2(J) TDTD:TD$(TD)D1$(I)"Atualizador de backup - A&L 1992,1994":: TT "Arquivos em falta no disco ";s TT "backup:":AF1 : TT "original:":AF2 : "Arquivos de tamanho diferente:":ATDŒ I A: TT D1$(I); : TT D2$(I); : TT TD$(I);Ќ" - ";: TT D1$(A) : TT D2$(A) : TT TD$(A)