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

  PARSE()                                             Miscellaneous Function
 Purpose..: Parse a string
-------------------------------------------------------------------------------
 Syntax...: Parse( <cGetStr> [, <cDelim>] ) --> cRetStr

 Arguments: <cGetStr>    = String containing a delimiter.
            [<cDelim>]   = Character to be used as a
                           delimiter. The default is "/".

 Returns..: <C> cRetStr delimited portion of string.

 Source...: PARSE.PRG
-------------------------------------------------------------------------------
 Example..: Fill an array where each element is the string
            portion between delimiters.

              aArray := {}
              while !empty( cStr )
                 aadd( aArray, Parse( @cStr ) )
              enddo