
  $ FileName  "t.exe"
  'uses    RTL64
  '
  % Title "Keyboard and Mouse Variables"
  % NoEscape

  uses consoleG
  
BeginScript

  procedure main()
  ================
  cls 0.5,0.5,0.7
  color 1,1,1
  scale 2
  move 2,-1
  pushstate
  print "LastKey  " lastkey " = 0x" hex(lastkey)
  popstate
  move 0,-1
  pushstate
  print "LastChar  " lastchar " = 0x" hex(lastchar)
  popstate
  move 0,-1
  pushstate
  print "keystate(Shift) / keystate(Control)  " KeyState(VK_SHIFT)>>15 " / " KeyState(VK_CONTROL)>>15
  popstate
  move 0,-2
  pushstate
  print "sposx,sposy  " sposx ", " sposy
  popstate
  move 0,-1
  pushstate
  print "mposx,mposy  " mposx ", " mposy
  popstate
  move 0,-1
  pushstate
  print "bleft,bmid,bright  " bleft ", " bmid ", " bright
  popstate
  move 0,-1
  pushstate
  print "bwheel  " bwheel
  popstate
  move 0,-1
  end procedure

EndScript
