Program BIOSCOPY Version 3

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: Periférie

Program: Bioscopy.pas,  U_disket.pas,  A_rename.pas,  P_bios.pas
Súbor exe: Bioscopy.exe
Potrebné: U_tokno.tpu

Program BIOSCOPY Version 3.1 na kopirovanie vadných súborov z diskety do aktuálneho adresára za použitia rutín BIOSu.
{ 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.