procedure putHeader ()
   
    put "Name" : 15 ..
    put "Student ID" : 10 ..
    put "     Grade" : 10
    for i : 1 .. 35
        put "=" ..
    end for
    put ""
end putHeader

function searchString (lookString, inString : string) : boolean
    var lookLength, inLength : int
    var numCompares : int
    var found : boolean := false
    var subString : string

   
    lookLength := length (lookString)
    inLength := length (inString)

        if lookLength <= inLength then
        numCompares := inLength - lookLength
        for i : 0 .. numCompares
           
            subString := inString ((1 + i) .. (lookLength + i))
            if subString = lookString then
                found := true
            end if
        end for
    end if
    result found
end searchString

type studentData :
    record
        name : string
        id : int
        grade : real
    end record

var student : studentData
var fileid : int
var searchName : string
var searchFound : boolean

open : fileid, "student_list.bin", write, mod

for x : 1 .. 4
    put "Enter stuff:"
    get student.name
    put "Enter stuff:"
    get student.id
    put "Enter stuff:"
    get student.grade
end for
close : fileid


open : fileid, "student_list.bin", read, mod, seek

put "Search for name (or part of name)? " ..
get searchName

searchFound := false     

putHeader ()

loop
    exit when eof (fileid)
    read : fileid, student.name
    read : fileid, student.id
    read : fileid, student.grade

   
    if searchString (searchName, student.name) then
        searchFound := true
       
        put student.name : 15 ..
        put student.id : 10 ..
        put student.grade : 10 : 1
    end if

end loop

if searchFound = false then
    put "No matches found for: ", searchName
end if

close : fileid

read : fileid, student.name
read : fileid, student.id
read : fileid, student.grade

read : fileid, student