' PARSE%(1.0)  Parse Char String into SubStr Array     01/20/1996-06/01/2001
' --------------------------------------------------------------------------

  $INCLUDE "PARSE"
  $LINK    "MODULE.PBL"

  DECLARE FUNCTION PARSE%(Strng$,SubStr$(),Delim$)

  DIM SubStr$(3)

  CLS
  PRINT "PARSE%(0.0)  Parse Character String into SubStr Array  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(72,"-")
  PRINT

  PRINT "PARSE%(''             ,SubStr$(),'.' )="; _
         PARSE%(""             ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSE%('A,BC,DEF'     ,SubStr$(),''  )="; _
         PARSE%("A,BC,DEF"     ,SubStr$(),""  )  ; :GOSUB Prt
  PRINT "PARSE%('A BC DEF'     ,SubStr$(),''  )="; _
         PARSE%("A BC DEF"     ,SubStr$(),""  )  ; :GOSUB Prt
  PRINT "PARSE%('A  BC   DEF'  ,SubStr$(),''  )="; _
         PARSE%("A  BC   DEF"  ,SubStr$(),""  )  ; :GOSUB Prt
  PRINT "PARSE%('A'            ,SubStr$(),'.' )="; _
         PARSE%("A"            ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSE%('A.'           ,SubStr$(),'.' )="; _
         PARSE%("A."           ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSE%('A.BC'         ,SubStr$(),'.' )="; _
         PARSE%("A.BC"         ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSE%('A.BC.DEF'     ,SubStr$(),'.' )="; _
         PARSE%("A.BC.DEF"     ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSE%('A.BC.DEF.'    ,SubStr$(),'.:')="; _
         PARSE%("A.BC.DEF."    ,SubStr$(),".:")  ; :GOSUB Prt
  PRINT "PARSE%('.A.BC.DEF'    ,SubStr$(),'*' )="; _
         PARSE%(".A.BC.DEF"    ,SubStr$(),"*" )  ; :GOSUB Prt
  PRINT "PARSE%('A.BC.DEF.GHIJ',SubStr$(),'.' )="; _
         PARSE%("A.BC.DEF.GHIJ",SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSE%('A.BC.DEF.GHIJ',SubStr$(),':' )="; _
         PARSE%("A.BC.DEF.GHIJ",SubStr$(),":" )  ; :GOSUB Prt

  PRINT
  PRINT "Execution completed - hit [Enter] to continue..."

  END

Prt:

  PRINT "  "; "SubStr$()='"; SubStr$(1); "','"; SubStr$(2); "','"; SubStr$(3); "'"

  RETURN