XProfan

Título de la ventana "File2Largo into Clipboard"
'(CL)CopyLeft 2014-03 by P.Pájaro carpintero, Wien. KEINE WIE AUCH IMMER GEARTETE GEWÄHR!
var DrivePathFilename$="TESTSELF.PRF"
declarar i&,z$:Ventana 0,0-%maxx,%maxy-40

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

    más :Asignar #1,DrivePathFilename$:OpenRW #1:ClearClip
    z$="var v$="+chr$(34)+chr$(34):imprimir z$:putclip z$+"\n"
    Repeat :imprimir "v$=v$+"+chr$(34);:putclip "v$=v$+"+chr$(34)

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

        imprimir z$;:putclip z$

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

            más :imprimir chr$(34):putclip chr$(34)+"\n":romper
            endif :endwhile

        until eof(#1):Cerrar #1:font 2:imprimir "\n\n CLIPBOARD READY."

        endif :WaitInput 60000:End