' TRANS$(0.0)  Translate Character String Symbols      05/30/1997-04/04/2002
' --------------------------------------------------------------------------

  $INCLUDE "TRANS"

  DECLARE FUNCTION TRANS$(Strng$,Source$,Target$)

  CLS
  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",""   ); "'"

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