Type menuitem
Field subject$
Field name$
Field folder$
EndType

handle.menuitem = New(menuitem)
handle\subject$ = "jännä"//_subject
handle\name$ = "okeeei"//_name
handle\folder$ = file

//--//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
//--//-----------------