Example showing a simple GINOMENU application

      PROGRAM HELLO
! ***********************************************
! COPYRIGHT BRADLY ASSOCIATES LIMITED
!        GINOMENU VERSION 6.0
! ***********************************************
use gino_f90
use menu_f90

      integer master_win,bye,callback
      call gOpenGino
      call gGuiwin
      call gmInitializeMenu
      call gmSetGuiGridMode(GOFF)
      master_win=gmCreateMasterWindow(0, 0, 200, 75, GALL, 'Hello World', &
                                      gmInitState=GCENTRED, &
                                      gmIconFormat=GDLLICON, gmIconFile = 'gee')
      bye=gmCreatePushButton(master_win, 50, 25, 100, 25, 'Goodbye', &
                              gmAccel=ichar('G'), gmCallback=-1)
      call gmManage()
!
      do while (gmAction(callback) /= -1); continue; end do
!
      call gmCloseMenu()
      call gCloseGino
      stop
      end