mainwin=CreateWindow("Application Manager 1.0",10,10,800,600,0,9+2)
cat=CreateListBox(10,30,100,250,mainwin,0)
app=CreateListBox(10,290,100,250,mainwin,0)
description=CreateHtmlView(130,30,620,500,mainwin,0)

manage=CreateMenu("&Manage",0,WindowMenu(mainwin))
   manage_createlist=CreateMenu("&Create new list (Search for apps)",1,manage)
   manage_describe=CreateMenu("&Describe selected application",2,manage)
   manage_delete=CreateMenu("D&elete old list (Without creating new)",3,manage)
   leer1=CreateMenu("",0,manage)
   ende=CreateMenu("&Exit Application Manager",4,manage)
help=CreateMenu("&?",0,WindowMenu(mainwin))
   help_help=CreateMenu("&Help",5,help)
   leer2=CreateMenu("",0,help)
   help_about=CreateMenu("&About Application Manager",6,help)

UpdateWindowMenu(mainwin)

Repeat
   Select EventID()
      Case $803
         End
   End Select
Forever