Wait Window 'Press ENTER to create a graphic checkbox at the left top of screen...'
_Screen.AddObject('c','Checkbox')
_Screen.c.Visible=.T.
_Screen.c.Style= 1
Do While Lastkey()=13
  Wait Window '_Screen.c.Value='+Tran(_Screen.c.Value)+'.  Press ENTER to toggle 0/1, other key to end.'
  _Screen.c.Value=Abs(_Screen.c.Value-1)
EndDo
_Screen.RemoveObject('c')