' PARSSTR%(2.0)  Parse Charact String into Sub Str Array   01/20/1996-05/12/2010
' ------------------------------------------------------------------------------

  #INCLUDE "PARSSTR"

  FUNCTION PBMAIN

  DIM SubStr$(3)

  PRINT "PARSSTR%(2.0)  Parse Character String into Sub Str Array  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(75,"-")
  PRINT

  PRINT "PARSSTR%(''             ,SubStr$(),'.' )="; _
         PARSSTR%(""             ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSSTR%('A,BC,DEF'     ,SubStr$(),''  )="; _
         PARSSTR%("A,BC,DEF"     ,SubStr$(),""  )  ; :GOSUB Prt
  PRINT "PARSSTR%('A BC DEF'     ,SubStr$(),''  )="; _
         PARSSTR%("A BC DEF"     ,SubStr$(),""  )  ; :GOSUB Prt
  PRINT "PARSSTR%('A  BC   DEF'  ,SubStr$(),''  )="; _
         PARSSTR%("A  BC   DEF"  ,SubStr$(),""  )  ; :GOSUB Prt
  PRINT "PARSSTR%('A'            ,SubStr$(),'.' )="; _
         PARSSTR%("A"            ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSSTR%('A.'           ,SubStr$(),'.' )="; _
         PARSSTR%("A."           ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSSTR%('A.BC'         ,SubStr$(),'.' )="; _
         PARSSTR%("A.BC"         ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSSTR%('A.BC.DEF'     ,SubStr$(),'.' )="; _
         PARSSTR%("A.BC.DEF"     ,SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSSTR%('A.BC.DEF.'    ,SubStr$(),'.:')="; _
         PARSSTR%("A.BC.DEF."    ,SubStr$(),".:")  ; :GOSUB Prt
  PRINT "PARSSTR%('.A.BC.DEF'    ,SubStr$(),'*' )="; _
         PARSSTR%(".A.BC.DEF"    ,SubStr$(),"*" )  ; :GOSUB Prt
  PRINT "PARSSTR%('A BC DEF   '  ,SubStr$(),' ' )="; _
         PARSSTR%("A BC DEF   "  ,SubStr$()," " )  ; :GOSUB Prt
  PRINT "PARSSTR%('1,23,456'     ,SubStr$(),'?' )="; _
         PARSSTR%("1,23,456"     ,SubStr$(),"?" )  ; :GOSUB Prt
  PRINT "PARSSTR%('A,BC,DEF'     ,SubStr$(),'?' )="; _
         PARSSTR%("A,BC,DEF"     ,SubStr$(),"?" )  ; :GOSUB Prt
  PRINT "PARSSTR%('a  bc   def'  ,SubStr$(),'?' )="; _
         PARSSTR%("a  bc   def"  ,SubStr$(),"?" )  ; :GOSUB Prt
  PRINT "PARSSTR%('.A.BC.DEF'    ,SubStr$(),'?' )="; _
         PARSSTR%(".A.BC.DEF"    ,SubStr$(),"?" )  ; :GOSUB Prt
  PRINT "PARSSTR%('A.BC.DEF.GHIJ',SubStr$(),'.' )="; _
         PARSSTR%("A.BC.DEF.GHIJ",SubStr$(),"." )  ; :GOSUB Prt
  PRINT "PARSSTR%('A.BC.DEF.GHIJ',SubStr$(),':' )="; _
         PARSSTR%("A.BC.DEF.GHIJ",SubStr$(),":" )  ; :GOSUB Prt

  GOTO Finish
  
Prt:

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

  RETURN

Finish:

  END FUNCTION