XProfan

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

ifnot FileExists(DrivePathFilename$):print " *** File hardship 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 hardship(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