' REVERSE$(0.0)  Reverse Character String              03/17/1997-04/04/2002
' --------------------------------------------------------------------------

  $INCLUDE "REVERSE"

  DECLARE FUNCTION REVERSE$(Strng$)

  CLS
  PRINT "REVERSE$(0.0)  Reverse Character String  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(58,"-")
  PRINT

  PRINT "REVERSE$(''   )='"; _
         REVERSE$(""   ); "'"
  PRINT "REVERSE$('A'  )='"; _
         REVERSE$("A"  ); "'"
  PRINT "REVERSE$('AB' )='"; _
         REVERSE$("AB" ); "'"
  PRINT "REVERSE$('ABC')='"; _
         REVERSE$("ABC"); "'"

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