Program BIOSCOPY Version 3

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Pridaňa

Program: Bioscopy.pasU_disket.pasA_rename.pasP_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.