/*********************************************************************
* Copyright (C) 2000 by Progress Software Corporation ("PSC"),       *
* 14 Oak Park, Bedford, MA 01730, and other contributors as listed   *
* below.  All Rights Reserved.                                       *
*                                                                    *
* The Initial Developer of the Original Code is PSC.  The Original   *
* Code is Progress IDE code released to open source December 1, 2000.*
*                                                                    *
* The contents of this file are subject to the Possenet Public       *
* License Version 1.0 (the "License"); you may not use this file     *
* except in compliance with the License.  A copy of the License is   *
* available as of the date of this notice at                         *
* http://www.possenet.org/license.html                               *
*                                                                    *
* Software distributed under the License is distributed on an "AS IS"*
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You*
* should refer to the License for the specific language governing    *
* rights and limitations under the License.                          *
*                                                                    *
* Contributors:                                                      *
*                                                                    *
*********************************************************************/
/* t-a-eng.p - English language definitions for Admin module */

{ prores/t-define.i }

DEFINE INPUT PARAMETER qbf-s AS INTEGER NO-UNDO.

IF qbf-s < 0 THEN RETURN.
qbf-lang = "".

/*--------------------------------------------------------------------------*/
/*results.p,s-module.p*/
IF qbf-s = 1 THEN
  ASSIGN
    qbf-lang[ 1] = 'Q. '
    qbf-lang[ 2] = 'R. 驜'
    qbf-lang[ 3] = 'L. /'
    qbf-lang[ 4] = 'D. '
    qbf-lang[ 5] = 'U. 㩫'
    qbf-lang[ 6] = 'A. 娠'
    qbf-lang[ 7] = 'E. '
    qbf-lang[ 8] = 'F. FAST TRACK'
    qbf-lang[10] = ' ' /*DBNAME.qc*/
    qbf-lang[11] = ' ⟞.  夜 櫠  ⧜  ᤜ "'
                 + ' ᩫ"  "database". ⢜   ᤜ 騘; '
    qbf-lang[12] = '⥫ ᢢ   㩫 [' + KBLABEL("END-ERROR")
                 + ']   夜 .'
    qbf-lang[13] = ' ⮜ ᩜ  RESULTS.   暨 ੜ'
    qbf-lang[14] = 'ਫ਼ 曦  "~{1~}"'
    qbf-lang[15] = '-,,'
    qbf-lang[16] = ' ᨮ 礛  "database".'
    qbf-lang[17] = '礘  ⢜ 櫘  DB ⮜  (logical) '
                 + '  坜  "QBF$".'
    qbf-lang[18] = '⢦'
    qbf-lang[19] = '**  RESULTS 坜 **^^ ᢦ ~{1~}, '
                 + '竜  ~{2~}.db 竜   ~{2~}.qc  ⟞.  ~{3~}.qc'
                 + ' ᨮ  PROPATH,  夜 櫠 㡜  '
                 + '~{3~}.db. , 驫  PROPATH  ᩫ/ᯫ'
                 + '  ~{3~}.db  .qc.'
    /* 24,26,30,32 available if necessary */
    qbf-lang[21] = '         ᨮ  槦   㩜 樣   '
                 + 'PROGRESS'
    qbf-lang[22] = '         RESULTS.    RESULTS ⮜ 㩜  '
                 + '樣 ,'
    qbf-lang[23] = '         嫜   㩜, 槦 ⢜.'
    qbf-lang[24] = '⢜  婜  ⫨ ,   ៜ' 
    qbf-lang[25] = '樣 .'
    qbf-lang[27] = ' 婜  ⤘ 礦    '
    qbf-lang[28] = '  "database",  RESULTS  樣' 
    qbf-lang[29] = ' 椦    ⤘ .'
    qbf-lang[31] = ' RESULTS  梜  樣  棘.'.


/*--------------------------------------------------------------------------*/

ELSE

/*--------------------------------------------------------------------------*/
/*a-user.p*/
IF qbf-s = 2 THEN
  /* format x(72) for 1,2,9-14,19-22 */
  ASSIGN
    qbf-lang[ 1] = '驫    ࣘ⤦ 妬 (Include)  '
    qbf-lang[ 2] = '   "稜"    .'
    qbf-lang[ 3] = '   棜 Include:' /*format x(24)*/

    qbf-lang[ 8] = ' 暨  ⟞'

    qbf-lang[ 9] = '驫    ᣣ .  暨 '
                 + '  '
    qbf-lang[10] = '夘   椞   暨 曦  '
                 + ' login.p'
    qbf-lang[11] = ' ᨮ  ᢦ "DLC".   暨 嫘 '
                 + '梠 '
    qbf-lang[12] = '   "signon="    DBNAME.qc.'
    qbf-lang[13] = '驫    椫   坜 '
    qbf-lang[14] = '  .'
    qbf-lang[15] = '    暨 :' /*format x(24)*/
    qbf-lang[16] = '      椫:' /*format x(24)*/
    qbf-lang[17] = '棜 :'

    qbf-lang[18] = 'PROGRESS 暨 㩫:'
    qbf-lang[19] = ' 暨 嫘 槦 夜   "㩫" '
                 + ' .'

    qbf-lang[20] = ', 嫜  婜 ⤘ 暨    '
    qbf-lang[21] = '㩫.  驫    ᣘ   '
    qbf-lang[22] = '    "  - 婜".'
    qbf-lang[23] = '暨:'
    qbf-lang[24] = ':'.

/*--------------------------------------------------------------------------*/

ELSE

/*--------------------------------------------------------------------------*/
/*a-load.p:*/
IF qbf-s = 3 THEN
  ASSIGN
    /* menu strip for d-main.p,l-main.p,r-main.p */
    qbf-lang[ 1] = '樫.,樫ਫ਼ 嘪 ~{1~}.'
    qbf-lang[ 2] = '.,㡜  ⮦ ~{1~}.'
    qbf-lang[ 3] = '.,⢜  ⮦ ~{1~}.'
    qbf-lang[ 4] = '.,   .'
    qbf-lang[ 5] = '., 秦,   嘩  ⮦ ~{1~}.'
    qbf-lang[ 6] = ',       墫 WHERE.'
    qbf-lang[ 7] = '.,   棞  .'
    qbf-lang[ 8] = '.,ਫ਼  ⮦ ~{1~}.'
    qbf-lang[ 9] = '.,圪   ⮦ 婜.'
    qbf-lang[10] = '., ᢢ 嘪.'
    qbf-lang[11] = '.,⢜ ᣣ  坜   㩫.'
    qbf-lang[12] = '⢦,⢦.'
    qbf-lang[13] = '' /* terminator */
    qbf-lang[14] = ',⫫,ਫ਼'

    qbf-lang[15] = 'ᚤਫ਼  妬 ⫨ 㣘...'

    /* system values for CONTINUE Must be <= 12 characters */
    qbf-lang[18] = '  ⮜' /* for error dialog box */
    qbf-lang[19] = ' (437)' /* this name of this language */
    /* word "of" for "xxx of yyy" on scrolling lists */
    qbf-lang[20] = ''
    /* standard product name */
    qbf-lang[22] = 'PROGRESS RESULTS'
    /* system values for descriptions of calc fields */
    qbf-lang[23] = ',⮦ 礦,  梦,,ᥞ  ,'
                 + 'ᥞ  圪,ᥞ  , ᥜ,樬 夘'
    /* system values for YES and NO.  Must be <= 8 characters each */
    qbf-lang[24] = '    ,    ' /* for yes/no dialog box */

    qbf-lang[25] = '    棘 ᩫ.  '
                 + ' 婜  棘 ᩫ; '

    qbf-lang[26] = '*  -  橜 *^^ ⮦ ⡛ 夘 '
                 + '<~{1~}>   ⡛   .qc 夘 <~{2~}>.   '
                 + ' ᨮ 㣘 驧  㩜  樣 '
                 + '    "ᩫ ".'

    qbf-lang[27] = '*  - 姦 "Database" *^^  "database" '
                 + 'ᝦ   ⮦  :'

    qbf-lang[32] = '*  -    DB ⮜ ᥜ *^^ 棞 ᢢ '
                 + ' ៞ 樣 .  '
                 + ' 㩫   "ᩫ " '
                 + '   娠 㣘.'.

/*--------------------------------------------------------------------------*/

ELSE

/*--------------------------------------------------------------------------*/
/* a-main.p */
IF qbf-s = 4 THEN
  ASSIGN
    qbf-lang[ 1] = " A. ᩫ "
    qbf-lang[ 2] = " F.    "
    qbf-lang[ 3] = " R. ⩜  "

    qbf-lang[ 4] = " C. 棜 暦 㩫"
    qbf-lang[ 5] = " H. 槦 曦  "
    qbf-lang[ 6] = " M. ᩜ "
    qbf-lang[ 7] = " Q. ᩜ "
    qbf-lang[ 8] = " S. 暨 /"

    qbf-lang[11] = " G. 驩"
    qbf-lang[12] = " P.  "
    qbf-lang[13] = " T. 飘 椞 "

    qbf-lang[14] = " B. 暨 稜()"
    qbf-lang[15] = " D. ᣜ 驜"
    qbf-lang[16] = " E. 暨  "
    qbf-lang[17] = " L.    ⫫"
    qbf-lang[18] = " U.  ᣣ 㩫"

    qbf-lang[21] = '⥫   [' + KBLABEL("END-ERROR")
                 + ']  ⢦  㡜 .'
    /* these next four have a length limit of 20 including colon */
    qbf-lang[22] = ':'
    qbf-lang[23] = 'ᣜ:'
    qbf-lang[24] = 'ᢜ:'
    qbf-lang[25] = '圪:'

    qbf-lang[26] = '娠 㣘'
    qbf-lang[27] = ''
    qbf-lang[28] = '樫ਫ਼  ⦤ ⫨ 娠  '
                 + '  ⫨.'
    qbf-lang[29] = 'ਫ਼   ᩫ  '
/* QUIT and RETURN are the PROGRESS keywords and cannot be translated */
    qbf-lang[30] = '  㩫 ⚜ "⢦"    , '
                 + ' ⢜  ᤜ  暨 ; "Quit"  "Return"'
    qbf-lang[31] = 'ਫ਼ 曦   ⤦ '  
                 + '娠 㣘'
    qbf-lang[32] = '    妬 ⫨  㡜 '
                 + ' .'.

/*--------------------------------------------------------------------------*/

ELSE

/*--------------------------------------------------------------------------*/
IF qbf-s = 5 THEN
  ASSIGN
/*a-perm.p, 1..7 also used by a-form.p and a-print.p*/
    qbf-lang[ 1] = 'ᩜ'
    qbf-lang[ 2] = ' *                         -   㩫 ⮦ 橙.'
    qbf-lang[ 3] = ' <㩫>,<㩫>,.  - 椦   㩫 ⮦ 橙.'
    qbf-lang[ 4] = ' !<㩫>,!<㩫>,*   -      ⮦ '
                 + '橙.'
    qbf-lang[ 5] = ' acct*                     - 椦 㩫  坦 "acct" '
                 + '⮦ 橙.'
    qbf-lang[ 6] = '驫  㩫  椦  (Login ID), ਠ⤘  '
                 + '棣.'
    qbf-lang[ 7] = ' 棘   ⮦ 㨜 "".   '
                 + '.'
                   /* from 8 thru 13, format x(30) */
    qbf-lang[ 8] = '⥫    '
    qbf-lang[ 9] = '婫    驜'
    qbf-lang[10] = ' 棘   橙.'
    qbf-lang[11] = '⥫     '
    qbf-lang[12] = '婫    驜 '
    qbf-lang[13] = ' 棘   橙.'
    qbf-lang[14] = '㩫 [' + KBLABEL("END-ERROR")
                 + ']  ᤜ  .'
    qbf-lang[15] = '㩫 [' + KBLABEL("GO") + ']  㡜, ['
                 + KBLABEL("END-ERROR") + ']  ᡢ.'
    qbf-lang[16] = ' 嫜  婜      娠  㣘 !'
/*a-print.p:*/     /*21 thru 26 must be format x(16) and right-justified */
    qbf-lang[21] = '(Reset)'
    qbf-lang[22] = '                '
    qbf-lang[23] = '        '
    qbf-lang[24] = '    ⤞'  
    qbf-lang[25] = '          '
    qbf-lang[26] = ' ਫ਼ '.

/*--------------------------------------------------------------------------*/

ELSE

/*--------------------------------------------------------------------------*/
IF qbf-s = 6 THEN
  ASSIGN
/*a-write.p:*/
    qbf-lang[ 1] = '樫ਫ਼ ⫨ 嘪'
    qbf-lang[ 2] = '樫ਫ਼ ⫨  椞'
    qbf-lang[ 3] = '樫ਫ਼ 婜 '
    qbf-lang[ 4] = '樫ਫ਼ 婫   '
    qbf-lang[ 5] = '樫ਫ਼ 婫 ⩜  '
    qbf-lang[ 6] = '樫ਫ਼ 婫 棘    ⫫'
    qbf-lang[ 7] = '樫ਫ਼ 婫 ᩜ   '
    qbf-lang[ 8] = '樫ਫ਼   ᣣ  㩫'
    qbf-lang[ 9] = '樫ਫ਼ 棜 ⫨ 驜  㣘'

/* a-color.p*/
                 /* 12345678901234567890123456789012 */
    qbf-lang[11] = '    飘  秦 :' /* must be 32 */
                 /* 1234567890123456789012345 */
    qbf-lang[12] = ':          :' /* must be 25 */
    qbf-lang[13] = '           ૜ ᨘ:'
    qbf-lang[14] = '.暦: :'
    qbf-lang[15] = '           ૜ ᨘ:'
    qbf-lang[16] = '婫 : :'
    qbf-lang[17] = '           ૜ ᨘ:'

/*a-field.p*/    /*"----- ----- ----- ----- ----"*/
    qbf-lang[30] = '  .  '
    qbf-lang[31] = '   夘  1  9999.'
    qbf-lang[32] = '⢜  穜    ᤜ  '
                 + '婫 ; '.

/*--------------------------------------------------------------------------*/

ELSE

/*--------------------------------------------------------------------------*/
IF qbf-s = 8 THEN
/*a-label.p*/
  ASSIGN            /* 1..8 use format x(78) */
                    /* 1 and 8 are available for more explanation, in */
                    /*   case the translation won't fit in 2 thru 7.  */
    qbf-lang[ 1] = '驫  圪   ⮦    '
                 + '矬. '
    qbf-lang[ 2] = '㩫 礫  CAN-DO  ᩡ   '
                 + '嫜   ("*" '
    qbf-lang[ 3] = '  ⤘   㨜, "."  '
                 + ' ⤘ 㨘).'
    qbf-lang[ 4] = '   礫    '
                 + '棜 .'
    qbf-lang[ 5] = ' ⮜ ''毠 櫠  㩜   禬 '
                 + ',  '
    qbf-lang[ 6] = '㩜 梞,   ..  ਠ  櫜, '
                 + '  "-- "'
    qbf-lang[ 7] = '᝜.'
                  /* each entry in list must be <= 5 characters long */
                  /* but may be any portion of address that is applicable */
                  /* in the target country */
    qbf-lang[ 9] = ',毞,1,2,3,..,梞,-,,騘'
    qbf-lang[10] = '   ⮜  ब/ <>'
    qbf-lang[11] = '   ⮜  椦  矬 <毞>'
    qbf-lang[12] = '   ⮜  <髞>   矬 (.. )'
    qbf-lang[13] = '   ⮜ <竜>   矬 (.. .囘)'
    qbf-lang[14] = '   ⮜ <嫞>   矬 ()'
    qbf-lang[15] = '   ⮜   雠 <..>'
    qbf-lang[16] = '   ⮜  <梞>'
    qbf-lang[17] = '   ⮜ <..- 梞>   '
    qbf-lang[18] = '   ⮜   <>'
    qbf-lang[19] = '   ⮜  騘 <騘>'

/*a-join.p*/
    qbf-lang[23] = ' ⧜  "-ਫ਼"  妬   .'
    qbf-lang[24] = ' ᩜ  樠  ૠ ⩜  .'
    qbf-lang[25] = '驞 ' /* 25 and 26 are automatically */
    qbf-lang[26] = ' '          /*   right-justified           */
    qbf-lang[27] = '驫  墫 WHERE  OF : (㩫    ਫ਼  ਫ਼)'
    qbf-lang[28] = '㩫 [' + KBLABEL("END-ERROR") + ']  ᤜ  .'
    qbf-lang[30] = ' 㡞 ⧜  婜  WHERE  OF.'
    qbf-lang[31] = '驫    髦 妬  ਫ਼  㡞  ਫ਼.'
    qbf-lang[32] = '騘, 驫    竜 妬  ਫ਼.'.

/*--------------------------------------------------------------------------*/

ELSE

/*--------------------------------------------------------------------------*/
/* a-form.p */
IF qbf-s = 9 THEN
  ASSIGN           /* 1..6 format x(45) */
    qbf-lang[ 1] = ' A. 㡞 ☪ 樣 '
    qbf-lang[ 2] = ' C.  樣    '
    qbf-lang[ 3] = ' G.    樣'
    qbf-lang[ 4] = ' W.     樣'
    qbf-lang[ 5] = ' P. ᩜ '
    qbf-lang[ 6] = ' D.   ⮦ 樣'
    qbf-lang[ 7] = '  :' /* format x(10) */
    qbf-lang[ 8] = ' :' /* format x(10) */
                 /* cannot changed width of 9..16 from defined below */
    qbf-lang[ 9] = '    ᩠ 妬 DB' /* right-justify 9..14 */
    qbf-lang[10] = '           秦 樣'
    qbf-lang[11] = '     暨 '
    qbf-lang[12] = ' 妬 樣'
    qbf-lang[13] = '  Frame  4GL'
    qbf-lang[14] = '              '
    qbf-lang[15] = '(ਜ嫘 .p)' /* left-justify 15 and 16 */
    qbf-lang[16] = '(驫 extension)'
    qbf-lang[18] = 'H 樣 ⮜ ~{1~} .   RESULTS 眠 '
                 + '⤫   㩞  妬,   樠  '
                 + '椞   24x80. ⢜  婜  樣  '
                 + '  ⚜; '
    qbf-lang[19] = '  ⤘ 暨  ''  .'
    qbf-lang[20] = ' 樣 ⧜  ᨮ 㛞   ⮜  ᢞ .f  '
                 + '桜  棘 .'
    qbf-lang[21] = '   "Frame"   雠 4GL  驘 '
                 + '夘 ⤞. 驫  .'
    qbf-lang[22] = '   '
    qbf-lang[23] = '㩫 [' + KBLABEL("END-ERROR") + ']  ᤜ  '
    qbf-lang[24] = '㡜   樣  㡞 ...'
    qbf-lang[25] = ' ᢜ ᮠ   . 嫜  '
                 + 'ᤜ, 嫜 "compile"  樣 騘, 嫜 "ᩫ '
                 + '" .  ⢜ "Compile" 騘; '
    qbf-lang[26] = ' ⟞ 樣   棘 "~{1~}".'
                 + '⢜   㩜; '
    qbf-lang[27] = 'ᨮ 樣     "~{1~}".'
                 + '⢜  㩜    㡦 ''  樣; '
    qbf-lang[28] = 'ਫ਼   樣 '
    qbf-lang[29] = '** To 暨  - "~{1~}" ᭞. **'
    qbf-lang[30] = '  樣 ...'
    qbf-lang[31] = ' ᩜ  樠 㡜  樣 .'
    qbf-lang[32] = '礘  ᩫ  樣  ''ᬫ  .^^  '
                 + '  樣, 嫜  "⭬" ⧜  坜 "RECIDs", '
                 + '嫜  ᨮ   (unique index)   .'.

/*--------------------------------------------------------------------------*/

ELSE

/*--------------------------------------------------------------------------*/
/* a-print.p */
IF qbf-s = 10 THEN
  ASSIGN           /* 1..6 format x(45) */
    qbf-lang[ 1] = ' A. 㡞 ☪ ᛘ 曦 '
    qbf-lang[ 2] = ' C.  ᛘ   '
    qbf-lang[ 3] = ' G.    ᛘ '
    qbf-lang[ 4] = ' S. 㨜 ⚮ '
    qbf-lang[ 5] = ' P. ᩜ  '
    qbf-lang[ 6] = ' D.   ⮦ ᛘ '
    qbf-lang[ 7] = ' : ' /* format x(10) */
    qbf-lang[ 8] = ' :' /* format x(10) */
    qbf-lang[ 9] = '   夘  1  255.'
    qbf-lang[10] = 'O 秦 ⧜  夘 term, thru, to, view, file, page  prog'
    qbf-lang[11] = ' ᩜ  樠  ᛜ 曦.'
    qbf-lang[12] = '椦  秦 ᛘ "term" 樜  ⮜ ⥦  TERMINAL.'
    qbf-lang[13] = ' ⟞   ᣣ   ⮦ PROPATH.'
                  /*17 thru 20 must be format x(16) and right-justified */
    qbf-lang[17] = ' 婫'
    qbf-lang[18] = ' ᛘ'
    qbf-lang[19] = '   ⚠ 稦'
    qbf-lang[20] = '           秦'
    qbf-lang[21] = '⧜ '
    qbf-lang[22] = 'TERMINAL,  OUTPUT TO TERMINAL PAGED'
    qbf-lang[23] = 'TO  ᛘ,  OUTPUT TO PRINTER'
    qbf-lang[24] = 'THROUGH  spooler  墫 UNIX  OS/2'
    qbf-lang[25] = '⢤  ਫ਼  ,      暨'
    qbf-lang[26] = '    妬 曦   㩫'
    qbf-lang[27] = ' 囘  磜/棜 椞 (prev-page  next-page)'
    qbf-lang[28] = '㩞 ᣣ 4GL   /⢦   曦'
    qbf-lang[30] = '㩫 [' + KBLABEL("END-ERROR") + ']  ᤜ  '
    qbf-lang[31] = '⧜  ᨮ ᮠ  ᛘ 曦 !'
    qbf-lang[32] = 'ਫ਼   '.

/*--------------------------------------------------------------------------*/

RETURN.
