XProfan

WindowTitle "File2Long into Clipboard"
'(CL)CopyLeft 2014-03 by P.Specht, Wien. KEINE WIE AUCH IMMER GEARTETE GEWÄHR!
var DrivePathFilename$="TESTSELF.PRF"
declare i&,z$:Window 0,0-%maxx,%maxy-40

ifnot FileExists(DrivePathFilename$):print " *** File not found *** "

    else :Assign #1,DrivePathFilename$:OpenRW #1:ClearClip
    z$="var v$="+chr$(34)+chr$(34):print z$:putclip z$+"\n"
    Repeat :print "v$=v$+"+chr$(34);:putclip "v$=v$+"+chr$(34)

    whilenot eof(#1):inc i&:z$="$"+right$("00000000"+hex$(GetLong(#1)),8)

        print z$;:putclip z$

        if (i& MOD 8) and not(eof(#1)) :print ",";:putclip ","

            else :print chr$(34):putclip chr$(34)+"\n":break
            endif :endwhile

        until eof(#1):Close #1:font 2:print "\n\n CLIPBOARD READY."

        endif :WaitInput 60000:End