XProfan

createHexViewWindow(long m,sz){

    long b
    string html,tmp="<div style='float:left;width:30px;height:30px;text-align:right;padding-right:7px;padding-top:8px;font-family:Arial;font-size:12px;border:1px solid #DDD' "

    whileLoop 0,sz-1 {

        b=byte(m,loop)
        html=html+tmp+"title='"+str$(loop)+"="+str$(b)+"'>"+hex$(b)+"</div>"

    }

    long h=create("htmlWin",%hWnd,"mshtml:<body style='padding:0;margin:0'>"+html+"</body>",5,maxx-300,50,290,290)
    setText h,"Speicherausgabe"
    setStyle h,349118464
    setStyle h,1,256
    setParent(h,desktop)

}

 {$cleq}
cls
declare mem#
dim mem#,16
byte mem#,0=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
createHexViewWindow(mem#,16)
waitinput
end