
  $ FileName  "t.exe"
  'uses    RTL64
  '
  int width   =  640
  int height  =  160
  string title  =  "Key codes"
  $ fontA =  "Arial",FW_SEMIBOLD

  macro keydown
  case 27 : 'no action
  case 32 : 'no action
  end macro
  '
  uses OpenglSceneFrame
  indexbase 1
  

  sub initialize(sys hWnd)
  ========================
  end sub

  sub Release(sys hwnd)
  =====================
  end sub


  sub scene(sys hWnd)
  '==================
  DozyFrame
  glClearColor 0.5, 0.5, 0.7, 0
  glPushMatrix
  gltranslatef  -1.5,0.,-1.0
  glscalef      .25,.3,.01
  glColor3f     .99,.99,.00
  gprint        "Last key pressed: "
  glColor3f     .99,.99,.99
  if lastkey
    gprint lastkey() " = 0x" hex(lastkey)
  else
    gprint "(none)"
  end if
  glPopMatrix
  end sub
