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

 setscrollkey()      Set Scroll Lock mode
------------------------------------------------------------------------------
 Declaration
   io.hdr

 Syntax
   proc setscrollkey extern
   param value logical lScrollLock

 Arguments
   lScrollLock is the Scroll Lock setting.

 Return
   None.

 Description
   This procedure activates/deactivates the Scroll Lock mode. If lScrollLock
   is .t., the Scroll Lock mode will be activated.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc TestKey static
   wait "Scroll Lock is " + iifc( scrollkey(), " on", "off" ) + ;
      ". Press a key."
   endproc
   
   proc Test_setscrollkey
   TestKey()
   setscrollkey( .t. )
   TestKey()
   setscrollkey( .f. )
   TestKey()
   endproc

   proc main
   Test_setscrollkey()
   endproc