proc display_all (recfile : string)
var s : int
var data : Rec
open : s, recfile, read
loop
if eof (s) then
put "End of File"
exit
end if
read : s, data
put data.login : 15, data.password : 10, data.timesloggedin : 10
end loop
close : s
end display_all