namesfile=OpenFile(SystemProperty$("appdir")+"names.mfc")
Dim names$(1000)
n=0
Repeat
    n=n+1
    names(n)=ReadLine(namesfile)
   c=Instr(names(n),"$")
   names(n)=Left(names(n),c-1)
Until Eof(namesfile)=1
CloseFile(namesfile)
window=CreateWindow(names(1), 100, 100, 400, 300, 0, 35);3

Global listbox=CreateListBox( 5,5,300,290,window )
Global button=CreateButton(names(2), 315,5,80,290,window)
Global font=LoadFont(names(3), 30,1,0,0)
Global font2=LoadFont(names(4), 15,1,0,0)
SetGadgetFont button, font
SetGadgetFont listbox, font2
Global x=(n+4)/2
 
For I=5 To x
   AddGadgetItem listbox, names(I)
Next

Repeat
   event=WaitEvent()
   es=EventSource()
   ed=EventData()
   If event=$803 Then End
   If event=$401 Then
      If es=button start()
   EndIf
Forever

Function start()
   selected=x+SelectedGadgetItem(listbox)+1
   ExecFile SystemProperty$("appdir") + "Programs\"+names(selected)
End Function