' REVERSE$(0.0) Reverse Character String 03/17/1997-02/09/2010 ' ------------------------------------------------------------------------------ #INCLUDE "REVERSE" FUNCTION PBMAIN 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"); "'" END FUNCTION