Category : Pascal Source Code
Archive   : V_PASCAL.ZIP
Filename : FILEDEMO

PROGRAM FILEDEMO; {a demonstration of reading from the terminal,}
{writing to a disk file, then reading the disk file to the screen.}
VAR
DISKFILE:TEXT;
S1:STRING;


BEGIN
WRITELN('filedemo demonstration program');
ASSIGN(DISKFILE,'file1'); {DISKFILE will have name 'file1'}
REWRITE(DISKFILE); {set it up for writing}
REPEAT
WRITE('line:'); {prompt for user input}
READLN(S1); {press F6 CR to enter an EOF}
WRITELN(DISKFILE,S1); {write to disk file}
UNTIL EOF(INPUT);
WRITELN;
RESET(DISKFILE); {now set up to read the disk file}
WHILE NOT EOF(DISKFILE) DO
BEGIN
READLN(DISKFILE,S1);
WRITELN(S1); {and copy it to the screen}
END;
WRITELN("that's all!");
END.