' TAILSTR$(0.0)  Get Character String Tail             09/23/1992-07/05/1997
' --------------------------------------------------------------------------

  $INCLUDE "TAILSTR"

  DECLARE FUNCTION TAILSTR$(Strng$,Delim$)

  CLS
  PRINT "TAILSTR$(0.0)  Get Character String Tail  "; DATE$;
  PRINT "  "; LEFT$(TIME$,5)
  PRINT STRING$(59,"-")
  PRINT

  PRINT "TAILSTR$(''   ,'XYZ')='"; _
         TAILSTR$(""   ,"XYZ"); "'"
  PRINT "TAILSTR$('ABC',''   )='"; _
         TAILSTR$("ABC",""   ); "'"
  PRINT "TAILSTR$('ABC','XYZ')='"; _
         TAILSTR$("ABC","XYZ"); "'"
  PRINT "TAILSTR$('ABC','A'  )='"; _
         TAILSTR$("ABC","A"  ); "'"
  PRINT "TAILSTR$('ABC','AB' )='"; _
         TAILSTR$("ABC","AB" ); "'"
  PRINT "TAILSTR$('ABC','C'  )='"; _
         TAILSTR$("ABC","C"  ); "'"

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