XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Float für Bereiche
Declare float!,bereich#
Dim bereich#,8
DEF MoveMemory(3) !KERNEL32,RtlMoveMemory

Proc SetFloat

    Parameters V&,A&,n!
    MoveMemory(V&+A&,@Addr(n!),8)

EndProc

Proc GetFloat

    Parameters V&,A&
    Declare n!
    MoveMemory(@Addr(n!),V&+A&,8)
    Return n!

EndProc

Cls
float!=123.456789
Print float!
SetFloat bereich#,0,float!
GetFloat bereich#,0
float!=@!(0)
Print float!
WaitInput
Disponer bereich#