XProfan

DEF @CopyMemory(3) !"kernel32","RtlMoveMemory"
Declare number#,Zeichenkette$
Dim number#,4
Windowstyle 31
Windowtitle "Speicherbereich kopieren"
Window 0,0-640,440
Print "String to the copy: "+Zeichenkette$
clear number#
Long number#,0=65
LET Zeichenkette$="    "
@CopyMemory(@addr(Zeichenkette$),number#,4)
Dispose number#
Print "String to the copy: "+Zeichenkette$

While 0=0

    Waitinput

Wend

@copyMemory(A#+10,target#,91)

long addr&,10=20
'istgleich
long addr&+10,0=20

mov ebx,address
add ebx,offset
mov eax,[ebx]//läd 32bit wide worth of address ebx in eax