home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / pastrans.zip / SAMPLES / FILEPTRS.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-15  |  932b  |  36 lines
  1. (*$c+*)
  2. PROGRAM fileptrs(Input, Output);
  3.  Procedure readwrite;
  4.  VAR Prd : TEXT;
  5.  BEGIN
  6.   {- Prd is a local text file that is removed on -}
  7.   {- exit. See note below on use of the Input file. -}
  8.   REWRITE(Prd); RESET(Input);
  9.   WHILE NOT EOF(Input) DO
  10.    BEGIN
  11.     IF NOT EOLN(Input) THEN
  12.      BEGIN Prd^ := Input^; PUT(Prd) END
  13.     ELSE WRITELN(Prd);
  14.     GET(Input)
  15.    END;
  16.   RESET(Prd);
  17.   WHILE NOT EOF(Prd) DO
  18.    BEGIN
  19.     IF NOT EOLN(Prd) THEN
  20.      BEGIN Output^ := Prd^; PUT(Output) END
  21.     ELSE WRITELN(Output);
  22.     GET(Prd)
  23.    END
  24.  END;
  25. BEGIN
  26.  WRITELN(
  27. 'Enter sentences separated by line feeds, ended by Ctrl-Z<ENTER>:'
  28.  );
  29.  WRITELN;
  30.  {- NOTE: A CALL OF 'GET(Input)' OR 'RESET(Input)' CAUSES -}
  31.  {- THE SYSTEM TO 'HANG UP' UNTIL THE KEYBOARD IS PRESSED. -}
  32.  {- THUS, THE POSITION IN WHICH 'RESET(Input)' APPEARS IN -}
  33.  {- THIS PROGRAM DETERMINES WHETHER IT WORKS PROPERLY. -}
  34.  readwrite
  35. END.
  36.