Graphics 640, 480, 16, 2
SetBuffer BackBuffer(  )
HidePointer

Include "blitzui.bb"

;Load fonts and mouse cursors
;and collect information
Initialise(  )

;Window
win001 = Window( 128, 31, 481, 410, "New Islands", "0", 1, 0, 1, 1 )

Repeat

   ;Draw the GUI and update the mouse
   UpdateGUI(  )
   
   ;Event Handling
   Select app\Event
      Case EVENT_WINDOW
         Select app\WindowEvent
         End Select
      Case EVENT_MENU
         Select app\MenuEvent
         End Select
      Case EVENT_GADGET
         Select app\GadgetEvent
         End Select
   End Select
   
   ;Draw the mouse
   DrawMouse(  )
   
   ;Reset all GUI events
   ResetEvents(  )

   Flip
   Cls

Until KeyHit( 1 ) Or app\Quit = True
;Free all images and controls created by BlitzUI
Destroy(  )
End