XProfan

cls
file_put_contents("bassa.prf",file_get_contents("file_get_contents.prf"))
waitkey
end

Proc File_get_contents

    Parameters Fle$
    Declare B&,M#
    B&=Filesize(Fle$)
    Case B&<0 : Return ""
    Dim M#,B&
    B&=Blockread (Fle$, M#, 0,B&)
    Fle$=Char$(M#,0,B&)
    Dispose M#
    Return Fle$

Endproc

Proc File_put_contents

    Parameters Fle$,S$
    Declare L&,M#
    L&=Len(S$)
    Dim M#,L&+1
    String M#,0=S$
    Blockwrite Fle$, M#, 0, L&
    Dispose M#

ENDPROC