/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: October 22, 1993 5:07:41 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: X11ViewersSpecialCommandsImpl, module: X11ViewersSpecialCommandsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3740765544,1807752557] X11ViewersSpecialCommandsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
typedef W7 *W7Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q1116();
static void X11ViewersSpecialCommandsImpl←P0();
static word SSDataOrFail←P60();
static word BMWidgetOrFail←P120();
static void ColorMapInfoCommand←P180();
static void ForceInvertColors←P240();
static void ForceBWColors←P300();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[44];} string3 = {2752556, "\260\006\005\146\151\162\163\164\257\300\351\276\264\273\300\115\104\320\264\122\200\005\004\162\145\163\164\214\257\300\351\276\264\273\300\115\104\320\264\122\200\261\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\003\007\000"};
static struct {unsigned f; char r[44];} string5 = {2752556, "\260\006\005\146\151\162\163\164\257\300\265\371\352\317\300\364\125\216\164\100\164\005\004\162\145\163\164\214\257\300\265\371\352\317\300\364\125\216\164\100\164\261\000"};
static struct {unsigned f; char r[4];} string6 = {131074, "\003\001\000"};
static struct {unsigned f; char r[24];} string7 = {1507352, "X11ViewersForceBWColors"};
static struct {unsigned f; char r[32];} string8 = {1966112, "world has not yet been started\000"};
static struct {unsigned f; char r[20];} string9 = {1048596, "world not active\000\000\000"};
static struct {unsigned f; char r[12];} string10 = {589836, "no colors\000\000"};
static struct {unsigned f; char r[24];} string11 = {1441816, "has private color map\012\000"};
static struct {unsigned f; char r[24];} string12 = {1507352, "uses default color map\012"};
static struct {unsigned f; char r[24];} string13 = {1441816, "black: %g, white: %g \012\000"};
static struct {unsigned f; char r[32];} string14 = {1900576, "XlColorAccess colormap: 0x%x\012\000\000"};
static struct {unsigned f; char r[24];} string15 = {1441816, "widget colormap: 0x%x\012\000"};
static struct {unsigned f; char r[12];} string16 = {655372, "idx: %4g  \000"};
static struct {unsigned f; char r[20];} string17 = {1179668, "rgb: %4g %4g %4g \012\000"};
static struct {unsigned f; char r[28];} string18 = {1769500, "X11ViewersForceInvertColors"};
static struct {unsigned f; char r[28];} string19 = {1572892, "For debugging X11Viewers\000\000\000"};
static struct {unsigned f; char r[28];} string20 = {1769500, "X11ViewersPrintColorMapInfo"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\336\367\215\150\300\153\300\035\155\100\164\000\000"};
static struct {unsigned f; char r[8];} string22 = {393222, "\006\0014\004\177\377\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\331\133\131\347\300\165\343\006\212\100\150\000\000"};
static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\337\070\153\303\300\227\216\321\214\100\150\000\000"};
static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\175\013\076\107\300\034\225\050\255\100\150\000\000"};
static W3 dummy43;
static struct {
   word f0[27]; word f27; word f28; word f29; 
   word f30; word f31; word f32; word f33; 
   word f34; word f35; word f36; word f37; 
   word f38[8]; 
   } globalframe = {
   {0}, (word) ForceBWColors←P300, 0, (word) ForceInvertColors←P240, 
   0, (word) ColorMapInfoCommand←P180, 0, (word) BMWidgetOrFail←P120, 
   0, (word) SSDataOrFail←P60, 0, (word) X11ViewersSpecialCommandsImpl←P0, 
   {0}
   };

static void NoName←Q1116()
   {
   register ptr gf←c087 =  (ptr) &globalframe;
   word var←c15504;
   (* (( (ptr) gf←c087)+9) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf←c087)+11) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf←c087)+12) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
   (*  (ptr) (( (bPt) gf←c087)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string7);
   (*  (ptr) (( (bPt) gf←c087)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string8);
   (*  (ptr) (( (bPt) gf←c087)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string9);
   (*  (ptr) (( (bPt) gf←c087)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string10);
   (*  (ptr) (( (bPt) gf←c087)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string11);
   (*  (ptr) (( (bPt) gf←c087)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string12);
   (*  (ptr) (( (bPt) gf←c087)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string13);
   (*  (ptr) (( (bPt) gf←c087)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string14);
   (*  (ptr) (( (bPt) gf←c087)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string15);
   (*  (ptr) (( (bPt) gf←c087)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string16);
   (*  (ptr) (( (bPt) gf←c087)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string17);
   (*  (ptr) (( (bPt) gf←c087)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string18);
   (*  (ptr) (( (bPt) gf←c087)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string19);
   (*  (ptr) (( (bPt) gf←c087)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c087)+9) ), (word) &string20);
   (void) XR←DeclareGlobalFrame((word) "X11ViewersSpecialCommandsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string21, 0, (word) &string22)
      , (word) (( (bPt) gf←c087)+148)/* var←c14096 */ );
   var←c15504 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string23)), 3);
   (* (( (ptr) gf←c087)+39)/* var←c14128 */  ) = var←c15504;
   (void) XR←ImportProcS(var←c15504, 1310725);
   var←c15504 = (word) XR←ImportInterface((word) "CommanderOps", (word) XR←GetTypeIndexS((word) (&string24)), 14);
   (* (( (ptr) gf←c087)+41)/* var←c14192 */  ) = var←c15504;
   var←c15504 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string25)), 103);
   (* (( (ptr) gf←c087)+43)/* var←c14256 */  ) = var←c15504;
   (void) XR←ImportProcS(var←c15504, 1063171);
   (void) XR←ImportProcS(var←c15504, 2111493);
   (void) XR←ImportProcS(var←c15504, 1071364);
   var←c15504 = (word) XR←ImportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string26)), 218);
   (* (( (ptr) gf←c087)+45)/* var←c15344 */  ) = var←c15504;
   (void) XR←ImportProcS(var←c15504, 1097476);
   var←c15504 = (word) XR←ImportInterface((word) "XlColorAccess", (word) XR←GetTypeIndexS((word) (&string27)), 3);
   (* (( (ptr) gf←c087)+42)/* var←c14224 */  ) = var←c15504;
   (void) XR←ImportProcS(var←c15504, 67895299);
   var←c15504 = (word) XR←ImportInterface((word) "XlDetails", (word) XR←GetTypeIndexS((word) (&string28)), 4);
   (* (( (ptr) gf←c087)+44)/* var←c15312 */  ) = var←c15504;
   var←c15504 = (word) XR←ImportInterface((word) "X11ViewersInstance", (word) XR←GetTypeIndexS((word) (&string29)), 1);
   (* (( (ptr) gf←c087)+40)/* var←c14160 */  ) = var←c15504;
   (void) XR←ImportProcS(var←c15504, 67108864);
   }

static void X11ViewersSpecialCommandsImpl←P0(formal←c019, formal←c018)
   word formal←c019;
   word formal←c018;
   {
   register ptr gf←c15536 =  (ptr) &globalframe;
   /* X11ViewersSpecialCommandsImpl: */ 
SOURCE(121, 2868)
SOURCE(2703, 98)
   {
      word pd30;
      pd30 = (* (( (ptr) (* (( (ptr) gf←c15536)+39)/* var←c14128 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd30 ))))((* (( (ptr) gf←c15536)+26) ), (word) (( (bPt) gf←c15536)+124)/* var←c14000 */ , (* (
            ( (ptr) gf←c15536)+25) ), 0, 1, pd30);
      };
SOURCE(2803, 96)
   {
      word pd31;
      pd31 = (* (( (ptr) (* (( (ptr) gf←c15536)+39)/* var←c14128 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd31 ))))((* (( (ptr) gf←c15536)+24) ), (word) (( (bPt) gf←c15536)+116)/* var←c13968 */ , (* (
            ( (ptr) gf←c15536)+25) ), 0, 1, pd31);
      };
SOURCE(2901, 88)
   {
      word pd32;
      pd32 = (* (( (ptr) (* (( (ptr) gf←c15536)+39)/* var←c14128 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd32 ))))((* (( (ptr) gf←c15536)+13) ), (word) (( (bPt) gf←c15536)+108)/* var←c13936 */ , (* (
            ( (ptr) gf←c15536)+25) ), 0, 1, pd32);
      };
   }

static word SSDataOrFail←P60()
   {
   register ptr gf←c15568 =  (ptr) &globalframe;
   word var←c3080;
   word ssd←v3168;
   /* SSDataOrFail: */ 
SOURCE(279, 210)
SOURCE(343, 60)
   {
      word pd33;
      pd33 = (* (( (ptr) (* (( (ptr) gf←c15568)+40)/* var←c14160 */  ))+4) );
      ssd←v3168 = (word) ( *( (fPt) ((*  (ptr) pd33 ))))(pd33);
      };
SOURCE(405, 69)
   if ((ssd←v3168 == 0)) {
SOURCE(421, 53)
      {
         word var←c022;
         var←c022 = (* (( (ptr) gf←c15568)+14) );
         (void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c15568)+41)/* var←c14192 */  ))+4) ), (word) &var←c022);
         };
      };
SOURCE(476, 13)
   return(ssd←v3168);
   }

static word BMWidgetOrFail←P120()
   {
   register ptr gf←c15600 =  (ptr) &globalframe;
   word bm←v3140;
   word ssd←v3212;
   /* BMWidgetOrFail: */ 
SOURCE(493, 175)
SOURCE(493, 175)
   bm←v3140 = 0;
SOURCE(546, 49)
   ssd←v3212 = (word) SSDataOrFail←P60();
SOURCE(597, 71)
   bm←v3140 = (* (( (ptr) ssd←v3212)+4) );
   if ((bm←v3140 == 0)) {
SOURCE(629, 39)
      {
         word var←c025;
         var←c025 = (* (( (ptr) gf←c15600)+15) );
         (void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c15600)+41)/* var←c14192 */  ))+4) ), (word) &var←c025);
         };
      };
SOURCE(493, 175)
   return(bm←v3140);
   }

static void ColorMapInfoCommand←P180(formal←c062, cmd←v4532)
   word formal←c062;
   word cmd←v4532;
   {
   register ptr gf←c15632 =  (ptr) &globalframe;
   word result←v4576;
   word msg←v4604;
   word bmw←v3256;
   word cd←v3284;
   /* ColorMapInfoCommand: */ 
SOURCE(674, 1029)
SOURCE(674, 1029)
   result←v4576 = 0;
SOURCE(674, 1029)
   msg←v4604 = 0;
SOURCE(721, 34)
   bmw←v3256 = (word) BMWidgetOrFail←P120();
SOURCE(757, 105)
   {
      word pd34;
      pd34 = (* (( (ptr) (* (( (ptr) gf←c15632)+42)/* var←c14224 */  ))+4) );
      cd←v3284 = (word) ( *( (fPt) ((*  (ptr) pd34 ))))((* (( (ptr) (* (( (ptr) bmw←v3256)+36) ))+1) ), 8, 3, pd34);
      };
SOURCE(864, 64)
   if ((cd←v3284 == 0) || (0 == (*  (ptr) cd←v3284 ))) {
SOURCE(896, 32)
      {
         word var←c031;
         var←c031 = (* (( (ptr) gf←c15632)+16) );
         (void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c15632)+41)/* var←c14192 */  ))+4) ), (word) &var←c031);
         };
      };
SOURCE(930, 130)
   if ((0 != (* (( (ptr) cd←v3284)+1) ))) {
SOURCE(961, 52)
      {
         word pd35;
         pd35 = (* (( (ptr) (* (( (ptr) gf←c15632)+43)/* var←c14256 */  ))+93) );
         (void) ( *( (fPt) ((*  (ptr) pd35 ))))((* (( (ptr) cmd←v4532)+1) ), (* (( (ptr) gf←c15632)+17) ), 0, 2147483647, pd35);
         };
      }
   else {
SOURCE(1013, 47)
      {
         word pd36;
         pd36 = (* (( (ptr) (* (( (ptr) gf←c15632)+43)/* var←c14256 */  ))+93) );
         (void) ( *( (fPt) ((*  (ptr) pd36 ))))((* (( (ptr) cmd←v4532)+1) ), (* (( (ptr) gf←c15632)+18) ), 0, 2147483647, pd36);
         };
      };
SOURCE(1062, 103)
   {
      W2 var←c14288;
      W2 var←c14384;
      {
         W2 var←c14320;
         word v←v13888;
         v←v13888 = (* (( (ptr) cd←v3284)+3) );
         var←c14320.f0 = 4;
         var←c14320.f1 = v←v13888;
         var←c14288 = var←c14320;
         };
      {
         W2 var←c14416;
         word v←v13840;
         v←v13840 = (* (( (ptr) cd←v3284)+4) );
         var←c14416.f0 = 4;
         var←c14416.f1 = v←v13840;
         var←c14384 = var←c14416;
         };
      {
         W2 var←c094;
         (*  (ptr) (word) &var←c094 ) = 0;
         (* (( (ptr) (word) &var←c094) + 1) ) = 0;
         {
            word pd37;
            pd37 = (* (( (ptr) (* (( (ptr) gf←c15632)+43)/* var←c14256 */  ))+60) );
            (void) ( *( (fPt) ((*  (ptr) pd37 ))))((* (( (ptr) cmd←v4532)+1) ), (* (( (ptr) gf←c15632)+19) ), var←c14288, var←c14384, var←c094, pd37)
            ;
            };
         };
      };
SOURCE(1167, 88)
   {
      W2 var←c14512;
      {
         W2 var←c14544;
         word v←v13792;
         {
            word m←v13696;
            m←v13696 = (* (( (ptr) cd←v3284)+2) );
            v←v13792 = m←v13696;
            };
         var←c14544.f0 = 4;
         var←c14544.f1 = v←v13792;
         var←c14512 = var←c14544;
         };
      {
         word pd38;
         pd38 = (* (( (ptr) (* (( (ptr) gf←c15632)+43)/* var←c14256 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd38 ))))((* (( (ptr) cmd←v4532)+1) ), (* (( (ptr) gf←c15632)+20) ), var←c14512, pd38);
         };
      };
SOURCE(1257, 93)
   {
      W2 var←c14640;
      {
         W2 var←c14672;
         word v←v13744;
         {
            word m←v13648;
            m←v13648 = (* (( (ptr) bmw←v3256)+28) );
            v←v13744 = m←v13648;
            };
         var←c14672.f0 = 4;
         var←c14672.f1 = v←v13744;
         var←c14640 = var←c14672;
         };
      {
         word pd39;
         pd39 = (* (( (ptr) (* (( (ptr) gf←c15632)+43)/* var←c14256 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd39 ))))((* (( (ptr) cmd←v4532)+1) ), (* (( (ptr) gf←c15632)+21) ), var←c14640, pd39);
         };
      };
SOURCE(1352, 351)
   {
      word var←c14768;
      var←c14768 = (* (( (ptr) cd←v3284)+5) );
      if ((var←c14768 == 0)) {
         goto lab←L100007;
         };
      if (((* (( (ptr) gf←c15632)+12) ) == XR←GetReferentType(var←c14768))) {
         {
            word entries←v3328;
            entries←v3328 = var←c14768;
SOURCE(1418, 228)
            {
               register word l←v3372;
               l←v3372 = entries←v3328;
               lab←L100011: ;
               if ((l←v3372 != 0)) {
                  }
               else {
                  goto lab←L100008;
                  };
SOURCE(1482, 57)
               {
                  W2 var←c14800;
                  {
                     W2 var←c14832;
                     word v←v13600;
                     v←v13600 =  (unsigned) (*  (bPt) l←v3372 );
                     var←c14832.f0 = 5;
                     var←c14832.f1 = v←v13600;
                     var←c14800 = var←c14832;
                     };
                  {
                     word pd40;
                     pd40 = (* (( (ptr) (* (( (ptr) gf←c15632)+43)/* var←c14256 */  ))+61) );
                     (void) ( *( (fPt) ((*  (ptr) pd40 ))))((* (( (ptr) cmd←v4532)+1) ), (* (( (ptr) gf←c15632)+22) ), var←c14800, pd40);
                     };
                  };
SOURCE(1541, 105)
               {
                  W2 var←c14896;
                  W2 var←c14992;
                  W2 var←c15088;
                  {
                     W2 var←c14928;
                     word v←v13552;
                     v←v13552 =  (unsigned) (* (( (bPt) l←v3372)+1) );
                     var←c14928.f0 = 5;
                     var←c14928.f1 = v←v13552;
                     var←c14896 = var←c14928;
                     };
                  {
                     W2 var←c15024;
                     word v←v13504;
                     v←v13504 =  (unsigned) (* (( (bPt) l←v3372)+2) );
                     var←c15024.f0 = 5;
                     var←c15024.f1 = v←v13504;
                     var←c14992 = var←c15024;
                     };
                  {
                     W2 var←c15120;
                     word v←v13456;
                     v←v13456 =  (unsigned) (* (( (bPt) l←v3372)+3) );
                     var←c15120.f0 = 5;
                     var←c15120.f1 = v←v13456;
                     var←c15088 = var←c15120;
                     };
                  {
                     word pd41;
                     pd41 = (* (( (ptr) (* (( (ptr) gf←c15632)+43)/* var←c14256 */  ))+60) );
                     (void) ( *( (fPt) ((*  (ptr) pd41 ))))((* (( (ptr) cmd←v4532)+1) ), (* (( (ptr) gf←c15632)+23) ), var←c14896, var←c14992, var←c15088, pd41)
                     ;
                     };
                  };
               l←v3372 = (* (( (ptr) l←v3372)+1) );
               goto lab←L100011;
               lab←L100008: ;
               };
            };
         }
      else {
         lab←L100007: ;
SOURCE(1671, 32)
         {
            word var←c061;
            var←c061 = (* (( (ptr) gf←c15632)+16) );
            (void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c15632)+41)/* var←c14192 */  ))+4) ), (word) &var←c061);
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal←c062 ) = result←v4576;
   (* (( (ptr) formal←c062)+1) ) = msg←v4604;
   return;
   }

static void ForceInvertColors←P240(formal←c074, cmd←v4664)
   word formal←c074;
   word cmd←v4664;
   {
   register ptr gf←c15664 =  (ptr) &globalframe;
   word result←v4708;
   word msg←v4736;
   word bmw←v3416;
   word cd←v3444;
   W7 i1←v3472;
   W7 i2←v3500;
   /* ForceInvertColors: */ 
SOURCE(1709, 497)
SOURCE(1709, 497)
   result←v4708 = 0;
SOURCE(1709, 497)
   msg←v4736 = 0;
SOURCE(1754, 34)
   bmw←v3416 = (word) BMWidgetOrFail←P120();
SOURCE(1790, 105)
   {
      word pd42;
      pd42 = (* (( (ptr) (* (( (ptr) gf←c15664)+42)/* var←c14224 */  ))+4) );
      cd←v3444 = (word) ( *( (fPt) ((*  (ptr) pd42 ))))((* (( (ptr) (* (( (ptr) bmw←v3416)+36) ))+1) ), 8, 3, pd42);
      };
SOURCE(1897, 20)
   i1←v3472.f0 = 0;
   i1←v3472.f1 = 1;
   i1←v3472.f2 = 1;
   i1←v3472.f3 = 1;
   (*  (W3Pt) (( (ptr) &i1←v3472)+4) ) = (*  (W3Pt) &dummy43 );
   i2←v3500 = i1←v3472;
SOURCE(1919, 64)
   if ((cd←v3444 == 0) || (0 == (*  (ptr) cd←v3444 ))) {
SOURCE(1951, 32)
      {
         word var←c070;
         var←c070 = (* (( (ptr) gf←c15664)+16) );
         (void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c15664)+41)/* var←c14192 */  ))+4) ), (word) &var←c070);
         };
      };
SOURCE(1985, 34)
   i1←v3472.f0 = (255 - (* (( (ptr) cd←v3444)+3) ));
SOURCE(2021, 30)
   i1←v3472.f4 = 65535;
   i1←v3472.f5 = 65535;
   i1←v3472.f6 = 65535;
SOURCE(2061, 34)
   i2←v3500.f0 = (255 - (* (( (ptr) cd←v3444)+4) ));
SOURCE(2097, 18)
   i2←v3500.f4 = 0;
   i2←v3500.f5 = 0;
   i2←v3500.f6 = 0;
SOURCE(2125, 81)
   {
      word var←c15216;
      {
         word var←c15248;
         word var←c15280;
         var←c15248 = XR←NewObject(32, (* (( (ptr) gf←c15664)+11) ));
         var←c15280 = var←c15248;
         (*  (W7Pt) var←c15280 ) = i1←v3472;
         (* (( (ptr) var←c15280)+7) ) = XR←NewObject(32, (* (( (ptr) gf←c15664)+11) ));
         var←c15280 = (* (( (ptr) var←c15280)+7) );
         (*  (W7Pt) var←c15280 ) = i2←v3500;
         var←c15216 = var←c15248;
         };
      {
         word pd44;
         pd44 = (* (( (ptr) (* (( (ptr) gf←c15664)+45)/* var←c15344 */  ))+195) );
         (void) ( *( (fPt) ((*  (ptr) pd44 ))))((* (( (ptr) bmw←v3416)+34) ), (* (( (ptr) cd←v3444)+2) ), var←c15216, (*  (ptr) (* (
               ( (ptr) (* (( (ptr) gf←c15664)+44)/* var←c15312 */  ))+5) ) ), pd44);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal←c074 ) = result←v4708;
   (* (( (ptr) formal←c074)+1) ) = msg←v4736;
   return;
   }

static void ForceBWColors←P300(formal←c086, cmd←v4796)
   word formal←c086;
   word cmd←v4796;
   {
   register ptr gf←c15696 =  (ptr) &globalframe;
   word result←v4840;
   word msg←v4868;
   word bmw←v3544;
   word cd←v3572;
   W7 i1←v3600;
   W7 i2←v3628;
   /* ForceBWColors: */ 
SOURCE(2212, 485)
SOURCE(2212, 485)
   result←v4840 = 0;
SOURCE(2212, 485)
   msg←v4868 = 0;
SOURCE(2253, 34)
   bmw←v3544 = (word) BMWidgetOrFail←P120();
SOURCE(2289, 105)
   {
      word pd45;
      pd45 = (* (( (ptr) (* (( (ptr) gf←c15696)+42)/* var←c14224 */  ))+4) );
      cd←v3572 = (word) ( *( (fPt) ((*  (ptr) pd45 ))))((* (( (ptr) (* (( (ptr) bmw←v3544)+36) ))+1) ), 8, 3, pd45);
      };
SOURCE(2396, 20)
   i1←v3600.f0 = 0;
   i1←v3600.f1 = 1;
   i1←v3600.f2 = 1;
   i1←v3600.f3 = 1;
   (*  (W3Pt) (( (ptr) &i1←v3600)+4) ) = (*  (W3Pt) &dummy43 );
   i2←v3628 = i1←v3600;
SOURCE(2418, 64)
   if ((cd←v3572 == 0) || (0 == (*  (ptr) cd←v3572 ))) {
SOURCE(2450, 32)
      {
         word var←c082;
         var←c082 = (* (( (ptr) gf←c15696)+16) );
         (void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c15696)+41)/* var←c14192 */  ))+4) ), (word) &var←c082);
         };
      };
SOURCE(2484, 30)
   i1←v3600.f0 = (* (( (ptr) cd←v3572)+3) );
SOURCE(2516, 18)
   i1←v3600.f4 = 0;
   i1←v3600.f5 = 0;
   i1←v3600.f6 = 0;
SOURCE(2544, 30)
   i2←v3628.f0 = (* (( (ptr) cd←v3572)+4) );
SOURCE(2576, 30)
   i2←v3628.f4 = 65535;
   i2←v3628.f5 = 65535;
   i2←v3628.f6 = 65535;
SOURCE(2616, 81)
   {
      word var←c15408;
      {
         word var←c15440;
         word var←c15472;
         var←c15440 = XR←NewObject(32, (* (( (ptr) gf←c15696)+11) ));
         var←c15472 = var←c15440;
         (*  (W7Pt) var←c15472 ) = i1←v3600;
         (* (( (ptr) var←c15472)+7) ) = XR←NewObject(32, (* (( (ptr) gf←c15696)+11) ));
         var←c15472 = (* (( (ptr) var←c15472)+7) );
         (*  (W7Pt) var←c15472 ) = i2←v3628;
         var←c15408 = var←c15440;
         };
      {
         word pd46;
         pd46 = (* (( (ptr) (* (( (ptr) gf←c15696)+45)/* var←c15344 */  ))+195) );
         (void) ( *( (fPt) ((*  (ptr) pd46 ))))((* (( (ptr) bmw←v3544)+34) ), (* (( (ptr) cd←v3572)+2) ), var←c15408, (*  (ptr) (* (
               ( (ptr) (* (( (ptr) gf←c15696)+44)/* var←c15312 */  ))+5) ) ), pd46);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal←c086 ) = result←v4840;
   (* (( (ptr) formal←c086)+1) ) = msg←v4868;
   return;
   }

/* file: X11ViewersSpecialCommandsImpl, module: X11ViewersSpecialCommandsImpl, compiled at: October 22, 1993 5:07:40 pm PDT */ 
extern void XR←install←X11ViewersSpecialCommandsImpl() {
   XR←FillWords(&dummy43, 3, 0);
   NoName←Q1116();
   }
extern void XR←run←X11ViewersSpecialCommandsImpl() { XR←Start(&globalframe); }