{ THIS PROGRAM ILLUSTRATES THE USE OF THE PREDECLARED PROCEDURES RESET, REWRITE, GET, PUT, AND CLOSE: } PROGRAM THREE1(INPUT,OUTPUT,:LP:); VAR I: INTEGER; DATAFILE: FILE OF INTEGER; BEGIN { 3-1 } REWRITE(DATAFILE,':LP:DDATA.DAT'); { CREATE DDATA.DAT ON DRIVE 1 } FOR I := 0 TO 10 DO { WRITE 0..10 ONTO THE FILE } BEGIN DATAFILE^ := I; PUT(DATAFILE); END; WRITELN(DATAFILE^:5); CLOSE(DATAFILE); { AND THEN CLOSE THE FILE } END. { 3-1 } { EXECUTING THIS PROGRAM WILL RESULT IN THE FOLLOWING OUTPUT: 0 1 2 3 4 5 6 7 8 9 10 }