' TRANS$(0.0)  Translate Character String Symbols          05/30/1997-02/03/2010
' ------------------------------------------------------------------------------

  #INCLUDE "TRANS"

  FUNCTION PBMAIN

  PRINT "TRANS$(0.0)  Translate Character String Symbols  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(66,"-")
  PRINT

  PRINT "TRANS$(''               ,'XYZ','*'  )='"; _
         TRANS$(""               ,"XYZ","*"  ); "'"
  PRINT "TRANS$('ABCDEF'         ,''   ,'*'  )='"; _
         TRANS$("ABCDEF"         ,""   ,"*"  ); "'"
  PRINT "TRANS$('ABCDEF'         ,'XYZ','xyz')='"; _
         TRANS$("ABCDEF"         ,"XYZ","xyz"); "'"
  PRINT "TRANS$('XYZABCDEF'      ,'XYZ','xyz')='"; _
         TRANS$("XYZABCDEF"      ,"XYZ","xyz"); "'"
  PRINT "TRANS$('ABCXYZDEF'      ,'XYZ','xyz')='"; _
         TRANS$("ABCXYZDEF"      ,"XYZ","xyz"); "'"
  PRINT "TRANS$('ABCDEFXYZ'      ,'XYZ','xyz')='"; _
         TRANS$("ABCDEFXYZ"      ,"XYZ","xyz"); "'"
  PRINT "TRANS$('XYZABCXYZDEFXYZ','XYZ','xyz')='"; _
         TRANS$("XYZABCXYZDEFXYZ","XYZ","xyz"); "'"
  PRINT "TRANS$('XYZABCXYZDEFXYZ','XY' ,'xyz')='"; _
         TRANS$("XYZABCXYZDEFXYZ","XY" ,"xyz"); "'"
  PRINT "TRANS$('XYZABCXYZDEFXYZ','XYZ',''   )='"; _
         TRANS$("XYZABCXYZDEFXYZ","XYZ",""   ); "'"

  END FUNCTION