PureBoard

Code: Alles auswählen

Procedure InitDing()
    Structure Ding
        x.l
        y.l
        name.s
    EndStructure
EndProcedure
Procedure NewDing(name.s,x.l,y.l)
    *ptr = AllocateMemory(SizeOf(Ding))
    PokeL(*ptr,x)
    PokeL(*ptr+4,y)
    PokeS(*ptr+8,name)
    ProcedureReturn *ptr
EndProcedure
Procedure GetDingX(*ding)
    ProcedureReturn PeekL(*ding)
EndProcedure
Procedure.s GetDingName(*ding)
    ProcedureReturn PeekS(*ding+8)
EndProcedure
Procedure SetDingName(*ding,name.s)
    PokeS(*ding+8,name.s)
EndProcedure
Procedure FreeDing(*ding)
    FreeMemory(*ding)
EndProcedure

InitDing()
dngLeo = NewDing("Leo",100,370)
Debug "Ding Adresse: "+Str(dngLeo)
Debug "Ding X Pos: "+Str(GetDingX(dngLeo))
Debug "Ding Name: "+GetDingName(dngLeo)
Debug "Warte auf Eingabe....."
strNewName.s = InputRequester("Neuer Name!","Geben sie den neuen Namen für Leo ein!","Hans")
SetDingName(dngLeo,strNewName)
Debug "Neuer Name: "+GetDingName(dngLeo)
FreeDing(dngLeo)
End