Příklady - Soubor

  --- jednoduché kopírování jednoho souboru do druhého
 const Delka = 80;
 dim FA : File;
 dim FB : File;
 dim nA : Word;
 dim nB : Word;
 dim Pamet : String[Delka];
  FOpen(FA, "C:\Priklady\A.Bin", 1);
  FRewrite(FB,"C:\Priklady\B.Bin", 1);
  _("Zkopíruji ", _FSize(FA), " bajtů...");
  While _IOResult = 0 do
    FBlockR(FA, Delka, Pamet);
    FBlockW(FB, Delka, Pamet);
  EndWhile;
  FClose(FA);
  FClose(FB);
 Exit;