/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: April 21, 1992 12:55:40 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkNumberLabelImpl, module: XTkNumberLabelImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [442397872,1666427734] XTkNumberLabelImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W8 f; word r;} W9;
typedef struct {W16 f; W9 r;} W25;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef W9 *W9Pt;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W2 *W2Pt;
typedef W5 *W5Pt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
#define IOP2(op, x, y)  ( (word) ((x) op (y)) )
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
static void NoName_Q2028();
static void XTkNumberLabelImpl_P0();
static word MakeClass_P60();
static void NumberInitInstPart_P180();
static void EventProc_P240();
static word NoName_Q2088();
static word NoName_Q2148();
static void Beep_P888();
static void Redisplay_P300();
static word ValToText_P1236();
static word IsNumberLabel_P360();
static word Create_P420();
static word GetVal_P480();
static void SetFilter_P540();
static void SetVal_P600();
static void InternalSetVal_P660();
static void SetEditable_P720();
static void NumberPreferredSize_P780();
static void NoName_Q2208();
static void NoName_Q2268();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\032\136\164\260\300\143\123\253\126\100\244\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\003\001\000"};
static struct {unsigned f; char r[44];} string5 = {2752556, "\260\006\005\146\151\162\163\164\257\300\233\221\325\046\300\135\160\307\206\100\200\005\004\162\145\163\164\214\257\300\233\221\325\046\300\135\160\307\206\100\200\261\000"};
static struct {unsigned f; char r[16];} string6 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\072\360\043\311\300\372\054\163\300\100\164\000\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\032\136\164\260\300\143\123\253\126\100\230\000\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\003\002\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string11 = {2555943, "\011\000\004\106\000\040\006\011\020\004\101\201\100\174\001\100\200\001\100\204\001\100\210\001\100\220\001\100\264\001\100\270\001\100\274\001\100\304\001"};
static struct {unsigned f; char r[8];} string12 = {393224, "Number\000"};
static struct {unsigned f; char r[4];} string13 = {196612, "%5d"};
static struct {unsigned f; char r[24];} string14 = {1376280, "XTkNumberLabelChanged\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\032\136\164\260\300\143\123\253\126\100\164\000\000"};
static struct {unsigned f; char r[16];} string16 = {917518, "\006\005\040\001\044\001\050\001\054\001\100\130\004\007\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\072\360\036\365\300\334\030\146\334\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\130\354\167\377\300\226\325\031\150\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\234\350\054\033\300\120\345\145\367\100\150\000\000"};
static struct {unsigned f; char r[12];} string24 = {1481927502, "umberLabel"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\005\226\257\270\300\167\362\171\040\100\150\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\227\370\144\253\300\176\165\034\110\100\150\000\000"};
static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\241\212\365\147\300\210\002\141\100\100\150\000\000"};
static struct {
   word f0[25]; word f25; word f26; word f27; 
   word f28; word f29; word f30; word f31; 
   word f32; word f33; word f34; word f35; 
   word f36; word f37; word f38; word f39; 
   word f40; word f41; word f42; word f43; 
   word f44; word f45; word f46; word f47; 
   word f48; word f49; word f50[12]; 
   } globalframe = {
   {0}, (word) NumberPreferredSize_P780, 0, (word) SetEditable_P720, 
   0, (word) InternalSetVal_P660, 0, (word) SetVal_P600, 
   0, (word) SetFilter_P540, 0, (word) GetVal_P480, 
   0, (word) Create_P420, 0, (word) IsNumberLabel_P360, 
   0, (word) Redisplay_P300, 0, (word) EventProc_P240, 
   0, (word) NumberInitInstPart_P180, 0, (word) MakeClass_P60, 
   0, (word) XTkNumberLabelImpl_P0, {0}
   };

static void NoName_Q2028()
   {
   register ptr gf_c0147 =  (ptr) &globalframe;
   word var_c29932;
   (* (( (ptr) gf_c0147)+12) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0147)+13) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c0147)+15) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string4);
   (* (( (ptr) gf_c0147)+17) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string2);
   (* (( (ptr) gf_c0147)+18) ) = (word) XR_GetTypeIndexS((word) (&string7));
   (* (( (ptr) gf_c0147)+19) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9);
   (* (( (ptr) gf_c0147)+20) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string11);
   (*  (ptr) (( (bPt) gf_c0147)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+12) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c0147)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+17) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c0147)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+12) ), (word) &string14);
   (void) XR_DeclareGlobalFrame((word) "XTkNumberLabelImpl", &globalframe, (word) XR_GetTypeIndex((word) &string15, 0, (word) &string16)
      , (word) (( (bPt) gf_c0147)+196)/* var_c28716 */ );
   var_c29932 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string17)), 73);
   (* (( (ptr) gf_c0147)+57)/* var_c29324 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 67634690);
   var_c29932 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string18)), 103);
   (* (( (ptr) gf_c0147)+59)/* var_c29548 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 67910402);
   var_c29932 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string19)), 218);
   (* (( (ptr) gf_c0147)+51)/* var_c28748 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 819203);
   (void) XR_ImportProcS(var_c29932, 67910403);
   (void) XR_ImportProcS(var_c29932, 68207876);
   var_c29932 = (word) XR_ImportInterface((word) "XlAscii", (word) XR_GetTypeIndexS((word) (&string20)), 3);
   (* (( (ptr) gf_c0147)+55)/* var_c29228 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 269484036);
   var_c29932 = (word) XR_ImportInterface((word) "XlCutBuffers", (word) XR_GetTypeIndexS((word) (&string21)), 2);
   (* (( (ptr) gf_c0147)+56)/* var_c29292 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 67633154);
   var_c29932 = (word) XR_ImportInterface((word) "XTk", (word) XR_GetTypeIndexS((word) (&string22)), 50);
   (* (( (ptr) gf_c0147)+54)/* var_c29004 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 1050628);
   (void) XR_ImportProcS(var_c29932, 67642370);
   (void) XR_ImportProcS(var_c29932, 1579523);
   (void) XR_ImportProcS(var_c29932, 787459);
   var_c29932 = (word) XR_ImportInterface((word) "XTkLabels", (word) XR_GetTypeIndexS((word) (&string23)), 9);
   (* (( (ptr) gf_c0147)+52)/* var_c28940 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 70778883);
   (void) XR_ImportProcS(var_c29932, 787203);
   var_c29932 = (word) XR_ImportInterface((word) &string24, (word) XR_GetTypeIndexS((word) (&string25)), 8);
   (* (( (ptr) gf_c0147)+60)/* var_c29676 */  ) = var_c29932;
   var_c29932 = (word) XR_ImportInterface((word) "XTkFriends", (word) XR_GetTypeIndexS((word) (&string26)), 33);
   (* (( (ptr) gf_c0147)+53)/* var_c28972 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 1048580);
   (void) XR_ImportProcS(var_c29932, 67637250);
   (void) XR_ImportProcS(var_c29932, 73666049);
   var_c29932 = (word) XR_ImportInterface((word) "XTkInputFocus", (word) XR_GetTypeIndexS((word) (&string27)), 7);
   (* (( (ptr) gf_c0147)+58)/* var_c29388 */  ) = var_c29932;
   (void) XR_ImportProcS(var_c29932, 524546);
   (void) XR_ImportProcS(var_c29932, 67633922);
   (void) XR_ImportProcS(var_c29932, 524290);
   var_c29932 = (word) XR_ExportInterface((word) &string24, (word) XR_GetTypeIndexS((word) (&string25)), 8);
   (* (( (ptr) gf_c0147)+61)/* var_c29964 */  ) = var_c29932;
   (void) XR_ExportProcS(var_c29932, (word) (( (bPt) gf_c0147)+156)/* var_c28556 */ , 67371009);
   (void) XR_ExportProcS(var_c29932, (word) (( (bPt) gf_c0147)+148)/* var_c28524 */ , 71565574);
   (void) XR_ExportProcS(var_c29932, (word) (( (bPt) gf_c0147)+140)/* var_c28492 */ , 67371521);
   (void) XR_ExportProcS(var_c29932, (word) (( (bPt) gf_c0147)+124)/* var_c28428 */ , 787203);
   (void) XR_ExportProcS(var_c29932, (word) (( (bPt) gf_c0147)+132)/* var_c28460 */ , 787459);
   (void) XR_ExportProcS(var_c29932, (word) (( (bPt) gf_c0147)+116)/* var_c28396 */ , 787715);
   (void) XR_ExportProcS(var_c29932, (word) (( (bPt) gf_c0147)+108)/* var_c28364 */ , 525826);
   (void) XR_ExportVar(var_c29932, 7, (word) (( (bPt) gf_c0147)+32)/* valueChangedKey_v3308 */ );
   }

static void XTkNumberLabelImpl_P0(formal_c040, formal_c037)
   word formal_c040;
   word formal_c037;
   {
   register ptr gf_c29996 =  (ptr) &globalframe;
   /* XTkNumberLabelImpl: */ 
SOURCE(191, 5811)
SOURCE(517, 52)
   (* (( (ptr) gf_c29996)+8)/* valueChangedKey_v3308 */  ) = (* (( (ptr) gf_c29996)+24) );
SOURCE(617, 68)
   {
      word pd28;
      pd28 = (* (( (ptr) (* (( (ptr) gf_c29996)+51)/* var_c28748 */  ))+201) );
      (* (( (ptr) gf_c29996)+9)/* events_v3364 */  ) = (word) ( *( (fPt) ((*  (ptr) pd28 ))))(2, 4, 35, 35, pd28);
      };
SOURCE(687, 16)
   {
      word var_c28780;
      word var_c28812;
      var_c28780 = XR_NewObject(8, (* (( (ptr) gf_c29996)+15) ));
      var_c28812 = var_c28780;
      (*  (ptr) var_c28812 ) = 268828532;
      (* (( (ptr) var_c28812)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c29996)+15) ));
      var_c28812 = (* (( (ptr) var_c28812)+1) );
      (*  (ptr) var_c28812 ) = 268762884;
      (* (( (ptr) var_c28812)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c29996)+15) ));
      var_c28812 = (* (( (ptr) var_c28812)+1) );
      (*  (ptr) var_c28812 ) = 268500740;
      (* (( (ptr) var_c28812)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c29996)+15) ));
      var_c28812 = (* (( (ptr) var_c28812)+1) );
      (*  (ptr) var_c28812 ) = 65385;
      (* (( (ptr) var_c28812)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c29996)+15) ));
      var_c28812 = (* (( (ptr) var_c28812)+1) );
      (*  (ptr) var_c28812 ) = 65366;
      (* (( (ptr) var_c28812)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c29996)+15) ));
      var_c28812 = (* (( (ptr) var_c28812)+1) );
      (*  (ptr) var_c28812 ) = 65363;
      (* (( (ptr) gf_c29996)+10)/* listOfSpecials_v3392 */  ) = var_c28780;
      };
SOURCE(836, 36)
   (* (( (ptr) gf_c29996)+11)/* numberClass_v3420 */  ) = (word) MakeClass_P60();
   }

static word MakeClass_P60()
   {
   register ptr gf_c30028 =  (ptr) &globalframe;
   word c_v4048;
   /* MakeClass: */ 
SOURCE(874, 1771)
SOURCE(874, 1771)
   c_v4048 = 0;
SOURCE(931, 1714)
   {
      word var_c28844;
      {
         word var_c28876;
         var_c28876 = XR_NewObject(4, (* (( (ptr) gf_c30028)+18) ));
         (*  (ptr) var_c28876 ) = 22;
         var_c28844 = var_c28876;
         };
      {
         W25 var_c045;
         (*  (ptr) &var_c045 ) = (* (( (ptr) gf_c30028)+22) );
         (* (( (ptr) &var_c045)+1) ) = 0;
         (* (( (ptr) &var_c045)+2) ) = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c30028)+52)/* var_c28940 */  ))+10) ) );
         (* (( (ptr) &var_c045)+3) ) = 1;
         (* (( (ptr) &var_c045)+4) ) = 0;
         (* (( (ptr) &var_c045)+5) ) = 0;
         (* (( (ptr) &var_c045)+6) ) = (word) (( (bPt) gf_c30028)+100)/* var_c28332 */ ;
         (* (( (ptr) &var_c045)+7) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+8) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+9) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+10) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+11) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+12) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+13) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+14) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+15) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+16) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+17) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+18) ) = (word) (( (bPt) gf_c30028)+180)/* var_c28652 */ ;
         (* (( (ptr) &var_c045)+19) ) = var_c28844;
         (* (( (ptr) &var_c045)+20) ) = 0;
         (* (( (ptr) &var_c045)+21) ) = 0;
         (* (( (ptr) &var_c045)+22) ) = 0;
         (* (( (ptr) &var_c045)+23) ) = XR_CheckProc(0);
         (* (( (ptr) &var_c045)+24) ) = XR_CheckProc(0);
         {
            word pd29;
            pd29 = (* (( (ptr) (* (( (ptr) gf_c30028)+53)/* var_c28972 */  ))+18) );
            c_v4048 = (word) ( *( (fPt) ((*  (ptr) pd29 ))))((word) (&var_c045), pd29);
            };
         };
      };
SOURCE(1168, 41)
   {
      word pd30;
      pd30 = (* (( (ptr) (* (( (ptr) gf_c30028)+54)/* var_c29004 */  ))+8) );
      (void) ( *( (fPt) ((*  (ptr) pd30 ))))(c_v4048, 1, 1, pd30);
      };
SOURCE(874, 1771)
   return(c_v4048);
   }

static void NumberInitInstPart_P180(widget_v9952, arguments_v9980)
   word widget_v9952;
   word arguments_v9980;
   {
   register ptr gf_c30060 =  (ptr) &globalframe;
   word numberData_v5300;
   /* NumberInitInstPart: */ 
SOURCE(1567, 1078)
SOURCE(1616, 43)
   numberData_v5300 = XR_NewObject(12, (* (( (ptr) gf_c30060)+19) ));
   (*  (ptr) numberData_v5300 ) =  (word) -1;
SOURCE(1661, 58)
   {
      word val_v28284;
      val_v28284 = numberData_v5300;
      {
         word idx31;
         word limit32;
         (* ((( (ptr) widget_v9952)+49)+(
               idx31 = (* (( (ptr) (* (( (ptr) gf_c30060)+11)/* numberClass_v3420 */  ))+4) ),
               limit32 = (* (( (ptr) widget_v9952)+48) ),
               BCK(idx31, limit32)
               )) ) = val_v28284;
         };
      };
SOURCE(1721, 924)
   {
      word var_c29068;
      {
         word pd33;
         pd33 = (* (( (ptr) (* (( (ptr) gf_c30060)+51)/* var_c28748 */  ))+63) );
         var_c29068 = (word) ( *( (fPt) ((*  (ptr) pd33 ))))(0, 0, 0, pd33);
         };
      {
         W4 var_c29100;
         var_c29100.f0 = (word) (( (bPt) gf_c30060)+172)/* var_c28620 */ ;
         var_c29100.f1 = (* (( (ptr) gf_c30060)+9)/* events_v3364 */  );
         var_c29100.f2 = var_c29068;
         var_c29100.f3 = widget_v9952;
         {
            word pd34;
            pd34 = (* (( (ptr) (* (( (ptr) gf_c30060)+54)/* var_c29004 */  ))+30) );
            (void) ( *( (fPt) ((*  (ptr) pd34 ))))(widget_v9952, var_c29100, 5, pd34);
            };
         };
      };
   }

static void EventProc_P240(formal_c0177, formal_c0178, tq_v10096)
   word formal_c0177;
   word formal_c0178;
   word tq_v10096;
   {
   W8 var_c30092;
   /* declaration of event_v10040 skipped */ 
   /* declaration of clientData_v10068 skipped */ 
   /* declaration of var_c29132 skipped */ 
   var_c30092.f4/* event_v10040 */  = formal_c0177;
   var_c30092.f5/* clientData_v10068 */  = formal_c0178;
   /* EventProc: */ 
SOURCE(1862, 1609)
   {
      word tmpAddr35;
      tmpAddr35 = (word) (( (ptr) &var_c30092)+6)/* var_c29132 */ ;
      (*  (ptr) tmpAddr35 ) = ( ((word)  (fPt) Beep_P888) );
      (* (( (ptr) tmpAddr35) + 1) ) = 1;
      };
SOURCE(1892, 1579)
SOURCE(1894, 1539)
   {
      word var_c04;
      {
         word var_c0168;
         var_c0168 = (word) &var_c30092;
         var_c04 = (word) XR_Enable(( ((word)  (fPt) NoName_Q2088) ), ( ((word)  (fPt) NoName_Q2208) ), var_c0168);
         };
      if ((var_c04 == 2)) {
         goto lab_L100000;
         }
      else {
         if ((var_c04 == 1)) {
            goto lab_L02;
            };
         };
      };
   goto lab_L100007;
   lab_L100000: ;
   lab_L100007: ;
   lab_L02: ;
   return;
   }

static word NoName_Q2088(formal_c0152)
   word formal_c0152;
   {
   W7 var_c0174;
   register ptr gf_c0151 =  (ptr) &globalframe;
   var_c0174.f0 = formal_c0152;
SOURCE(1930, 16)
   {
      word widget_v5372;
      word numberData_v5400;
SOURCE(1983, 39)
      widget_v5372 = XR_Narrow((* (( (ptr) formal_c0152)+5) ), (* (( (ptr) gf_c0151)+20) ));
SOURCE(2024, 46)
      {
         word numberData_v28160;
SOURCE(1415, 1230)
         numberData_v28160 = 0;
SOURCE(1500, 1145)
         {
            word idx36;
            word limit37;
            numberData_v28160 = XR_Narrow((* ((( (ptr) widget_v5372)+49)+(
                     idx36 = (* (( (ptr) (* (( (ptr) gf_c0151)+11)/* numberClass_v3420 */  ))+4) ),
                     limit37 = (* (( (ptr) widget_v5372)+48) ),
                     BCK(idx36, limit37)
                     )) ), (* (( (ptr) gf_c0151)+19) ));
            };
SOURCE(1415, 1230)
         numberData_v5400 = numberData_v28160;
         };
SOURCE(2072, 45)
      if ((0 == (* (( (ptr) numberData_v5400)+1) ))) {
SOURCE(2103, 6)
         (void) Beep_P888((word) ((( (bPt) formal_c0152)+24)));
SOURCE(2111, 6)
         return(1);
         };
SOURCE(2122, 1311)
      {
         word var_c29196;
         var_c29196 = (* (( (ptr) formal_c0152)+4) );
         if ((var_c29196 == 0)) {
            goto lab_L100004;
            };
         {
            word var_c29420;
            var_c29420 = (* (( (ptr) var_c29196)+4) );
            if ((var_c29420 == 2)) {
               {
                  word keyPress_v5460;
                  keyPress_v5460 = var_c29196;
SOURCE(2175, 1164)
                  {
                     word char_v5504;
                     word keysym_v5532;
                     word matched_v5560;
                     word isModifier_v5588;
SOURCE(2246, 399)
                     {
                        W4 var_c29260;
                        {
                           word pd38;
                           pd38 = (* (( (ptr) (* (( (ptr) gf_c0151)+55)/* var_c29228 */  ))+4) );
                           (void) ( *( (fPt) ((*  (ptr) pd38 ))))((word) &var_c29260, (* (( (ptr) (* (( (ptr) formal_c0152)+4) ))+2) ), (* (( (ptr) keyPress_v5460)+5)
/*1*/    ), (* (( (ptr) keyPress_v5460)+15) ), (* (( (ptr) gf_c0151)+10)/* listOfSpecials_v3392 */  ), pd38);
                           };
                        isModifier_v5588 = var_c29260.f3;
                        matched_v5560 = var_c29260.f2;
                        keysym_v5532 = var_c29260.f1;
                        char_v5504 = var_c29260.f0;
                        };
SOURCE(2404, 25)
                     if ((0 != isModifier_v5588)) {
SOURCE(2423, 6)
                        return(1);
                        };
SOURCE(2431, 291)
                     switch (matched_v5560) {
                        case 268828532: case 268762884: case 268500740: 
SOURCE(2525, 197)
                           {
/*1*/   /* declaration of sel_v5632 skipped */ 
/*1*/   word val_v5660;
SOURCE(2527, 52)
/*1*/   {
/*1*/      word pd39;
/*1*/      pd39 = (* (( (ptr) (* (( (ptr) gf_c0151)+56)/* var_c29292 */  ))+4) );
/*1*/      var_c0174.f4/* sel_v5632 */  = (word) ( *( (fPt) ((*  (ptr) pd39 ))))((* (( (ptr) widget_v5372)+34) ), 0, pd39);
/*1*/      };
SOURCE(2581, 57)
/*1*/   {
/*1*/      /* declaration of var_c01 skipped */ 
/*1*/      var_c0174.f5/* var_c01 */  = (* (( (ptr) (* (( (ptr) gf_c0151)+57)/* var_c29324 */  ))+10) );
/*1*/      {
/*1*/         /* declaration of var_c02 skipped */ 
/*1*/         {
/*1*/            word var_c03;
/*1*/            {
/*1*/               word var_c0169;
/*1*/               var_c0169 = (word) &var_c0174;
/*1*/               var_c03 = (word) XR_Enable(( ((word)  (fPt) NoName_Q2148) ), ( ((word)  (fPt) NoName_Q2268) ), var_c0169);
/*1*/               };
/*1*/            if ((var_c03 == 2)) {
/*1*/               return(2);
/*1*/               }
/*1*/            else {
/*1*/               if ((var_c03 == 1)) {
/*1*/                  return(1);
/*1*/                  };
/*1*/               };
/*1*/            };
/*1*/         val_v5660 = var_c0174.f6/* var_c02 */ ;
/*1*/         };
/*1*/      };
SOURCE(2660, 53)
/*1*/   if (( (int)val_v5660 >=  (int)0)) {
SOURCE(2694, 19)
/*1*/      (void) SetVal_P600(widget_v5372, SGNCK(val_v5660), 0);
/*1*/      };
SOURCE(2715, 7)
/*1*/   return(1);
/*1*/   };
                        };
SOURCE(2725, 137)
                     if ((matched_v5560 == 65366) || (matched_v5560 == 65363)) {
SOURCE(2793, 61)
                        {
                           word var_c29356;
                           {
/*1*/   word pd40;
/*1*/   pd40 = (* (( (ptr) (* (( (ptr) gf_c0151)+58)/* var_c29388 */  ))+7) );
/*1*/   var_c29356 = (word) ( *( (fPt) ((*  (ptr) pd40 ))))(widget_v5372, 5, pd40);
/*1*/   };
                           {
/*1*/   word pd41;
/*1*/   pd41 = (* (( (ptr) (* (( (ptr) gf_c0151)+58)/* var_c29388 */  ))+4) );
/*1*/   (void) ( *( (fPt) ((*  (ptr) pd41 ))))(var_c29356, 0, pd41);
/*1*/   };
                           };
SOURCE(2856, 6)
                        return(1);
                        };
SOURCE(2867, 96)
                     if ((matched_v5560 == 65385)) {
SOURCE(2902, 53)
                        {
                           word pd42;
                           pd42 = (* (( (ptr) (* (( (ptr) gf_c0151)+58)/* var_c29388 */  ))+5) );
                           (void) ( *( (fPt) ((*  (ptr) pd42 ))))(widget_v5372, (* (( (ptr) keyPress_v5460)+7) ), pd42);
                           };
SOURCE(2957, 6)
                        return(1);
                        };
SOURCE(2968, 261)
                     if (((char_v5504 - 48) <= 9)) {
SOURCE(2993, 238)
                        {
                           word val_v5704;
                           word digit_v5732;
SOURCE(2995, 25)
                           val_v5704 = (word) GetVal_P480(widget_v5372);
SOURCE(3022, 30)
                           digit_v5732 = (char_v5504 - 48);
SOURCE(3054, 68)
                           if (( (int)val_v5704 <=  (int)214748364)) {
SOURCE(3080, 18)
/*1*/   val_v5704 = IOP2( * ,  (int)val_v5704,  (int)10);
/*1*/   }
                           else {
SOURCE(3099, 15)
/*1*/   val_v5704 = 2147483647;
SOURCE(3116, 6)
/*1*/   (void) Beep_P888((word) ((( (bPt) formal_c0152)+24)));
/*1*/   };
SOURCE(3125, 74)
                           if (( (int)val_v5704 <=  (int)(2147483647 - digit_v5732))) {
SOURCE(3154, 21)
/*1*/   val_v5704 = (val_v5704 + digit_v5732);
/*1*/   }
                           else {
SOURCE(3176, 15)
/*1*/   val_v5704 = 2147483647;
SOURCE(3193, 6)
/*1*/   (void) Beep_P888((word) ((( (bPt) formal_c0152)+24)));
/*1*/   };
SOURCE(3202, 19)
                           (void) SetVal_P600(widget_v5372, SGNCK(val_v5704), 0);
SOURCE(3223, 6)
                           return(1);
                           };
                        };
SOURCE(3234, 92)
                     if ((char_v5504 == 8)) {
SOURCE(3256, 72)
                        {
                           word val_v5776;
SOURCE(3258, 25)
                           val_v5776 = (word) GetVal_P480(widget_v5372);
SOURCE(3285, 12)
                           val_v5776 = IOP2( / ,  (int)val_v5776,  (int)10);
SOURCE(3299, 19)
                           (void) SetVal_P600(widget_v5372, SGNCK(val_v5776), 0);
SOURCE(3320, 6)
                           return(1);
                           };
                        };
SOURCE(3331, 6)
                     (void) Beep_P888((word) ((( (bPt) formal_c0152)+24)));
                     };
                  };
               }
            else {
               if ((var_c29420 == 4)) {
                  {
                     word buttonPress_v5820;
                     buttonPress_v5820 = var_c29196;
SOURCE(3380, 53)
                     {
                        word pd43;
                        pd43 = (* (( (ptr) (* (( (ptr) gf_c0151)+58)/* var_c29388 */  ))+4) );
                        (void) ( *( (fPt) ((*  (ptr) pd43 ))))(widget_v5372, (* (( (ptr) buttonPress_v5820)+7) ), pd43);
                        };
                     };
                  }
               else {
                  lab_L100004: ;
                  };
               };
            };
         };
      };
   return(0);
   }

static word NoName_Q2148(formal_c0153)
   word formal_c0153;
   {
SOURCE(2581, 57)
   {
      word pd44;
      pd44 = (* (( (ptr) formal_c0153)+5) );
      (* (( (ptr) formal_c0153)+6) ) = (word) ( *( (fPt) ((*  (ptr) pd44 ))))((* (( (ptr) formal_c0153)+4) ), 8, pd44);
      };
   return(0);
   }

static void Beep_P888(formal_c30156)
   word formal_c30156;
   {
   register ptr gf_c30124 =  (ptr) &globalframe;
   formal_c30156 = (formal_c30156 - 24);
   /* Beep: */ 
SOURCE(1930, 16)
SOURCE(1948, 30)
   {
      word pd45;
      pd45 = (* (( (ptr) (* (( (ptr) gf_c30124)+51)/* var_c28748 */  ))+132) );
      (void) ( *( (fPt) ((*  (ptr) pd45 ))))((* (( (ptr) (* (( (ptr) formal_c30156)+4) ))+2) ), 100, 0, pd45);
      };
   }

static void Redisplay_P300(widget_v10156, registerData_v10184, callData_v10212, event_v10240)
   word widget_v10156;
   word registerData_v10184;
   word callData_v10212;
   word event_v10240;
   {
   W6 var_c30188;
   register ptr gf_c30220 =  (ptr) &globalframe;
   /* declaration of var_c29452 skipped */ 
   word val_v5892;
   /* Redisplay: */ 
SOURCE(3475, 196)
   {
      word tmpAddr46;
      tmpAddr46 = (word) (( (ptr) &var_c30188)+4)/* var_c29452 */ ;
      (*  (ptr) tmpAddr46 ) = ( ((word)  (fPt) ValToText_P1236) );
      (* (( (ptr) tmpAddr46) + 1) ) = 1;
      };
SOURCE(3603, 25)
   val_v5892 = (word) GetVal_P480(widget_v10156);
SOURCE(3630, 41)
   {
      word var_c29484;
      var_c29484 = (word) ValToText_P1236(val_v5892, (word) (( (bPt) &var_c30188)+16)/* var_c29452 */ );
      {
         word pd47;
         pd47 = (* (( (ptr) (* (( (ptr) gf_c30220)+52)/* var_c28940 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd47 ))))(widget_v10156, var_c29484, 2, pd47);
         };
      };
   }

static word ValToText_P1236(val_v5968, formal_c30284)
   word val_v5968;
   word formal_c30284;
   {
   register ptr gf_c30252 =  (ptr) &globalframe;
   word r_v6012;
   formal_c30284 = (formal_c30284 - 16);
   /* ValToText: */ 
SOURCE(3511, 87)
SOURCE(3511, 87)
   r_v6012 = 0;
SOURCE(3565, 33)
   {
      W2 var_c29516;
      var_c29516.f0 = 5;
      var_c29516.f1 = val_v5968;
      {
         word pd48;
         pd48 = (* (( (ptr) (* (( (ptr) gf_c30252)+59)/* var_c29548 */  ))+63) );
         r_v6012 = (word) ( *( (fPt) ((*  (ptr) pd48 ))))((* (( (ptr) gf_c30252)+23) ), var_c29516, pd48);
         };
      };
SOURCE(3511, 87)
   return(r_v6012);
   }

static word IsNumberLabel_P360(widget_v4420)
   word widget_v4420;
   {
   register ptr gf_c30316 =  (ptr) &globalframe;
   word var_c4464;
   /* IsNumberLabel: */ 
SOURCE(3677, 124)
SOURCE(3744, 57)
   {
      word var_c0170;
      if ((widget_v4420 != 0)) {
         {
            word var_c29612;
            word widget_v28208;
            word class_v28236;
            widget_v28208 = widget_v4420;
            class_v28236 = (* (( (ptr) gf_c30316)+11)/* numberClass_v3420 */  );
            {
               word pd49;
               if (((* (( (ptr) widget_v28208)+4) ) == class_v28236)) {
                  var_c29612 = 1;
                  }
               else {
                  pd49 = (* (( (ptr) (* (( (ptr) gf_c30316)+54)/* var_c29004 */  ))+40) );
                  var_c29612 = (word) ( *( (fPt) ((*  (ptr) pd49 ))))(widget_v28208, class_v28236, pd49);
                  };
               };
            var_c0170 = (0 != var_c29612);
            };
         }
      else {
         var_c0170 = 0;
         };
      return(var_c0170);
      };
   }

static word Create_P420(formal_c096)
   word formal_c096;
   {
   register ptr gf_c30348 =  (ptr) &globalframe;
   word w_v4720;
   /* Create: */ 
SOURCE(3806, 458)
SOURCE(3806, 458)
   w_v4720 = 0;
SOURCE(3979, 75)
   {
      word pd50;
      pd50 = (* (( (ptr) (* (( (ptr) gf_c30348)+53)/* var_c28972 */  ))+20) );
      (*  (ptr) formal_c096 ) = (word) ( *( (fPt) ((*  (ptr) pd50 ))))((*  (ptr) formal_c096 ), (* (( (ptr) gf_c30348)+11)/* numberClass_v3420 */  ), pd50)
      ;
      };
SOURCE(4056, 63)
   {
      word pd51;
      pd51 = (* (( (ptr) (* (( (ptr) gf_c30348)+52)/* var_c28940 */  ))+4) );
      w_v4720 = (word) ( *( (fPt) ((*  (ptr) pd51 ))))((*  (W9Pt) formal_c096/* widgetSpec_v4524 */  ), 0, (*  (W4Pt) (( (ptr) formal_c096)+12)
         /* style_v4636 */  ), pd51);
      };
SOURCE(4121, 66)
   {
      word pd52;
      pd52 = (* (( (ptr) (* (( (ptr) gf_c30348)+54)/* var_c29004 */  ))+12) );
      (void) ( *( (fPt) ((*  (ptr) pd52 ))))(w_v4720, (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c30348)+60)/* var_c29676 */  ))+11) ) ), (word) (
            ( (bPt) gf_c30348)+164)/* var_c28588 */ , 0, pd52);
      };
SOURCE(4189, 32)
   (void) SetFilter_P540(w_v4720, (* (( (ptr) formal_c096)+10)/* filter_v4580 */  ), (* (( (ptr) formal_c096)+11)/* filterData_v4608 */  ))
   ;
SOURCE(4223, 15)
   (void) SetVal_P600(w_v4720, (* (( (ptr) formal_c096)+9)/* init_v4552 */  ), 0);
SOURCE(4240, 24)
   (void) SetEditable_P720(w_v4720, (* (( (ptr) formal_c096)+16)/* editable_v4664 */  ));
SOURCE(3806, 458)
   return(w_v4720);
   }

static word GetVal_P480(widget_v4780)
   word widget_v4780;
   {
   register ptr gf_c30380 =  (ptr) &globalframe;
   word value_v4824;
   word numberData_v6040;
   /* GetVal: */ 
SOURCE(4270, 145)
SOURCE(4336, 46)
   {
      word numberData_v28112;
SOURCE(1415, 1230)
      numberData_v28112 = 0;
SOURCE(1500, 1145)
      {
         word idx53;
         word limit54;
         numberData_v28112 = XR_Narrow((* ((( (ptr) widget_v4780)+49)+(
                  idx53 = (* (( (ptr) (* (( (ptr) gf_c30380)+11)/* numberClass_v3420 */  ))+4) ),
                  limit54 = (* (( (ptr) widget_v4780)+48) ),
                  BCK(idx53, limit54)
                  )) ), (* (( (ptr) gf_c30380)+19) ));
         };
SOURCE(1415, 1230)
      numberData_v6040 = numberData_v28112;
      };
SOURCE(4384, 31)
   {
      word x55;
      value_v4824 = (x55 = (*  (ptr) numberData_v6040 ),
         MAX((int)(word), x55, 0));
      };
SOURCE(4270, 145)
   return(value_v4824);
   }

static void SetFilter_P540(widget_v4884, filter_v4912, filterData_v4940)
   word widget_v4884;
   word filter_v4912;
   word filterData_v4940;
   {
   register ptr gf_c30412 =  (ptr) &globalframe;
   word numberData_v6084;
   word newFilter_v6112 = 0;
   /* SetFilter: */ 
SOURCE(4421, 283)
SOURCE(4520, 46)
   {
      word numberData_v28064;
SOURCE(1415, 1230)
      numberData_v28064 = 0;
SOURCE(1500, 1145)
      {
         word idx56;
         word limit57;
         numberData_v28064 = XR_Narrow((* ((( (ptr) widget_v4884)+49)+(
                  idx56 = (* (( (ptr) (* (( (ptr) gf_c30412)+11)/* numberClass_v3420 */  ))+4) ),
                  limit57 = (* (( (ptr) widget_v4884)+48) ),
                  BCK(idx56, limit57)
                  )) ), (* (( (ptr) gf_c30412)+19) ));
         };
SOURCE(1415, 1230)
      numberData_v6084 = numberData_v28064;
      };
SOURCE(4600, 71)
   if ((filter_v4912 != 0)) {
SOURCE(4621, 50)
      {
         word var_c29772;
         var_c29772 = XR_NewObject(8, (* (( (ptr) gf_c30412)+13) ));
         (*  (ptr) var_c29772 ) = XR_CheckProc(filter_v4912);
         (* (( (ptr) var_c29772)+1) ) = filterData_v4940;
         newFilter_v6112 = var_c29772;
         };
      };
SOURCE(4674, 30)
   (* (( (ptr) numberData_v6084)+2) ) = newFilter_v6112;
   }

static void SetVal_P600(widget_v5012, value_v5040, event_v5068)
   word widget_v5012;
   word value_v5040;
   word event_v5068;
   {
   register ptr gf_c30444 =  (ptr) &globalframe;
   word numberData_v6168;
   /* SetVal: */ 
SOURCE(4708, 379)
SOURCE(4789, 46)
   {
      word numberData_v28016;
SOURCE(1415, 1230)
      numberData_v28016 = 0;
SOURCE(1500, 1145)
      {
         word idx58;
         word limit59;
         numberData_v28016 = XR_Narrow((* ((( (ptr) widget_v5012)+49)+(
                  idx58 = (* (( (ptr) (* (( (ptr) gf_c30444)+11)/* numberClass_v3420 */  ))+4) ),
                  limit59 = (* (( (ptr) widget_v5012)+48) ),
                  BCK(idx58, limit59)
                  )) ), (* (( (ptr) gf_c30444)+19) ));
         };
SOURCE(1415, 1230)
      numberData_v6168 = numberData_v28016;
      };
SOURCE(4837, 250)
   if (( (int)(*  (ptr) numberData_v6168 ) !=  (int)value_v5040)) {
SOURCE(4866, 223)
      {
         word new_v6212;
         word inhibit_v6240 = 0;
         word filter_v6268;
SOURCE(4868, 16)
         new_v6212 = value_v5040;
SOURCE(4909, 41)
         filter_v6268 = (* (( (ptr) numberData_v6168)+2) );
SOURCE(4952, 82)
         if ((filter_v6268 != 0)) {
SOURCE(4971, 63)
            {
               W2 var_c29836;
               {
                  word pd60;
                  pd60 = (*  (ptr) filter_v6268 );
                  (void) ( *( (fPt) ((*  (ptr) pd60 ))))((word) &var_c29836, widget_v5012, (* (( (ptr) filter_v6268)+1) ), value_v5040, event_v5068, pd60)
                  ;
                  };
               inhibit_v6240 = var_c29836.f1;
               new_v6212 = var_c29836.f0;
               };
            };
SOURCE(5036, 51)
         if ((0 == inhibit_v6240)) {
SOURCE(5053, 34)
            (void) InternalSetVal_P660(widget_v5012, new_v6212, event_v5068);
            };
         };
      };
   }

static void InternalSetVal_P660(widget_v5128, value_v5156, event_v5184)
   word widget_v5128;
   word value_v5156;
   word event_v5184;
   {
   register ptr gf_c30476 =  (ptr) &globalframe;
   word numberData_v6324;
   /* InternalSetVal: */ 
SOURCE(5096, 268)
SOURCE(5185, 46)
   {
      word numberData_v27968;
SOURCE(1415, 1230)
      numberData_v27968 = 0;
SOURCE(1500, 1145)
      {
         word idx61;
         word limit62;
         numberData_v27968 = XR_Narrow((* ((( (ptr) widget_v5128)+49)+(
                  idx61 = (* (( (ptr) (* (( (ptr) gf_c30476)+11)/* numberClass_v3420 */  ))+4) ),
                  limit62 = (* (( (ptr) widget_v5128)+48) ),
                  BCK(idx61, limit62)
                  )) ), (* (( (ptr) gf_c30476)+19) ));
         };
SOURCE(1415, 1230)
      numberData_v6324 = numberData_v27968;
      };
SOURCE(5233, 131)
   if (( (int)(*  (ptr) numberData_v6324 ) !=  (int)value_v5156)) {
SOURCE(5264, 22)
      (*  (ptr) numberData_v6324 ) = value_v5156;
SOURCE(5288, 76)
      {
         word pd63;
         pd63 = (* (( (ptr) (* (( (ptr) gf_c30476)+53)/* var_c28972 */  ))+4) );
         (void) ( *( (fPt) ((*  (ptr) pd63 ))))(widget_v5128, (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c30476)+60)/* var_c29676 */  ))+11)
             ) ), 0, event_v5184, pd63);
         };
      };
   }

static void SetEditable_P720(widget_v5244, editable_v5272)
   word widget_v5244;
   word editable_v5272;
   {
   register ptr gf_c30508 =  (ptr) &globalframe;
   word numberData_v6368;
   /* SetEditable: */ 
SOURCE(5373, 144)
SOURCE(5439, 46)
   {
      word numberData_v27920;
SOURCE(1415, 1230)
      numberData_v27920 = 0;
SOURCE(1500, 1145)
      {
         word idx64;
         word limit65;
         numberData_v27920 = XR_Narrow((* ((( (ptr) widget_v5244)+49)+(
                  idx64 = (* (( (ptr) (* (( (ptr) gf_c30508)+11)/* numberClass_v3420 */  ))+4) ),
                  limit65 = (* (( (ptr) widget_v5244)+48) ),
                  BCK(idx64, limit65)
                  )) ), (* (( (ptr) gf_c30508)+19) ));
         };
SOURCE(1415, 1230)
      numberData_v6368 = numberData_v27920;
      };
SOURCE(5487, 30)
   (* (( (ptr) numberData_v6368)+1) ) = editable_v5272;
   }

static void NumberPreferredSize_P780(formal_c0133, widget_v10300, mode_v10328, proposed_v10356, maySkip_v10384)
   word formal_c0133;
   word widget_v10300;
   word mode_v10328;
   W5 proposed_v10356;
   word maySkip_v10384;
   {
   W5 preferred_v10428;
   /* NumberPreferredSize: */ 
SOURCE(5523, 479)
SOURCE(5523, 479)
   preferred_v10428.f0 = 2147483648;
   preferred_v10428.f1 = 2147483648;
   preferred_v10428.f2 = 2147483648;
   preferred_v10428.f3 = 2147483648;
   preferred_v10428.f4 = 2147483648;
SOURCE(5570, 157)
   (*  (W2Pt) &preferred_v10428 ) = (*  (W2Pt) (( (ptr) widget_v10300)+5) );
   preferred_v10428.f2 = (* (( (ptr) widget_v10300)+7) );
   preferred_v10428.f3 = (* (( (ptr) widget_v10300)+8) );
   preferred_v10428.f4 = (* (( (ptr) widget_v10300)+9) );
SOURCE(5730, 89)
   if (( (int)preferred_v10428.f4 <  (int)0)) {
SOURCE(5762, 57)
      preferred_v10428.f4 = 0;
      (* (( (ptr) widget_v10300)+9) ) = 0;
      };
SOURCE(5821, 88)
   if (( (int)preferred_v10428.f2 <=  (int)0)) {
SOURCE(5853, 56)
      preferred_v10428.f2 = 60;
      (* (( (ptr) widget_v10300)+7) ) = 60;
      };
SOURCE(5911, 91)
   if (( (int)preferred_v10428.f3 <=  (int)0)) {
SOURCE(5944, 58)
      preferred_v10428.f3 = 20;
      (* (( (ptr) widget_v10300)+8) ) = 20;
      };
   /* removed tail goto */ 
   (*  (W5Pt) formal_c0133 ) = preferred_v10428;
   return;
   }

static void NoName_Q2208(formal_c0139, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0139;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0166 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0166)+51)/* var_c28748 */  ))+4) ))) {
      {
         word err_v17208;
         err_v17208 = (*  (ptr) formal_c200003 );
SOURCE(1916, 9)
         (*  (ptr) formal_c0139 ) = 2;
         (* (( (ptr) formal_c0139)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c0139 ) = 0;
   (* (( (ptr) formal_c0139)+1) ) = 0;
   return;
   }

static void NoName_Q2268(formal_c0146, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0146;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0167 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0167)+57)/* var_c29324 */  ))+7) ))) {
      {
         word reason_v21560;
         word index_v21588;
         reason_v21560 = (*  (ptr) formal_c200007 );
         index_v21588 = (* (( (ptr) formal_c200007)+1) );
SOURCE(2639, 6)
         (void) Beep_P888((word) ((( (bPt) (*  (ptr) formal_c200004 ))+24)));
SOURCE(2647, 9)
         (*  (ptr) formal_c0146 ) = 2;
         (* (( (ptr) formal_c0146)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c0146 ) = 0;
   (* (( (ptr) formal_c0146)+1) ) = 0;
   return;
   }

/* file: XTkNumberLabelImpl, module: XTkNumberLabelImpl, compiled at: April 21, 1992 12:55:39 pm PDT */ 
extern void XR_install_XTkNumberLabelImpl() {
   NoName_Q2028();
   }
extern void XR_run_XTkNumberLabelImpl() { XR_Start(&globalframe); }