home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / tricks / read.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-24  |  945 b   |  36 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      READ.PAS                          *)
  3. (*        (c) 1989 J.Laitenberger & TOOLBOX               *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM ReadProtect;
  6.  
  7. VAR
  8.   f1, f2   : FILE;
  9.   gel, ges : WORD;
  10.   puf      : ARRAY [1..2048] OF CHAR;
  11.   b        : BYTE;
  12.  
  13. BEGIN
  14.   IF ParamCount <> 2 THEN Halt;
  15.   Assign(f1, ParamStr(1));
  16. {$I-}
  17.   Reset (f1,1);
  18. {$I+}
  19.   IF IOResult <> 0 THEN BEGIN
  20.     WriteLn('Datei nicht gefunden!');
  21.     Halt;
  22.   END;
  23.   Assign(f2, ParamStr(2));
  24.   Rewrite(f2,1);
  25.   REPEAT
  26.     BlockRead(f1, b, 1)
  27.   UNTIL b = 26;
  28.   REPEAT
  29.     BlockRead(f1, puf, SizeOf(puf), gel);
  30.     BlockWrite(f2, puf, gel, ges)
  31.   UNTIL (gel = 0) OR (gel < 2048);
  32.   Close(f1);
  33.   Close(f2);
  34. END.
  35. (* ------------------------------------------------------ *)
  36. (*                  Ende von READ.PAS                     *)