close off
gap 4
defenv s ON

button exit 'unsetenv s' exit
space
startbox
  text "The switch is:"
  button [s] 'execute switch s ON OFF' update
endbox