recordformat
recfm(
integer
i)
ownrecord
(recfm)
name
empty == 0
ownrecord
(recfm) data = 0
endoffile