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

 cursor()            Turn the cursor on or off
------------------------------------------------------------------------------
 Declaration
   screen.hdr

 Syntax
   proc cursor extern
   param value logical lCursor

 Arguments
   lCursor controls cursor visibility.

 Return
   None.

 Description
   The cursor procedure allows to turn the screen cursor on or off.
   If lCursor is .t., the cursor will be turned on, else off.

 Example
   #define EXAMPLE_SCREEN
   #include example.hdr

   proc Test_cursor
   vardef
      logical lCursor
   enddef
   lCursor := iscursor()
   cursor( .t. )
   wait "Cursor is on.  Press a key."
   cursor( .f. )
   wait "Cursor is off. Press a key."
   if lCursor
      cursor( .t. )
   endif
   endproc

   proc main
   Test_cursor()
   endproc