Help, my memory is slowly slipping away..

Ahhh..several hours and curses later i found it:

Method createbuttons(menuename$)
Local file=OpenFile(menuename$+".txt")
While Not Eof(file)
ReadLine(file)
Wend
CloseFile file
End Method

Whats wrong with it?
Put a function in a loop which calls it and enjoy whatching your memory going somewhere..
Flushmem didnt help!