cde/programs/dtcalc/text.c

   1 /* $XConsortium: text.c /main/5 1996/03/25 13:13:06 ageorge $ */
   2 /*                                                                      *
   3  *  text.c                                                              *
   4  *   Contains all the text initializationf for the Calulator            *
   5  *                                                                      *
   6  * (c) Copyright 1993, 1994 Hewlett-Packard Company                     *
   7  * (c) Copyright 1993, 1994 International Business Machines Corp.       *
   8  * (c) Copyright 1993, 1994 Sun Microsystems, Inc.                      *
   9  * (c) Copyright 1993, 1994 Novell, Inc.                                *
  10  */
  11
  12 #include <stdio.h>
  13 #include <string.h>
  14 #include "calctool.h"
  15 #include "ds_common.h"
  16
  17 extern struct button buttons[] ;           /* Calculator button values. */
  18 extern struct button mode_buttons[] ;      /* Special "mode" buttons. */
  19 extern struct menu cmenus[] ;              /* Calculator menus. */
  20 extern struct menu_entry menu_entries[] ;  /* All the menu strings. */
  21
  22 extern Vars v ;                 /* Calctool variables and options. */
  23
  24 void init_mess             P(()) ;
  25
  26 /*  The following are all the strings used by the dtcalc program.
  27  *  They are initialised in init_text() to the local language equivalents.
  28  */
  29
  30 char *base_str[MAXBASES] ;
  31 char *calc_res[MAXRESOURCES] ;
  32 char *cmdstr[MAXCMDS] ;
  33 char *dtype_str[MAXDISPMODES] ;
  34 char *lstrs[MAXLABELS] ;
  35 char *mess[MAXMESS] ;
  36 char *mode_str[MAXMODES] ;
  37 char *mpstrs[MAXMPERRS] ;
  38 char *opts[MAXOPTS] ;
  39 char *pstrs[MAXPSTRS] ;
  40 char *ttype_str[MAXTRIGMODES] ;
  41 char *ustrs[MAXUSAGE] ;
  42 char *vstrs[MAXVMESS] ;
  43
  44
  45 void
  46 init_cmdline_opts()      /* Initialize command line option strings. */
  47 {
  48   cmdstr[(int) CMD_ACC]      = "-a" ;
  49   cmdstr[(int) CMD_MODE]      = "-m" ;
  50   cmdstr[(int) CMD_BASE]      = "-b" ;
  51   cmdstr[(int) CMD_TRIG]      = "-trig" ;
  52   cmdstr[(int) CMD_DISP]      = "-notation" ;
  53   cmdstr[(int) CMD_MENU_BAR]      = "-no_menu_bar" ;
  54   cmdstr[(int) CMD_SESSION]      = "-session" ;
  55 }
  56
  57
  58 void
  59 init_text()   /* Setup text strings depending upon language. */
  60 {
  61   int i ;
  62
  63   init_mess();
  64 /*  Some notes for translators:
  65  *
  66  *  Text in the label strings below, should be left justified. It will
  67  *  automatically be centre justified in the buttons, but various
  68  *  calculations depend on the text starting on the left.
  69  *
  70  *  The original English V3 version was written with fixed (upto) four
  71  *  character button labels. I've tried to extend this to allow any sized
  72  *  labels, however the following conditions apply:
  73  *
  74  *  - If the label won't fit in the button, then as much as possible will be
  75  *    shown, with the last character being '>'. If you enlarge the calculator,
  76  *    probably more of the label will show.
  77  *
  78  *  - If the last character of the label is a '.', and this is not the first
  79  *    character of the label (ie, the numeric point label), then dtcalc
  80  *    knows that this signifies that this label should have two more '.'
  81  *    characters appended to it (ie, "Mem." becomes "Mem...").
  82  *
  83  *  - If a dtcalc button has a menu item glyph associated with it, the
  84  *    width of this glyph is taken into consideration, and the amount of
  85  *    the label that can be displayed is adjusted accordingly.
  86  */
  87
  88   i = 0 ;
  89   read_str(&buttons[i++].str, LGET("")) ;                          /* Row 1.*/
  90   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 5, "Functions"))) ;
  91   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 6, "Constants"))) ;
  92   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 7, "Keys"))) ;
  93
  94   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 8, "Int"))) ;     /* Row 2. */
  95   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 9, "Frac"))) ;
  96   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 10, "Abs"))) ;
  97   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 11, "Exp"))) ;
  98
  99   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 12, "Accuracy"))) ; /* Row 3.*/
 100   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 13, "Store"))) ;
 101   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 14, "Recall"))) ;
 102   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 15, "Exchange"))) ;
 103
 104   read_str(&buttons[i++].str, LGET("")) ;      /* Row 4. */
 105   read_str(&buttons[i++].str, LGET("")) ;
 106   read_str(&buttons[i++].str, LGET("")) ;
 107   read_str(&buttons[i++].str, LGET("")) ;
 108
 109   read_str(&buttons[i++].str, LGET("")) ;      /* Row 5. */
 110   read_str(&buttons[i++].str, LGET("")) ;
 111   read_str(&buttons[i++].str, LGET("")) ;
 112   read_str(&buttons[i++].str, LGET("")) ;
 113
 114   read_str(&buttons[i++].str, LGET("")) ;      /* Row 6. */
 115   read_str(&buttons[i++].str, LGET("")) ;
 116   read_str(&buttons[i++].str, LGET("")) ;
 117   read_str(&buttons[i++].str, LGET("")) ;
 118
 119   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 16, "1/x"))) ;    /* Row 7. */
 120   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 17, "x^2"))) ;
 121   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 19, "Sqrt"))) ;
 122   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 18, "%"))) ;
 123
 124   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 20, "("))) ;      /* Row 8. */
 125   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 21, ")"))) ;
 126   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 22, "Bsp"))) ;
 127   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 23, "Clr"))) ;
 128
 129   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 24, "D"))) ;      /* Row 9. */
 130   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 25, "E"))) ;
 131   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 26, "F"))) ;
 132   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 27, "+/-"))) ;
 133
 134   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 28, "A"))) ;      /* Row 10. */
 135   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 29, "B"))) ;
 136   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 30, "C"))) ;
 137   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 31, "X"))) ;
 138
 139   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 32, "7"))) ;      /* Row 11. */
 140   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 33, "8"))) ;
 141   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 34, "9"))) ;
 142   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 35, "/"))) ;
 143
 144   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 36, "4"))) ;      /* Row 12. */
 145   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 37, "5"))) ;
 146   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 38, "6"))) ;
 147   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 39, "-"))) ;
 148
 149   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 40, "1"))) ;      /* Row 13. */
 150   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 41, "2"))) ;
 151   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 42, "3"))) ;
 152   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 43, "+"))) ;
 153
 154   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 44, "0"))) ;      /* Row 14. */
 155   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 45, "."))) ;
 156   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 46, "="))) ;
 157   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 47, "Quit"))) ;
 158
 159   /* the three extra defs */
 160   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 48, "Base"))) ;
 161   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 49, "Disp"))) ;
 162   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 50, "Mode"))) ;
 163   read_str(&buttons[i++].str, LGET(GETMESSAGE(3, 51, "Trig"))) ;
 164
 165   i = 0 ;
 166   read_str(&buttons[i++].str2, LGET("")) ;
 167   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 52, "F - Funcs"))) ;
 168   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 53, "# - Const"))) ;
 169   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 54, "k - Keys"))) ;
 170
 171   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 55, "I - Int"))) ;
 172
 173 /* CTL('f') */
 174   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 56, "^f - Frac"))) ;
 175
 176 /* CTL('u') */
 177   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 57, "^u - Abs"))) ;
 178
 179   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 58, "E - Exp"))) ;
 180
 181   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 59, "A - Acc"))) ;
 182   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 60, "S - Sto"))) ;
 183   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 61, "R - Rcl"))) ;
 184   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 62, "X - Xchg"))) ;
 185
 186   read_str(&buttons[i++].str2, LGET("")) ;
 187   read_str(&buttons[i++].str2, LGET("")) ;
 188   read_str(&buttons[i++].str2, LGET("")) ;
 189   read_str(&buttons[i++].str2, LGET("")) ;
 190
 191   read_str(&buttons[i++].str2, LGET("")) ;
 192   read_str(&buttons[i++].str2, LGET("")) ;
 193   read_str(&buttons[i++].str2, LGET("")) ;
 194   read_str(&buttons[i++].str2, LGET("")) ;
 195
 196   read_str(&buttons[i++].str2, LGET("")) ;
 197   read_str(&buttons[i++].str2, LGET("")) ;
 198   read_str(&buttons[i++].str2, LGET("")) ;
 199   read_str(&buttons[i++].str2, LGET("")) ;
 200
 201   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 63, "r - 1/x"))) ;
 202   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 64, "@ - x^2"))) ;
 203   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 66, "s - Sqrt"))) ;
 204   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 65, "%"))) ;
 205
 206   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 67, "("))) ;
 207   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 68, ")"))) ;
 208
 209 /* CTL('h') */
 210   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 69, "^h - Bsp"))) ;
 211
 212 /* del */
 213 /* #ifdef hpux */
 214 #ifdef HP_EXTENSIONS
 215   if(v->keybdID == HIL_ITF_KBD)
 216      read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 512, "clr disp"))) ;
 217   else
 218      read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 70, "del - Clr"))) ;
 219 #else
 220   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 70, "del - Clr"))) ;
 221 #endif
 222
 223
 224   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 71, "d"))) ;
 225   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 72, "e"))) ;
 226   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 73, "f"))) ;
 227   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 74, "C - +/-"))) ;
 228
 229   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 75, "a"))) ;
 230   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 76, "b"))) ;
 231   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 77, "c"))) ;
 232   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 78, "x"))) ;
 233
 234   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 79, "7"))) ;
 235   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 80, "8"))) ;
 236   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 81, "9"))) ;
 237   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 82, "/"))) ;
 238
 239   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 83, "4"))) ;
 240   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 84, "5"))) ;
 241   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 85, "6"))) ;
 242   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 86, "-"))) ;
 243
 244   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 87, "1"))) ;
 245   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 88, "2"))) ;
 246   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 89, "3"))) ;
 247   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 90, "+"))) ;
 248
 249   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 91, "0"))) ;
 250   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 92, "."))) ;
 251   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 93, "="))) ;
 252   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 94, "q - Quit"))) ;
 253
 254   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 95, "B"))) ;
 255   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 96, "D"))) ;
 256   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 97, "M"))) ;
 257   read_str(&buttons[i++].str2, LGET(GETMESSAGE(3, 98, "T"))) ;
 258
 259   i = 0 ;
 260   get_key_val(&buttons[i++].value, LGET("")) ;
 261   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 452, "F"))) ;
 262   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 453, "#"))) ;
 263   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 454, "k"))) ;
 264
 265   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 455, "I"))) ;
 266
 267 /* CTL('f') */
 268   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 456, "\006"))) ;
 269
 270 /* CTL('u') */
 271   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 457, "\025"))) ;
 272
 273   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 458, "E"))) ;
 274
 275   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 459, "A"))) ;
 276   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 460, "S"))) ;
 277   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 461, "R"))) ;
 278   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 462, "X"))) ;
 279
 280   get_key_val(&buttons[i++].value, LGET("")) ;
 281   get_key_val(&buttons[i++].value, LGET("")) ;
 282   get_key_val(&buttons[i++].value, LGET("")) ;
 283   get_key_val(&buttons[i++].value, LGET("")) ;
 284
 285   get_key_val(&buttons[i++].value, LGET("")) ;
 286   get_key_val(&buttons[i++].value, LGET("")) ;
 287   get_key_val(&buttons[i++].value, LGET("")) ;
 288   get_key_val(&buttons[i++].value, LGET("")) ;
 289
 290   get_key_val(&buttons[i++].value, LGET("")) ;
 291   get_key_val(&buttons[i++].value, LGET("")) ;
 292   get_key_val(&buttons[i++].value, LGET("")) ;
 293   get_key_val(&buttons[i++].value, LGET("")) ;
 294
 295   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 463, "r"))) ;
 296   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 464, "@"))) ;
 297   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 466, "s"))) ;
 298   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 465, "%"))) ;
 299
 300   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 67, "("))) ;
 301   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 68, ")"))) ;
 302
 303 /* CTL('h') */
 304   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 467, "\010"))) ;
 305
 306 /* del */
 307 #ifdef hpux
 308   if(v->keybdID == HIL_ITF_KBD)
 309      get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 513, "\013"))) ;
 310   else
 311      get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 468, "\177"))) ;
 312 #else
 313   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 468, "\177"))) ;
 314 #endif
 315
 316
 317   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 469, "d"))) ;
 318   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 470, "e"))) ;
 319   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 471, "f"))) ;
 320   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 472, "C"))) ;
 321
 322   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 473, "a"))) ;
 323   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 474, "b"))) ;
 324   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 475, "c"))) ;
 325   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 476, "x"))) ;
 326
 327   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 79, "7"))) ;
 328   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 80, "8"))) ;
 329   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 81, "9"))) ;
 330   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 82, "/"))) ;
 331
 332   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 83, "4"))) ;
 333   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 84, "5"))) ;
 334   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 85, "6"))) ;
 335   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 86, "-"))) ;
 336
 337   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 87, "1"))) ;
 338   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 88, "2"))) ;
 339   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 89, "3"))) ;
 340   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 90, "+"))) ;
 341
 342   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 91, "0"))) ;
 343   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 92, "."))) ;
 344   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 93, "="))) ;
 345   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 477, "q"))) ;
 346
 347   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 95, "B"))) ;
 348   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 96, "D"))) ;
 349   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 97, "M"))) ;
 350   get_key_val(&buttons[i++].value, LGET(GETMESSAGE(3, 98, "T"))) ;
 351
 352   calc_res[(int) R_ACCURACY] = DGET("accuracy") ;
 353   calc_res[(int) R_BASE]     = DGET("base") ;
 354   calc_res[(int) R_DISPLAY]  = DGET("display") ;
 355   calc_res[(int) R_MODE]     = DGET("mode") ;
 356   calc_res[(int) R_REGS]     = DGET("showRegisters") ;
 357   calc_res[(int) R_TRIG]     = DGET("trigType") ;
 358   calc_res[(int) R_BEEP]     = DGET("beep") ;
 359   calc_res[(int) R_ICON]     = DGET("iconify") ;
 360   calc_res[(int) R_WORKSPACE]  = DGET("workspace") ;
 361   calc_res[(int) R_WIDTH]    = DGET("width") ;
 362   calc_res[(int) R_HEIGHT]   = DGET("height") ;
 363   calc_res[(int) R_X]        = DGET("x") ;
 364   calc_res[(int) R_Y]        = DGET("y") ;
 365   calc_res[(int) R_DISPLAYED]  = DGET("displayed") ;
 366   calc_res[(int) R_REG0]     = DGET("register0") ;
 367   calc_res[(int) R_REG1]     = DGET("register1") ;
 368   calc_res[(int) R_REG2]     = DGET("register2") ;
 369   calc_res[(int) R_REG3]     = DGET("register3") ;
 370   calc_res[(int) R_REG4]     = DGET("register4") ;
 371   calc_res[(int) R_REG5]     = DGET("register5") ;
 372   calc_res[(int) R_REG6]     = DGET("register6") ;
 373   calc_res[(int) R_REG7]     = DGET("register7") ;
 374   calc_res[(int) R_REG8]     = DGET("register8") ;
 375   calc_res[(int) R_REG9]     = DGET("register9") ;
 376   calc_res[(int) R_FREG0]    = DGET("fregister0") ;
 377   calc_res[(int) R_FREG1]    = DGET("fregister1") ;
 378   calc_res[(int) R_FREG2]    = DGET("fregister2") ;
 379   calc_res[(int) R_FREG3]    = DGET("fregister3") ;
 380   calc_res[(int) R_FREG4]    = DGET("fregister4") ;
 381   calc_res[(int) R_FREG5]    = DGET("fregister5") ;
 382   calc_res[(int) R_MENUBAR]  = DGET("postMenuBar") ;
 383   calc_res[(int) R_KEYS]     = DGET("keys") ;
 384
 385   STRCPY(v->con_names[0], LGET(GETMESSAGE(3, 119, "kilometers per hour <=> miles per hour."))) ;
 386   STRCPY(v->con_names[1], LGET(GETMESSAGE(3, 120, "square root of 2."))) ;
 387   STRCPY(v->con_names[2], LGET(GETMESSAGE(3, 121, "e."))) ;
 388   STRCPY(v->con_names[3], LGET(GETMESSAGE(3, 122, "pi."))) ;
 389   STRCPY(v->con_names[4], LGET(GETMESSAGE(3, 123, "centimeters <=> inch."))) ;
 390   STRCPY(v->con_names[5], LGET(GETMESSAGE(3, 124, "degrees in a radian."))) ;
 391   STRCPY(v->con_names[6], LGET(GETMESSAGE(3, 125, "2 ^ 20."))) ;
 392   STRCPY(v->con_names[7], LGET(GETMESSAGE(3, 126, "grams <=> ounce."))) ;
 393   STRCPY(v->con_names[8], LGET(GETMESSAGE(3, 127, "kilojoules <=> British thermal units."))) ;
 394   STRCPY(v->con_names[9], LGET(GETMESSAGE(3, 128, "cubic centimeters <=> cubic inches."))) ;
 395
 396 /* Keyboard equivalents for the dtcalc menu entries. */
 397
 398           i = 0 ;
 399 /* 00 */  get_key_val(&menu_entries[i++].val, LGET("0")) ;  /* ACC */
 400 /* 01 */  get_key_val(&menu_entries[i++].val, LGET("1")) ;
 401 /* 02 */  get_key_val(&menu_entries[i++].val, LGET("2")) ;
 402 /* 03 */  get_key_val(&menu_entries[i++].val, LGET("3")) ;
 403 /* 04 */  get_key_val(&menu_entries[i++].val, LGET("4")) ;
 404 /* 05 */  get_key_val(&menu_entries[i++].val, LGET("5")) ;
 405 /* 06 */  get_key_val(&menu_entries[i++].val, LGET("6")) ;
 406 /* 07 */  get_key_val(&menu_entries[i++].val, LGET("7")) ;
 407 /* 08 */  get_key_val(&menu_entries[i++].val, LGET("8")) ;
 408 /* 09 */  get_key_val(&menu_entries[i++].val, LGET("9")) ;
 409 /* 10 */  get_key_val(&menu_entries[i++].val, LGET("0")) ;  /* EXCH, RCL, STO */
 410 /* 11 */  get_key_val(&menu_entries[i++].val, LGET("1")) ;
 411 /* 12 */  get_key_val(&menu_entries[i++].val, LGET("2")) ;
 412 /* 13 */  get_key_val(&menu_entries[i++].val, LGET("3")) ;
 413 /* 14 */  get_key_val(&menu_entries[i++].val, LGET("4")) ;
 414 /* 15 */  get_key_val(&menu_entries[i++].val, LGET("5")) ;
 415 /* 16 */  get_key_val(&menu_entries[i++].val, LGET("6")) ;
 416 /* 17 */  get_key_val(&menu_entries[i++].val, LGET("7")) ;
 417 /* 18 */  get_key_val(&menu_entries[i++].val, LGET("8")) ;
 418 /* 19 */  get_key_val(&menu_entries[i++].val, LGET("9")) ;
 419 /* 35 */  get_key_val(&menu_entries[i++].val, LGET("b")) ;  /* BASE */
 420 /* 36 */  get_key_val(&menu_entries[i++].val, LGET("o")) ;
 421 /* 37 */  get_key_val(&menu_entries[i++].val, LGET("d")) ;
 422 /* 38 */  get_key_val(&menu_entries[i++].val, LGET("h")) ;
 423 /* 39 */  get_key_val(&menu_entries[i++].val, LGET("e")) ;  /* Display type. */
 424 /* 40 */  get_key_val(&menu_entries[i++].val, LGET("f")) ;
 425 /* 41 */  get_key_val(&menu_entries[i++].val, LGET("s")) ;
 426 /* 42 */  get_key_val(&menu_entries[i++].val, LGET("d")) ;  /* Trig. type. */
 427 /* 43 */  get_key_val(&menu_entries[i++].val, LGET("g")) ;
 428 /* 44 */  get_key_val(&menu_entries[i++].val, LGET("r")) ;
 429 /* 45 */  get_key_val(&menu_entries[i++].val, LGET("b")) ;  /* MODE */
 430 /* 46 */  get_key_val(&menu_entries[i++].val, LGET("f")) ;
 431 /* 47 */  get_key_val(&menu_entries[i++].val, LGET("l")) ;
 432 /* 48 */  get_key_val(&menu_entries[i++].val, LGET("s")) ;
 433 /* 49 */  get_key_val(&menu_entries[i++].val, LGET("\020")) ;
 434
 435   i = 0 ;
 436 /* Financial */
 437   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 208, "Term"))) ;
 438   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 209, "i%Yr"))) ;
 439   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 210, "Pv"))) ;
 440   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 211, "Pmt"))) ;
 441   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 212, "Fv"))) ;
 442   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 515, "P/YR"))) ;
 443   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 213, "CLRfregs"))) ;
 444   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 214, "Ctrm"))) ;
 445   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 215, "Ddb"))) ;
 446   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 216, "Sln"))) ;
 447   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 217, "Syd"))) ;
 448   read_str(&mode_buttons[i++].str, " ") ;
 449   read_str(&mode_buttons[i++].str, " ") ;
 450   read_str(&mode_buttons[i++].str, " ") ;
 451   read_str(&mode_buttons[i++].str, " ") ;
 452   read_str(&mode_buttons[i++].str, " ") ;
 453
 454 /* Logical. */
 455   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 218, "<"))) ;
 456   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 219, ">"))) ;
 457   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 220, "&16"))) ;
 458   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 221, "&32"))) ;
 459   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 222, "Or"))) ;
 460   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 223, "And"))) ;
 461   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 224, "Not"))) ;
 462   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 225, "Xor"))) ;
 463   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 226, "Xnor"))) ;
 464   read_str(&mode_buttons[i++].str, " ") ;
 465   read_str(&mode_buttons[i++].str, " ") ;
 466   read_str(&mode_buttons[i++].str, " ") ;
 467   read_str(&mode_buttons[i++].str, " ") ;
 468   read_str(&mode_buttons[i++].str, " ") ;
 469   read_str(&mode_buttons[i++].str, " ") ;
 470   read_str(&mode_buttons[i++].str, " ") ;
 471
 472 /* Scientific. */
 473   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 228, "Inv"))) ;
 474   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 227, "Hyp"))) ;
 475   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 229, "e^x"))) ;
 476   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 230, "10^x"))) ;
 477   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 231, "y^x"))) ;
 478   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 232, "x!"))) ;
 479   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 233, "Cos"))) ;
 480   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 234, "Sin"))) ;
 481   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 235, "Tan"))) ;
 482   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 236, "Ln"))) ;
 483   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 237, "Log"))) ;
 484   read_str(&mode_buttons[i++].str, LGET(GETMESSAGE(3, 238, "Rand"))) ;
 485   read_str(&mode_buttons[i++].str, " ") ;
 486   read_str(&mode_buttons[i++].str, " ") ;
 487   read_str(&mode_buttons[i++].str, " ") ;
 488   read_str(&mode_buttons[i++].str, " ") ;
 489
 490 /* Keyboard equivalents for the three dtcalc mode window buttons. */
 491
 492   i = 0 ;
 493 /* Financial */
 494   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 239, "T - Term"))) ;
 495 /* CTL('r') */
 496   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 240, "^r - i%Yr"))) ;
 497   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 241, "p - Pv"))) ;
 498   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 242, "P - Pmt"))) ;
 499   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 243, "v - Fv"))) ;
 500   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 516, "y - P/YR"))) ;
 501   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 244, "L - Clrgs"))) ;
 502 /* CTL('t') */
 503   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 245, "^t - Ctrm"))) ;
 504 /* CTL('d') */
 505   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 246, "^d - Ddb")));
 506 /* CTL('s') */
 507   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 247, "^s - Sln")));
 508 /* CTL('y') */
 509   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 248, "^y - Syd")));
 510   read_str(&mode_buttons[i++].str2, " ") ;
 511   read_str(&mode_buttons[i++].str2, " ") ;
 512   read_str(&mode_buttons[i++].str2, " ") ;
 513   read_str(&mode_buttons[i++].str2, " ") ;
 514   read_str(&mode_buttons[i++].str2, " ") ;
 515
 516 /* Logical. */
 517   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 249, "<"))) ;
 518   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 250, ">"))) ;
 519   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 251, "[ - &16"))) ;
 520   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 252, "] - &32"))) ;
 521   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 253, "| - Or"))) ;
 522   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 254, "& - And"))) ;
 523   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 255, "~ - Not"))) ;
 524   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 256, "^ - Xor"))) ;
 525   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 257, "n - Xnor"))) ;
 526   read_str(&mode_buttons[i++].str2, " ") ;
 527   read_str(&mode_buttons[i++].str2, " ") ;
 528   read_str(&mode_buttons[i++].str2, " ") ;
 529   read_str(&mode_buttons[i++].str2, " ") ;
 530   read_str(&mode_buttons[i++].str2, " ") ;
 531   read_str(&mode_buttons[i++].str2, " ") ;
 532   read_str(&mode_buttons[i++].str2, " ") ;
 533
 534 /* Scientific. */
 535   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 259, "i - Inv"))) ;
 536   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 258, "h - Hyp"))) ;
 537   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 260, "{ - e^x"))) ;
 538   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 261, "} - 10^x"))) ;
 539   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 262, "y - y^x"))) ;
 540   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 263, "! - x!"))) ;
 541 /* CTL('c') */
 542   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 264, "^c - Cos")));
 543 /* CTL('s') */
 544   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 265, "^s - Sin")));
 545 /* CTL('t') */
 546   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 266, "^t - Tan")));
 547   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 267, "N - Ln"))) ;
 548   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 268, "G - Log"))) ;
 549   read_str(&mode_buttons[i++].str2, LGET(GETMESSAGE(3, 269, "? - Rand"))) ;
 550   read_str(&mode_buttons[i++].str2, " ") ;
 551   read_str(&mode_buttons[i++].str2, " ") ;
 552   read_str(&mode_buttons[i++].str2, " ") ;
 553   read_str(&mode_buttons[i++].str2, " ") ;
 554
 555   i = 0 ;
 556 /* Financial */
 557   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 480, "T"))) ;
 558 /* CTL('r') */
 559   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 481, "\022"))) ;
 560   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 482, "p"))) ;
 561   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 483, "P"))) ;
 562   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 484, "v"))) ;
 563   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(5, 517, "y"))) ;
 564   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 485, "L"))) ;
 565 /* CTL('t') */
 566   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 486, "\024"))) ;
 567 /* CTL('d') */
 568   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 487, "\004"))) ;
 569 /* CTL('s') */
 570   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 488, "\023"))) ;
 571 /* CTL('y') */
 572   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 489, "\031"))) ;
 573   get_key_val(&mode_buttons[i++].value, " ") ;
 574   get_key_val(&mode_buttons[i++].value, " ") ;
 575   get_key_val(&mode_buttons[i++].value, " ") ;
 576   get_key_val(&mode_buttons[i++].value, " ") ;
 577   get_key_val(&mode_buttons[i++].value, " ") ;
 578
 579 /* Logical. */
 580   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 249, "<"))) ;
 581   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 250, ">"))) ;
 582   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 490, "["))) ;
 583   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 491, "]"))) ;
 584   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 492, "|"))) ;
 585   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 493, "&"))) ;
 586   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 494, "~"))) ;
 587   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 495, "^"))) ;
 588   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 496, "n"))) ;
 589   get_key_val(&mode_buttons[i++].value, " ") ;
 590   get_key_val(&mode_buttons[i++].value, " ") ;
 591   get_key_val(&mode_buttons[i++].value, " ") ;
 592   get_key_val(&mode_buttons[i++].value, " ") ;
 593   get_key_val(&mode_buttons[i++].value, " ") ;
 594   get_key_val(&mode_buttons[i++].value, " ") ;
 595   get_key_val(&mode_buttons[i++].value, " ") ;
 596
 597 /* Scientific. */
 598   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 501, "i"))) ;
 599   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 500, "h"))) ;
 600   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 502, "{"))) ;
 601   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 503, "}"))) ;
 602   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 504, "y"))) ;
 603   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 505, "!"))) ;
 604 /* CTL('c') */
 605   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 506, "\003"))) ;
 606 /* CTL('s') */
 607   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 507, "\023"))) ;
 608 /* CTL('t') */
 609   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 508, "\024"))) ;
 610   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 509, "N"))) ;
 611   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 510, "G"))) ;
 612   get_key_val(&mode_buttons[i++].value, LGET(GETMESSAGE(3, 511, "?"))) ;
 613   get_key_val(&mode_buttons[i++].value, " ") ;
 614   get_key_val(&mode_buttons[i++].value, " ") ;
 615   get_key_val(&mode_buttons[i++].value, " ") ;
 616   get_key_val(&mode_buttons[i++].value, " ") ;
 617
 618 }
 619
 620 void
 621 init_mess()   /* Setup text strings depending upon language. */
 622 {
 623   int i ;
 624
 625   base_str[(int) BIN] = XtNewString(LGET(GETMESSAGE(2, 1, "Bin"))) ;  /* Base values. */
 626   base_str[(int) OCT] = XtNewString(LGET(GETMESSAGE(2, 2, "Oct"))) ;
 627   base_str[(int) DEC] = XtNewString(LGET(GETMESSAGE(2, 3, "Dec"))) ;
 628   base_str[(int) HEX] = XtNewString(LGET(GETMESSAGE(2, 4, "Hex"))) ;
 629
 630   i = 0 ;
 631   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 107, "Accuracy"))) ;         /* ACC */
 632   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 108, "Numeric base"))) ;  /* BASE TYPE */
 633   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 109, "Constants"))) ;        /* CON */
 634   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 110, "Exchange"))) ;         /* EXCH */
 635   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 111, "Functions"))) ;        /* FUN */
 636   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 113, "Mode"))) ;             /* MODE */
 637   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 114, "Display type"))) ;   /* NUM TYPE */
 638   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 115, "Retrieve"))) ;         /* RCL */
 639   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 117, "Store"))) ;            /* STO */
 640   cmenus[i++].title = XtNewString(LGET(GETMESSAGE(3, 118, "Trigonometric type"))) ;/* TRIG TYPE */
 641
 642 /* Display mode. */
 643   dtype_str[(int) ENG] = XtNewString(LGET(GETMESSAGE(2, 5, "ENG"))) ;
 644   dtype_str[(int) FIX] = XtNewString(LGET(GETMESSAGE(2, 6, "FIX"))) ;
 645   dtype_str[(int) SCI] = XtNewString(LGET(GETMESSAGE(2, 7, "SCI"))) ;
 646
 647 /* Labels for various Motif items. */
 648   lstrs[(int) L_CONNO]   = XtNewString(LGET(GETMESSAGE(3, 132, "Constant no:"))) ;
 649   lstrs[(int) L_FUNNO]   = XtNewString(LGET(GETMESSAGE(3, 133, "Function no:"))) ;
 650   lstrs[(int) L_LCALC]   = XtNewString(LGET(GETMESSAGE(3, 134, "calculator"))) ;
 651   lstrs[(int) L_NEWCON]  = XtNewString(LGET(GETMESSAGE(3, 135, "New Constant"))) ;
 652   lstrs[(int) L_NEWFUN]  = XtNewString(LGET(GETMESSAGE(3, 136, "New Function"))) ;
 653   lstrs[(int) L_UCALC]   = XtNewString(LGET(GETMESSAGE(2, 12, "Calculator"))) ;
 654   lstrs[(int) L_MEMT]    = XtNewString(LGET(GETMESSAGE(3, 137, "Memory Registers"))) ;
 655   lstrs[(int) L_FINMEMT] = XtNewString(LGET(GETMESSAGE(3, 518, "Financial Registers"))) ;
 656   lstrs[(int) L_PROPT]   = XtNewString(LGET(GETMESSAGE(3, 139, "Calculator properties"))) ;
 657   lstrs[(int) L_DESC]    = XtNewString(LGET(GETMESSAGE(3, 140, "Description:"))) ;
 658   lstrs[(int) L_VALUE]   = XtNewString(LGET(GETMESSAGE(3, 141, "Value:"))) ;
 659   lstrs[(int) L_CONB]    = XtNewString(LGET(GETMESSAGE(3, 142, "Enter Constant"))) ;
 660   lstrs[(int) L_FUNB]    = XtNewString(LGET(GETMESSAGE(3, 143, "Enter Function"))) ;
 661
 662 /* Message strings. */
 663   mess[(int) MESS_PARAM] = XtNewString(MGET(GETMESSAGE(3, 148, "%s\n"))) ;
 664   mess[(int) MESS_CON]   = XtNewString(MGET(GETMESSAGE(3, 149, "%s %1d already exists."))) ;
 665           i = 0 ;
 666 /* ACC */
 667 /* 00 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 153, "0 radix places"))) ;
 668 /* 01 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 154, "1 radix places"))) ;
 669 /* 02 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 155, "2 radix places"))) ;
 670 /* 03 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 156, "3 radix places"))) ;
 671 /* 04 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 157, "4 radix places"))) ;
 672 /* 05 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 158, "5 radix places"))) ;
 673 /* 06 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 159, "6 radix places"))) ;
 674 /* 07 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 160, "7 radix places"))) ;
 675 /* 08 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 161, "8 radix places"))) ;
 676 /* 09 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 162, "9 radix places"))) ;
 677
 678 /* EXCH, RCL, STO */
 679 /* 10 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 163, "Register 0"))) ;
 680 /* 11 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 164, "Register 1"))) ;
 681 /* 12 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 165, "Register 2"))) ;
 682 /* 13 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 166, "Register 3"))) ;
 683 /* 14 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 167, "Register 4"))) ;
 684 /* 15 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 168, "Register 5"))) ;
 685 /* 16 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 169, "Register 6"))) ;
 686 /* 17 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 170, "Register 7"))) ;
 687 /* 18 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 171, "Register 8"))) ;
 688 /* 19 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 172, "Register 9"))) ;
 689
 690 /* BASE */
 691 /* 20 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 188, "Binary"))) ;
 692 /* 21 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 189, "Octal"))) ;
 693 /* 22 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 190, "Decimal"))) ;
 694 /* 23 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 191, "Hexadecimal"))) ;
 695
 696 /* Display type. */
 697 /* 24 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 192, "Engineering"))) ;
 698 /* 25 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 193, "Fixed point"))) ;
 699 /* 26 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 194, "Scientific"))) ;
 700
 701 /* Trig. type. */
 702 /* 27 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 195, "Degrees"))) ;
 703 /* 28 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 196, "Gradients"))) ;
 704 /* 29 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 197, "Radians"))) ;
 705
 706 /* MODE */
 707 /* 30 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 198, "Basic"))) ;
 708 /* 31 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 199, "Financial"))) ;
 709 /* 32 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 200, "Logical"))) ;
 710 /* 33 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 201, "Scientific"))) ;
 711
 712 /* 34 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 203, "Term:"))) ;
 713 /* 35 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 204, "i%Yr:"))) ;
 714 /* 36 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 205, "Present Value:"))) ;
 715 /* 37 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 206, "Payment:"))) ;
 716 /* 38 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 207, "Future Value:"))) ;
 717 /* 39 */  menu_entries[i++].str = XtNewString(LGET(GETMESSAGE(3, 514, "Payments/Year:"))) ;
 718
 719   mode_str[(int) FINANCIAL]  = XtNewString(LGET(GETMESSAGE(3, 270, "FINANCIAL"))) ;
 720   mode_str[(int) LOGICAL]    = XtNewString(LGET(GETMESSAGE(3, 271, "LOGICAL"))) ;
 721   mode_str[(int) SCIENTIFIC] = XtNewString(LGET(GETMESSAGE(3, 272, "SCIENTIFIC"))) ;
 722
 723 /* MP errors (visible with the -E command line option. */
 724
 725   mpstrs[(int) MP_ADD2A] = XtNewString(LGET(GETMESSAGE(3, 273, "*** SIGN NOT 0, +1 OR -1 IN MPADD2 CALL.\n"))) ;
 726   mpstrs[(int) MP_ADD2B] = XtNewString(LGET(GETMESSAGE(3, 274, "POSSIBLE OVERWRITING PROBLEM ***\n"))) ;
 727   mpstrs[(int) MP_PART1] = XtNewString(LGET(GETMESSAGE(3, 275, "*** N .LE. 1 IN CALL TO MPART1 ***\n"))) ;
 728   mpstrs[(int) MP_ASIN]  = XtNewString(LGET(GETMESSAGE(3, 276, "*** ABS(X) .GT. 1 IN CALL TO MPASIN ***\n"))) ;
 729   mpstrs[(int) MP_ATAN]  = XtNewString(LGET(GETMESSAGE(3, 277, "*** ERROR OCCURRED IN MPATAN, RESULT INCORRECT ***\n"))) ;
 730   mpstrs[(int) MP_CHKC]  = XtNewString(MGET(GETMESSAGE(3, 278, "*** B = %d ILLEGAL IN CALL TO MPCHK.\n"))) ;
 731   mpstrs[(int) MP_CHKD]  = XtNewString(LGET(GETMESSAGE(3, 279, "PERHAPS NOT SET BEFORE CALL TO AN MP ROUTINE ***\n"))) ;
 732   mpstrs[(int) MP_CHKE]  = XtNewString(MGET(GETMESSAGE(3, 280, "*** T = %d ILLEGAL IN CALL TO MPCHK.\n"))) ;
 733   mpstrs[(int) MP_CHKF]  = XtNewString(LGET(GETMESSAGE(3, 279, "PERHAPS NOT SET BEFORE CALL TO AN MP ROUTINE ***\n"))) ;
 734   mpstrs[(int) MP_CHKG]  = XtNewString(LGET(GETMESSAGE(3, 282, "*** M .LE. T IN CALL TO MPCHK.\n"))) ;
 735   mpstrs[(int) MP_CHKH]  = XtNewString(LGET(GETMESSAGE(3, 279, "PERHAPS NOT SET BEFORE CALL TO AN MP ROUTINE ***\n"))) ;
 736   mpstrs[(int) MP_CHKI]  = XtNewString(LGET(GETMESSAGE(3, 284, "*** B TOO LARGE IN CALL TO MPCHK ***\n"))) ;
 737   mpstrs[(int) MP_CHKJ]  = XtNewString(LGET(GETMESSAGE(3, 285, "*** MXR TOO SMALL OR NOT SET TO DIM(R) BEFORE CALL "))) ;
 738   mpstrs[(int) MP_CHKL]  = XtNewString(LGET(GETMESSAGE(3, 286, "TO AN MP ROUTINE ***\n"))) ;
 739   mpstrs[(int) MP_CHKM]  = XtNewString(MGET(GETMESSAGE(3, 287, "*** MXR SHOULD BE AT LEAST %d*T + %d = %d  ***\n"))) ;
 740   mpstrs[(int) MP_CHKN]  = XtNewString(MGET(GETMESSAGE(3, 288, "*** ACTUALLY MXR = %d, AND T = %d  ***\n"))) ;
 741   mpstrs[(int) MP_CMD]   = XtNewString(LGET(GETMESSAGE(3, 289, "*** FLOATING-POINT OVER/UNDER-FLOW IN MPCMD ***\n"))) ;
 742   mpstrs[(int) MP_CMR]   = XtNewString(LGET(GETMESSAGE(3, 290, "*** FLOATING-POINT OVER/UNDER-FLOW IN MPCMR ***\n"))) ;
 743   mpstrs[(int) MP_CQM]   = XtNewString(LGET(GETMESSAGE(3, 291, "*** J = 0 IN CALL TO MPCQM ***\n"))) ;
 744   mpstrs[(int) MP_DIVA]  = XtNewString(LGET(GETMESSAGE(3, 292, "*** ATTEMPTED DIVISION BY ZERO IN CALL TO MPDIV ***\n"))) ;
 745   mpstrs[(int) MP_DIVB]  = XtNewString(LGET(GETMESSAGE(3, 293, "*** OVERFLOW OCCURRED IN MPDIV ***\n"))) ;
 746   mpstrs[(int) MP_DIVIA] = XtNewString(LGET(GETMESSAGE(3, 294, "*** ATTEMPTED DIVISION BY ZERO IN CALL TO MPDIVI ***\n"))) ;
 747   mpstrs[(int) MP_DIVIB] = XtNewString(LGET(GETMESSAGE(3, 295, "*** INTEGER OVERFLOW IN MPDIVI, B TOO LARGE ***\n"))) ;
 748   mpstrs[(int) MP_EXPA]  = XtNewString(LGET(GETMESSAGE(3, 296, "*** OVERFLOW IN SUBROUTINE MPEXP ***\n"))) ;
 749   mpstrs[(int) MP_EXPB]  = XtNewString(LGET(GETMESSAGE(3, 297, "*** ERROR OCCURRED IN MPEXP, RESULT INCORRECT ***\n"))) ;
 750   mpstrs[(int) MP_EXP1]  = XtNewString(LGET(GETMESSAGE(3, 298, "*** ABS(X) NOT LESS THAN 1 IN CALL TO MPEXP1 ***\n"))) ;
 751   mpstrs[(int) MP_LNA]   = XtNewString(LGET(GETMESSAGE(3, 299, "*** X NONPOSITIVE IN CALL TO MPLN ***\n"))) ;
 752   mpstrs[(int) MP_LNB]   = XtNewString(LGET(GETMESSAGE(3, 300, "*** ERROR IN MPLN, ITERATION NOT CONVERGING ***\n"))) ;
 753   mpstrs[(int) MP_LNSA]  = XtNewString(LGET(GETMESSAGE(3, 301, "*** ABS(X) .GE. 1/B IN CALL TO MPLNS ***\n"))) ;
 754   mpstrs[(int) MP_LNSB]  = XtNewString(LGET(GETMESSAGE(3, 302, "*** ERROR OCCURRED IN MPLNS.\n"))) ;
 755   mpstrs[(int) MP_LNSC]  = XtNewString(LGET(GETMESSAGE(3, 303, "NEWTON ITERATION NOT CONVERGING PROPERLY ***\n"))) ;
 756   mpstrs[(int) MP_MULA]  = XtNewString(LGET(GETMESSAGE(3, 304, "*** INTEGER OVERFLOW IN MPMUL, B TOO LARGE ***\n"))) ;
 757   mpstrs[(int) MP_MULB]  = XtNewString(LGET(GETMESSAGE(3, 305, "*** ILLEGAL BASE B DIGIT IN CALL TO MPMUL.\n"))) ;
 758   mpstrs[(int) MP_MULC]  = XtNewString(LGET(GETMESSAGE(3, 306, "POSSIBLE OVERWRITING PROBLEM ***\n"))) ;
 759   mpstrs[(int) MP_MUL2A] = XtNewString(LGET(GETMESSAGE(3, 307, "*** OVERFLOW OCCURRED IN MPMUL2 ***\n"))) ;
 760   mpstrs[(int) MP_MUL2B] = XtNewString(LGET(GETMESSAGE(3, 308, "*** INTEGER OVERFLOW IN MPMUL2, B TOO LARGE ***\n"))) ;
 761   mpstrs[(int) MP_MULQ]  = XtNewString(LGET(GETMESSAGE(3, 309, "*** ATTEMPTED DIVISION BY ZERO IN MPMULQ ***\n"))) ;
 762   mpstrs[(int) MP_NZRA]  = XtNewString(LGET(GETMESSAGE(3, 310, "*** SIGN NOT 0, +1 OR -1 IN CALL TO MPNZR.\n"))) ;
 763   mpstrs[(int) MP_NZRB]  = XtNewString(LGET(GETMESSAGE(3, 311, "POSSIBLE OVERWRITING PROBLEM ***\n"))) ;
 764   mpstrs[(int) MP_NZRC]  = XtNewString(LGET(GETMESSAGE(3, 312, "*** OVERFLOW OCCURRED IN MPNZR ***\n"))) ;
 765   mpstrs[(int) MP_OVFL]  = XtNewString(LGET(GETMESSAGE(3, 313, "*** CALL TO MPOVFL, MP OVERFLOW OCCURRED ***\n"))) ;
 766   mpstrs[(int) MP_PI]    = XtNewString(LGET(GETMESSAGE(3, 314, "*** ERROR OCCURRED IN MPPI, RESULT INCORRECT ***\n"))) ;
 767   mpstrs[(int) MP_PWRA]  = XtNewString(LGET(GETMESSAGE(3, 315, "*** ATTEMPT TO RAISE ZERO TO NEGATIVE POWER IN\n"))) ;
 768   mpstrs[(int) MP_PWRB]  = XtNewString(LGET(GETMESSAGE(3, 316, "CALL TO SUBROUTINE MPPWR ***\n"))) ;
 769   mpstrs[(int) MP_PWR2A] = XtNewString(LGET(GETMESSAGE(3, 317, "*** X NEGATIVE IN CALL TO MPPWR2 ***\n"))) ;
 770   mpstrs[(int) MP_PWR2B] = XtNewString(LGET(GETMESSAGE(3, 318, "*** X ZERO AND Y NONPOSITIVE IN CALL TO MPPWR2 ***\n"))) ;
 771   mpstrs[(int) MP_RECA]  = XtNewString(LGET(GETMESSAGE(3, 319, "*** ATTEMPTED DIVISION BY ZERO IN CALL TO MPREC ***\n"))) ;
 772   mpstrs[(int) MP_RECB]  = XtNewString(LGET(GETMESSAGE(3, 320, "*** ERROR OCCURRED IN MPREC, NEWTON ITERATION\n"))) ;
 773   mpstrs[(int) MP_RECC]  = XtNewString(LGET(GETMESSAGE(3, 321, "NOT CONVERGING PROPERLY ***\n"))) ;
 774   mpstrs[(int) MP_RECD]  = XtNewString(LGET(GETMESSAGE(3, 322, "*** OVERFLOW OCCURRED IN MPREC ***\n"))) ;
 775   mpstrs[(int) MP_ROOTA] = XtNewString(LGET(GETMESSAGE(3, 323, "*** N = 0 IN CALL TO MPROOT ***\n"))) ;
 776   mpstrs[(int) MP_ROOTB] = XtNewString(LGET(GETMESSAGE(3, 324, "*** ABS(N) TOO LARGE IN CALL TO MPROOT ***\n"))) ;
 777   mpstrs[(int) MP_ROOTC] = XtNewString(LGET(GETMESSAGE(3, 325, "*** X = 0 AND N NEGATIVE IN CALL TO MPROOT ***\n"))) ;
 778   mpstrs[(int) MP_ROOTD] = XtNewString(LGET(GETMESSAGE(3, 326, "*** X NEGATIVE AND N EVEN IN CALL TO MPROOT ***\n"))) ;
 779   mpstrs[(int) MP_ROOTE] = XtNewString(LGET(GETMESSAGE(3, 327, "*** ERROR OCCURRED IN MPROOT, NEWTON ITERATION\n"))) ;
 780   mpstrs[(int) MP_ROOTF] = XtNewString(LGET(GETMESSAGE(3, 328, "NOT CONVERGING PROPERLY ***\n"))) ;
 781   mpstrs[(int) MP_SETB]  = XtNewString(LGET(GETMESSAGE(3, 329, "*** IDECPL .LE. 0 IN CALL TO MPSET ***\n"))) ;
 782   mpstrs[(int) MP_SETC]  = XtNewString(LGET(GETMESSAGE(3, 330, "ITMAX2 TOO SMALL IN CALL TO MPSET ***\n"))) ;
 783   mpstrs[(int) MP_SETD]  = XtNewString(LGET(GETMESSAGE(3, 331, "*** INCREASE ITMAX2 AND DIMENSIONS OF MP ARRAYS \n"))) ;
 784   mpstrs[(int) MP_SETE]  = XtNewString(MGET(GETMESSAGE(3, 332, "TO AT LEAST %d ***\n"))) ;
 785   mpstrs[(int) MP_SIN]   = XtNewString(LGET(GETMESSAGE(3, 333, "*** ERROR OCCURRED IN MPSIN, RESULT INCORRECT ***\n"))) ;
 786   mpstrs[(int) MP_SIN1]  = XtNewString(LGET(GETMESSAGE(3, 334, "*** ABS(X) .GT. 1 IN CALL TO MPSIN1 ***\n"))) ;
 787   mpstrs[(int) MP_SQRT]  = XtNewString(LGET(GETMESSAGE(3, 335, "*** X NEGATIVE IN CALL TO SUBROUTINE MPSQRT ***\n"))) ;
 788   mpstrs[(int) MP_TAN]   = XtNewString(LGET(GETMESSAGE(3, 336, "*** TAN(X) TOO LARGE IN CALL TO MPTAN ***\n"))) ;
 789
 790 /* Command line options. */
 791
 792   opts[(int) O_ACCVAL]   = XtNewString(LGET(GETMESSAGE(3, 337, "Calculator: -a needs accuracy value of 0-9."))) ;
 793   opts[(int) O_ACCRANGE] = XtNewString(MGET(GETMESSAGE(3, 338, "Calculator: accuracy should be in the range 0-9\nWill set accuracy to the default: 2.\n")));
 794   opts[(int) O_BASE]     = XtNewString(MGET(GETMESSAGE(3, 339, "Calculator: base should be binary, octal, decimal or hexadecimal.\nWill set base to the default: decimal.\n"))) ;
 795   opts[(int) O_DISPLAY]  = XtNewString(MGET(GETMESSAGE(3, 340, "Calculator: invalid display mode [%s]\n"))) ;
 796   opts[(int) O_MODE]     = XtNewString(MGET(GETMESSAGE(3, 341, "Calculator: invalid mode [%s]\nWill set mode to its default: scientific\n"))) ;
 797   opts[(int) O_TRIG]     = XtNewString(MGET(GETMESSAGE(3, 342, "Calculator: invalid trig. mode [%s]\n"))) ;
 798   opts[(int) O_SESSION]     = XtNewString(MGET(GETMESSAGE(3, 343, "Calculator: invalid session file.\n"))) ;
 799
 800   pstrs[(int) P_CHAR]   = XtNewString(LGET(GETMESSAGE(3, 351, "Character:"))) ;
 801   pstrs[(int) P_ASCIIT] = XtNewString(LGET(GETMESSAGE(3, 352, "Get ASCII"))) ;
 802
 803 /* Trig. type values. */
 804   ttype_str[(int) DEG]      = XtNewString(LGET(GETMESSAGE(3, 353, "Deg"))) ;
 805   ttype_str[(int) GRAD]     = XtNewString(LGET(GETMESSAGE(3, 354, "Grad"))) ;
 806   ttype_str[(int) RAD]      = XtNewString(LGET(GETMESSAGE(3, 355, "Rad"))) ;
 807
 808 /* Usage message. */
 809   ustrs[(int) USAGE1] = XtNewString(MGET(GETMESSAGE(3, 356, "Calculator (dtcalc) version 1.%1d\n\n"))) ;
 810   ustrs[(int) USAGE2] = XtNewString(MGET(GETMESSAGE(3, 357, "Usage: dtcalc [-a accuracy] [-m mode] [-b base] [-no_menu_bar] [-?]\n"))) ;
 811   ustrs[(int) USAGE3] = XtNewString(LGET(GETMESSAGE(3, 358, "\t [-notation display_notation] [-trig trignometric_type] [-session session_file]\n"))) ;
 812
 813 /* Various strings. */
 814   vstrs[(int) V_CANCEL]   = XtNewString(LGET(GETMESSAGE(3, 361, "Cancel"))) ;
 815   vstrs[(int) V_CONFIRM]  = XtNewString(LGET(GETMESSAGE(3, 362, "Confirm"))) ;
 816   vstrs[(int) V_CONTINUE] = XtNewString(LGET(GETMESSAGE(3, 363, "Continue"))) ;
 817   vstrs[(int) V_CONWNAME] = XtNewString(LGET(GETMESSAGE(3, 142, "Enter Constant"))) ;
 818   vstrs[(int) V_ERROR]    = XtNewString(LGET(GETMESSAGE(3, 364, "Error"))) ;
 819   vstrs[(int) V_FUNWNAME] = XtNewString(LGET(GETMESSAGE(3, 143, "Enter Function"))) ;
 820   vstrs[(int) V_CLR]      = XtNewString(LGET(GETMESSAGE(3, 370, "CLR"))) ;
 821   vstrs[(int) V_HYP]      = XtNewString(LGET(GETMESSAGE(3, 371, "HYP"))) ;
 822   vstrs[(int) V_INV]      = XtNewString(LGET(GETMESSAGE(3, 372, "INV"))) ;
 823   vstrs[(int) V_INVCON]   = XtNewString(LGET(GETMESSAGE(3, 373, "Invalid constant value"))) ;
 824   vstrs[(int) V_LCON]     = XtNewString(LGET(GETMESSAGE(3, 374, "Invalid constant number."))) ;
 825   vstrs[(int) V_LFUN]     = XtNewString(LGET(GETMESSAGE(3, 375, "Invalid function number."))) ;
 826   vstrs[(int) V_NOCHANGE] = XtNewString(LGET(GETMESSAGE(3, 377, "Constant not changed."))) ;
 827   vstrs[(int) V_NUMSTACK] = XtNewString(LGET(GETMESSAGE(3, 378, "Numeric stack error"))) ;
 828   vstrs[(int) V_OPSTACK]  = XtNewString(LGET(GETMESSAGE(3, 379, "Operand stack error"))) ;
 829   vstrs[(int) V_OWRITE]   = XtNewString(LGET(GETMESSAGE(3, 380, "Okay to overwrite?"))) ;
 830   vstrs[(int) V_RANGE]    = XtNewString(LGET(GETMESSAGE(3, 381, "Must be in the range 0 - 9"))) ;
 831   vstrs[(int) V_TRUE]     = LGET("true") ;
 832   vstrs[(int) V_UCON]     = XtNewString(LGET(GETMESSAGE(3, 383, "Constant"))) ;
 833   vstrs[(int) V_UFUN]     = XtNewString(LGET(GETMESSAGE(3, 384, "Function"))) ;
 834   vstrs[(int) V_NORSAVE]  = XtNewString(LGET(GETMESSAGE(3, 385, "Unable to save defaults.\n"))) ;
 835
 836 }