Program BIOSCOPY Version 3
Delphi & Pascal (česká wiki)
Kategorija: Pridaňa
Program: Bioscopy.pas, U_disket.pas, A_rename.pas, P_bios.pas
Subor exe: Bioscopy.exe
Mušiš mac: U_tokno.tpu
Program: Bioscopy.pas, U_disket.pas, A_rename.pas, P_bios.pas
Subor exe: Bioscopy.exe
Mušiš mac: U_tokno.tpu
Program BIOSCOPY Version 3.1 na scahovaňe glupych suboroch zos diskety do terazky adresara.
{ 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.