XProfan

Proc HiLong

    Parameters  Quad Zahl
    Return Zahl  >> 16

EndProc

Proc LoLong

    Parameters  Quad Zahl
    Return Zahl & $FFFF

EndProc

Proc MakeQuad

    Parameters LHi&,LLo&
    Return (LHi& << 16) | LLo&

EndProc

Struct Test = F!,L1&,L2&,S$(8)
Declare Quad q,B#
q = $FFFFFFFF
Dim B#,Test

With B#

    .F! = q
    .S$ = Hex$(q)
    .L1& = HiLong(q)
    .L2& = LoLong(q)
    Print SizeOf(.F!),SizeOf(.L1&),SizeOf(.L2&),SizeOf(.S$)
    Print .F!,.L1&,.L2&,.S$
    Print "Rückgabe aus Float:    ",Int(.F!)
    Print "Rückgabe aus zwei Long:",MakeQuad(.L1&,.L2&)
    Print "Rückgabe aus String:   ",Val("$" + .S$)

EndWith

WaitInput