XProfan

PROC OpenFileSize

    ----------------
    Parameters Name$, Result&, FM%
    FM% = Set("FileMode",0)
    Assign #99, Name$
    OpenRW #99
    Result& = @GetFileSize(#99)
    Close #99
    Set("FileMode",FM%)
    Return Result&

ENDPROC