/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: July 11, 1993 8:03:02 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: GGUIUtilityImpl, module: GGUIUtilityImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [1681077638,1997553384] GGUIUtilityImpl";
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, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W8 f; W6 r;} W14;
typedef struct {W16 f; W14 r;} W30;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W8 f; W4 r;} W12;
typedef struct {W16 f; W12 r;} W28;
typedef W28 *W28Pt;
typedef struct {W8 f; word r;} W9;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef W4 *W4Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q2220();
static void GGUIUtilityImpl←P0();
static word DescribeFeature←P60();
static word DescribeSourceFeature←P120();
static word GravityTypeToRope←P180();
static word GravityTypeFromRope←P240();
static word DisplayStyleToRope←P300();
static word DisplayStyleFromRope←P360();
static word GGContainerCreate←P420();
static void ChildYBound←P480();
static void ChildXBound←P540();
static void GargoyleContainerSave←P600();
static void GargoyleContainerDestroy←P660();
static void GargoyleContainerSet←P720();
static void OpenScript←P780();
static word NoName←Q2280();
static void AppendScriptInternal←P840();
static word NoName←Q2340();
static void AppendScript←P900();
static word NoName←Q2400();
static void CaptureSessionState←P960();
static void CloseScript←P1020();
static void FlushScript←P1080();
static void EnterAction←P1140();
static void ActionToScript←P1200();
static void PlayAction←P1260();
static void PlaybackFromFile←P1320();
static void EndOfScriptMessage←P1380();
static void OpenExistingFile←P1440();
static word NoName←Q2460();
static void SafeClose←P1500();
static word NoName←Q2520();
static word GGHomeDirectory←P1560();
static word ParseFeedbackRope←P1620();
static void Init←P1680();
static void NoName←Q2580();
static void NoName←Q2640();
static void NoName←Q2700();
static void NoName←Q2760();
static void NoName←Q2820();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string2 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\247\365\203\234\300\047\265\225\046\100\310\000\000"};
static struct {unsigned f; char r[4];} string6 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\012\122\347\132\300\052\140\133\312\100\164\000\000"};
static struct {unsigned f; char r[4];} string8 = {196611, "\004p\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\223\145\303\043\300\372\023\025\003\101\224\000\000"};
static struct {unsigned f; char r[4];} string10 = {131074, "\004\030\000"};
static struct {unsigned f; char r[44];} string11 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\277\004\146\300\034\367\146\045\112\114\005\004\162\145\163\164\214\257\300\015\277\004\146\300\034\367\146\045\112\114\261\000"};
static struct {unsigned f; char r[28];} string12 = {1572888, "\006\002\000\007\000\040\016\000\003\001\000\000\000\000\014\014\000\014\014\014\014\000\010\001\000\000\000"};
static struct {unsigned f; char r[4];} string13 = {65540, "\242\000\000"};
static struct {unsigned f; char r[4];} string14 = {65540, "\241\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\247\031\224\326\300\123\162\224\023\100\164\000\000"};
static struct {unsigned f; char r[44];} string16 = {2818092, "\216\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261"};
static struct {unsigned f; char r[4];} string17 = {65540, "\256\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\113\175\243\331\300\252\247\212\133\100\164\000\000"};
static struct {unsigned f; char r[36];} string19 = {2162721, "\006\014\000\001\060\001\064\001\070\001\074\001\100\100\001\100\124\001\100\130\001\100\134\001\100\140\001\100\144\001\100\150\001\000\000"};
static struct {unsigned f; char r[20];} string20 = {1179668, "\260\006\005\146\151\162\163\164\217\005\004\162\145\163\164\214\217\261\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\223\145\303\043\300\372\023\025\003\100\200\000\000"};
static struct {unsigned f; char r[68];} string22 = {4325442, "\006\031\000\001\004\001\010\001\014\001\024\001\030\001\034\001\044\001\050\001\054\001\060\001\064\001\070\001\074\001\100\100\001\100\104\001\100\110\001\100\164\001\100\170\001\100\224\004\017\100\244\004\100\171\100\300\001\100\304\001\100\310\001\100\320\001\000"};
static struct {unsigned f; char r[4];} string23 = {131076, "\216\251\000"};
static struct {unsigned f; char r[24];} string24 = {1310744, "GargoyleMJSContainer\000\000\000"};
static struct {unsigned f; char r[8];} string25 = {327688, "print\000\000"};
static struct {unsigned f; char r[8];} string26 = {393224, "screen\000"};
static struct {unsigned f; char r[16];} string27 = {851984, "SaveAllEdits-\000\000"};
static struct {unsigned f; char r[12];} string28 = {589836, ".gargoyle\000\000"};
static struct {unsigned f; char r[16];} string29 = {917520, "linesPreferred\000"};
static struct {unsigned f; char r[12];} string30 = {589836, "Emergency\000\000"};
static struct {unsigned f; char r[8];} string31 = {458760, "Destroy"};
static struct {unsigned f; char r[16];} string32 = {917520, "facesPreferred\000"};
static struct {unsigned f; char r[8];} string33 = {393224, "YBound\000"};
static struct {unsigned f; char r[8];} string34 = {393224, "XBound\000"};
static struct {unsigned f; char r[12];} string35 = {655372, "OpenScript\000"};
static struct {unsigned f; char r[12];} string36 = {524300, "Feedback\000\000\000"};
static struct {unsigned f; char r[24];} string37 = {1376280, "OpenScript: %g opened\000\000"};
static struct {unsigned f; char r[16];} string38 = {983056, "pointsPreferred"};
static struct {unsigned f; char r[8];} string39 = {458760, "Version"};
static struct {unsigned f; char r[12];} string40 = {589836, "Complaint\000\000"};
static struct {unsigned f; char r[24];} string41 = {1376280, "FSError while trying \000\000"};
static struct {unsigned f; char r[16];} string42 = {786448, "AppendScript\000\000\000"};
static struct {unsigned f; char r[52];} string43 = {3342388, "AppendScript failed: FS Error while trying to open "};
static struct {unsigned f; char r[40];} string44 = {2555944, "AppendToScript: %g opened for appending"};
static struct {unsigned f; char r[24];} string45 = {1507352, "SetBiScrollersTransform"};
static struct {unsigned f; char r[12];} string46 = {589836, "SetSlopes\000\000"};
static struct {unsigned f; char r[12];} string47 = {589836, "SetAngles\000\000"};
static struct {unsigned f; char r[12];} string48 = {524300, "SetRadii\000\000\000"};
static struct {unsigned f; char r[16];} string49 = {786448, "SetDistances\000\000\000"};
static struct {unsigned f; char r[24];} string50 = {1507352, "midpoint of segment ???"};
static struct {unsigned f; char r[8];} string51 = {393224, " slice\000"};
static struct {unsigned f; char r[4];} string52 = {65540, "T\000\000"};
static struct {unsigned f; char r[4];} string53 = {65540, "F\000\000"};
static struct {unsigned f; char r[16];} string54 = {786448, "SetMidpoints\000\000\000"};
static struct {unsigned f; char r[16];} string55 = {851984, "SetHeuristics\000\000"};
static struct {unsigned f; char r[20];} string56 = {1114132, "SetShowAlignments\000\000"};
static struct {unsigned f; char r[8];} string57 = {458760, "Quietly"};
static struct {unsigned f; char r[16];} string58 = {786448, "SetScaleUnit\000\000\000"};
static struct {unsigned f; char r[16];} string59 = {983056, "SetDisplayStyle"};
static struct {unsigned f; char r[12];} string60 = {655372, "SetGravity\000"};
static struct {unsigned f; char r[20];} string61 = {1048596, "SetGravityExtent\000\000\000"};
static struct {unsigned f; char r[20];} string62 = {1048596, "SetGravityChoice\000\000\000"};
static struct {unsigned f; char r[16];} string63 = {917520, "SetDefaultFont\000"};
static struct {unsigned f; char r[28];} string64 = {1769500, "SetDefaultLineColorFromRope"};
static struct {unsigned f; char r[28];} string65 = {1769500, "SetDefaultFillColorFromRope"};
static struct {unsigned f; char r[8];} string66 = {393224, "anchor\000"};
static struct {unsigned f; char r[20];} string67 = {1048596, "SetCaretPosition\000\000\000"};
static struct {unsigned f; char r[16];} string68 = {917520, "SetCaretNormal\000"};
static struct {unsigned f; char r[24];} string69 = {1441816, "CloseScript: %g closed\000"};
static struct {unsigned f; char r[28];} string70 = {1703964, "Not scripting this session\000"};
static struct {unsigned f; char r[24];} string71 = {1376280, "Autoscript checkpoint\000\000"};
static struct {unsigned f; char r[12];} string72 = {655372, "SawStartOp\000"};
static struct {unsigned f; char r[16];} string73 = {786448, "SawSelectAll\000\000\000"};
static struct {unsigned f; char r[16];} string74 = {851984, "SawTextFinish\000\000"};
static struct {unsigned f; char r[16];} string75 = {917520, "SawMouseFinish\000"};
static struct {unsigned f; char r[16];} string76 = {983056, "Playback script"};
static struct {unsigned f; char r[20];} string77 = {1048596, "PlaybackFromFile\000\000\000"};
static struct {unsigned f; char r[12];} string78 = {720908, "Playing: %g"};
static struct {unsigned f; char r[24];} string79 = {1310744, "Aborted playback of \000\000\000"};
static struct {unsigned f; char r[16];} string80 = {917520, "midpoint of %g\000"};
static struct {unsigned f; char r[24];} string81 = {1441816, "EndOfSessionLogMessage\000"};
static struct {unsigned f; char r[16];} string82 = {983056, "Could not open "};
static struct {unsigned f; char r[16];} string83 = {851984, " for playback\000\000"};
static struct {unsigned f; char r[28];} string84 = {1703964, "a %g/%g intersection point\000"};
static struct {unsigned f; char r[24];} string85 = {1441816, "a %g/%g tangency point\000"};
static struct {unsigned f; char r[12];} string86 = {655372, "Statistics\000"};
static struct {unsigned f; char r[40];} string87 = {2359336, "Finished playback of %g in time (%r)\000\000\000"};
static struct {unsigned f; char r[8];} string88 = {458760, "unknown"};
static struct {unsigned f; char r[12];} string89 = {655372, "the anchor\000"};
static struct {unsigned f; char r[16];} string90 = {917520, "compass circle\000"};
static struct {unsigned f; char r[16];} string91 = {851984, "symmetry line\000\000"};
static struct {unsigned f; char r[48];} string92 = {3014704, "IO.Close failed (IO.Error).  Continuing anyway\000"};
static struct {unsigned f; char r[12];} string93 = {524300, "Gargoyle\000\000\000"};
static struct {unsigned f; char r[52];} string94 = {3276852, "IO.Close failed (FS.Error: %g).  Continuing anyway\000"};
static struct {unsigned f; char r[20];} string95 = {1048596, "/Cedar/Gargoyle/\000\000\000"};
static struct {unsigned f; char r[12];} string96 = {655372, "angle line\000"};
static struct {unsigned f; char r[12];} string97 = {655372, "slope line\000"};
static struct {unsigned f; char r[16];} string98 = {851984, "distance line\000\000"};
static struct {unsigned f; char r[8];} string99 = {458760, "nothing"};
static struct {unsigned f; char r[16];} string100 = {851984, "\257\300\144\063\065\206\300\167\020\076\350\100\164\000\000"};
static struct {unsigned f; char r[12];} string101 = {655370, "\006\001\100\200\010\000\004\100\114\001\000"};
static struct {unsigned f; char r[16];} string102 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string103 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static struct {unsigned f; char r[16];} string104 = {851984, "\257\300\345\207\354\240\300\306\063\246\015\100\150\000\000"};
static struct {unsigned f; char r[16];} string105 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[16];} string106 = {851984, "\257\300\362\312\033\215\300\321\365\230\017\100\150\000\000"};
static struct {unsigned f; char r[16];} string107 = {851984, "\257\300\322\334\347\304\300\124\107\000\027\100\150\000\000"};
static struct {unsigned f; char r[16];} string108 = {851984, "\257\300\103\154\257\030\300\165\276\076\350\100\150\000\000"};
static struct {unsigned f; char r[16];} string109 = {851984, "\257\300\344\212\014\176\300\070\230\121\123\100\150\000\000"};
static struct {unsigned f; char r[16];} string110 = {851984, "\257\300\223\031\346\162\300\275\253\133\335\100\150\000\000"};
static struct {unsigned f; char r[16];} string111 = {851984, "\257\300\375\202\245\011\300\112\022\046\301\100\150\000\000"};
static struct {unsigned f; char r[16];} string112 = {851984, "\257\300\003\033\274\104\300\263\246\312\006\100\150\000\000"};
static struct {unsigned f; char r[16];} string113 = {851984, "\257\300\254\061\235\240\300\234\075\103\347\100\150\000\000"};
static struct {unsigned f; char r[16];} string114 = {851984, "\257\300\374\260\327\235\300\333\341\342\010\100\150\000\000"};
static struct {unsigned f; char r[12];} string115 = {1195856741, "ssionLog"};
static struct {unsigned f; char r[16];} string116 = {851984, "\257\300\340\114\347\077\300\130\206\301\040\100\150\000\000"};
static struct {unsigned f; char r[16];} string117 = {851984, "\257\300\336\025\013\356\300\216\115\352\271\100\150\000\000"};
static struct {unsigned f; char r[16];} string118 = {851984, "\257\300\206\055\004\241\300\261\334\001\116\100\150\000\000"};
static struct {unsigned f; char r[8];} string119 = {1195857225, "Utility"};
static struct {unsigned f; char r[16];} string120 = {851984, "\257\300\272\336\377\011\300\305\371\262\224\100\150\000\000"};
static struct {unsigned f; char r[16];} string121 = {851984, "\257\300\355\324\264\170\300\276\334\312\210\100\150\000\000"};
static struct {unsigned f; char r[16];} string122 = {851984, "\257\300\370\132\042\205\300\045\133\011\125\100\150\000\000"};
static struct {unsigned f; char r[16];} string123 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string124 = {851984, "\257\300\012\122\347\132\300\052\140\133\312\100\150\000\000"};
static struct {unsigned f; char r[16];} string125 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string126 = {851984, "\257\300\316\320\225\316\300\002\132\353\273\100\150\000\000"};
static struct {unsigned f; char r[16];} string127 = {851984, "\257\300\360\202\255\211\300\267\057\343\102\100\150\000\000"};
static struct {unsigned f; char r[16];} string128 = {851984, "\257\300\306\163\371\375\300\321\143\133\037\100\150\000\000"};
static struct {unsigned f; char r[16];} string129 = {851984, "\257\300\252\043\023\037\300\070\056\113\065\100\150\000\000"};
static struct {unsigned f; char r[20];} string130 = {1245204, "\211\007\006Change\300\252#\023\037\3008.K5"};
static struct {unsigned f; char r[16];} string131 = {851984, "\257\300\122\207\370\054\300\315\202\135\375\100\200\000\000"};
static struct {unsigned f; char r[12];} string132 = {589833, "\007\000\040\003\004\036\004\016\014\000\000"};
static struct {unsigned f; char r[16];} string133 = {851984, "\257\300\223\145\303\043\300\372\023\025\003\100\150\000\000"};
static struct {unsigned f; char r[28];} string134 = {1572892, "\211\014\013\103\157\156\164\162\157\154\163\117\142\152\300\223\145\303\043\300\372\023\025\003\000\000\000"};
static struct {unsigned f; char r[16];} string135 = {851984, "\257\300\365$\303)\300KDZZ@t\000\000"};
static struct {unsigned f; char r[88];} string136 = {5701719, "\006\041\000\001\004\001\010\001\014\001\020\001\024\001\030\001\034\001\040\001\050\001\054\001\064\001\070\001\074\001\100\100\001\100\104\001\100\110\001\100\114\001\100\120\001\100\124\001\100\130\001\100\140\001\100\150\001\100\160\001\100\164\001\100\174\001\100\200\001\100\204\001\100\210\001\100\214\001\100\220\001\100\224\001\100\230\001"};
static struct {unsigned f; char r[28];} string137 = {1769500, "\211\017\016\122\145\146\162\145\163\150\104\141\164\141\117\142\152\300\223\145\303\043\300\372\023\025\003"};
static struct {unsigned f; char r[16];} string138 = {851984, "\257\300\026\355\016\312\300\171\207\041\370\100\200\000\000"};
static struct {unsigned f; char r[44];} string139 = {2752554, "\006\020\000\001\014\001\020\001\024\001\030\001\034\001\070\001\074\001\100\100\001\100\104\001\100\110\001\100\114\001\100\120\001\100\124\001\100\130\001\100\144\001\000"};
static struct {
   word f0[109]; word f109; word f110; word f111; 
   word f112; word f113; word f114; word f115; 
   word f116; word f117; word f118; word f119; 
   word f120; word f121; word f122; word f123; 
   word f124; word f125; word f126; word f127; 
   word f128; word f129; word f130; word f131; 
   word f132; word f133; word f134; word f135; 
   word f136; word f137; word f138; word f139; 
   word f140; word f141; word f142; word f143; 
   word f144; word f145; word f146; word f147; 
   word f148; word f149; word f150; word f151; 
   word f152; word f153; word f154; word f155; 
   word f156; word f157; word f158; word f159; 
   word f160; word f161; word f162; word f163; 
   word f164; word f165; word f166[27]; 
   } globalframe = {
   {0}, (word) Init←P1680, 0, (word) ParseFeedbackRope←P1620, 
   0, (word) GGHomeDirectory←P1560, 0, (word) SafeClose←P1500, 
   0, (word) OpenExistingFile←P1440, 0, (word) EndOfScriptMessage←P1380, 
   0, (word) PlaybackFromFile←P1320, 0, (word) PlayAction←P1260, 
   0, (word) ActionToScript←P1200, 0, (word) EnterAction←P1140, 
   0, (word) FlushScript←P1080, 0, (word) CloseScript←P1020, 
   0, (word) CaptureSessionState←P960, 0, (word) AppendScript←P900, 
   0, (word) AppendScriptInternal←P840, 0, (word) OpenScript←P780, 
   0, (word) GargoyleContainerSet←P720, 0, (word) GargoyleContainerDestroy←P660, 
   0, (word) GargoyleContainerSave←P600, 0, (word) ChildXBound←P540, 
   0, (word) ChildYBound←P480, 0, (word) GGContainerCreate←P420, 
   0, (word) DisplayStyleFromRope←P360, 0, (word) DisplayStyleToRope←P300, 
   0, (word) GravityTypeFromRope←P240, 0, (word) GravityTypeToRope←P180, 
   0, (word) DescribeSourceFeature←P120, 0, (word) DescribeFeature←P60, 
   0, (word) GGUIUtilityImpl←P0, {0}
   };

static void NoName←Q2220()
   {
   register ptr gf←c0400 =  (ptr) &globalframe;
   word var←c54772;
   (* (( (ptr) gf←c0400)+8) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf←c0400)+9) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf←c0400)+11) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf←c0400)+14) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8);
   (* (( (ptr) gf←c0400)+17) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string10);
   (* (( (ptr) gf←c0400)+19) ) = (word) XR←GetTypeIndex((word) &string11, 0, (word) &string12);
   (* (( (ptr) gf←c0400)+20) ) = (word) XR←GetTypeIndexS((word) (&string13));
   (* (( (ptr) gf←c0400)+22) ) = (word) XR←GetTypeIndexS((word) (&string14));
   (* (( (ptr) gf←c0400)+23) ) = (word) XR←GetTypeIndexS((word) (&string15));
   (* (( (ptr) gf←c0400)+24) ) = (word) XR←GetTypeIndex((word) &string16, 0, (word) &string4);
   (* (( (ptr) gf←c0400)+26) ) = (word) XR←GetTypeIndexS((word) (&string17));
   (* (( (ptr) gf←c0400)+27) ) = (word) XR←GetTypeIndex((word) &string18, 0, (word) &string19);
   (* (( (ptr) gf←c0400)+28) ) = (word) XR←GetTypeIndex((word) &string20, 0, (word) &string6);
   (* (( (ptr) gf←c0400)+29) ) = (word) XR←GetTypeIndex((word) &string21, 0, (word) &string22);
   (* (( (ptr) gf←c0400)+31) ) = (word) XR←GetTypeIndex((word) &string23, 0, (word) &string4);
   (*  (ptr) (( (bPt) gf←c0400)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string24);
   (*  (ptr) (( (bPt) gf←c0400)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string25);
   (*  (ptr) (( (bPt) gf←c0400)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string26);
   (*  (ptr) (( (bPt) gf←c0400)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string27);
   (*  (ptr) (( (bPt) gf←c0400)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string28);
   (*  (ptr) (( (bPt) gf←c0400)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string29);
   (*  (ptr) (( (bPt) gf←c0400)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string30);
   (*  (ptr) (( (bPt) gf←c0400)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string31);
   (*  (ptr) (( (bPt) gf←c0400)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string32);
   (*  (ptr) (( (bPt) gf←c0400)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string33);
   (*  (ptr) (( (bPt) gf←c0400)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string34);
   (*  (ptr) (( (bPt) gf←c0400)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string35);
   (*  (ptr) (( (bPt) gf←c0400)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string36);
   (*  (ptr) (( (bPt) gf←c0400)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string37);
   (*  (ptr) (( (bPt) gf←c0400)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string38);
   (*  (ptr) (( (bPt) gf←c0400)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string39);
   (*  (ptr) (( (bPt) gf←c0400)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string40);
   (*  (ptr) (( (bPt) gf←c0400)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string41);
   (*  (ptr) (( (bPt) gf←c0400)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string42);
   (*  (ptr) (( (bPt) gf←c0400)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string43);
   (*  (ptr) (( (bPt) gf←c0400)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string44);
   (*  (ptr) (( (bPt) gf←c0400)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string45);
   (*  (ptr) (( (bPt) gf←c0400)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string46);
   (*  (ptr) (( (bPt) gf←c0400)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string47);
   (*  (ptr) (( (bPt) gf←c0400)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string48);
   (*  (ptr) (( (bPt) gf←c0400)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string49);
   (*  (ptr) (( (bPt) gf←c0400)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string50);
   (*  (ptr) (( (bPt) gf←c0400)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string51);
   (*  (ptr) (( (bPt) gf←c0400)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+24) ), (word) &string52);
   (*  (ptr) (( (bPt) gf←c0400)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+24) ), (word) &string53);
   (*  (ptr) (( (bPt) gf←c0400)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string54);
   (*  (ptr) (( (bPt) gf←c0400)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string55);
   (*  (ptr) (( (bPt) gf←c0400)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string56);
   (*  (ptr) (( (bPt) gf←c0400)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string57);
   (*  (ptr) (( (bPt) gf←c0400)+264) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string58);
   (*  (ptr) (( (bPt) gf←c0400)+268) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string59);
   (*  (ptr) (( (bPt) gf←c0400)+272) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string60);
   (*  (ptr) (( (bPt) gf←c0400)+276) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string61);
   (*  (ptr) (( (bPt) gf←c0400)+280) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string62);
   (*  (ptr) (( (bPt) gf←c0400)+284) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string63);
   (*  (ptr) (( (bPt) gf←c0400)+288) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string64);
   (*  (ptr) (( (bPt) gf←c0400)+292) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string65);
   (*  (ptr) (( (bPt) gf←c0400)+296) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string66);
   (*  (ptr) (( (bPt) gf←c0400)+300) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string67);
   (*  (ptr) (( (bPt) gf←c0400)+304) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string68);
   (*  (ptr) (( (bPt) gf←c0400)+308) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string69);
   (*  (ptr) (( (bPt) gf←c0400)+312) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string70);
   (*  (ptr) (( (bPt) gf←c0400)+316) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string71);
   (*  (ptr) (( (bPt) gf←c0400)+320) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string72);
   (*  (ptr) (( (bPt) gf←c0400)+324) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string73);
   (*  (ptr) (( (bPt) gf←c0400)+328) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string74);
   (*  (ptr) (( (bPt) gf←c0400)+332) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string75);
   (*  (ptr) (( (bPt) gf←c0400)+336) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string76);
   (*  (ptr) (( (bPt) gf←c0400)+340) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string77);
   (*  (ptr) (( (bPt) gf←c0400)+344) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string78);
   (*  (ptr) (( (bPt) gf←c0400)+348) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string79);
   (*  (ptr) (( (bPt) gf←c0400)+352) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string80);
   (*  (ptr) (( (bPt) gf←c0400)+356) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string81);
   (*  (ptr) (( (bPt) gf←c0400)+360) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string82);
   (*  (ptr) (( (bPt) gf←c0400)+364) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string83);
   (*  (ptr) (( (bPt) gf←c0400)+368) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string84);
   (*  (ptr) (( (bPt) gf←c0400)+372) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string85);
   (*  (ptr) (( (bPt) gf←c0400)+376) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string86);
   (*  (ptr) (( (bPt) gf←c0400)+380) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string87);
   (*  (ptr) (( (bPt) gf←c0400)+384) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string88);
   (*  (ptr) (( (bPt) gf←c0400)+388) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string89);
   (*  (ptr) (( (bPt) gf←c0400)+392) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string90);
   (*  (ptr) (( (bPt) gf←c0400)+396) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string91);
   (*  (ptr) (( (bPt) gf←c0400)+400) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string92);
   (*  (ptr) (( (bPt) gf←c0400)+404) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+31) ), (word) &string93);
   (*  (ptr) (( (bPt) gf←c0400)+408) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string94);
   (*  (ptr) (( (bPt) gf←c0400)+412) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string95);
   (*  (ptr) (( (bPt) gf←c0400)+416) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string96);
   (*  (ptr) (( (bPt) gf←c0400)+420) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string97);
   (*  (ptr) (( (bPt) gf←c0400)+424) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string98);
   (*  (ptr) (( (bPt) gf←c0400)+428) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0400)+9) ), (word) &string99);
   (void) XR←DeclareGlobalFrame((word) "GGUIUtilityImpl", &globalframe, (word) XR←GetTypeIndex((word) &string100, 0, (word) &string101)
      , (word) (( (bPt) gf←c0400)+660)/* var←c49076 */ );
   var←c54772 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string102)), 16);
   (* (( (ptr) gf←c0400)+169)/* var←c49588 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67372289);
   var←c54772 = (word) XR←ImportInterface((word) "BasicTime", (word) XR←GetTypeIndexS((word) (&string103)), 24);
   (* (( (ptr) gf←c0400)+188)/* var←c54132 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67636226);
   (void) XR←ImportProcS(var←c54772, 67375361);
   (void) XR←ImportProcS(var←c54772, 67374849);
   (void) XR←ImportProcS(var←c54772, 67111424);
   var←c54772 = (word) XR←ImportInterface((word) "BiScrollers", (word) XR←GetTypeIndexS((word) (&string104)), 30);
   (* (( (ptr) gf←c0400)+172)/* var←c49908 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67373825);
   (void) XR←ImportProcS(var←c54772, 67373313);
   var←c54772 = (word) XR←ImportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string105)), 73);
   (* (( (ptr) gf←c0400)+174)/* var←c50036 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67901187);
   var←c54772 = (word) XR←ImportInterface((word) "EBMesaLisp", (word) XR←GetTypeIndexS((word) (&string106)), 11);
   (* (( (ptr) gf←c0400)+190)/* var←c54708 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 134479873);
   var←c54772 = (word) XR←ImportInterface((word) "Feedback", (word) XR←GetTypeIndexS((word) (&string107)), 25);
   (* (( (ptr) gf←c0400)+180)/* var←c50740 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67372545);
   (void) XR←ImportProcS(var←c54772, 1313029);
   (void) XR←ImportProcS(var←c54772, 1050628);
   (void) XR←ImportProcS(var←c54772, 1575429);
   var←c54772 = (word) XR←ImportInterface((word) "FileNames", (word) XR←GetTypeIndexS((word) (&string108)), 17);
   (* (( (ptr) gf←c0400)+173)/* var←c49972 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67373313);
   (void) XR←ImportProcS(var←c54772, 67109632);
   var←c54772 = (word) XR←ImportInterface((word) "FS", (word) XR←GetTypeIndexS((word) (&string109)), 36);
   (* (( (ptr) gf←c0400)+179)/* var←c50676 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 70522636);
   var←c54772 = (word) XR←ImportInterface((word) "GGCaret", (word) XR←GetTypeIndexS((word) (&string110)), 13);
   (* (( (ptr) gf←c0400)+186)/* var←c53492 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 134482945);
   (void) XR←ImportProcS(var←c54772, 134482689);
   var←c54772 = (word) XR←ImportInterface((word) "GGDescribe", (word) XR←GetTypeIndexS((word) (&string111)), 11);
   (* (( (ptr) gf←c0400)+183)/* var←c51316 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67371265);
   (void) XR←ImportProcS(var←c54772, 67897091);
   (void) XR←ImportProcS(var←c54772, 67373313);
   var←c54772 = (word) XR←ImportInterface((word) "GGEvent", (word) XR←GetTypeIndexS((word) (&string112)), 38);
   (* (( (ptr) gf←c0400)+175)/* var←c50260 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 529666);
   (void) XR←ImportProcS(var←c54772, 524802);
   var←c54772 = (word) XR←ImportInterface((word) "GGFileOps", (word) XR←GetTypeIndexS((word) (&string113)), 7);
   (* (( (ptr) gf←c0400)+178)/* var←c50580 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 135267588);
   var←c54772 = (word) XR←ImportInterface((word) "GGFont", (word) XR←GetTypeIndexS((word) (&string114)), 16);
   (* (( (ptr) gf←c0400)+185)/* var←c53204 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67374337);
   var←c54772 = (word) XR←ImportInterface((word) &string115, (word) XR←GetTypeIndexS((word) (&string116)), 7);
   (* (( (ptr) gf←c0400)+176)/* var←c50292 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 135004675);
   var←c54772 = (word) XR←ImportInterface((word) "GGSliceOps", (word) XR←GetTypeIndexS((word) (&string117)), 73);
   (* (( (ptr) gf←c0400)+167)/* var←c49140 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67371521);
   (void) XR←ImportProcS(var←c54772, 67638274);
   var←c54772 = (word) XR←ImportInterface((word) "GGState", (word) XR←GetTypeIndexS((word) (&string118)), 119);
   (* (( (ptr) gf←c0400)+182)/* var←c51284 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67389697);
   (void) XR←ImportProcS(var←c54772, 67390209);
   (void) XR←ImportProcS(var←c54772, 67392257);
   (void) XR←ImportProcS(var←c54772, 67393793);
   (void) XR←ImportProcS(var←c54772, 67393281);
   (void) XR←ImportProcS(var←c54772, 67392769);
   (void) XR←ImportProcS(var←c54772, 67388417);
   (void) XR←ImportProcS(var←c54772, 67395073);
   (void) XR←ImportProcS(var←c54772, 67384833);
   (void) XR←ImportProcS(var←c54772, 67394561);
   (void) XR←ImportProcS(var←c54772, 67384321);
   (void) XR←ImportProcS(var←c54772, 201600257);
   (void) XR←ImportProcS(var←c54772, 201597953);
   (void) XR←ImportProcS(var←c54772, 134487297);
   (void) XR←ImportProcS(var←c54772, 134486273);
   (void) XR←ImportProcS(var←c54772, 67372545);
   var←c54772 = (word) XR←ImportInterface((word) &string119, (word) XR←GetTypeIndexS((word) (&string120)), 10);
   (* (( (ptr) gf←c0400)+184)/* var←c52660 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67371521);
   (void) XR←ImportProcS(var←c54772, 67372033);
   var←c54772 = (word) XR←ImportInterface((word) "GGUserInput", (word) XR←GetTypeIndexS((word) (&string121)), 13);
   (* (( (ptr) gf←c0400)+177)/* var←c50484 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 525570);
   (void) XR←ImportProcS(var←c54772, 525058);
   var←c54772 = (word) XR←ImportInterface((word) "GGUtility", (word) XR←GetTypeIndexS((word) (&string122)), 42);
   (* (( (ptr) gf←c0400)+181)/* var←c50932 */  ) = var←c54772;
   var←c54772 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string123)), 103);
   (* (( (ptr) gf←c0400)+168)/* var←c49268 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67640578);
   (void) XR←ImportProcS(var←c54772, 530434);
   (void) XR←ImportProcS(var←c54772, 67910402);
   (void) XR←ImportProcS(var←c54772, 68958724);
   var←c54772 = (word) XR←ImportInterface((word) "MJSContainers", (word) XR←GetTypeIndexS((word) (&string124)), 13);
   (* (( (ptr) gf←c0400)+171)/* var←c49876 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 524290);
   (void) XR←ImportProcS(var←c54772, 67373825);
   (void) XR←ImportProcS(var←c54772, 525314);
   (void) XR←ImportProcS(var←c54772, 525058);
   (void) XR←ImportProcS(var←c54772, 74973699);
   var←c54772 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string125)), 43);
   (* (( (ptr) gf←c0400)+170)/* var←c49620 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 68419845);
   (void) XR←ImportProcS(var←c54772, 67896323);
   (void) XR←ImportProcS(var←c54772, 67633666);
   var←c54772 = (word) XR←ImportInterface((word) "SessionLog", (word) XR←GetTypeIndexS((word) (&string126)), 3);
   (* (( (ptr) gf←c0400)+187)/* var←c53908 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 67895811);
   (void) XR←ImportProcS(var←c54772, 524290);
   var←c54772 = (word) XR←ImportInterface((word) "SlackProcess", (word) XR←GetTypeIndexS((word) (&string127)), 26);
   (* (( (ptr) gf←c0400)+189)/* var←c54196 */  ) = var←c54772;
   (void) XR←ImportProcS(var←c54772, 263681);
   var←c54772 = (word) XR←ExportInterface((word) "GGContainer", (word) XR←GetTypeIndexS((word) (&string128)), 6);
   (* (( (ptr) gf←c0400)+191)/* var←c54804 */  ) = var←c54772;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+604)/* var←c48852 */ , 74711042, (word) "GGContainerCreate");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+596)/* var←c48820 */ , 524546, (word) "ChildYBound");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+588)/* var←c48788 */ , 524802, (word) "ChildXBound");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+580)/* var←c48756 */ , 525058, (word) "GargoyleContainerSave")
   ;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+572)/* var←c48724 */ , 263169, (word) "GargoyleContainerDestroy")
   ;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+564)/* var←c48692 */ , 1049860, (word) "GargoyleContainerSet")
   ;
   var←c54772 = (word) XR←ExportInterface((word) "GGHistoryTypes", (word) XR←GetTypeIndexS((word) (&string129)), 2);
   (* (( (ptr) gf←c0400)+192)/* var←c54836 */  ) = var←c54772;
   (void) XR←ExportType((word) "Change", (word) XR←GetTypeIndexS((word) (&string130)), (word) XR←GetTypeIndex((word) &string131, 0, (word) &string132)
      );
   var←c54772 = (word) XR←ExportInterface((word) "GGInterfaceTypes", (word) XR←GetTypeIndexS((word) (&string133)), 6);
   (* (( (ptr) gf←c0400)+192)/* var←c54836 */  ) = var←c54772;
   (void) XR←ExportType((word) "ControlsObj", (word) XR←GetTypeIndexS((word) (&string134)), (word) XR←GetTypeIndex((word) &string135, 0, (word) &string136)
      );
   (void) XR←ExportType((word) "RefreshDataObj", (word) XR←GetTypeIndexS((word) (&string137)), (word) XR←GetTypeIndex((word) &string138, 0, (word) &string139)
      );
   var←c54772 = (word) XR←ExportInterface((word) &string115, (word) XR←GetTypeIndexS((word) (&string116)), 7);
   (* (( (ptr) gf←c0400)+191)/* var←c54804 */  ) = var←c54772;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+556)/* var←c48660 */ , 135266308, (word) "OpenScript");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+540)/* var←c48596 */ , 135266564, (word) "AppendScript");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+524)/* var←c48532 */ , 135004675, (word) "CloseScript");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+516)/* var←c48500 */ , 135004931, (word) "FlushScript");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+508)/* var←c48468 */ , 525314, (word) "EnterAction");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+484)/* var←c48372 */ , 525570, (word) "PlaybackFromFile");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+476)/* var←c48340 */ , 525826, (word) "EndOfScriptMessage");
   var←c54772 = (word) XR←ExportInterface((word) &string119, (word) XR←GetTypeIndexS((word) (&string120)), 10);
   (* (( (ptr) gf←c0400)+191)/* var←c54804 */  ) = var←c54772;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+652)/* var←c49044 */ , 67895299, (word) "DescribeFeature");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+644)/* var←c49012 */ , 67633410, (word) "DescribeSourceFeature")
   ;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+636)/* var←c48980 */ , 67371521, (word) "GravityTypeToRope");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+628)/* var←c48948 */ , 67371777, (word) "GravityTypeFromRope")
   ;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+620)/* var←c48916 */ , 67372033, (word) "DisplayStyleToRope")
   ;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+612)/* var←c48884 */ , 67372289, (word) "DisplayStyleFromRope")
   ;
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+460)/* var←c48276 */ , 525826, (word) "SafeClose");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+452)/* var←c48244 */ , 67110656, (word) "GGHomeDirectory");
   (void) XR←ExportProcS(var←c54772, (word) (( (bPt) gf←c0400)+444)/* var←c48212 */ , 67373313, (word) "ParseFeedbackRope");
   }

static void GGUIUtilityImpl←P0(formal←c080, formal←c079)
   word formal←c080;
   word formal←c079;
   {
   /* GGUIUtilityImpl: */ 
SOURCE(455, 17511)
SOURCE(17960, 6)
   (void) Init←P1680();
   }

static word DescribeFeature←P60(feature←v5532, hitData←v5560, ggData←v5588)
   word feature←v5532;
   word hitData←v5560;
   word ggData←v5588;
   {
   register ptr gf←c54868 =  (ptr) &globalframe;
   word rope←v5648;
   /* DescribeFeature: */ 
SOURCE(1762, 15034)
SOURCE(1762, 15034)
   rope←v5648 = 0;
SOURCE(1878, 14918)
   if ((feature←v5532 == 0)) {
SOURCE(1900, 23)
      return((* (( (ptr) gf←c54868)+107) ));
      }
   else {
SOURCE(1925, 14871)
      {
         word var←c49108;
         var←c49108 = (*  (ptr) feature←v5532 );
         switch (var←c49108) {
            case 0: 
SOURCE(1959, 110)
               {
                  word slice←v8736;
SOURCE(1961, 59)
                  slice←v8736 = (*  (ptr) XR←Narrow((* (( (ptr) feature←v5532)+1) ), (* (( (ptr) gf←c54868)+11) )) );
SOURCE(2022, 14774)
                  {
                     word pd140;
                     pd140 = (* (( (ptr) (* (( (ptr) gf←c54868)+167)/* var←c49140 */  ))+24) );
                     rope←v5648 = (word) ( *( (fPt) ((*  (ptr) pd140 ))))(slice←v8736, hitData←v5560, pd140);
                     };
                  };
               break;
            case 1: 
SOURCE(2088, 22)
               rope←v5648 = (* (( (ptr) gf←c54868)+106) );
               break;
            case 2: 
SOURCE(2125, 19)
               rope←v5648 = (* (( (ptr) gf←c54868)+105) );
               break;
            case 3: 
SOURCE(2159, 19)
               rope←v5648 = (* (( (ptr) gf←c54868)+104) );
               break;
            case 4: 
SOURCE(2196, 22)
               rope←v5648 = (* (( (ptr) gf←c54868)+99) );
               break;
            case 5: 
SOURCE(2235, 23)
               rope←v5648 = (* (( (ptr) gf←c54868)+98) );
               break;
            case 6: 
SOURCE(2281, 628)
               {
                  word firstObj←v8780 = 0;
                  word secondObj←v8808 = 0;
                  word alignPoint←v8836;
                  word line1←v8864;
                  word line2←v8892;
                  word tangent←v8920;
SOURCE(2315, 50)
                  alignPoint←v8836 = XR←Narrow((* (( (ptr) feature←v5532)+1) ), (* (( (ptr) gf←c54868)+17) ));
SOURCE(2367, 38)
                  line1←v8864 = (* (( (ptr) alignPoint←v8836)+3) );
SOURCE(2407, 38)
                  line2←v8892 = (* (( (ptr) alignPoint←v8836)+4) );
SOURCE(2447, 34)
                  tangent←v8920 = (* (( (ptr) alignPoint←v8836)+2) );
SOURCE(2483, 14313)
                  if ( ( (line1←v8864 == 0) ? (line2←v8892 == 0) : 0 ) ) {
SOURCE(2521, 19)
                     rope←v5648 = (* (( (ptr) gf←c54868)+97) );
                     }
                  else {
SOURCE(2551, 14245)
                     if ((line1←v8864 != 0)) {
                        firstObj←v8780 = (word) DescribeSourceFeature←P120(line1←v8864, ggData←v5588);
                        }
                     else {
                        firstObj←v8780 = (* (( (ptr) gf←c54868)+96) );
                        };
SOURCE(2635, 14161)
                     if ((line2←v8892 != 0)) {
                        secondObj←v8808 = (word) DescribeSourceFeature←P120(line2←v8892, ggData←v5588);
                        }
                     else {
                        secondObj←v8808 = (* (( (ptr) gf←c54868)+96) );
                        };
SOURCE(2720, 14076)
                     if ((0 != tangent←v8920)) {
SOURCE(2736, 14060)
                        {
                           W2 var←c49172;
                           W2 var←c49204;
                           W2 var←c0439;
                           var←c49172.f0 = 11;
                           var←c49172.f1 = firstObj←v8780;
                           var←c49204.f0 = 11;
                           var←c49204.f1 = secondObj←v8808;
                           (*  (ptr) (word) &var←c0439 ) = 0;
                           (* (( (ptr) (word) &var←c0439) + 1) ) = 0;
                           {
/*1*/   word pd141;
/*1*/   pd141 = (* (( (ptr) (* (( (ptr) gf←c54868)+168)/* var←c49268 */  ))+62) );
/*1*/   rope←v5648 = (word) ( *( (fPt) ((*  (ptr) pd141 ))))((* (( (ptr) gf←c54868)+93) ), var←c49172, var←c49204, var←c0439, pd141)
/*1*/   ;
/*1*/   };
                           };
                        }
                     else {
SOURCE(2821, 13975)
                        {
                           W2 var←c49300;
                           W2 var←c49332;
                           W2 var←c0440;
                           var←c49300.f0 = 11;
                           var←c49300.f1 = firstObj←v8780;
                           var←c49332.f0 = 11;
                           var←c49332.f1 = secondObj←v8808;
                           (*  (ptr) (word) &var←c0440 ) = 0;
                           (* (( (ptr) (word) &var←c0440) + 1) ) = 0;
                           {
/*1*/   word pd142;
/*1*/   pd142 = (* (( (ptr) (* (( (ptr) gf←c54868)+168)/* var←c49268 */  ))+62) );
/*1*/   rope←v5648 = (word) ( *( (fPt) ((*  (ptr) pd142 ))))((* (( (ptr) gf←c54868)+92) ), var←c49300, var←c49332, var←c0440, pd142)
/*1*/   ;
/*1*/   };
                           };
                        };
                     };
                  };
               break;
            case 7: 
SOURCE(2924, 337)
               {
                  word alignPoint←v8964;
                  word curveFeature←v8992;
SOURCE(2926, 50)
                  alignPoint←v8964 = XR←Narrow((* (( (ptr) feature←v5532)+1) ), (* (( (ptr) gf←c54868)+17) ));
SOURCE(2978, 45)
                  curveFeature←v8992 = (* (( (ptr) alignPoint←v8964)+3) );
SOURCE(3025, 13771)
                  {
                     word var←c49396;
                     var←c49396 = (*  (ptr) curveFeature←v8992 );
                     if ((var←c49396 == 0)) {
SOURCE(3064, 115)
                        {
                           word slice←v9036;
SOURCE(3066, 64)
                           slice←v9036 = (*  (ptr) XR←Narrow((* (( (ptr) curveFeature←v8992)+1) ), (* (( (ptr) gf←c54868)+11) )) );
SOURCE(3132, 13664)
                           {
/*1*/   word pd143;
/*1*/   pd143 = (* (( (ptr) (* (( (ptr) gf←c54868)+167)/* var←c49140 */  ))+24) );
/*1*/   rope←v5648 = (word) ( *( (fPt) ((*  (ptr) pd143 ))))(slice←v9036, hitData←v5560, pd143);
/*1*/   };
                           };
                        }
                     else {
SOURCE(3193, 16)
                        rope←v5648 = (* (( (ptr) gf←c54868)+96) );
                        };
                     };
SOURCE(3211, 13585)
                  {
                     W2 var←c49428;
                     var←c49428.f0 = 11;
                     var←c49428.f1 = rope←v5648;
                     {
                        word pd144;
                        pd144 = (* (( (ptr) (* (( (ptr) gf←c54868)+168)/* var←c49268 */  ))+63) );
                        rope←v5648 = (word) ( *( (fPt) ((*  (ptr) pd144 ))))((* (( (ptr) gf←c54868)+88) ), var←c49428, pd144);
                        };
                     };
                  };
               break;
            case 8: 
SOURCE(3276, 15)
               rope←v5648 = (* (( (ptr) gf←c54868)+74) );
               break;
            default: 
SOURCE(3307, 5)
               (void) XR←RaiseUnnamedError();
               break;
            };
         };
      };
SOURCE(1762, 15034)
   return(rope←v5648);
   }

static word DescribeSourceFeature←P120(feature←v5708, ggData←v5736)
   word feature←v5708;
   word ggData←v5736;
   {
   register ptr gf←c54900 =  (ptr) &globalframe;
   word rope←v5780;
   /* DescribeSourceFeature: */ 
SOURCE(3321, 13475)
SOURCE(3321, 13475)
   rope←v5780 = 0;
SOURCE(3425, 13371)
   if ((feature←v5708 == 0)) {
SOURCE(3447, 23)
      return((* (( (ptr) gf←c54900)+107) ));
      }
   else {
SOURCE(3472, 13324)
      {
         word var←c49460;
         var←c49460 = (*  (ptr) feature←v5708 );
         switch (var←c49460) {
            case 0: 
SOURCE(3506, 13290)
               {
                  word var←c49492;
                  {
                     word var←c49524;
                     {
                        word var←c49556;
                        var←c49556 = (*  (ptr) XR←Narrow((* (( (ptr) feature←v5708)+1) ), (* (( (ptr) gf←c54900)+11) )) );
                        {
                           word pd145;
                           pd145 = (* (( (ptr) (* (( (ptr) gf←c54900)+167)/* var←c49140 */  ))+6) );
                           var←c49524 = (word) ( *( (fPt) ((*  (ptr) pd145 ))))(var←c49556, pd145);
                           };
                        };
                     {
                        word pd146;
                        pd146 = (* (( (ptr) (* (( (ptr) gf←c54900)+169)/* var←c49588 */  ))+9) );
                        var←c49492 = (word) ( *( (fPt) ((*  (ptr) pd146 ))))(var←c49524, pd146);
                        };
                     };
                  {
                     word pd147;
                     pd147 = (* (( (ptr) (* (( (ptr) gf←c54900)+170)/* var←c49620 */  ))+6) );
                     rope←v5780 = (word) ( *( (fPt) ((*  (ptr) pd147 ))))(var←c49492, (* (( (ptr) gf←c54900)+59) ), pd147);
                     };
                  };
               break;
            case 1: 
SOURCE(3633, 22)
               rope←v5780 = (* (( (ptr) gf←c54900)+106) );
               break;
            case 2: 
SOURCE(3670, 19)
               rope←v5780 = (* (( (ptr) gf←c54900)+105) );
               break;
            case 3: 
SOURCE(3704, 19)
               rope←v5780 = (* (( (ptr) gf←c54900)+104) );
               break;
            case 4: 
SOURCE(3741, 22)
               rope←v5780 = (* (( (ptr) gf←c54900)+99) );
               break;
            case 5: 
SOURCE(3780, 23)
               rope←v5780 = (* (( (ptr) gf←c54900)+98) );
               break;
            case 6: 
SOURCE(3826, 444)
               {
                  word firstObj←v9080 = 0;
                  word secondObj←v9108 = 0;
SOURCE(3860, 12936)
                  if (((* (( (ptr) XR←Narrow((* (( (ptr) feature←v5708)+1) ), (* (( (ptr) gf←c54900)+17) )))+3) ) != 0)) {
                     {
                        word var←c49652;
                        var←c49652 = (* (( (ptr) XR←Narrow((* (( (ptr) feature←v5708)+1) ), (* (( (ptr) gf←c54900)+17) )))+3) );
                        firstObj←v9080 = (word) DescribeSourceFeature←P120(var←c49652, ggData←v5736);
                        };
                     }
                  else {
                     firstObj←v9080 = (* (( (ptr) gf←c54900)+96) );
                     };
SOURCE(4022, 12774)
                  if (((* (( (ptr) XR←Narrow((* (( (ptr) feature←v5708)+1) ), (* (( (ptr) gf←c54900)+17) )))+4) ) != 0)) {
                     {
                        word var←c49684;
                        var←c49684 = (* (( (ptr) XR←Narrow((* (( (ptr) feature←v5708)+1) ), (* (( (ptr) gf←c54900)+17) )))+4) );
                        secondObj←v9108 = (word) DescribeSourceFeature←P120(var←c49684, ggData←v5736);
                        };
                     }
                  else {
                     secondObj←v9108 = (* (( (ptr) gf←c54900)+96) );
                     };
SOURCE(4185, 12611)
                  {
                     W2 var←c49716;
                     W2 var←c49748;
                     W2 var←c0441;
                     var←c49716.f0 = 11;
                     var←c49716.f1 = firstObj←v9080;
                     var←c49748.f0 = 11;
                     var←c49748.f1 = secondObj←v9108;
                     (*  (ptr) (word) &var←c0441 ) = 0;
                     (* (( (ptr) (word) &var←c0441) + 1) ) = 0;
                     {
                        word pd148;
                        pd148 = (* (( (ptr) (* (( (ptr) gf←c54900)+168)/* var←c49268 */  ))+62) );
                        rope←v5780 = (word) ( *( (fPt) ((*  (ptr) pd148 ))))((* (( (ptr) gf←c54900)+92) ), var←c49716, var←c49748, var←c0441, pd148)
                        ;
                        };
                     };
                  };
               break;
            case 7: 
SOURCE(4285, 32)
               rope←v5780 = (* (( (ptr) gf←c54900)+58) );
               break;
            default: 
SOURCE(4330, 5)
               (void) XR←RaiseUnnamedError();
               break;
            };
         };
      };
SOURCE(3321, 13475)
   return(rope←v5780);
   }

static word GravityTypeToRope←P180(gravityType←v5840)
   word gravityType←v5840;
   {
   register ptr gf←c54932 =  (ptr) &globalframe;
   word rope←v5884;
   /* GravityTypeToRope: */ 
SOURCE(4345, 246)
SOURCE(4345, 246)
   rope←v5884 = 0;
SOURCE(4433, 158)
   {
      word var←c49812;
      var←c49812 = gravityType←v5840;
      switch (var←c49812) {
         case 1: 
            rope←v5884 = (* (( (ptr) gf←c54932)+46) );
            break;
         case 2: 
            rope←v5884 = (* (( (ptr) gf←c54932)+40) );
            break;
         case 0: 
            rope←v5884 = (* (( (ptr) gf←c54932)+37) );
            break;
         default: 
            rope←v5884 = (
               XR←RaiseUnnamedError(), 0
               );
            break;
         };
      };
SOURCE(4345, 246)
   return(rope←v5884);
   }

static word GravityTypeFromRope←P240(rope←v5944)
   word rope←v5944;
   {
   register ptr gf←c54964 =  (ptr) &globalframe;
   word gravityType←v5988;
   /* GravityTypeFromRope: */ 
SOURCE(4595, 322)
SOURCE(4685, 232)
   {
      word pd150;
      word pd151;
      word pd152;
      pd150 = (* (( (ptr) (* (( (ptr) gf←c54964)+170)/* var←c49620 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd150 ))))(rope←v5944, (* (( (ptr) gf←c54964)+46) ), 0, pd150))) {
         gravityType←v5988 = 1;
         goto endif0149;
         };
      pd151 = (* (( (ptr) (* (( (ptr) gf←c54964)+170)/* var←c49620 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd151 ))))(rope←v5944, (* (( (ptr) gf←c54964)+40) ), 0, pd151))) {
         gravityType←v5988 = 2;
         goto endif0149;
         };
      pd152 = (* (( (ptr) (* (( (ptr) gf←c54964)+170)/* var←c49620 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd152 ))))(rope←v5944, (* (( (ptr) gf←c54964)+37) ), 0, pd152))) {
         gravityType←v5988 = 0;
         goto endif0149;
         };
      gravityType←v5988 =  (unsigned) (
         XR←RaiseUnnamedError(), 0
         );
      goto endif0149;
      endif0149: ;
      };
SOURCE(4595, 322)
   return(gravityType←v5988);
   }

static word DisplayStyleToRope←P300(displayStyle←v6048)
   word displayStyle←v6048;
   {
   register ptr gf←c54996 =  (ptr) &globalframe;
   word rope←v6092;
   /* DisplayStyleToRope: */ 
SOURCE(4923, 147)
SOURCE(4923, 147)
   rope←v6092 = 0;
SOURCE(5014, 56)
   if ((displayStyle←v6048 == 1)) {
      rope←v6092 = (* (( (ptr) gf←c54996)+34) );
      }
   else {
      rope←v6092 = (* (( (ptr) gf←c54996)+33) );
      };
SOURCE(4923, 147)
   return(rope←v6092);
   }

static word DisplayStyleFromRope←P360(rope←v6152)
   word rope←v6152;
   {
   register ptr gf←c55028 =  (ptr) &globalframe;
   word displayStyle←v6196;
   /* DisplayStyleFromRope: */ 
SOURCE(5076, 229)
SOURCE(5169, 136)
   {
      word pd153;
      word pd154;
      pd153 = (* (( (ptr) (* (( (ptr) gf←c55028)+170)/* var←c49620 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd153 ))))(rope←v6152, (* (( (ptr) gf←c55028)+34) ), 0, pd153))) {
         displayStyle←v6196 = 1;
         }
      else {
         pd154 = (* (( (ptr) (* (( (ptr) gf←c55028)+170)/* var←c49620 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd154 ))))(rope←v6152, (* (( (ptr) gf←c55028)+33) ), 0, pd154))) {
            displayStyle←v6196 = 0;
            }
         else {
            displayStyle←v6196 =  (unsigned) (
               XR←RaiseUnnamedError(), 0
               );
            };
         };
      };
SOURCE(5076, 229)
   return(displayStyle←v6196);
   }

static word GGContainerCreate←P420(formal←c0126)
   word formal←c0126;
   {
   register ptr gf←c55060 =  (ptr) &globalframe;
   word gargoyleContainer←v6328;
   /* GGContainerCreate: */ 
SOURCE(5310, 11486)
SOURCE(5310, 11486)
   gargoyleContainer←v6328 = 0;
SOURCE(5458, 11338)
   {
      W30 var←c0128;
      (*  (ptr) (word) &var←c0128 ) = (* (( (ptr) gf←c55060)+32) );
      (*  (W28Pt) (( (ptr) (word) &var←c0128) + 1) ) = (*  (W28Pt) formal←c0126/* info←v6256 */  );
      (* (( (ptr) (word) &var←c0128) + 29) ) = (* (( (ptr) formal←c0126)+28)/* paint←v6284 */  );
      {
         word pd155;
         pd155 = (* (( (ptr) (* (( (ptr) gf←c55060)+171)/* var←c49876 */  ))+6) );
         return((word) ( *( (fPt) ((*  (ptr) pd155 ))))((word) (&var←c0128), pd155));
         };
      };
   }

static void ChildYBound←P480(gargoyleContainer←v6388, child←v6416)
   word gargoyleContainer←v6388;
   word child←v6416;
   {
   register ptr gf←c55092 =  (ptr) &globalframe;
   /* ChildYBound: */ 
SOURCE(5528, 143)
SOURCE(5620, 51)
   {
      word pd156;
      pd156 = (* (( (ptr) (* (( (ptr) gf←c55092)+171)/* var←c49876 */  ))+7) );
      (void) ( *( (fPt) ((*  (ptr) pd156 ))))(gargoyleContainer←v6388, child←v6416, pd156);
      };
   }

static void ChildXBound←P540(gargoyleContainer←v6476, child←v6504)
   word gargoyleContainer←v6476;
   word child←v6504;
   {
   register ptr gf←c55124 =  (ptr) &globalframe;
   /* ChildXBound: */ 
SOURCE(5677, 143)
SOURCE(5769, 51)
   {
      word pd157;
      pd157 = (* (( (ptr) (* (( (ptr) gf←c55124)+171)/* var←c49876 */  ))+8) );
      (void) ( *( (fPt) ((*  (ptr) pd157 ))))(gargoyleContainer←v6476, child←v6504, pd157);
      };
   }

static void GargoyleContainerSave←P600(self←v21516, force←v21544)
   word self←v21516;
   word force←v21544;
   {
   register ptr gf←c55156 =  (ptr) &globalframe;
   word ggData←v9152 = 0;
   word fullName←v9180 = 0;
   /* GargoyleContainerSave: */ 
SOURCE(5826, 10970)
SOURCE(5921, 10875)
   {
      word pd158;
      pd158 = (* (( (ptr) (* (( (ptr) gf←c55156)+172)/* var←c49908 */  ))+13) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd158 ))))(self←v21516, pd158))) {
SOURCE(6010, 10786)
         {
            word pd159;
            pd159 = (* (( (ptr) (* (( (ptr) gf←c55156)+172)/* var←c49908 */  ))+15) );
            ggData←v9152 = XR←Narrow((word) ( *( (fPt) ((*  (ptr) pd159 ))))(self←v21516, pd159), (* (( (ptr) gf←c55156)+29) ));
            };
SOURCE(6065, 10731)
         if (((* (( (ptr) (* (( (ptr) (*  (ptr) ggData←v9152 ))+2) ))+14) ) == 0)) {
            {
               word var←c49940;
               word var←c50004;
               {
                  word pd160;
                  pd160 = (* (( (ptr) (* (( (ptr) gf←c55156)+173)/* var←c49972 */  ))+7) );
                  var←c49940 = (word) ( *( (fPt) ((*  (ptr) pd160 ))))(pd160);
                  };
               (* (( (ptr) gf←c55156)+4)/* emergencyIndex←v4988 */  ) = ((* (( (ptr) gf←c55156)+4)/* emergencyIndex←v4988 */  ) + 1);
               {
                  word pd161;
                  pd161 = (* (( (ptr) (* (( (ptr) gf←c55156)+174)/* var←c50036 */  ))+27) );
                  var←c50004 = (word) ( *( (fPt) ((*  (ptr) pd161 ))))((* (( (ptr) gf←c55156)+4)/* emergencyIndex←v4988 */  ), 8, 0, pd161)
                  ;
                  };
               {
                  word pd162;
                  pd162 = (* (( (ptr) (* (( (ptr) gf←c55156)+170)/* var←c49620 */  ))+5) );
                  fullName←v9180 = (word) ( *( (fPt) ((*  (ptr) pd162 ))))(var←c49940, (* (( (ptr) gf←c55156)+35) ), var←c50004, (* (( (ptr) gf←c55156)+36)
                      ), 0, pd162);
                  };
               };
            }
         else {
            fullName←v9180 = (* (( (ptr) (* (( (ptr) (*  (ptr) ggData←v9152 ))+2) ))+14) );
            };
         }
      else {
SOURCE(6368, 10428)
         {
            word pd163;
            pd163 = (* (( (ptr) (* (( (ptr) gf←c55156)+171)/* var←c49876 */  ))+15) );
            ggData←v9152 = XR←Narrow((word) ( *( (fPt) ((*  (ptr) pd163 ))))(self←v21516, pd163), (* (( (ptr) gf←c55156)+29) ));
            };
SOURCE(6420, 10376)
         if (((* (( (ptr) (* (( (ptr) (*  (ptr) ggData←v9152 ))+1) ))+14) ) == 0)) {
            {
               word var←c50068;
               word var←c50100;
               {
                  word pd164;
                  pd164 = (* (( (ptr) (* (( (ptr) gf←c55156)+173)/* var←c49972 */  ))+7) );
                  var←c50068 = (word) ( *( (fPt) ((*  (ptr) pd164 ))))(pd164);
                  };
               (* (( (ptr) gf←c55156)+4)/* emergencyIndex←v4988 */  ) = ((* (( (ptr) gf←c55156)+4)/* emergencyIndex←v4988 */  ) + 1);
               {
                  word pd165;
                  pd165 = (* (( (ptr) (* (( (ptr) gf←c55156)+174)/* var←c50036 */  ))+27) );
                  var←c50100 = (word) ( *( (fPt) ((*  (ptr) pd165 ))))((* (( (ptr) gf←c55156)+4)/* emergencyIndex←v4988 */  ), 8, 0, pd165)
                  ;
                  };
               {
                  word pd166;
                  pd166 = (* (( (ptr) (* (( (ptr) gf←c55156)+170)/* var←c49620 */  ))+5) );
                  fullName←v9180 = (word) ( *( (fPt) ((*  (ptr) pd166 ))))(var←c50068, (* (( (ptr) gf←c55156)+35) ), var←c50100, (* (( (ptr) gf←c55156)+36)
                      ), 0, pd166);
                  };
               };
            }
         else {
            fullName←v9180 = (* (( (ptr) (* (( (ptr) (*  (ptr) ggData←v9152 ))+1) ))+14) );
            };
         };
      };
SOURCE(6674, 10122)
   {
      word var←c50132;
      {
         word var←c50164;
         word var←c50196;
         var←c50164 = XR←NewObject(8, (* (( (ptr) gf←c55156)+28) ));
         var←c50196 = var←c50164;
         (*  (ptr) var←c50196 ) = (* (( (ptr) gf←c55156)+38) );
         (* (( (ptr) var←c50196)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55156)+28) ));
         var←c50196 = (* (( (ptr) var←c50196)+1) );
         {
            word pd167;
            pd167 = (* (( (ptr) (* (( (ptr) gf←c55156)+173)/* var←c49972 */  ))+13) );
            (*  (ptr) var←c50196 ) = (word) ( *( (fPt) ((*  (ptr) pd167 ))))(fullName←v9180, pd167);
            };
         var←c50132 = var←c50164;
         };
      {
         word pd168;
         pd168 = (* (( (ptr) (* (( (ptr) gf←c55156)+175)/* var←c50260 */  ))+6) );
         (void) ( *( (fPt) ((*  (ptr) pd168 ))))(ggData←v9152, var←c50132, pd168);
         };
      };
   }

static void GargoyleContainerDestroy←P660(self←v21604)
   word self←v21604;
   {
   register ptr gf←c55188 =  (ptr) &globalframe;
   word ggData←v9224;
   /* GargoyleContainerDestroy: */ 
SOURCE(6783, 10013)
SOURCE(6846, 58)
   {
      word pd169;
      pd169 = (* (( (ptr) (* (( (ptr) gf←c55188)+171)/* var←c49876 */  ))+15) );
      ggData←v9224 = XR←Narrow((word) ( *( (fPt) ((*  (ptr) pd169 ))))(self←v21604, pd169), (* (( (ptr) gf←c55188)+29) ));
      };
SOURCE(6906, 9890)
   if (((* (( (ptr) (* (( (ptr) ggData←v9224)+29) ))+4) ) != 0)) {
SOURCE(6948, 9848)
      {
         W2 var←c50324;
         {
            word pd170;
            pd170 = (* (( (ptr) (* (( (ptr) gf←c55188)+176)/* var←c50292 */  ))+6) );
            (void) ( *( (fPt) ((*  (ptr) pd170 ))))((word) &var←c50324, (* (( (ptr) (* (( (ptr) ggData←v9224)+29) ))+4) ), (* (( (ptr) (* (
                     ( (ptr) ggData←v9224)+29) ))+3) ), (* (( (ptr) ggData←v9224)+3) ), pd170);
            };
         (* (( (ptr) (* (( (ptr) ggData←v9224)+29) ))+3) ) = var←c50324.f1;
         (* (( (ptr) (* (( (ptr) ggData←v9224)+29) ))+4) ) = var←c50324.f0;
         };
      };
SOURCE(7112, 9684)
   if (((* (( (ptr) (* (( (ptr) ggData←v9224)+29) ))+2) ) != 0)) {
SOURCE(7155, 9641)
      {
         W2 var←c50356;
         {
            word pd171;
            pd171 = (* (( (ptr) (* (( (ptr) gf←c55188)+176)/* var←c50292 */  ))+6) );
            (void) ( *( (fPt) ((*  (ptr) pd171 ))))((word) &var←c50356, (* (( (ptr) (* (( (ptr) ggData←v9224)+29) ))+2) ), (* (( (ptr) (* (
                     ( (ptr) ggData←v9224)+29) ))+1) ), (* (( (ptr) ggData←v9224)+3) ), pd171);
            };
         (* (( (ptr) (* (( (ptr) ggData←v9224)+29) ))+1) ) = var←c50356.f1;
         (* (( (ptr) (* (( (ptr) ggData←v9224)+29) ))+2) ) = var←c50356.f0;
         };
      };
SOURCE(7323, 137)
   if (((*  (ptr) (*  (ptr) ggData←v9224 ) ) == (* (( (ptr) (*  (ptr) ggData←v9224 ))+1) )) || (* (( (bPt) (* (( (ptr) (*  (ptr) ggData←v9224 ))+2)
       ))+77) ) & 0100) {
SOURCE(7413, 47)
      {
         word var←c50388;
         {
            word var←c50420;
            word var←c50452;
            var←c50420 = XR←NewObject(8, (* (( (ptr) gf←c55188)+28) ));
            var←c50452 = var←c50420;
            (*  (ptr) var←c50452 ) = (* (( (ptr) gf←c55188)+39) );
            var←c50388 = var←c50420;
            };
         {
            word pd172;
            pd172 = (* (( (ptr) (* (( (ptr) gf←c55188)+177)/* var←c50484 */  ))+7) );
            (void) ( *( (fPt) ((*  (ptr) pd172 ))))(ggData←v9224, var←c50388, pd172);
            };
         };
      };
   }

static void GargoyleContainerSet←P720(self←v21664, data←v21692, finalise←v21720, op←v21748)
   word self←v21664;
   word data←v21692;
   word finalise←v21720;
   word op←v21748;
   {
   register ptr gf←c55220 =  (ptr) &globalframe;
   word child←v9268 = 0;
   word ggData←v9296;
   /* GargoyleContainerSet: */ 
SOURCE(7488, 9308)
SOURCE(7558, 58)
   {
      word pd173;
      pd173 = (* (( (ptr) (* (( (ptr) gf←c55220)+171)/* var←c49876 */  ))+15) );
      ggData←v9296 = XR←Narrow((word) ( *( (fPt) ((*  (ptr) pd173 ))))(self←v21664, pd173), (* (( (ptr) gf←c55220)+29) ));
      };
SOURCE(7618, 23)
   if ((data←v21692 == 0)) {
SOURCE(7635, 6)
      return;
      };
SOURCE(7668, 20)
   child←v9268 = XR←Narrow(data←v21692, (* (( (ptr) gf←c55220)+27) ));
SOURCE(7690, 98)
   if ((op←v21748 == (* (( (ptr) gf←c55220)+41) ))) {
SOURCE(7709, 30)
      (void) ChildYBound←P480(self←v21664, child←v9268);
      }
   else {
SOURCE(7739, 49)
      if ((op←v21748 == (* (( (ptr) gf←c55220)+42) ))) {
SOURCE(7758, 30)
         (void) ChildXBound←P540(self←v21664, child←v9268);
         }
      else {
SOURCE(7788, 5)
         (void) XR←RaiseUnnamedError();
         };
      };
   }

static void OpenScript←P780(formal←c0178, fileName←v6564, ggData←v6592, oldStream←v6620, oldScriptName←v6648)
   word formal←c0178;
   word fileName←v6564;
   word ggData←v6592;
   word oldStream←v6620;
   word oldScriptName←v6648;
   {
   W9 var←c55252;
   register ptr gf←c55284 =  (ptr) &globalframe;
   word stream←v6692;
   /* declaration of fullName←v6720 skipped */ 
   /* OpenScript: */ 
SOURCE(7824, 8972)
SOURCE(7824, 8972)
   stream←v6692 = 0;
SOURCE(7824, 8972)
   (* (( (ptr) &var←c55252)+4)/* fullName←v6720 */  ) = 0;
SOURCE(7997, 8799)
SOURCE(7999, 21)
   {
      word success←v9340 = 0;
SOURCE(8022, 8774)
      if ((oldStream←v6620 != 0)) {
SOURCE(8044, 8752)
         {
            W2 var←c50516;
            (void) CloseScript←P1020((word) &var←c50516, oldStream←v6620, oldScriptName←v6648, (* (( (ptr) ggData←v6592)+3) ));
            };
         };
SOURCE(8113, 8683)
      {
         W2 var←c50612;
         {
            word var←c50548;
            {
               word pd174;
               pd174 = (* (( (ptr) (* (( (ptr) gf←c55284)+173)/* var←c49972 */  ))+13) );
               var←c50548 = (word) ( *( (fPt) ((*  (ptr) pd174 ))))(fileName←v6564, pd174);
               };
            {
               word pd175;
               pd175 = (* (( (ptr) (* (( (ptr) gf←c55284)+178)/* var←c50580 */  ))+9) );
               (void) ( *( (fPt) ((*  (ptr) pd175 ))))((word) &var←c50612, (* (( (ptr) gf←c55284)+43) ), var←c50548, (* (( (ptr) ggData←v6592)+6)
                   ), (* (( (ptr) ggData←v6592)+3) ), pd175);
               };
            };
         success←v9340 = var←c50612.f1;
         (* (( (ptr) &var←c55252)+4)/* fullName←v6720 */  ) = var←c50612.f0;
         };
SOURCE(8253, 26)
      if ((0 == success←v9340)) {
SOURCE(8273, 6)
         goto lab←L100000;
         };
SOURCE(8281, 8515)
      {
         /* declaration of var←c01 skipped */ 
         /* declaration of var←c02 skipped */ 
         (* (( (ptr) &var←c55252)+5) ) = 7;
         (* (( (ptr) &var←c55252)+6) ) = 1;
         (* (( (ptr) &var←c55252)+7)/* var←c02 */  ) = (* (( (ptr) (* (( (ptr) gf←c55284)+179)/* var←c50676 */  ))+27) );
         {
            /* declaration of var←c03 skipped */ 
            {
               word var←c04;
               {
                  word var←c0442;
                  var←c0442 = (word) &var←c55252;
                  var←c04 = (word) XR←Enable(( ((word)  (fPt) NoName←Q2280) ), ( ((word)  (fPt) NoName←Q2820) ), var←c0442);
                  };
               if ((var←c04 == 2)) {
                  goto lab←L100001;
                  };
               };
            stream←v6692 = (* (( (ptr) &var←c55252)+8)/* var←c03 */  );
            };
         };
SOURCE(8351, 8445)
      {
         W2 var←c50708;
         var←c50708.f0 = 11;
         var←c50708.f1 = (* (( (ptr) &var←c55252)+4)/* fullName←v6720 */  );
         {
            word pd176;
            pd176 = (* (( (ptr) (* (( (ptr) gf←c55284)+180)/* var←c50740 */  ))+14) );
            (void) ( *( (fPt) ((*  (ptr) pd176 ))))((* (( (ptr) ggData←v6592)+3) ), 0, (* (( (ptr) gf←c55284)+44) ), (* (( (ptr) gf←c55284)+45)
                ), var←c50708, pd176);
            };
         };
SOURCE(8446, 69)
      {
         word var←c50772;
         {
            word var←c50804;
            word var←c50836;
            var←c50804 = XR←NewObject(8, (* (( (ptr) gf←c55284)+28) ));
            var←c50836 = var←c50804;
            (*  (ptr) var←c50836 ) = (* (( (ptr) gf←c55284)+47) );
            (* (( (ptr) var←c50836)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55284)+28) ));
            var←c50836 = (* (( (ptr) var←c50836)+1) );
            {
               word var←c50900;
               var←c50900 = XR←NewObject(4, (* (( (ptr) gf←c55284)+26) ));
               (*  (ptr) var←c50900 ) = (*  (ptr) (* (( (ptr) (* (( (ptr) gf←c55284)+181)/* var←c50932 */  ))+4) ) );
               (*  (ptr) var←c50836 ) = var←c50900;
               };
            var←c50772 = var←c50804;
            };
         (void) ActionToScript←P1200(stream←v6692, var←c50772);
         };
SOURCE(8517, 35)
      (void) CaptureSessionState←P960(stream←v6692, ggData←v6592);
      };
   goto lab←L100004;
   lab←L100001: ;
SOURCE(8571, 8225)
   {
      word var←c50964;
      {
         word pd177;
         pd177 = (* (( (ptr) (* (( (ptr) gf←c55284)+170)/* var←c49620 */  ))+6) );
         var←c50964 = (word) ( *( (fPt) ((*  (ptr) pd177 ))))((* (( (ptr) gf←c55284)+49) ), fileName←v6564, pd177);
         };
      {
         word pd178;
         pd178 = (* (( (ptr) (* (( (ptr) gf←c55284)+180)/* var←c50740 */  ))+12) );
         (void) ( *( (fPt) ((*  (ptr) pd178 ))))((* (( (ptr) ggData←v6592)+3) ), 0, (* (( (ptr) gf←c55284)+48) ), var←c50964, pd178)
         ;
         };
      };
   lab←L100004: ;
   /* removed tail goto */ 
   lab←L100000: ;
   (*  (ptr) formal←c0178 ) = stream←v6692;
   (* (( (ptr) formal←c0178)+1) ) = (* (( (ptr) &var←c55252)+4)/* fullName←v6720 */  );
   return;
   }

static word NoName←Q2280(formal←c0414)
   word formal←c0414;
   {
SOURCE(8281, 8515)
   {
      word pd179;
      pd179 = (* (( (ptr) formal←c0414)+7) );
      (* (( (ptr) formal←c0414)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd179 ))))((* (( (ptr) formal←c0414)+4) ), 1, 7, 1, 2560, (*  (W2Pt) (
            ( (ptr) formal←c0414)+5) )
         , 0, 2147483647, 1, 0, 0, 0, pd179);
      };
   return(0);
   }

static void AppendScriptInternal←P840(formal←c0189, fileName←v6780, router←v6808, wdir←v6836)
   word formal←c0189;
   word fileName←v6780;
   word router←v6808;
   word wdir←v6836;
   {
   W9 var←c55316;
   register ptr gf←c55348 =  (ptr) &globalframe;
   word stream←v6880;
   /* declaration of fullName←v6908 skipped */ 
   /* AppendScriptInternal: */ 
SOURCE(8678, 8118)
SOURCE(8678, 8118)
   stream←v6880 = 0;
SOURCE(8678, 8118)
   (* (( (ptr) &var←c55316)+4)/* fullName←v6908 */  ) = 0;
SOURCE(8820, 7976)
SOURCE(8822, 21)
   {
      word success←v9384 = 0;
SOURCE(8845, 7951)
      {
         W2 var←c50996;
         {
            word pd180;
            pd180 = (* (( (ptr) (* (( (ptr) gf←c55348)+178)/* var←c50580 */  ))+9) );
            (void) ( *( (fPt) ((*  (ptr) pd180 ))))((word) &var←c50996, (* (( (ptr) gf←c55348)+50) ), fileName←v6780, wdir←v6836, router←v6808, pd180)
            ;
            };
         success←v9384 = var←c50996.f1;
         (* (( (ptr) &var←c55316)+4)/* fullName←v6908 */  ) = var←c50996.f0;
         };
SOURCE(8936, 26)
      if ((0 == success←v9384)) {
SOURCE(8956, 6)
         goto lab←L100005;
         };
SOURCE(8964, 7832)
      {
         /* declaration of var←c05 skipped */ 
         /* declaration of var←c06 skipped */ 
         (* (( (ptr) &var←c55316)+5) ) = 7;
         (* (( (ptr) &var←c55316)+6) ) = 1;
         (* (( (ptr) &var←c55316)+7)/* var←c06 */  ) = (* (( (ptr) (* (( (ptr) gf←c55348)+179)/* var←c50676 */  ))+27) );
         {
            /* declaration of var←c07 skipped */ 
            {
               word var←c08;
               {
                  word var←c0443;
                  var←c0443 = (word) &var←c55316;
                  var←c08 = (word) XR←Enable(( ((word)  (fPt) NoName←Q2340) ), ( ((word)  (fPt) NoName←Q2760) ), var←c0443);
                  };
               if ((var←c08 == 3)) {
                  goto lab←L100006;
                  };
               };
            stream←v6880 = (* (( (ptr) &var←c55316)+8)/* var←c07 */  );
            };
         };
      };
   goto lab←L100009;
   lab←L100006: ;
SOURCE(9051, 7745)
   {
      word var←c51060;
      {
         word pd181;
         pd181 = (* (( (ptr) (* (( (ptr) gf←c55348)+170)/* var←c49620 */  ))+6) );
         var←c51060 = (word) ( *( (fPt) ((*  (ptr) pd181 ))))((* (( (ptr) gf←c55348)+51) ), fileName←v6780, pd181);
         };
      {
         word pd182;
         pd182 = (* (( (ptr) (* (( (ptr) gf←c55348)+180)/* var←c50740 */  ))+12) );
         (void) ( *( (fPt) ((*  (ptr) pd182 ))))(router←v6808, 0, (* (( (ptr) gf←c55348)+48) ), var←c51060, pd182);
         };
      };
   lab←L100009: ;
   /* removed tail goto */ 
   lab←L100005: ;
   (*  (ptr) formal←c0189 ) = stream←v6880;
   (* (( (ptr) formal←c0189)+1) ) = (* (( (ptr) &var←c55316)+4)/* fullName←v6908 */  );
   return;
   }

static word NoName←Q2340(formal←c0416)
   word formal←c0416;
   {
SOURCE(8964, 7832)
   {
      word pd183;
      pd183 = (* (( (ptr) formal←c0416)+7) );
      (* (( (ptr) formal←c0416)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd183 ))))((* (( (ptr) formal←c0416)+4) ), 2, 7, 1, 2560, (*  (W2Pt) (
            ( (ptr) formal←c0416)+5) )
         , 0, 2147483647, 1, 0, 0, 0, pd183);
      };
   return(0);
   }

static void AppendScript←P900(formal←c0204, fileName←v6968, ggData←v6996, oldStream←v7024, oldScriptName←v7052)
   word formal←c0204;
   word fileName←v6968;
   word ggData←v6996;
   word oldStream←v7024;
   word oldScriptName←v7052;
   {
   W9 var←c55380;
   register ptr gf←c55412 =  (ptr) &globalframe;
   word stream←v7096;
   /* declaration of fullName←v7124 skipped */ 
   /* AppendScript: */ 
SOURCE(9182, 7614)
SOURCE(9182, 7614)
   stream←v7096 = 0;
SOURCE(9182, 7614)
   (* (( (ptr) &var←c55380)+4)/* fullName←v7124 */  ) = 0;
SOURCE(9351, 7445)
SOURCE(9353, 21)
   {
      word success←v9428 = 0;
SOURCE(9376, 7420)
      if ((oldStream←v7024 != 0)) {
SOURCE(9398, 7398)
         {
            W2 var←c51092;
            (void) CloseScript←P1020((word) &var←c51092, oldStream←v7024, oldScriptName←v7052, (* (( (ptr) ggData←v6996)+3) ));
            };
         };
SOURCE(9467, 7329)
      {
         W2 var←c51124;
         {
            word pd184;
            pd184 = (* (( (ptr) (* (( (ptr) gf←c55412)+178)/* var←c50580 */  ))+9) );
            (void) ( *( (fPt) ((*  (ptr) pd184 ))))((word) &var←c51124, (* (( (ptr) gf←c55412)+50) ), fileName←v6968, (* (( (ptr) ggData←v6996)+6)
                ), (* (( (ptr) ggData←v6996)+3) ), pd184);
            };
         success←v9428 = var←c51124.f1;
         (* (( (ptr) &var←c55380)+4)/* fullName←v7124 */  ) = var←c51124.f0;
         };
SOURCE(9579, 26)
      if ((0 == success←v9428)) {
SOURCE(9599, 6)
         goto lab←L100010;
         };
SOURCE(9607, 7189)
      {
         /* declaration of var←c09 skipped */ 
         /* declaration of var←c010 skipped */ 
         (* (( (ptr) &var←c55380)+5) ) = 7;
         (* (( (ptr) &var←c55380)+6) ) = 1;
         (* (( (ptr) &var←c55380)+7)/* var←c010 */  ) = (* (( (ptr) (* (( (ptr) gf←c55412)+179)/* var←c50676 */  ))+27) );
         {
            /* declaration of var←c011 skipped */ 
            {
               word var←c012;
               {
                  word var←c0444;
                  var←c0444 = (word) &var←c55380;
                  var←c012 = (word) XR←Enable(( ((word)  (fPt) NoName←Q2400) ), ( ((word)  (fPt) NoName←Q2700) ), var←c0444);
                  };
               if ((var←c012 == 4)) {
                  goto lab←L100011;
                  };
               };
            stream←v7096 = (* (( (ptr) &var←c55380)+8)/* var←c011 */  );
            };
         };
SOURCE(9677, 7119)
      {
         W2 var←c51188;
         var←c51188.f0 = 11;
         var←c51188.f1 = (* (( (ptr) &var←c55380)+4)/* fullName←v7124 */  );
         {
            word pd185;
            pd185 = (* (( (ptr) (* (( (ptr) gf←c55412)+180)/* var←c50740 */  ))+14) );
            (void) ( *( (fPt) ((*  (ptr) pd185 ))))((* (( (ptr) ggData←v6996)+3) ), 0, (* (( (ptr) gf←c55412)+44) ), (* (( (ptr) gf←c55412)+52)
                ), var←c51188, pd185);
            };
         };
      };
   goto lab←L100014;
   lab←L100011: ;
SOURCE(9807, 6989)
   {
      word var←c51220;
      {
         word pd186;
         pd186 = (* (( (ptr) (* (( (ptr) gf←c55412)+170)/* var←c49620 */  ))+6) );
         var←c51220 = (word) ( *( (fPt) ((*  (ptr) pd186 ))))((* (( (ptr) gf←c55412)+51) ), fileName←v6968, pd186);
         };
      {
         word pd187;
         pd187 = (* (( (ptr) (* (( (ptr) gf←c55412)+180)/* var←c50740 */  ))+12) );
         (void) ( *( (fPt) ((*  (ptr) pd187 ))))((* (( (ptr) ggData←v6996)+3) ), 0, (* (( (ptr) gf←c55412)+48) ), var←c51220, pd187)
         ;
         };
      };
   lab←L100014: ;
   /* removed tail goto */ 
   lab←L100010: ;
   (*  (ptr) formal←c0204 ) = stream←v7096;
   (* (( (ptr) formal←c0204)+1) ) = (* (( (ptr) &var←c55380)+4)/* fullName←v7124 */  );
   return;
   }

static word NoName←Q2400(formal←c0418)
   word formal←c0418;
   {
SOURCE(9607, 7189)
   {
      word pd188;
      pd188 = (* (( (ptr) formal←c0418)+7) );
      (* (( (ptr) formal←c0418)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd188 ))))((* (( (ptr) formal←c0418)+4) ), 2, 7, 1, 2560, (*  (W2Pt) (
            ( (ptr) formal←c0418)+5) )
         , 0, 2147483647, 1, 0, 0, 0, pd188);
      };
   return(0);
   }

static void CaptureSessionState←P960(stream←v7184, ggData←v7212)
   word stream←v7184;
   word ggData←v7212;
   {
   register ptr gf←c55444 =  (ptr) &globalframe;
   word gravExtent←v9472;
   word scaleUnit←v9500;
   word gravityOn←v9528;
   word midpointsOn←v9556;
   word heuristicsOn←v9584;
   word showAlignments←v9612;
   word gravityType←v9640;
   word defaultFont←v9668 = 0;
   word displayStyle←v9696;
   W2 caretPoint←v9724;
   W2 caretNormal←v9752;
   word strokeColor←v9780 = 0;
   word fillColor←v9808 = 0;
   word values←v9836 = 0;
   word on←v9864 = 0;
   word names←v9892 = 0;
   word transformRope←v9920 = 0;
   /* CaptureSessionState: */ 
SOURCE(9944, 6852)
SOURCE(10364, 6432)
   {
      word var←c51252;
      {
         word pd189;
         pd189 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+10) );
         var←c51252 = (word) ( *( (fPt) ((*  (ptr) pd189 ))))(ggData←v7212, pd189);
         };
      {
         word pd190;
         pd190 = (* (( (ptr) (* (( (ptr) gf←c55444)+183)/* var←c51316 */  ))+13) );
         transformRope←v9920 = (word) ( *( (fPt) ((*  (ptr) pd190 ))))(var←c51252, pd190);
         };
      };
SOURCE(10462, 69)
   {
      word var←c51348;
      {
         word var←c51380;
         word var←c51412;
         var←c51380 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c51412 = var←c51380;
         (*  (ptr) var←c51412 ) = (* (( (ptr) gf←c55444)+53) );
         (* (( (ptr) var←c51412)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c51412 = (* (( (ptr) var←c51412)+1) );
         (*  (ptr) var←c51412 ) = transformRope←v9920;
         var←c51348 = var←c51380;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c51348);
      };
SOURCE(10533, 6263)
   {
      W2 var←c51444;
      {
         word pd191;
         pd191 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+29) );
         (void) ( *( (fPt) ((*  (ptr) pd191 ))))((word) &var←c51444, ggData←v7212, pd191);
         };
      on←v9864 = var←c51444.f1;
      values←v9836 = var←c51444.f0;
      };
SOURCE(10584, 6212)
   {
      word var←c51476;
      {
         word var←c51508;
         word var←c51540;
         var←c51508 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c51540 = var←c51508;
         (*  (ptr) var←c51540 ) = (* (( (ptr) gf←c55444)+54) );
         (* (( (ptr) var←c51540)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c51540 = (* (( (ptr) var←c51540)+1) );
         {
            word pd192;
            pd192 = (* (( (ptr) (* (( (ptr) gf←c55444)+183)/* var←c51316 */  ))+11) );
            (*  (ptr) var←c51540 ) = (word) ( *( (fPt) ((*  (ptr) pd192 ))))(0, values←v9836, on←v9864, pd192);
            };
         var←c51476 = var←c51508;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c51476);
      };
SOURCE(10680, 6116)
   {
      W2 var←c51604;
      {
         word pd193;
         pd193 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+33) );
         (void) ( *( (fPt) ((*  (ptr) pd193 ))))((word) &var←c51604, ggData←v7212, pd193);
         };
      on←v9864 = var←c51604.f1;
      values←v9836 = var←c51604.f0;
      };
SOURCE(10731, 6065)
   {
      word var←c51636;
      {
         word var←c51668;
         word var←c51700;
         var←c51668 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c51700 = var←c51668;
         (*  (ptr) var←c51700 ) = (* (( (ptr) gf←c55444)+55) );
         (* (( (ptr) var←c51700)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c51700 = (* (( (ptr) var←c51700)+1) );
         {
            word pd194;
            pd194 = (* (( (ptr) (* (( (ptr) gf←c55444)+183)/* var←c51316 */  ))+11) );
            (*  (ptr) var←c51700 ) = (word) ( *( (fPt) ((*  (ptr) pd194 ))))(0, values←v9836, on←v9864, pd194);
            };
         var←c51636 = var←c51668;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c51636);
      };
SOURCE(10827, 5969)
   {
      W3 var←c51764;
      {
         word pd195;
         pd195 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+40) );
         (void) ( *( (fPt) ((*  (ptr) pd195 ))))((word) &var←c51764, ggData←v7212, pd195);
         };
      on←v9864 = var←c51764.f2;
      values←v9836 = var←c51764.f1;
      names←v9892 = var←c51764.f0;
      };
SOURCE(10886, 5910)
   {
      word var←c51796;
      {
         word var←c51828;
         word var←c51860;
         var←c51828 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c51860 = var←c51828;
         (*  (ptr) var←c51860 ) = (* (( (ptr) gf←c55444)+56) );
         (* (( (ptr) var←c51860)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c51860 = (* (( (ptr) var←c51860)+1) );
         {
            word pd196;
            pd196 = (* (( (ptr) (* (( (ptr) gf←c55444)+183)/* var←c51316 */  ))+11) );
            (*  (ptr) var←c51860 ) = (word) ( *( (fPt) ((*  (ptr) pd196 ))))(names←v9892, values←v9836, on←v9864, pd196);
            };
         var←c51796 = var←c51828;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c51796);
      };
SOURCE(10983, 5813)
   {
      W3 var←c51924;
      {
         word pd197;
         pd197 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+49) );
         (void) ( *( (fPt) ((*  (ptr) pd197 ))))((word) &var←c51924, ggData←v7212, pd197);
         };
      on←v9864 = var←c51924.f2;
      values←v9836 = var←c51924.f1;
      names←v9892 = var←c51924.f0;
      };
SOURCE(11048, 5748)
   {
      word var←c51956;
      {
         word var←c51988;
         word var←c52020;
         var←c51988 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52020 = var←c51988;
         (*  (ptr) var←c52020 ) = (* (( (ptr) gf←c55444)+57) );
         (* (( (ptr) var←c52020)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52020 = (* (( (ptr) var←c52020)+1) );
         {
            word pd198;
            pd198 = (* (( (ptr) (* (( (ptr) gf←c55444)+183)/* var←c51316 */  ))+11) );
            (*  (ptr) var←c52020 ) = (word) ( *( (fPt) ((*  (ptr) pd198 ))))(names←v9892, values←v9836, on←v9864, pd198);
            };
         var←c51956 = var←c51988;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c51956);
      };
SOURCE(11149, 5647)
   {
      word pd199;
      pd199 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+56) );
      midpointsOn←v9556 = (word) ( *( (fPt) ((*  (ptr) pd199 ))))(ggData←v7212, pd199);
      };
SOURCE(11193, 77)
   {
      word var←c52084;
      {
         word var←c52116;
         word var←c52148;
         var←c52116 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52148 = var←c52116;
         (*  (ptr) var←c52148 ) = (* (( (ptr) gf←c55444)+62) );
         (* (( (ptr) var←c52148)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52148 = (* (( (ptr) var←c52148)+1) );
         if ((0 != midpointsOn←v9556)) {
            (*  (ptr) var←c52148 ) = (* (( (ptr) gf←c55444)+60) );
            }
         else {
            (*  (ptr) var←c52148 ) = (* (( (ptr) gf←c55444)+61) );
            };
         var←c52084 = var←c52116;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c52084);
      };
SOURCE(11272, 5524)
   {
      word pd200;
      pd200 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+96) );
      heuristicsOn←v9584 = (word) ( *( (fPt) ((*  (ptr) pd200 ))))(ggData←v7212, pd200);
      };
SOURCE(11318, 79)
   {
      word var←c52180;
      {
         word var←c52212;
         word var←c52244;
         var←c52212 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52244 = var←c52212;
         (*  (ptr) var←c52244 ) = (* (( (ptr) gf←c55444)+63) );
         (* (( (ptr) var←c52244)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52244 = (* (( (ptr) var←c52244)+1) );
         if ((0 != heuristicsOn←v9584)) {
            (*  (ptr) var←c52244 ) = (* (( (ptr) gf←c55444)+60) );
            }
         else {
            (*  (ptr) var←c52244 ) = (* (( (ptr) gf←c55444)+61) );
            };
         var←c52180 = var←c52212;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c52180);
      };
SOURCE(11399, 5397)
   {
      word pd201;
      pd201 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+58) );
      showAlignments←v9612 = (word) ( *( (fPt) ((*  (ptr) pd201 ))))(ggData←v7212, pd201);
      };
SOURCE(11451, 85)
   {
      word var←c52276;
      {
         word var←c52308;
         word var←c52340;
         var←c52308 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52340 = var←c52308;
         (*  (ptr) var←c52340 ) = (* (( (ptr) gf←c55444)+64) );
         (* (( (ptr) var←c52340)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52340 = (* (( (ptr) var←c52340)+1) );
         if ((0 != showAlignments←v9612)) {
            (*  (ptr) var←c52340 ) = (* (( (ptr) gf←c55444)+60) );
            }
         else {
            (*  (ptr) var←c52340 ) = (* (( (ptr) gf←c55444)+61) );
            };
         var←c52276 = var←c52308;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c52276);
      };
SOURCE(11538, 5258)
   {
      word pd202;
      pd202 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+98) );
      scaleUnit←v9500 = (word) ( *( (fPt) ((*  (ptr) pd202 ))))(ggData←v7212, pd202);
      };
SOURCE(11580, 76)
   {
      word var←c52372;
      {
         word var←c52404;
         word var←c52436;
         var←c52404 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52436 = var←c52404;
         (*  (ptr) var←c52436 ) = (* (( (ptr) gf←c55444)+66) );
         (* (( (ptr) var←c52436)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52436 = (* (( (ptr) var←c52436)+1) );
         {
            word var←c52500;
            var←c52500 = XR←NewObject(4, (* (( (ptr) gf←c55444)+26) ));
            (*  (ptr) var←c52500 ) = scaleUnit←v9500;
            (*  (ptr) var←c52436 ) = var←c52500;
            };
         (* (( (ptr) var←c52436)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52436 = (* (( (ptr) var←c52436)+1) );
         (*  (ptr) var←c52436 ) = (* (( (ptr) gf←c55444)+65) );
         var←c52372 = var←c52404;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c52372);
      };
SOURCE(11658, 5138)
   {
      word pd203;
      pd203 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+72) );
      displayStyle←v9696 = (word) ( *( (fPt) ((*  (ptr) pd203 ))))(ggData←v7212, pd203);
      };
SOURCE(11706, 5090)
   {
      word var←c52532;
      {
         word var←c52564;
         word var←c52596;
         var←c52564 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52596 = var←c52564;
         (*  (ptr) var←c52596 ) = (* (( (ptr) gf←c55444)+67) );
         (* (( (ptr) var←c52596)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52596 = (* (( (ptr) var←c52596)+1) );
         {
            word pd204;
            pd204 = (* (( (ptr) (* (( (ptr) gf←c55444)+184)/* var←c52660 */  ))+8) );
            (*  (ptr) var←c52596 ) = (word) ( *( (fPt) ((*  (ptr) pd204 ))))(displayStyle←v9696, pd204);
            };
         var←c52532 = var←c52564;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c52532);
      };
SOURCE(11800, 4996)
   {
      word pd205;
      pd205 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+89) );
      gravityOn←v9528 = (word) ( *( (fPt) ((*  (ptr) pd205 ))))(ggData←v7212, pd205);
      };
SOURCE(11840, 73)
   {
      word var←c52692;
      {
         word var←c52724;
         word var←c52756;
         var←c52724 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52756 = var←c52724;
         (*  (ptr) var←c52756 ) = (* (( (ptr) gf←c55444)+68) );
         (* (( (ptr) var←c52756)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52756 = (* (( (ptr) var←c52756)+1) );
         if ((0 != gravityOn←v9528)) {
            (*  (ptr) var←c52756 ) = (* (( (ptr) gf←c55444)+60) );
            }
         else {
            (*  (ptr) var←c52756 ) = (* (( (ptr) gf←c55444)+61) );
            };
         var←c52692 = var←c52724;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c52692);
      };
SOURCE(11915, 4881)
   {
      word pd206;
      pd206 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+91) );
      gravExtent←v9472 = (word) ( *( (fPt) ((*  (ptr) pd206 ))))(ggData←v7212, pd206);
      };
SOURCE(11962, 71)
   {
      word var←c52788;
      {
         word var←c52820;
         word var←c52852;
         var←c52820 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52852 = var←c52820;
         (*  (ptr) var←c52852 ) = (* (( (ptr) gf←c55444)+69) );
         (* (( (ptr) var←c52852)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c52852 = (* (( (ptr) var←c52852)+1) );
         {
            word var←c52916;
            var←c52916 = XR←NewObject(4, (* (( (ptr) gf←c55444)+26) ));
            (*  (ptr) var←c52916 ) = gravExtent←v9472;
            (*  (ptr) var←c52852 ) = var←c52916;
            };
         var←c52788 = var←c52820;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c52788);
      };
SOURCE(12035, 4761)
   {
      word pd207;
      pd207 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+93) );
      gravityType←v9640 = (word) ( *( (fPt) ((*  (ptr) pd207 ))))(ggData←v7212, pd207);
      };
SOURCE(12081, 4715)
   {
      word var←c52948;
      {
         word var←c52980;
         word var←c53012;
         var←c52980 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53012 = var←c52980;
         (*  (ptr) var←c53012 ) = (* (( (ptr) gf←c55444)+70) );
         (* (( (ptr) var←c53012)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53012 = (* (( (ptr) var←c53012)+1) );
         {
            word pd208;
            pd208 = (* (( (ptr) (* (( (ptr) gf←c55444)+184)/* var←c52660 */  ))+6) );
            (*  (ptr) var←c53012 ) = (word) ( *( (fPt) ((*  (ptr) pd208 ))))(gravityType←v9640, pd208);
            };
         var←c52948 = var←c52980;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c52948);
      };
SOURCE(12175, 4621)
   {
      word pd209;
      pd209 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+87) );
      defaultFont←v9668 = (word) ( *( (fPt) ((*  (ptr) pd209 ))))(ggData←v7212, pd209);
      };
SOURCE(12221, 4575)
   {
      word var←c53076;
      {
         word var←c53108;
         word var←c53140;
         var←c53108 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53140 = var←c53108;
         (*  (ptr) var←c53140 ) = (* (( (ptr) gf←c55444)+71) );
         (* (( (ptr) var←c53140)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53140 = (* (( (ptr) var←c53140)+1) );
         {
            word pd210;
            pd210 = (* (( (ptr) (* (( (ptr) gf←c55444)+185)/* var←c53204 */  ))+17) );
            (*  (ptr) var←c53140 ) = (word) ( *( (fPt) ((*  (ptr) pd210 ))))(defaultFont←v9668, pd210);
            };
         var←c53076 = var←c53108;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c53076);
      };
SOURCE(12308, 4488)
   {
      word pd211;
      pd211 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+79) );
      strokeColor←v9780 = (word) ( *( (fPt) ((*  (ptr) pd211 ))))(ggData←v7212, pd211);
      };
SOURCE(12361, 4435)
   {
      word var←c53236;
      {
         word var←c53268;
         word var←c53300;
         var←c53268 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53300 = var←c53268;
         (*  (ptr) var←c53300 ) = (* (( (ptr) gf←c55444)+72) );
         (* (( (ptr) var←c53300)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53300 = (* (( (ptr) var←c53300)+1) );
         {
            word pd212;
            pd212 = (* (( (ptr) (* (( (ptr) gf←c55444)+183)/* var←c51316 */  ))+5) );
            (*  (ptr) var←c53300 ) = (word) ( *( (fPt) ((*  (ptr) pd212 ))))(strokeColor←v9780, pd212);
            };
         var←c53236 = var←c53268;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c53236);
      };
SOURCE(12459, 4337)
   {
      word pd213;
      pd213 = (* (( (ptr) (* (( (ptr) gf←c55444)+182)/* var←c51284 */  ))+77) );
      fillColor←v9808 = (word) ( *( (fPt) ((*  (ptr) pd213 ))))(ggData←v7212, pd213);
      };
SOURCE(12508, 4288)
   {
      word var←c53364;
      {
         word var←c53396;
         word var←c53428;
         var←c53396 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53428 = var←c53396;
         (*  (ptr) var←c53428 ) = (* (( (ptr) gf←c55444)+73) );
         (* (( (ptr) var←c53428)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53428 = (* (( (ptr) var←c53428)+1) );
         {
            word pd214;
            pd214 = (* (( (ptr) (* (( (ptr) gf←c55444)+183)/* var←c51316 */  ))+5) );
            (*  (ptr) var←c53428 ) = (word) ( *( (fPt) ((*  (ptr) pd214 ))))(fillColor←v9808, pd214);
            };
         var←c53364 = var←c53396;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c53364);
      };
SOURCE(12604, 4192)
   {
      word pd215;
      pd215 = (* (( (ptr) (* (( (ptr) gf←c55444)+186)/* var←c53492 */  ))+15) );
      (void) ( *( (fPt) ((*  (ptr) pd215 ))))((word) &caretPoint←v9724, (* (( (ptr) ggData←v7212)+13) ), pd215);
      };
SOURCE(12649, 73)
   {
      word var←c53524;
      {
         word var←c53556;
         word var←c53588;
         var←c53556 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53588 = var←c53556;
         (*  (ptr) var←c53588 ) = (* (( (ptr) gf←c55444)+75) );
         (* (( (ptr) var←c53588)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53588 = (* (( (ptr) var←c53588)+1) );
         {
            word var←c53652;
            var←c53652 = XR←NewObject(8, (* (( (ptr) gf←c55444)+23) ));
            (*  (W2Pt) var←c53652 ) = caretPoint←v9724;
            (*  (ptr) var←c53588 ) = var←c53652;
            };
         var←c53524 = var←c53556;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c53524);
      };
SOURCE(12724, 4072)
   {
      word pd216;
      pd216 = (* (( (ptr) (* (( (ptr) gf←c55444)+186)/* var←c53492 */  ))+16) );
      (void) ( *( (fPt) ((*  (ptr) pd216 ))))((word) &caretNormal←v9752, (* (( (ptr) ggData←v7212)+13) ), pd216);
      };
SOURCE(12771, 73)
   {
      word var←c53684;
      {
         word var←c53716;
         word var←c53748;
         var←c53716 = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53748 = var←c53716;
         (*  (ptr) var←c53748 ) = (* (( (ptr) gf←c55444)+76) );
         (* (( (ptr) var←c53748)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55444)+28) ));
         var←c53748 = (* (( (ptr) var←c53748)+1) );
         {
            word var←c53812;
            var←c53812 = XR←NewObject(8, (* (( (ptr) gf←c55444)+23) ));
            (*  (W2Pt) var←c53812 ) = caretNormal←v9752;
            (*  (ptr) var←c53748 ) = var←c53812;
            };
         var←c53684 = var←c53716;
         };
      (void) ActionToScript←P1200(stream←v7184, var←c53684);
      };
   }

static void CloseScript←P1020(formal←c0299, stream←v7272, scriptName←v7300, router←v7328)
   word formal←c0299;
   word stream←v7272;
   word scriptName←v7300;
   word router←v7328;
   {
   register ptr gf←c55476 =  (ptr) &globalframe;
   word newStream←v7372;
   word newName←v7400;
   /* CloseScript: */ 
SOURCE(12850, 3946)
SOURCE(12850, 3946)
   newStream←v7372 = 0;
SOURCE(12850, 3946)
   newName←v7400 = 0;
SOURCE(12990, 3806)
SOURCE(12992, 19)
   if ((stream←v7272 == 0)) {
SOURCE(13011, 15)
      goto lab←L100016;
      };
SOURCE(13028, 14)
   {
      word pd217;
      pd217 = (* (( (ptr) (* (( (ptr) gf←c55476)+168)/* var←c49268 */  ))+28) );
      (void) ( *( (fPt) ((*  (ptr) pd217 ))))(stream←v7272, 0, pd217);
      };
SOURCE(13044, 3752)
   {
      W2 var←c53844;
      var←c53844.f0 = 11;
      var←c53844.f1 = scriptName←v7300;
      {
         word pd218;
         pd218 = (* (( (ptr) (* (( (ptr) gf←c55476)+180)/* var←c50740 */  ))+14) );
         (void) ( *( (fPt) ((*  (ptr) pd218 ))))(router←v7328, 0, (* (( (ptr) gf←c55476)+44) ), (* (( (ptr) gf←c55476)+77) ), var←c53844, pd218)
         ;
         };
      };
SOURCE(13135, 15)
   newStream←v7372 = 0;
SOURCE(13152, 13)
   newName←v7400 = 0;
   goto lab←L100017;
   lab←L100016: ;
SOURCE(13187, 74)
   {
      word pd219;
      pd219 = (* (( (ptr) (* (( (ptr) gf←c55476)+180)/* var←c50740 */  ))+12) );
      (void) ( *( (fPt) ((*  (ptr) pd219 ))))(router←v7328, 0, (* (( (ptr) gf←c55476)+44) ), (* (( (ptr) gf←c55476)+78) ), pd219)
      ;
      };
   lab←L100017: ;
   /* removed tail goto */ 
   (*  (ptr) formal←c0299 ) = newStream←v7372;
   (* (( (ptr) formal←c0299)+1) ) = newName←v7400;
   return;
   }

static void FlushScript←P1080(formal←c0308, oldStream←v7460, oldScriptName←v7488, router←v7516)
   word formal←c0308;
   word oldStream←v7460;
   word oldScriptName←v7488;
   word router←v7516;
   {
   register ptr gf←c55508 =  (ptr) &globalframe;
   word newStream←v7560;
   word newName←v7588;
   word name←v10216 = 0;
   /* FlushScript: */ 
SOURCE(13267, 3529)
SOURCE(13267, 3529)
   newStream←v7560 = 0;
SOURCE(13267, 3529)
   newName←v7588 = 0;
SOURCE(13432, 41)
   if ((oldStream←v7460 != 0)) {
SOURCE(13456, 17)
      {
         word pd220;
         pd220 = (* (( (ptr) (* (( (ptr) gf←c55508)+168)/* var←c49268 */  ))+28) );
         (void) ( *( (fPt) ((*  (ptr) pd220 ))))(oldStream←v7460, 0, pd220);
         };
      };
SOURCE(13475, 3321)
   {
      word pd221;
      pd221 = (* (( (ptr) (* (( (ptr) gf←c55508)+173)/* var←c49972 */  ))+13) );
      name←v10216 = (word) ( *( (fPt) ((*  (ptr) pd221 ))))(oldScriptName←v7488, pd221);
      };
SOURCE(13527, 3269)
   {
      W2 var←c53876;
      (void) AppendScriptInternal←P840((word) &var←c53876, name←v10216, router←v7516, 0);
      newName←v7588 = var←c53876.f1;
      newStream←v7560 = var←c53876.f0;
      };
SOURCE(13586, 69)
   {
      word pd222;
      pd222 = (* (( (ptr) (* (( (ptr) gf←c55508)+180)/* var←c50740 */  ))+12) );
      (void) ( *( (fPt) ((*  (ptr) pd222 ))))(router←v7516, 0, (* (( (ptr) gf←c55508)+44) ), (* (( (ptr) gf←c55508)+79) ), pd222)
      ;
      };
   /* removed tail goto */ 
   (*  (ptr) formal←c0308 ) = newStream←v7560;
   (* (( (ptr) formal←c0308)+1) ) = newName←v7588;
   return;
   }

static void EnterAction←P1140(clientData←v7648, inputAction←v7676)
   word clientData←v7648;
   word inputAction←v7676;
   {
   register ptr gf←c55540 =  (ptr) &globalframe;
   word event←v10260;
   word ggData←v10288;
   /* EnterAction: */ 
SOURCE(13661, 259)
SOURCE(13730, 7)
   event←v10260 = XR←Narrow(inputAction←v7676, (* (( (ptr) gf←c55540)+28) ));
SOURCE(13776, 35)
   ggData←v10288 = XR←Narrow(clientData←v7648, (* (( (ptr) gf←c55540)+29) ));
SOURCE(13813, 53)
   (void) ActionToScript←P1200((* (( (ptr) (* (( (ptr) ggData←v10288)+29) ))+2) ), event←v10260);
SOURCE(13868, 52)
   (void) ActionToScript←P1200((* (( (ptr) (* (( (ptr) ggData←v10288)+29) ))+4) ), event←v10260);
   }

static void ActionToScript←P1200(stream←v7760, event←v7788)
   word stream←v7760;
   word event←v7788;
   {
   register ptr gf←c55572 =  (ptr) &globalframe;
   /* ActionToScript: */ 
SOURCE(13926, 271)
SOURCE(13995, 25)
   if ((stream←v7760 == 0)) {
SOURCE(14014, 6)
      return;
      };
SOURCE(14022, 136)
   if (((((*  (ptr) event←v7788 ) == (* (( (ptr) gf←c55572)+80) )) || ((*  (ptr) event←v7788 ) == (* (( (ptr) gf←c55572)+81)
    ))) || ((*  (ptr) event←v7788 ) == (* (( (ptr) gf←c55572)+82) ))) || ((*  (ptr) event←v7788 ) == (* (( (ptr) gf←c55572)+83)
    ))) {
SOURCE(14152, 6)
      return;
      };
SOURCE(14160, 37)
   {
      word pd223;
      pd223 = (* (( (ptr) (* (( (ptr) gf←c55572)+187)/* var←c53908 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd223 ))))(stream←v7760, event←v7788, pd223);
      };
   }

static void PlayAction←P1260(clientData←v7944, inputAction←v7972)
   word clientData←v7944;
   word inputAction←v7972;
   {
   register ptr gf←c55604 =  (ptr) &globalframe;
   word event←v10428;
   /* PlayAction: */ 
SOURCE(14203, 144)
SOURCE(14260, 7)
   event←v10428 = XR←Narrow(inputAction←v7972, (* (( (ptr) gf←c55604)+28) ));
SOURCE(14306, 41)
   {
      word pd224;
      pd224 = (* (( (ptr) (* (( (ptr) gf←c55604)+177)/* var←c50484 */  ))+9) );
      (void) ( *( (fPt) ((*  (ptr) pd224 ))))(clientData←v7944, event←v10428, pd224);
      };
   }

static void PlaybackFromFile←P1320(fileName←v8056, ggData←v8084)
   word fileName←v8056;
   word ggData←v8084;
   {
   register ptr gf←c55636 =  (ptr) &globalframe;
   word fullName←v10568 = 0;
   word success←v10596 = 0;
   word endOfStream←v10624 = 0;
   word f←v10652 = 0;
   word startTime←v10680;
   word startTimeCard←v10708;
   /* PlaybackFromFile: */ 
SOURCE(14353, 2443)
SOURCE(14557, 2239)
SOURCE(14563, 2233)
   {
      W2 var←c53940;
      {
         word pd225;
         pd225 = (* (( (ptr) (* (( (ptr) gf←c55636)+178)/* var←c50580 */  ))+9) );
         (void) ( *( (fPt) ((*  (ptr) pd225 ))))((word) &var←c53940, (* (( (ptr) gf←c55636)+84) ), fileName←v8056, (* (( (ptr) ggData←v8084)+6)
             ), (* (( (ptr) ggData←v8084)+3) ), pd225);
         };
      success←v10596 = var←c53940.f1;
      fullName←v10568 = var←c53940.f0;
      };
SOURCE(14678, 40)
   if ((0 == success←v10596)) {
SOURCE(14699, 19)
      fullName←v10568 = fileName←v8056;
SOURCE(14720, 20)
      goto lab←L100019;
      };
SOURCE(14743, 2053)
   {
      W2 var←c53972;
      (void) OpenExistingFile←P1440((word) &var←c53972, fullName←v10568, ggData←v8084);
      success←v10596 = var←c53972.f1;
      f←v10652 = var←c53972.f0;
      };
SOURCE(14794, 20)
   if ((0 == success←v10596)) {
SOURCE(14814, 20)
      goto lab←L100019;
      };
SOURCE(14836, 61)
   {
      word var←c54004;
      {
         word var←c54036;
         word var←c54068;
         var←c54036 = XR←NewObject(8, (* (( (ptr) gf←c55636)+28) ));
         var←c54068 = var←c54036;
         (*  (ptr) var←c54068 ) = (* (( (ptr) gf←c55636)+85) );
         var←c54004 = var←c54036;
         };
      {
         word pd226;
         pd226 = (* (( (ptr) (* (( (ptr) gf←c55636)+175)/* var←c50260 */  ))+25) );
         (void) ( *( (fPt) ((*  (ptr) pd226 ))))(ggData←v8084, var←c54004, pd226);
         };
      };
SOURCE(14951, 1845)
   (* (( (ptr) ggData←v8084) + 51) ) &= 4294967263;
SOURCE(15034, 1762)
   {
      W2 var←c54100;
      var←c54100.f0 = 11;
      var←c54100.f1 = fullName←v10568;
      {
         word pd227;
         pd227 = (* (( (ptr) (* (( (ptr) gf←c55636)+180)/* var←c50740 */  ))+14) );
         (void) ( *( (fPt) ((*  (ptr) pd227 ))))((* (( (ptr) ggData←v8084)+3) ), 0, (* (( (ptr) gf←c55636)+44) ), (* (( (ptr) gf←c55636)+86)
             ), var←c54100, pd227);
         };
      };
SOURCE(15119, 1677)
   {
      word pd228;
      pd228 = (* (( (ptr) (* (( (ptr) gf←c55636)+188)/* var←c54132 */  ))+14) );
      startTime←v10680 = (word) ( *( (fPt) ((*  (ptr) pd228 ))))(pd228);
      };
SOURCE(15148, 1648)
   {
      word pd229;
      pd229 = (* (( (ptr) (* (( (ptr) gf←c55636)+188)/* var←c54132 */  ))+19) );
      startTimeCard←v10708 = (word) ( *( (fPt) ((*  (ptr) pd229 ))))(startTime←v10680, pd229);
      };
SOURCE(15195, 1601)
   lab←L100022: ;
   if ((0 == endOfStream←v10624)) {
      }
   else {
      goto lab←L100020;
      };
SOURCE(15220, 1576)
   {
      word pd230;
      pd230 = (* (( (ptr) (* (( (ptr) gf←c55636)+187)/* var←c53908 */  ))+6) );
      endOfStream←v10624 = (word) ( *( (fPt) ((*  (ptr) pd230 ))))(f←v10652, ggData←v8084, (word) (( (bPt) gf←c55636)+492)/* var←c48404 */ , pd230)
      ;
      };
SOURCE(15280, 1516)
   if ((* (( (bPt) ggData←v8084)+207) ) & 040) {
SOURCE(15315, 1481)
      {
         word var←c54164;
         {
            word pd231;
            pd231 = (* (( (ptr) (* (( (ptr) gf←c55636)+170)/* var←c49620 */  ))+6) );
            var←c54164 = (word) ( *( (fPt) ((*  (ptr) pd231 ))))((* (( (ptr) gf←c55636)+87) ), fullName←v10568, pd231);
            };
         {
            word pd232;
            pd232 = (* (( (ptr) (* (( (ptr) gf←c55636)+180)/* var←c50740 */  ))+12) );
            (void) ( *( (fPt) ((*  (ptr) pd232 ))))((* (( (ptr) ggData←v8084)+3) ), 0, (* (( (ptr) gf←c55636)+44) ), var←c54164, pd232)
            ;
            };
         };
SOURCE(15415, 43)
      {
         word pd233;
         pd233 = (* (( (ptr) (* (( (ptr) gf←c55636)+189)/* var←c54196 */  ))+10) );
         (void) ( *( (fPt) ((*  (ptr) pd233 ))))((* ((( (ptr) ggData←v8084)+48)) ), pd233);
         };
SOURCE(15460, 38)
      (* (( (ptr) (* (( (ptr) ggData←v8084)+17) ))+1) ) = 0;
SOURCE(15535, 37)
      (* (( (ptr) (* (( (ptr) ggData←v8084)+17) ))+2) ) = 0;
SOURCE(15609, 1187)
      (* (( (ptr) ggData←v8084) + 51) ) &= 4294967263;
SOURCE(15643, 6)
      return;
      };
   goto lab←L100022;
   lab←L100020: ;
SOURCE(15663, 98)
   {
      word var←c54228;
      {
         word var←c54260;
         word var←c54292;
         var←c54260 = XR←NewObject(8, (* (( (ptr) gf←c55636)+28) ));
         var←c54292 = var←c54260;
         (*  (ptr) var←c54292 ) = (* (( (ptr) gf←c55636)+89) );
         (* (( (ptr) var←c54292)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55636)+28) ));
         var←c54292 = (* (( (ptr) var←c54292)+1) );
         (*  (ptr) var←c54292 ) = fullName←v10568;
         (* (( (ptr) var←c54292)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c55636)+28) ));
         var←c54292 = (* (( (ptr) var←c54292)+1) );
         {
            word var←c54356;
            var←c54356 = XR←NewObject(4, (* (( (ptr) gf←c55636)+22) ));
            (*  (ptr) var←c54356 ) = startTimeCard←v10708;
            (*  (ptr) var←c54292 ) = var←c54356;
            };
         var←c54228 = var←c54260;
         };
      {
         word pd234;
         pd234 = (* (( (ptr) (* (( (ptr) gf←c55636)+177)/* var←c50484 */  ))+9) );
         (void) ( *( (fPt) ((*  (ptr) pd234 ))))(ggData←v8084, var←c54228, pd234);
         };
      };
SOURCE(15763, 1033)
   (* (( (ptr) ggData←v8084) + 51) ) &= 4294967263;
   goto lab←L100023;
   lab←L100019: ;
SOURCE(15822, 974)
   {
      word var←c54388;
      {
         word pd235;
         pd235 = (* (( (ptr) (* (( (ptr) gf←c55636)+170)/* var←c49620 */  ))+5) );
         var←c54388 = (word) ( *( (fPt) ((*  (ptr) pd235 ))))((* (( (ptr) gf←c55636)+90) ), fullName←v10568, (* (( (ptr) gf←c55636)+91)
             ), 0, 0, pd235);
         };
      {
         word pd236;
         pd236 = (* (( (ptr) (* (( (ptr) gf←c55636)+180)/* var←c50740 */  ))+12) );
         (void) ( *( (fPt) ((*  (ptr) pd236 ))))((* (( (ptr) ggData←v8084)+3) ), 0, (* (( (ptr) gf←c55636)+48) ), var←c54388, pd236)
         ;
         };
      };
   lab←L100023: ;
   }

static void EndOfScriptMessage←P1380(ggData←v8144, event←v8172)
   word ggData←v8144;
   word event←v8172;
   {
   register ptr gf←c55668 =  (ptr) &globalframe;
   word logName←v10752;
   word startTimeCard←v10780;
   word var←c54452;
   word startTime←v10808;
   word endTime←v10836;
   word totalTime←v10864;
   /* EndOfScriptMessage: */ 
SOURCE(15942, 854)
SOURCE(16019, 45)
   logName←v10752 = XR←Narrow((*  (ptr) (* (( (ptr) event←v8172)+1) ) ), (* (( (ptr) gf←c55668)+8) ));
   if ((logName←v10752 == 0)) {
      goto lab←L100024;
      };
   if (( (unsigned) (*(int*)logName←v10752<0) == 0)) {
      goto lab←L100024;
      };
   (void) XR←RaiseError(XR←NarrowFault, 0);
   lab←L100024: ;
SOURCE(16066, 154)
   var←c54452 = (*  (ptr) (* (( (ptr) (* (( (ptr) event←v8172)+1) ))+1) ) );
   if ( ( (var←c54452 == 0) ? 1 : ((* (( (ptr) gf←c55668)+20) ) == XR←GetReferentType(var←c54452)) ) ) {
      startTimeCard←v10780 = (*  (ptr) XR←Narrow((*  (ptr) (* (( (ptr) (* (( (ptr) event←v8172)+1) ))+1) ) ), (* (( (ptr) gf←c55668)+20)
          )) );
      }
   else {
      startTimeCard←v10780 = (*  (ptr) XR←Narrow((*  (ptr) (* (( (ptr) (* (( (ptr) event←v8172)+1) ))+1) ) ), (* (( (ptr) gf←c55668)+22)
          )) );
      };
SOURCE(16222, 62)
   {
      word pd237;
      pd237 = (* (( (ptr) (* (( (ptr) gf←c55668)+188)/* var←c54132 */  ))+21) );
      startTime←v10808 = (word) ( *( (fPt) ((*  (ptr) pd237 ))))(startTimeCard←v10780, pd237);
      };
SOURCE(16326, 470)
   {
      word pd238;
      pd238 = (* (( (ptr) (* (( (ptr) gf←c55668)+188)/* var←c54132 */  ))+14) );
      endTime←v10836 = (word) ( *( (fPt) ((*  (ptr) pd238 ))))(pd238);
      };
SOURCE(16353, 443)
   {
      word pd239;
      pd239 = (* (( (ptr) (* (( (ptr) gf←c55668)+188)/* var←c54132 */  ))+16) );
      totalTime←v10864 = (word) ( *( (fPt) ((*  (ptr) pd239 ))))(startTime←v10808, endTime←v10836, pd239);
      };
SOURCE(16403, 393)
   {
      word var←c54484;
      {
         word var←c54516;
         word var←c54548;
         var←c54516 = XR←NewObject(12, (* (( (ptr) gf←c55668)+19) ));
         var←c54548 = var←c54516;
         (*  (ptr) var←c54548 ) = 11;
         (* (( (ptr) var←c54548)+1) ) = logName←v10752;
         (* (( (ptr) var←c54548)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c55668)+19) ));
         var←c54548 = (* (( (ptr) var←c54548)+2) );
         (*  (ptr) var←c54548 ) = 5;
         (* (( (ptr) var←c54548)+1) ) = totalTime←v10864;
         var←c54484 = var←c54516;
         };
      {
         word pd240;
         pd240 = (* (( (ptr) (* (( (ptr) gf←c55668)+180)/* var←c50740 */  ))+13) );
         (void) ( *( (fPt) ((*  (ptr) pd240 ))))((* (( (ptr) ggData←v8144)+3) ), 0, (* (( (ptr) gf←c55668)+94) ), (* (( (ptr) gf←c55668)+95)
             ), var←c54484, pd240);
         };
      };
   }

static void OpenExistingFile←P1440(formal←c0356, formal←c0458, formal←c0459)
   word formal←c0356;
   word formal←c0458;
   word formal←c0459;
   {
   W11 var←c55700;
   /* declaration of name←v8328 skipped */ 
   /* declaration of ggData←v8356 skipped */ 
   register ptr gf←c55732 =  (ptr) &globalframe;
   word f←v8400;
   /* declaration of success←v8428 skipped */ 
   (* (( (ptr) &var←c55700)+4)/* name←v8328 */  ) = formal←c0458;
   (* (( (ptr) &var←c55700)+5)/* ggData←v8356 */  ) = formal←c0459;
   /* OpenExistingFile: */ 
SOURCE(16546, 250)
SOURCE(16546, 250)
   f←v8400 = 0;
SOURCE(16546, 250)
   (* (( (ptr) &var←c55700)+6)/* success←v8428 */  ) = 0;
SOURCE(16653, 14)
   (* (( (ptr) &var←c55700)+6)/* success←v8428 */  ) = 1;
SOURCE(16669, 127)
SOURCE(16669, 127)
   {
      /* declaration of var←c013 skipped */ 
      /* declaration of var←c014 skipped */ 
      (* (( (ptr) &var←c55700)+7) ) = 7;
      (* (( (ptr) &var←c55700)+8) ) = 1;
      (* (( (ptr) &var←c55700)+9)/* var←c014 */  ) = (* (( (ptr) (* (( (ptr) gf←c55732)+179)/* var←c50676 */  ))+27) );
      {
         /* declaration of var←c015 skipped */ 
         {
            word var←c016;
            {
               word var←c0445;
               var←c0445 = (word) &var←c55700;
               var←c016 = (word) XR←Enable(( ((word)  (fPt) NoName←Q2460) ), ( ((word)  (fPt) NoName←Q2640) ), var←c0445);
               };
            if ((var←c016 == 5)) {
               goto lab←L100027;
               };
            };
         f←v8400 = (* (( (ptr) &var←c55700)+10)/* var←c015 */  );
         };
      };
   lab←L100027: ;
   /* removed tail goto */ 
   (*  (ptr) formal←c0356 ) = f←v8400;
   (* (( (ptr) formal←c0356)+1) ) = (* (( (ptr) &var←c55700)+6)/* success←v8428 */  );
   return;
   }

static word NoName←Q2460(formal←c0428)
   word formal←c0428;
   {
SOURCE(16669, 127)
   {
      word pd241;
      pd241 = (* (( (ptr) formal←c0428)+9) );
      (* (( (ptr) formal←c0428)+10) ) = (word) ( *( (fPt) ((*  (ptr) pd241 ))))((* (( (ptr) formal←c0428)+4) ), 0, 7, 1, 2560, (*  (W2Pt) (
            ( (ptr) formal←c0428)+7) )
         , 0, 2147483647, 1, 0, 0, 0, pd241);
      };
   return(0);
   }

static void SafeClose←P1500(formal←c0460, formal←c0461)
   word formal←c0460;
   word formal←c0461;
   {
   W7 var←c55764;
   /* declaration of stream←v8488 skipped */ 
   /* declaration of router←v8516 skipped */ 
   register ptr gf←c55796 =  (ptr) &globalframe;
   var←c55764.f4/* stream←v8488 */  = formal←c0460;
   var←c55764.f5/* router←v8516 */  = formal←c0461;
   /* SafeClose: */ 
SOURCE(16816, 534)
SOURCE(16902, 448)
SOURCE(16902, 448)
   {
      /* declaration of var←c017 skipped */ 
      var←c55764.f6/* var←c017 */  = (* (( (ptr) (* (( (ptr) gf←c55796)+168)/* var←c49268 */  ))+28) );
      {
         word var←c018;
         {
            word var←c0446;
            var←c0446 = (word) &var←c55764;
            var←c018 = (word) XR←Enable(( ((word)  (fPt) NoName←Q2520) ), ( ((word)  (fPt) NoName←Q2580) ), var←c0446);
            };
         /* removed trivial cond node */ 
         };
      };
   }

static word NoName←Q2520(formal←c0430)
   word formal←c0430;
   {
SOURCE(16902, 448)
   {
      word pd242;
      pd242 = (* (( (ptr) formal←c0430)+6) );
      (void) ( *( (fPt) ((*  (ptr) pd242 ))))((* (( (ptr) formal←c0430)+4) ), 0, pd242);
      };
   return(0);
   }

static word GGHomeDirectory←P1560()
   {
   register ptr gf←c55828 =  (ptr) &globalframe;
   word var←c8576;
   /* GGHomeDirectory: */ 
SOURCE(17372, 80)
SOURCE(17425, 27)
   return((* (( (ptr) gf←c55828)+103) ));
   }

static word ParseFeedbackRope←P1620(rope←v8636)
   word rope←v8636;
   {
   register ptr gf←c55860 =  (ptr) &globalframe;
   word val←v8680;
   /* ParseFeedbackRope: */ 
SOURCE(17457, 118)
SOURCE(17457, 118)
   val←v8680 = 0;
SOURCE(17533, 42)
   {
      word var←c0447;
      word var←c54676;
      W2 var←c0363;
      {
         word pd243;
         pd243 = (* (( (ptr) (* (( (ptr) gf←c55860)+168)/* var←c49268 */  ))+33) );
         var←c54676 = (word) ( *( (fPt) ((*  (ptr) pd243 ))))(rope←v8636, 0, pd243);
         };
      {
         word pd244;
         pd244 = (* (( (ptr) (* (( (ptr) gf←c55860)+190)/* var←c54708 */  ))+4) );
         (void) ( *( (fPt) ((*  (ptr) pd244 ))))((word) &var←c0363, var←c54676, pd244);
         };
      var←c0447 = var←c0363.f0;
      return(var←c0447);
      };
   }

static void Init←P1680()
   {
   register ptr gf←c55892 =  (ptr) &globalframe;
   word gargoyleContainerClass←v11032;
   /* Init: */ 
SOURCE(17581, 373)
SOURCE(17596, 234)
   gargoyleContainerClass←v11032 = XR←NewObject(68, (* (( (ptr) gf←c55892)+14) ));
   (*  (ptr) gargoyleContainerClass←v11032 ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+1) ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+2) ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+3) ) = (word) (( (bPt) gf←c55892)+572)/* var←c48724 */ ;
   (* (( (ptr) gargoyleContainerClass←v11032)+4) ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+5) ) = (word) (( (bPt) gf←c55892)+564)/* var←c48692 */ ;
   (* (( (ptr) gargoyleContainerClass←v11032)+6) ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+7) ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+8) ) = (word) (( (bPt) gf←c55892)+580)/* var←c48756 */ ;
   (* (( (ptr) gargoyleContainerClass←v11032)+9) ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+10) ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+11) ) = XR←CheckProc(0);
   (* (( (ptr) gargoyleContainerClass←v11032)+15) ) = 26;
   (* (( (ptr) gargoyleContainerClass←v11032)+16) ) = 1;
SOURCE(17832, 74)
   {
      word pd245;
      pd245 = (* (( (ptr) (* (( (ptr) gf←c55892)+171)/* var←c49876 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd245 ))))((* (( (ptr) gf←c55892)+32) ), gargoyleContainerClass←v11032, pd245);
      };
SOURCE(17936, 18)
   (* (( (ptr) gf←c55892)+4)/* emergencyIndex←v4988 */  ) = 0;
   }

static void NoName←Q2580(formal←c0375, formal←c200016, formal←c200017, formal←c200018, formal←c200019)
   word formal←c0375;
   word formal←c200016;
   word formal←c200017;
   word formal←c200018;
   word formal←c200019;
   {
   register ptr gf←c0434 =  (ptr) &globalframe;
   if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c0434)+168)/* var←c49268 */  ))+5) ))) {
      {
         word ec←v44720;
         word stream←v44748;
         word details←v44776;
         word msg←v44804;
         ec←v44720 = (*  (ptr) formal←c200019 );
         stream←v44748 = (* (( (ptr) formal←c200019)+1) );
         details←v44776 = (* (( (ptr) formal←c200019)+2) );
         msg←v44804 = (* (( (ptr) formal←c200019)+3) );
SOURCE(16932, 193)
SOURCE(17001, 60)
         if (((* (( (ptr) formal←c200016)+5) ) == 0)) {
SOURCE(17020, 41)
            {
               word pd246;
               pd246 = (* (( (ptr) (* (( (ptr) gf←c0434)+180)/* var←c50740 */  ))+10) );
               (* (( (ptr) formal←c200016)+5) ) = (word) ( *( (fPt) ((*  (ptr) pd246 ))))((* ((( (ptr) gf←c0434)+101)) ), pd246);
               };
            };
SOURCE(17063, 50)
         {
            word pd247;
            pd247 = (* (( (ptr) (* (( (ptr) gf←c0434)+180)/* var←c50740 */  ))+12) );
            (void) ( *( (fPt) ((*  (ptr) pd247 ))))((* (( (ptr) formal←c200016)+5) ), 0, (* (( (ptr) gf←c0434)+48) ), (* (( (ptr) gf←c0434)+100)
                ), pd247);
            };
SOURCE(17115, 8)
         (*  (ptr) formal←c0375 ) = 2;
         (* (( (ptr) formal←c0375)+1) ) = 6;
         return;
         };
      }
   else {
      if ((formal←c200017 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf←c0434)+179)/* var←c50676 */  ))+4) ) ))) {
         {
            W4 error←v45000;
            error←v45000 = (*  (W4Pt) formal←c200019 );
SOURCE(17140, 222)
SOURCE(17213, 60)
            if (((* (( (ptr) formal←c200016)+5) ) == 0)) {
SOURCE(17232, 41)
               {
                  word pd248;
                  pd248 = (* (( (ptr) (* (( (ptr) gf←c0434)+180)/* var←c50740 */  ))+10) );
                  (* (( (ptr) formal←c200016)+5) ) = (word) ( *( (fPt) ((*  (ptr) pd248 ))))((* ((( (ptr) gf←c0434)+101)) ), pd248);
                  };
               };
SOURCE(17275, 75)
            {
               W2 var←c54612;
               var←c54612.f0 = 11;
               var←c54612.f1 = error←v45000.f2;
               {
                  word pd249;
                  pd249 = (* (( (ptr) (* (( (ptr) gf←c0434)+180)/* var←c50740 */  ))+14) );
                  (void) ( *( (fPt) ((*  (ptr) pd249 ))))((* (( (ptr) formal←c200016)+5) ), 0, (* (( (ptr) gf←c0434)+48) ), (* (( (ptr) gf←c0434)+102)
                      ), var←c54612, pd249);
                  };
               };
SOURCE(17352, 8)
            (*  (ptr) formal←c0375 ) = 2;
            (* (( (ptr) formal←c0375)+1) ) = 6;
            return;
            };
         };
      };
   (*  (ptr) formal←c0375 ) = 0;
   (* (( (ptr) formal←c0375)+1) ) = 0;
   return;
   }

static void NoName←Q2640(formal←c0381, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
   word formal←c0381;
   word formal←c200012;
   word formal←c200013;
   word formal←c200014;
   word formal←c200015;
   {
   register ptr gf←c0435 =  (ptr) &globalframe;
   if ((formal←c200013 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf←c0435)+179)/* var←c50676 */  ))+4) ) ))) {
      {
         W4 error←v44332;
         error←v44332 = (*  (W4Pt) formal←c200015 );
SOURCE(16708, 15)
         (* (( (ptr) formal←c200012)+6) ) = 0;
SOURCE(16725, 71)
         {
            word pd250;
            pd250 = (* (( (ptr) (* (( (ptr) gf←c0435)+180)/* var←c50740 */  ))+12) );
            (void) ( *( (fPt) ((*  (ptr) pd250 ))))((* (( (ptr) (* (( (ptr) formal←c200012)+5) ))+3) ), 0, (* (( (ptr) gf←c0435)+48) ), error←v44332.f2, pd250)
            ;
            };
SOURCE(16798, 8)
         (*  (ptr) formal←c0381 ) = 2;
         (* (( (ptr) formal←c0381)+1) ) = 5;
         return;
         };
      };
   (*  (ptr) formal←c0381 ) = 0;
   (* (( (ptr) formal←c0381)+1) ) = 0;
   return;
   }

static void NoName←Q2700(formal←c0387, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
   word formal←c0387;
   word formal←c200008;
   word formal←c200009;
   word formal←c200010;
   word formal←c200011;
   {
   register ptr gf←c0436 =  (ptr) &globalframe;
   if ((formal←c200009 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf←c0436)+179)/* var←c50676 */  ))+4) ) ))) {
      {
         W4 error←v36100;
         error←v36100 = (*  (W4Pt) formal←c200011 );
SOURCE(9662, 13)
         (*  (ptr) formal←c0387 ) = 2;
         (* (( (ptr) formal←c0387)+1) ) = 4;
         return;
         };
      };
   (*  (ptr) formal←c0387 ) = 0;
   (* (( (ptr) formal←c0387)+1) ) = 0;
   return;
   }

static void NoName←Q2760(formal←c0393, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
   word formal←c0393;
   word formal←c200004;
   word formal←c200005;
   word formal←c200006;
   word formal←c200007;
   {
   register ptr gf←c0437 =  (ptr) &globalframe;
   if ((formal←c200005 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf←c0437)+179)/* var←c50676 */  ))+4) ) ))) {
      {
         W4 error←v36040;
         error←v36040 = (*  (W4Pt) formal←c200007 );
SOURCE(9019, 13)
         (*  (ptr) formal←c0393 ) = 2;
         (* (( (ptr) formal←c0393)+1) ) = 3;
         return;
         };
      };
   (*  (ptr) formal←c0393 ) = 0;
   (* (( (ptr) formal←c0393)+1) ) = 0;
   return;
   }

static void NoName←Q2820(formal←c0399, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
   word formal←c0399;
   word formal←c200000;
   word formal←c200001;
   word formal←c200002;
   word formal←c200003;
   {
   register ptr gf←c0438 =  (ptr) &globalframe;
   if ((formal←c200001 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf←c0438)+179)/* var←c50676 */  ))+4) ) ))) {
      {
         W4 error←v35228;
         error←v35228 = (*  (W4Pt) formal←c200003 );
SOURCE(8336, 13)
         (*  (ptr) formal←c0399 ) = 2;
         (* (( (ptr) formal←c0399)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal←c0399 ) = 0;
   (* (( (ptr) formal←c0399)+1) ) = 0;
   return;
   }

/* file: GGUIUtilityImpl, module: GGUIUtilityImpl, compiled at: July 11, 1993 8:03:01 pm PDT */ 
extern void XR←install←GGUIUtilityImpl() {
   NoName←Q2220();
   }
extern void XR←run←GGUIUtilityImpl() { XR←Start(&globalframe); }