Type menuitem
Field name$
EndType

handle.menuitem=converttotype(a())

//--//MAIN--------------
Repeat

//--//RENDER

    y=0
    For handle.menuitem = Each menuitem
        Text 20, 20+y*20, ">"+handle.name$
        Text 20+100, 20+y*20, ">"+handle\name$
        y=y+1
    Next handle
    DrawScreen
Forever
//--//-----------------

Function a()
    aa.menuitem = New(menuitem)
    aa.name$ = "okeeei"//_name
    aa\name$ = "okeeei2"//_name
    Return ConvertToInteger(aa)
End Function