  #compact
  $ filename "t.exe"
 uses RTL32
 'uses RTL64
  uses ConsoleG
  uses FileDialogs
  uses GridObject

  'USER CONTROLS:
  '==============
  '
  'mouse controls:
  ' left-click
  '
  'keyboard controls:
  ' arrow keys
  ' tab shift-tab
  ' PgUp PgDn to inc/dec values (SHIFT step 10)
  

  '
  indexbase 1

  ================
  procedure main()
  ================
  '
  if opening
  ==========
    new grid grid1(5,5) static
  endif
  '
  if closing
  ==========
    del grid1
    'mbox "closed"
    exit procedure
  endif


  cls .05,.20,.00
  grid1.act
  '
  end procedure

  EndScript
