If OpenWindow(0, 100, 100, 640, 480,"menu",  #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
    
   ButtonGadget(1, 50, 50, 400, 40, "New Game", #PB_Button_Default)  
   ButtonGadget(2, 50, 100, 400, 40, "Creatures", #PB_Button_Default)  
    
   Repeat  
     Event = WaitWindowEvent()  
     Window = EventWindow()
      
     If Event = #PB_Event_Gadget
        
       Gadget = EventGadget()
       If Gadget=1  
         OpenWindow(1, 200, 200, 400, 280, "game", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
       EndIf  
        
     ElseIf Event=#PB_Event_CloseWindow
        
       CloseWindow(Window)
        
       Select Window
         Case 0
           Break
         Case 1
       EndSelect
        
        
     EndIf
   ForEver   
    
EndIf   
End