        /* ========================== REXX =============================
        || Name:      XLATE005
        ||
        || Function:  Turkish (Latin-5) translation tables
        ||
        || Text:      IBM-1026 -> ISO-8859-9
        ||
        || Data:      IBM-1047 -> ISO-8859-9
        ||
        || Author:    Leland Lucius (pdf@homeroww.net>
        ||
        || History:   Jan-08-2004 - Created
        ||
        || Note:      See the XFONT002 file for an XFONT descriptor that
        ||            can be used with these translation tables for full
        ||            Turkish support.
        ||
        ||            See additional notes in XLATE000.
        ||
        */

        /* =============================================================
        || Convert input text from IBM-1026 to ISO-8859-9.
        */

               /* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
        Text =  '000102039C09867F978D8E0B0C0D0E0F'x || , /* 00 */
                '101112139D0A08871819928F1C1D1E1F'x || , /* 10 */
                '808182838485171B88898A8B8C050607'x || , /* 20 */
                '909116939495960498999A9B14159E1A'x || , /* 30 */
                '20A09083B8BABEB3BFBCA22E3C282B7C'x || , /* 40 */
                '269A9C9E9DA29FDAB98021242A293B5E'x || , /* 50 */
                '2D2F81A8AABDB2AFA38AA62C255F3E3F'x || , /* 60 */
                '8C8E8DADA18FFEE0E1603A2340273D22'x || , /* 70 */
                'F6616263646566676869E4E5F4E3F5E8'x || , /* 80 */
                'E96A6B6C6D6E6F707172EAEBECEDEEEF'x || , /* 90 */
                'FF7E737475767778797AF0F1F2F3E6E2'x || , /* A0 */
                'FCFBE7F8FDF9F7FADEC0C1D6C4C5D4C3'x || , /* B0 */
                '7B414243444546474849D5C8C9CACBCC'x || , /* C0 */
                '7D4A4B4C4D4E4F505152CDCECFDFD0D1'x || , /* D0 */
                '5CA7535455565758595AD2D3C6C2DCDB'x || , /* E0 */
                '30313233343536373839C7D8DDD9D79F'x      /* F0 */

        /* =============================================================
        || Convert program data from IBM-1047 to ISO-8859-9.
        */

               /* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
        data =  '000102039C09C67FD78D8E0B0C0D0E0F'x || , /* 00 */
                '101112139D0A08C71819D28F1C1D1E1F'x || , /* 10 */
                '80C1C2C3C4C5171BC8C98A8B8C050607'x || , /* 20 */
                '90D116D3D4D5D604D8D99A9B14159E1A'x || , /* 30 */
                '20A0E2E4E0E1E3E5E7F1E22E3C282B7C'x || , /* 40 */
                '26E9EAEBE8EDEEEFECDF21242A293B5E'x || , /* 50 */
                '2D2FC2C4C0C1C3C5C7D1E62C255F3E3F'x || , /* 60 */
                'F8C9CACBC8CDCECFCC603A2340273D22'x || , /* 70 */
                'D8616263646566676869ABBB1A1A1AB1'x || , /* 80 */
                'B06A6B6C6D6E6F707172AABAE6B8C6E4'x || , /* 90 */
                'B57E737475767778797AA1BF1A5B1AAE'x || , /* A0 */
                'ACE3E5B7E9E7B6BCBDBE1AE8AF5DB4D7'x || , /* B0 */
                '7B414243444546474849ADF4F6F2F3F5'x || , /* C0 */
                '7D4A4B4C4D4E4F505152B9FBFCF9FAFF'x || , /* D0 */
                '5CF7535455565758595AB2D4D6D2D3D5'x || , /* E0 */
                '30313233343536373839B3DBDCD9DA9F'x      /* F0 */

        return Text || Data
