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

 picksize()          Adjust the size of a string list
------------------------------------------------------------------------------
 Declaration
   pick.hdr

 Syntax
   func logical picksize extern
   param       _SLIST pList, ;
         value uint   uNewLength

 Arguments
   pList is the list to resize.
   uNewLength is the new size of the pick list.

 Return
   A logical indicating the success of operation.

 Description
   The picksize() function changes the size of a list by deleting all items
   after the given size.

   Note that the whole list is copied during the operation, the original list
   is cleared, and its pointer is replaced with the new list's pointer.
   This function can only be used with string lists, but not with generic
   lists that contain non-character data.

 Example
   #define EXAMPLE_LIST
   #include example.hdr

   proc Test_picksize
   vardef
      _SLIST pList
   enddef
   pList := ExampleList()
   ?
   picksize( pList, 8 )              // reduce list to 8 items
   ShowList( pList )
   pickclear( pList )
   endproc

   proc main
   Test_picksize()
   endproc