record format impstream ( integer empty,lookahead, flags, string(255) file name, integer handle )
    routine initialise stream( record(impstream) name s )
        s_handle = 0
        length(s_file name) = 0
        s_flags = 0
        s_lookahead = -1
        s_empty = 1
    end { of "initialise stream" }

endoffile