Handling Random Files Example

DECLARE Pupil: Student

DECLARE NewPupil: Student

DECLARE Position: INTEGER

NewPupil.Surname <-- "Johnson"

NewPupil.FirstName <-- "Leroy"

NewPupil.DateOfBirth <-- 02/01/2005

NewPupil.YearGroup <-- 6

NewPupil.FormGroup <-- 'A'

OPENFILE StudentFile.dat FOR RANDOM

FOR Position = 20 TO 10 STEP -1

     SEEK StudentFile.dat, Position

     GETRECORD StudentFile.dat, Pupil

     SEEK StudentFile.dat, Position + 1

     PUTRECORD StudentFile.dat, Pupil

ENDFOR

SEEK StudentFile.dat, 10

PUTRECORD StudentFile.dat, NewPupil

CLOSEFILE StudentFile.dat