{ BIOSCOPY.PAS } { } { Version 3.1, Copyright (C) 1977-2002 GlumĚk software } { Program na kopirovani vadnych souboru z diskety do aktualniho } { adresare. } { } { Datum:21.06.2002 http://www.trsek.com } {$D-,E-,G+,I-,L-,N-,P+,Q-,R-,S-,T-,V-,Y- exe} {B+,D+,L+,I+,Q+,R+,S+,T+,V+,Y+ ladici} Uses A_Norton,P_Bios,U_Disket; var w:Word; S:String; F:TypRoot; Begin Writeln('BIOSCOPY Version 3.1, Copyright (C) 1977-2002 GlumĚk software'); Writeln('Program na kopirovani vadnych souboru z diskety do aktualniho adresare.'); Info := 'Zvol vadny soubor...'; Repeat Norton; IF TestInsert(Ted) Then Polozky[Ted]^.Insert := True; IF Esc then Halt; For w := 1 To Max Do IF Polozky[w]^.Insert Then Begin Writeln('Kopiruji: ',Polozky[w]^.DOSName); ReadRoot(Polozky[w]^.Poloz,F); CopyFile(Polozky[w]^.DOSName,Polozky[w]^.Smazany,F); End; Until False; End.