Click above to get retro games delivered to your door ever month!

  Name:     scrlock() - get or set the scroll lock state
  Usage:    <logical> = scrlock([<logical>])
  Params:   a logical value, .T. to turn scroll lock on, .F. to
            turn scroll lock off
  Returns:  optionally returns the state of scroll lock when no
            parameters are sent

 ---------------------------------- Example ---------------------------------

                 scrlock(.T.)
                 * turns scroll lock on

                 scrlock(.F.)
                 * turns scroll lock off

                 ? scrlock()
                 * prints .T. or .F. depending on state of
                 * scroll lock key