' COMPRES$(0.0)  Compress Character String             05/29/1997-05/30/1997
' --------------------------------------------------------------------------

  $INCLUDE "COMPRES"

  DECLARE FUNCTION COMPRES$(Strng$,Chars$)

  CLS
  PRINT "COMPRES$(0.0)  Compress Character String  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(59,"-")
  PRINT

  PRINT "COMPRES$(''      ,''   )='"; _
         COMPRES$(""      ,""   ); "'"
  PRINT "COMPRES$('ABBCCC',''   )='"; _
         COMPRES$("ABBCCC",""   ); "'"
  PRINT "COMPRES$('ABBCCC','A'  )='"; _
         COMPRES$("ABBCCC","A"  ); "'"
  PRINT "COMPRES$('ABBCCC','B'  )='"; _
         COMPRES$("ABBCCC","B"  ); "'"
  PRINT "COMPRES$('ABBCCC','C'  )='"; _
         COMPRES$("ABBCCC","C"  ); "'"
  PRINT "COMPRES$('ABBCCC','ABC')='"; _
         COMPRES$("ABBCCC","ABC"); "'"

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