>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')
>