/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: January 15, 1993 5:41:40 pm PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: CommanderBasicCommandsImpl, module: CommanderBasicCommandsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [323244771,1882537087] CommanderBasicCommandsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W2 r;} W10;
typedef W2 *W2Pt;
typedef struct {W8 f; word r;} W9;
typedef struct {  byte f:1;  byte u1:7;  } * P1x0b;
typedef struct {  byte u1:1;  byte f:1;  byte u2:6;  } * P1x1b;
typedef struct {  byte u1:2;  byte f:1;  byte u2:5;  } * P1x2b;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static float fc395 = 60.0;
static void NoName_Q6732();
static void CommanderBasicCommandsImpl_P0();
static void AbortCommand_P60();
static void AliasCommand_P120();
static word NoName_Q6792();
static void AliasImplProc_P180();
static word UniqueRope_P2652();
static void AliasesCommand_P240();
static word EachCommand_P2952();
static word GetWord_P300();
static word RopeMemb_P360();
static void AnswerbackCommand_P420();
static word NoName_Q6852();
static void CommentCommand_P480();
static void CommanderCommand_P540();
static void DateCommand_P600();
static void EchoCommand_P660();
static void ErrorCommand_P720();
static void FailCommand_P780();
static void FailSkipCommand_P840();
static word IsCommandPrefix_P900();
static void HistoryCommand_P960();
static word NoName_Q6912();
static void IndentCommand_P1020();
static word NoName_Q6972();
static word NoName_Q7032();
static word NoName_Q7092();
static word NoName_Q7152();
static word NoName_Q7212();
static word NoName_Q7272();
static void PriorityCommand_P1080();
static word NoName_Q7332();
static word SpecialChar_P1140();
static void PrevResultCommand_P1200();
static void ResultOfCommand_P1260();
static void PropCommand_P1320();
static word NoName_Q7392();
static void PropertiesCommand_P1380();
static word NoName_Q7452();
static word NoName_Q7512();
static word NoName_Q7572();
static void RedoCommand_P1440();
static void RegisteredHelpCommand_P1500();
static word EachCommand_P4308();
static void ReregisterAsCommand_P1560();
static void SetPropertyCommand_P1620();
static void ShiftCommand_P1680();
static void SleepCommand_P1740();
static word NoName_Q7632();
static void TimeCommand_P1800();
static void UnregisterCommand_P1860();
static void ControlCommand_P1920();
static word FindLastProp_P1980();
static void PrintAny_P2040();
static void VersionCommand_P2100();
static word NoName_Q7692();
static void MapCommand_P2160();
static word NoName_Q7752();
static void PutVersion_P2220();
static void P_P6012();
static word RopeSubst_P2280();
static word NewlineBreak_P2340();
static void Init_P2400();
static void Register_P6072();
static void NoName_Q7812();
static void NoName_Q7872();
static void NoName_Q7932();
static void NoName_Q7992();
static void NoName_Q8052();
static void NoName_Q8112();
static void NoName_Q8172();
static void NoName_Q8232();
static void NoName_Q8292();
static void NoName_Q8352();
static void NoName_Q8412();
static void NoName_Q8472();
static void NoName_Q8532();
static void NoName_Q8592();
static void NoName_Q8652();
static void NoName_Q8712();
static void NoName_Q8772();
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\311\235\133\064\300\165\175\234\175\100\164\000\000"};
static struct {unsigned f; char r[12];} string6 = {524296, "\011\000\004\000\040\000\004\001\000\000\000"};
static struct {unsigned f; char r[20];} string7 = {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[4];} string8 = {131074, "\004\003\000"};
static struct {unsigned f; char r[48];} string9 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"};
static struct {unsigned f; char r[4];} string10 = {65540, "\251\000\000"};
static struct {unsigned f; char r[44];} string11 = {2752556, "\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\000"};
static struct {unsigned f; char r[4];} string12 = {131076, "\216\251\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\023\104\122\343\300\160\065\074\177\101\334\000\000"};
static struct {unsigned f; char r[48];} string14 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\023\104\122\343\300\160\065\074\177\101\334\005\004\162\145\163\164\214\216\257\300\023\104\122\343\300\160\065\074\177\101\334\261\000\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\023\104\122\343\300\160\065\074\177\100\200\000\000"};
static struct {unsigned f; char r[8];} string16 = {393224, "Alias \000"};
static struct {unsigned f; char r[40];} string17 = {2555944, "bad parameter list for alias definition"};
static struct {unsigned f; char r[28];} string18 = {1638428, "undefined recursive alias\000\000"};
static struct {unsigned f; char r[8];} string19 = {458760, "Failure"};
static struct {unsigned f; char r[4];} string20 = {65540, "\200\000\000"};
static struct {unsigned f; char r[4];} string21 = {65540, "\201\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "(formerly *)*\000\000"};
static struct {unsigned f; char r[4];} string23 = {196612, "%g\012"};
static struct {unsigned f; char r[4];} string24 = {131076, "-n\000"};
static struct {unsigned f; char r[4];} string25 = {131076, "-s\000"};
static struct {unsigned f; char r[4];} string26 = {196612, " *\012"};
static struct {unsigned f; char r[8];} string27 = {393224, "Result\000"};
static struct {unsigned f; char r[8];} string28 = {262152, " \011\015\012\000\000\000"};
static struct {unsigned f; char r[12];} string29 = {589836, "Skipped: \000\000"};
static struct {unsigned f; char r[8];} string30 = {393224, "Prompt\000"};
static struct {unsigned f; char r[4];} string31 = {65540, " \000\000"};
static struct {unsigned f; char r[4];} string32 = {131076, "-%\000"};
static struct {unsigned f; char r[4];} string33 = {131076, "+%\000"};
static struct {unsigned f; char r[4];} string34 = {131076, "-d\000"};
static struct {unsigned f; char r[4];} string35 = {131076, "+d\000"};
static struct {unsigned f; char r[4];} string36 = {4, "\000\000\000"};
static struct {unsigned f; char r[8];} string37 = {262152, "seen\000\000\000"};
static struct {unsigned f; char r[4];} string38 = {131076, "% \000"};
static struct {unsigned f; char r[4];} string39 = {131076, "OK\000"};
static struct {unsigned f; char r[24];} string40 = {1507352, "Usage: History <number>"};
static struct {unsigned f; char r[4];} string41 = {65540, "\012\000\000"};
static struct {unsigned f; char r[8];} string42 = {393224, "Indent\000"};
static struct {unsigned f; char r[8];} string43 = {458760, "Usage: "};
static struct {unsigned f; char r[8];} string44 = {458760, "Bad arg"};
static struct {unsigned f; char r[28];} string45 = {1703964, "depth should be in [0..80]\000"};
static struct {unsigned f; char r[12];} string46 = {720908, "PrefixLines"};
static struct {unsigned f; char r[8];} string47 = {393224, "ReadTo\000"};
static struct {unsigned f; char r[12];} string48 = {655372, "Foreground\000"};
static struct {unsigned f; char r[12];} string49 = {655372, "Background\000"};
static struct {unsigned f; char r[8];} string50 = {393224, "Normal\000"};
static struct {unsigned f; char r[24];} string51 = {1310744, "previous Result = %g\000\000\000"};
static struct {unsigned f; char r[12];} string52 = {720908, "Result = %g"};
static struct {unsigned f; char r[4];} string53 = {131076, "-*\000"};
static struct {unsigned f; char r[28];} string54 = {1638428, "CommandFileArgumentVector\000\000"};
static struct {unsigned f; char r[132];} string55 = {8519812, "Give a command a new name. [ -i | -~i ] newname oldname\012  -i  newname should be interpreted\012  -~i  newname should be uninterpreted\000"};
static struct {unsigned f; char r[24];} string56 = {1441816, "The required property \000"};
static struct {unsigned f; char r[20];} string57 = {1048596, " is not defined.\000\000\000"};
static struct {unsigned f; char r[20];} string58 = {1179668, " is not printable.\000"};
static struct {unsigned f; char r[20];} string59 = {1114132, "ProcessProperties\000\000"};
static struct {unsigned f; char r[24];} string60 = {1310744, "process properties:\012\000\000\000"};
static struct {unsigned f; char r[24];} string61 = {1441816, "commander properties:\012\000"};
static struct {unsigned f; char r[4];} string62 = {131076, "-w\000"};
static struct {unsigned f; char r[4];} string63 = {131076, "-v\000"};
static struct {unsigned f; char r[4];} string64 = {196612, " = "};
static struct {unsigned f; char r[12];} string65 = {524300, "Bad args\000\000\000"};
static struct {unsigned f; char r[44];} string66 = {2687020, "No command in my history begins with \042%q\042\000\000"};
static struct {unsigned f; char r[32];} string67 = {1900576, "Usage: Redo commandNamePrefix\000\000"};
static struct {unsigned f; char r[24];} string68 = {1441816, "Usage: %g pattern ...\012\000"};
static struct {unsigned f; char r[4];} string69 = {65540, "*\000\000"};
static struct {unsigned f; char r[28];} string70 = {1769500, "No matching commands for %g"};
static struct {unsigned f; char r[12];} string71 = {589836, "%L%-20g%L\000\000"};
static struct {unsigned f; char r[4];} string72 = {131076, "bf\000"};
static struct {unsigned f; char r[4];} string73 = {131076, "BF\000"};
static struct {unsigned f; char r[4];} string74 = {131076, "\012\015\000"};
static struct {unsigned f; char r[8];} string75 = {262152, "    \000\000\000"};
static struct {unsigned f; char r[4];} string76 = {131076, "-i\000"};
static struct {unsigned f; char r[4];} string77 = {196612, "-~i"};
static struct {unsigned f; char r[12];} string78 = {655372, " not found\000"};
static struct {unsigned f; char r[12];} string79 = {655372, "(formerly \000"};
static struct {unsigned f; char r[4];} string80 = {131076, ") \000"};
static struct {unsigned f; char r[24];} string81 = {1376280, "ListProcessProperties\000\000"};
static struct {unsigned f; char r[8];} string82 = {262152, "List\000\000\000"};
static struct {unsigned f; char r[32];} string83 = {1900576, "Usage: SetProperty key value\012\000\000"};
static struct {unsigned f; char r[4];} string84 = {196612, "NIL"};
static struct {unsigned f; char r[24];} string85 = {1310744, "Usage: Sleep seconds\000\000\000"};
static struct {unsigned f; char r[32];} string86 = {1966112, "Running time: %g seconds (%r)\012\000"};
static struct {unsigned f; char r[28];} string87 = {1638428, "Running time: %g seconds\012\000\000"};
static struct {unsigned f; char r[36];} string88 = {2293796, "Running time: %g seconds (%r.%03g)\012"};
static struct {unsigned f; char r[28];} string89 = {1638428, "Unregister: %g not found\012\000\000"};
static struct {unsigned f; char r[8];} string90 = {458760, "locally"};
static struct {unsigned f; char r[4];} string91 = {131076, "on\000"};
static struct {unsigned f; char r[4];} string92 = {196612, "off"};
static struct {unsigned f; char r[8];} string93 = {393224, "toggle\000"};
static struct {unsigned f; char r[4];} string94 = {65540, "?\000\000"};
static struct {unsigned f; char r[8];} string95 = {458760, "Verbose"};
static struct {unsigned f; char r[8];} string96 = {327688, "Terse\000\000"};
static struct {unsigned f; char r[12];} string97 = {655372, "Statistics\000"};
static struct {unsigned f; char r[12];} string98 = {655372, "HistoryLog\000"};
static struct {unsigned f; char r[8];} string99 = {262152, " on\012\000\000\000"};
static struct {unsigned f; char r[8];} string100 = {327688, " off\012\000\000"};
static struct {unsigned f; char r[176];} string101 = {11337904, "print a property value, providing a default\012args: [ switch ] propname [ defaultvalue ]\012switches: -q => always quote;  -s => never quote;  -f => fail if property is undefined\000\000"};
static struct {unsigned f; char r[4];} string102 = {196612, "$%g"};
static struct {unsigned f; char r[8];} string103 = {262152, "\042%q\042\000\000\000"};
static struct {unsigned f; char r[12];} string104 = {589836, "RopeList[\000\000"};
static struct {unsigned f; char r[4];} string105 = {131076, ", \000"};
static struct {unsigned f; char r[4];} string106 = {65540, "]\000\000"};
static struct {unsigned f; char r[8];} string107 = {327688, "LIST[\000\000"};
static struct {unsigned f; char r[4];} string108 = {131076, "%g\000"};
static struct {unsigned f; char r[52];} string109 = {3145780, "Star expansion in command position not allowed.\012\000\000\000"};
static struct {unsigned f; char r[4];} string110 = {196612, ".%g"};
static struct {unsigned f; char r[8];} string111 = {458760, "Synonym"};
static struct {unsigned f; char r[8];} string112 = {262152, "Redo\000\000\000"};
static struct {unsigned f; char r[64];} string113 = {4128832, "Redo <string> \030 redoes the last command that begins with string"};
static struct {unsigned f; char r[8];} string114 = {458760, "History"};
static struct {unsigned f; char r[176];} string115 = {11337904, "History <option>* <n> \030 lists the last n commands in this CommandTool viewer\012  -% \011omit % prompt\012  +%\011include % prompt\012  -d\011remove duplicate commands\012  +d\011include duplicates\000\000"};
static struct {unsigned f; char r[8];} string116 = {262152, "Prop\000\000\000"};
static struct {unsigned f; char r[4];} string117 = {196612, "Map"};
static struct {unsigned f;  char r0[200]; char r1[28];} string118
   = { 14811364,
   "maps the first argument as a command over the other arguments\012  -a  return failure if any command fails\012  -e  return failure if every command fails\012  -q  quit on failure, return failure\012  -s  quit on ",
   "success, return success\012  \000"};
static struct {unsigned f; char r[16];} string119 = {851984, "\257\300\023\104\122\343\300\160\065\074\177\100\164\000\000"};
static struct {unsigned f; char r[12];} string120 = {655370, "\006\001\100\110\010\000\004\100\147\001\000"};
static struct {unsigned f; char r[16];} string121 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string122 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static struct {unsigned f; char r[16];} string123 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string124 = {851984, "\257\300\076\142\265\237\300\173\214\371\034\100\150\000\000"};
static struct {unsigned f; char r[16];} string125 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string126 = {851984, "\257\300\206\126\034\347\300\061\333\303\163\100\150\000\000"};
static struct {unsigned f; char r[16];} string127 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[12];} string128 = {720908, "\257\300\036\351\345\237\244\150\210\100\150"};
static struct {unsigned f; char r[16];} string129 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string130 = {851984, "\257\300\144\364\322\150\300\206\136\277\046\100\150\000\000"};
static struct {unsigned f; char r[16];} string131 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string132 = {851984, "\257\300\314\116\377\204\300\167\024\373\125\100\150\000\000"};
static struct {unsigned f; char r[16];} string133 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string134 = {851984, "\257\300\255\220\043\324\300\140\002\100\200\100\150\000\000"};
static struct {unsigned f; char r[16];} string135 = {851984, "\257\300\072\337\114\355\300\232\070\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string136 = {851984, "\257\300\212\064\201\064\300\246\250\327\344\100\150\000\000"};
static struct {unsigned f; char r[16];} string469 = {851984, "GetProperties\000\000"};
static struct {unsigned f; char r[36];} string470 = {2228260, "Display command tool property list\000"};
static struct {unsigned f; char r[24];} string471 = {1310744, "GetProcessProperties\000\000\000"};
static struct {unsigned f; char r[32];} string472 = {2031648, "Display process properties list"};
static struct {unsigned f; char r[12];} string473 = {720908, "SetProperty"};
static struct {unsigned f; char r[84];} string474 = {5242964, "SetProperty propertyName value - change or add to the command tool property list\000\000\000"};
static struct {unsigned f; char r[20];} string475 = {1179668, "SetProcessProperty\000"};
static struct {unsigned f; char r[76];} string476 = {4915276, "SetProperty propertyName value - change or add to the process property list"};
static struct {unsigned f; char r[16];} string477 = {983056, "SetListProperty"};
static struct {unsigned f; char r[132];} string478 = {8388740, "SetProperty propertyName elt elt ... - bind propertyName in the command tool property list to the LIST OF ROPE = [elt, elt, ...]\000\000\000"};
static struct {unsigned f; char r[24];} string479 = {1441816, "SetListProcessProperty\000"};
static struct {unsigned f; char r[88];} string480 = {5505112, "bind propertyName in the process property list to the LIST OF ROPE = [elt, elt, ...]\000\000\000"};
static struct {unsigned f; char r[4];} string481 = {65540, "-\000\000"};
static struct {unsigned f; char r[8];} string482 = {458760, "Comment"};
static struct {unsigned f; char r[4];} string483 = {131076, "--\000"};
static struct {unsigned f; char r[4];} string484 = {65540, "/\000\000"};
static struct {unsigned f; char r[4];} string485 = {131076, "//\000"};
static struct {unsigned f; char r[28];} string486 = {1572892, "List registered commands\000\000\000"};
static struct {unsigned f; char r[8];} string487 = {327688, "Abort\000\000"};
static struct {unsigned f; char r[24];} string488 = {1507352, "Abort -- Raises ABORTED"};
static struct {unsigned f; char r[8];} string489 = {327688, "Alias\000\000"};
static struct {unsigned f; char r[88];} string490 = {5505112, "Define a new command in terms of others, using blind string-matching for parameters.\000\000\000"};
static struct {unsigned f; char r[8];} string491 = {458760, "Aliases"};
static struct {unsigned f; char r[20];} string492 = {1048596, "List all Aliases\000\000\000"};
static struct {unsigned f; char r[12];} string493 = {655372, "Answerback\000"};
static struct {unsigned f; char r[40];} string494 = {2490408, "reads result and msg from command line\000"};
static struct {unsigned f; char r[8];} string495 = {262152, "Date\000\000\000"};
static struct {unsigned f; char r[20];} string496 = {1245204, "Print date and time"};
static struct {unsigned f; char r[8];} string497 = {262152, "Echo\000\000\000"};
static struct {unsigned f; char r[72];} string498 = {4456520, "Print command line arguments\012\011-s  supress whitespace\012\011-n  no newline\000\000\000"};
static struct {unsigned f; char r[8];} string499 = {327688, "ERROR\000\000"};
static struct {unsigned f; char r[32];} string500 = {1900576, "Error -- Raises unnamed ERROR\000\000"};
static struct {unsigned f; char r[8];} string501 = {262152, "Fail\000\000\000"};
static struct {unsigned f; char r[28];} string502 = {1638428, "This command always fails\000\000"};
static struct {unsigned f; char r[4];} string503 = {65540, ";\000\000"};
static struct {unsigned f; char r[16];} string504 = {983056, "Skip on failure"};
static struct {unsigned f; char r[8];} string505 = {262152, "Help\000\000\000"};
static struct {unsigned f; char r[28];} string506 = {1769500, "Indent n -- Indent n spaces"};
static struct {unsigned f; char r[64];} string507 = {4063296, "PrefixLines <string> - prefix each line of stdin with <string>\000"};
static struct {unsigned f; char r[12];} string508 = {655372, "PrevResult\000"};
static struct {unsigned f; char r[44];} string509 = {2752556, "- print the result of the previous command\000"};
static struct {unsigned f; char r[12];} string510 = {524300, "ResultOf\000\000\000"};
static struct {unsigned f; char r[68];} string511 = {4259908, "<command> - print the result of the given command (uninterpreted)\000\000"};
static struct {unsigned f; char r[88];} string512 = {5636184, "ReadTo <string> - Copy stdin to stdout until a line with just <string> is encountered.\000"};
static struct {unsigned f; char r[8];} string514 = {327688, "Shift\000\000"};
static struct {unsigned f; char r[36];} string515 = {2228260, "Shift command-line (uninterpreted)\000"};
static struct {unsigned f; char r[12];} string516 = {720908, "ShiftInterp"};
static struct {unsigned f; char r[40];} string517 = {2490408, "ShiftInterp command-line (interpreted)\000"};
static struct {unsigned f; char r[8];} string518 = {458760, "Command"};
static struct {unsigned f; char r[32];} string519 = {1835040, "do command-line as a command\000\000\000"};
static struct {unsigned f; char r[12];} string520 = {589836, "Commander\000\000"};
static struct {unsigned f; char r[24];} string521 = {1507352, "Make a nested commander"};
static struct {unsigned f; char r[8];} string522 = {327688, "Sleep\000\000"};
static struct {unsigned f; char r[32];} string523 = {1966112, "Sleep n -- pause for n seconds\000"};
static struct {unsigned f; char r[8];} string524 = {262152, "Time\000\000\000"};
static struct {unsigned f; char r[36];} string525 = {2162724, "Time command-line (uninterpreted)\000\000"};
static struct {unsigned f; char r[12];} string526 = {655372, "Unregister\000"};
static struct {unsigned f; char r[56];} string527 = {3473464, "Unregister commands\012Usage: Unregister commandname ...\000\000"};
static struct {unsigned f; char r[88];} string528 = {5570648, "Control command tracing (inverse of Terse)\012Usage: Verbose [locally] [on|off|toggle|?]\000\000"};
static struct {unsigned f; char r[88];} string529 = {5570648, "Control command tracing (inverse of Verbose)\012Usage: Terse [locally] [on|off|toggle|?]\000\000"};
static struct {unsigned f; char r[76];} string530 = {4784204, "Control statistics printing\012Usage: Statistics [locally] [on|off|toggle|?]\000\000"};
static struct {unsigned f; char r[72];} string531 = {4522056, "Control history logging\012Usage: HistoryLog [locally] [on|off|toggle|?]\000\000"};
static struct {unsigned f; char r[8];} string532 = {458760, "Version"};
static struct {unsigned f; char r[28];} string533 = {1703964, "Print Cedar version number\000"};
static struct {unsigned f; char r[20];} string534 = {1179668, "ForegroundPriority\000"};
static struct {unsigned f; char r[68];} string535 = {4390980, "(uninterpreted) Execute rest of command line at foreground priority"};
static struct {unsigned f; char r[20];} string536 = {1179668, "BackgroundPriority\000"};
static struct {unsigned f; char r[68];} string537 = {4390980, "(uninterpreted) Execute rest of command line at background priority"};
static struct {unsigned f; char r[16];} string538 = {917520, "NormalPriority\000"};
static struct {unsigned f; char r[64];} string539 = {4128832, "(uninterpreted) Execute rest of command line at normal priority"};
static struct {
   word f0[121]; 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; word f167; 
   word f168; word f169; word f170; word f171; 
   word f172; word f173; word f174; word f175; 
   word f176; word f177; word f178; word f179; 
   word f180; word f181; word f182; word f183; 
   word f184; word f185; word f186; word f187; 
   word f188; word f189; word f190; word f191; 
   word f192; word f193; word f194; word f195; 
   word f196; word f197; word f198; word f199; 
   word f200; word f201; word f202[17]; 
   } globalframe = {
   {0}, (word) Init_P2400, 0, (word) NewlineBreak_P2340, 
   0, (word) RopeSubst_P2280, 0, (word) PutVersion_P2220, 
   0, (word) MapCommand_P2160, 0, (word) VersionCommand_P2100, 
   0, (word) PrintAny_P2040, 0, (word) FindLastProp_P1980, 
   0, (word) ControlCommand_P1920, 0, (word) UnregisterCommand_P1860, 
   0, (word) TimeCommand_P1800, 0, (word) SleepCommand_P1740, 
   0, (word) ShiftCommand_P1680, 0, (word) SetPropertyCommand_P1620, 
   0, (word) ReregisterAsCommand_P1560, 0, (word) RegisteredHelpCommand_P1500, 
   0, (word) RedoCommand_P1440, 0, (word) PropertiesCommand_P1380, 
   0, (word) PropCommand_P1320, 0, (word) ResultOfCommand_P1260, 
   0, (word) PrevResultCommand_P1200, 0, (word) SpecialChar_P1140, 
   0, (word) PriorityCommand_P1080, 0, (word) IndentCommand_P1020, 
   0, (word) HistoryCommand_P960, 0, (word) IsCommandPrefix_P900, 
   0, (word) FailSkipCommand_P840, 0, (word) FailCommand_P780, 
   0, (word) ErrorCommand_P720, 0, (word) EchoCommand_P660, 
   0, (word) DateCommand_P600, 0, (word) CommanderCommand_P540, 
   0, (word) CommentCommand_P480, 0, (word) AnswerbackCommand_P420, 
   0, (word) RopeMemb_P360, 0, (word) GetWord_P300, 
   0, (word) AliasesCommand_P240, 0, (word) AliasImplProc_P180, 
   0, (word) AliasCommand_P120, 0, (word) AbortCommand_P60, 
   0, (word) CommanderBasicCommandsImpl_P0, {0}
   };

static void NoName_Q6732()
   {
   register ptr gf_c0733 =  (ptr) &globalframe;
   word var_c49376;
   (* (( (ptr) gf_c0733)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0733)+5) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c0733)+7) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf_c0733)+9) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8);
   (* (( (ptr) gf_c0733)+10) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string8);
   (* (( (ptr) gf_c0733)+11) ) = (word) XR_GetTypeIndexS((word) (&string10));
   (* (( (ptr) gf_c0733)+12) ) = (word) XR_GetTypeIndexS((word) (&string11));
   (* (( (ptr) gf_c0733)+14) ) = (word) XR_GetTypeIndex((word) &string12, 0, (word) &string4);
   (* (( (ptr) gf_c0733)+15) ) = (word) XR_GetTypeIndex((word) &string13, 0, (word) &string8);
   (* (( (ptr) gf_c0733)+16) ) = (word) XR_GetTypeIndex((word) &string14, 0, (word) &string8);
   (* (( (ptr) gf_c0733)+17) ) = (word) XR_GetTypeIndex((word) &string15, 0, (word) &string8);
   (*  (ptr) (( (bPt) gf_c0733)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string16);
   (*  (ptr) (( (bPt) gf_c0733)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string17);
   (*  (ptr) (( (bPt) gf_c0733)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string18);
   (*  (ptr) (( (bPt) gf_c0733)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string19);
   (*  (ptr) (( (bPt) gf_c0733)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string20);
   (*  (ptr) (( (bPt) gf_c0733)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string21);
   (*  (ptr) (( (bPt) gf_c0733)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string22);
   (*  (ptr) (( (bPt) gf_c0733)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string23);
   (*  (ptr) (( (bPt) gf_c0733)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string24);
   (*  (ptr) (( (bPt) gf_c0733)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string25);
   (*  (ptr) (( (bPt) gf_c0733)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string26);
   (*  (ptr) (( (bPt) gf_c0733)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string27);
   (*  (ptr) (( (bPt) gf_c0733)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string28);
   (*  (ptr) (( (bPt) gf_c0733)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string29);
   (*  (ptr) (( (bPt) gf_c0733)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string30);
   (*  (ptr) (( (bPt) gf_c0733)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string31);
   (*  (ptr) (( (bPt) gf_c0733)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string32);
   (*  (ptr) (( (bPt) gf_c0733)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string33);
   (*  (ptr) (( (bPt) gf_c0733)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string34);
   (*  (ptr) (( (bPt) gf_c0733)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string35);
   (*  (ptr) (( (bPt) gf_c0733)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string36);
   (*  (ptr) (( (bPt) gf_c0733)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string37);
   (*  (ptr) (( (bPt) gf_c0733)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string38);
   (*  (ptr) (( (bPt) gf_c0733)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string39);
   (*  (ptr) (( (bPt) gf_c0733)+168) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string40);
   (*  (ptr) (( (bPt) gf_c0733)+172) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string41);
   (*  (ptr) (( (bPt) gf_c0733)+176) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string42);
   (*  (ptr) (( (bPt) gf_c0733)+180) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string43);
   (*  (ptr) (( (bPt) gf_c0733)+184) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string44);
   (*  (ptr) (( (bPt) gf_c0733)+188) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string45);
   (*  (ptr) (( (bPt) gf_c0733)+192) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string46);
   (*  (ptr) (( (bPt) gf_c0733)+196) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string47);
   (*  (ptr) (( (bPt) gf_c0733)+200) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string48);
   (*  (ptr) (( (bPt) gf_c0733)+204) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string49);
   (*  (ptr) (( (bPt) gf_c0733)+208) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string50);
   (*  (ptr) (( (bPt) gf_c0733)+212) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string51);
   (*  (ptr) (( (bPt) gf_c0733)+216) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string52);
   (*  (ptr) (( (bPt) gf_c0733)+220) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string53);
   (*  (ptr) (( (bPt) gf_c0733)+224) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string54);
   (*  (ptr) (( (bPt) gf_c0733)+228) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string55);
   (*  (ptr) (( (bPt) gf_c0733)+232) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string56);
   (*  (ptr) (( (bPt) gf_c0733)+236) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string57);
   (*  (ptr) (( (bPt) gf_c0733)+240) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string58);
   (*  (ptr) (( (bPt) gf_c0733)+244) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string59);
   (*  (ptr) (( (bPt) gf_c0733)+248) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string60);
   (*  (ptr) (( (bPt) gf_c0733)+252) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string61);
   (*  (ptr) (( (bPt) gf_c0733)+256) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string62);
   (*  (ptr) (( (bPt) gf_c0733)+260) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string63);
   (*  (ptr) (( (bPt) gf_c0733)+264) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string64);
   (*  (ptr) (( (bPt) gf_c0733)+268) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string65);
   (*  (ptr) (( (bPt) gf_c0733)+272) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string66);
   (*  (ptr) (( (bPt) gf_c0733)+276) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string67);
   (*  (ptr) (( (bPt) gf_c0733)+280) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string68);
   (*  (ptr) (( (bPt) gf_c0733)+284) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string69);
   (*  (ptr) (( (bPt) gf_c0733)+288) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string70);
   (*  (ptr) (( (bPt) gf_c0733)+292) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string71);
   (*  (ptr) (( (bPt) gf_c0733)+296) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string72);
   (*  (ptr) (( (bPt) gf_c0733)+300) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string73);
   (*  (ptr) (( (bPt) gf_c0733)+304) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string74);
   (*  (ptr) (( (bPt) gf_c0733)+308) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string75);
   (*  (ptr) (( (bPt) gf_c0733)+312) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string76);
   (*  (ptr) (( (bPt) gf_c0733)+316) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string77);
   (*  (ptr) (( (bPt) gf_c0733)+320) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string78);
   (*  (ptr) (( (bPt) gf_c0733)+324) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string79);
   (*  (ptr) (( (bPt) gf_c0733)+328) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string80);
   (*  (ptr) (( (bPt) gf_c0733)+332) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string81);
   (*  (ptr) (( (bPt) gf_c0733)+336) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string82);
   (*  (ptr) (( (bPt) gf_c0733)+340) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string83);
   (*  (ptr) (( (bPt) gf_c0733)+344) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string84);
   (*  (ptr) (( (bPt) gf_c0733)+348) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string85);
   (*  (ptr) (( (bPt) gf_c0733)+352) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string86);
   (*  (ptr) (( (bPt) gf_c0733)+356) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string87);
   (*  (ptr) (( (bPt) gf_c0733)+360) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string88);
   (*  (ptr) (( (bPt) gf_c0733)+364) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string89);
   (*  (ptr) (( (bPt) gf_c0733)+368) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string90);
   (*  (ptr) (( (bPt) gf_c0733)+372) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string91);
   (*  (ptr) (( (bPt) gf_c0733)+376) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string92);
   (*  (ptr) (( (bPt) gf_c0733)+380) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string93);
   (*  (ptr) (( (bPt) gf_c0733)+384) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string94);
   (*  (ptr) (( (bPt) gf_c0733)+388) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string95);
   (*  (ptr) (( (bPt) gf_c0733)+392) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string96);
   (*  (ptr) (( (bPt) gf_c0733)+396) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string97);
   (*  (ptr) (( (bPt) gf_c0733)+400) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+14) ), (word) &string98);
   (*  (ptr) (( (bPt) gf_c0733)+404) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string99);
   (*  (ptr) (( (bPt) gf_c0733)+408) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string100);
   (*  (ptr) (( (bPt) gf_c0733)+412) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string101);
   (*  (ptr) (( (bPt) gf_c0733)+416) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string102);
   (*  (ptr) (( (bPt) gf_c0733)+420) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string103);
   (*  (ptr) (( (bPt) gf_c0733)+424) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string104);
   (*  (ptr) (( (bPt) gf_c0733)+428) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string105);
   (*  (ptr) (( (bPt) gf_c0733)+432) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string106);
   (*  (ptr) (( (bPt) gf_c0733)+436) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string107);
   (*  (ptr) (( (bPt) gf_c0733)+440) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string108);
   (*  (ptr) (( (bPt) gf_c0733)+444) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string109);
   (*  (ptr) (( (bPt) gf_c0733)+448) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string110);
   (*  (ptr) (( (bPt) gf_c0733)+452) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string111);
   (*  (ptr) (( (bPt) gf_c0733)+456) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string112);
   (*  (ptr) (( (bPt) gf_c0733)+460) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string113);
   (*  (ptr) (( (bPt) gf_c0733)+464) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string114);
   (*  (ptr) (( (bPt) gf_c0733)+468) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string115);
   (*  (ptr) (( (bPt) gf_c0733)+472) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string116);
   (*  (ptr) (( (bPt) gf_c0733)+476) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string117);
   (*  (ptr) (( (bPt) gf_c0733)+480) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0733)+5) ), (word) &string118);
   (void) XR_DeclareGlobalFrame((word) "CommanderBasicCommandsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string119, 0, (word) &string120)
      , (word) (( (bPt) gf_c0733)+804)/* var_c44128 */ );
   var_c49376 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string121)), 16);
   (* (( (ptr) gf_c0733)+204)/* var_c44352 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67895555);
   (void) XR_ImportProcS(var_c49376, 67897859);
   (void) XR_ImportProcS(var_c49376, 67372289);
   var_c49376 = (word) XR_ImportInterface((word) "BasicTime", (word) XR_GetTypeIndexS((word) (&string122)), 24);
   (* (( (ptr) gf_c0733)+210)/* var_c45312 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67372033);
   (void) XR_ImportProcS(var_c49376, 67372289);
   (void) XR_ImportProcS(var_c49376, 67636226);
   (void) XR_ImportProcS(var_c49376, 67109632);
   (void) XR_ImportProcS(var_c49376, 67111424);
   var_c49376 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string123)), 3);
   (* (( (ptr) gf_c0733)+207)/* var_c44576 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 134480129);
   (void) XR_ImportProcS(var_c49376, 1310725);
   (void) XR_ImportProcS(var_c49376, 67371521);
   var_c49376 = (word) XR_ImportInterface((word) "CommanderBackdoor", (word) XR_GetTypeIndexS((word) (&string124)), 5);
   (* (( (ptr) gf_c0733)+213)/* var_c45632 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67371265);
   var_c49376 = (word) XR_ImportInterface((word) "CommanderOps", (word) XR_GetTypeIndexS((word) (&string125)), 14);
   (* (( (ptr) gf_c0733)+208)/* var_c44736 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 134742274);
   (void) XR_ImportProcS(var_c49376, 134744322);
   (void) XR_ImportProcS(var_c49376, 67635970);
   (void) XR_ImportProcS(var_c49376, 67633666);
   (void) XR_ImportProcS(var_c49376, 67374337);
   (void) XR_ImportProcS(var_c49376, 67634178);
   (void) XR_ImportProcS(var_c49376, 68160516);
   (void) XR_ImportProcS(var_c49376, 67634946);
   (void) XR_ImportProcS(var_c49376, 201590273);
   var_c49376 = (word) XR_ImportInterface((word) "CommanderRegistry", (word) XR_GetTypeIndexS((word) (&string126)), 3);
   (* (( (ptr) gf_c0733)+216)/* var_c47104 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 134742274);
   var_c49376 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string127)), 73);
   (* (( (ptr) gf_c0733)+209)/* var_c45056 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67634946);
   (void) XR_ImportProcS(var_c49376, 67641858);
   (void) XR_ImportProcS(var_c49376, 67634690);
   (void) XR_ImportProcS(var_c49376, 67901187);
   var_c49376 = (word) XR_ImportInterface((word) "ConvertUnsafe", (word) XR_GetTypeIndexS((word) (&string128)), 8);
   (* (( (ptr) gf_c0733)+218)/* var_c49312 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67372289);
   var_c49376 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string129)), 103);
   (* (( (ptr) gf_c0733)+203)/* var_c44160 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 799490);
   (void) XR_ImportProcS(var_c49376, 2111493);
   (void) XR_ImportProcS(var_c49376, 67910402);
   (void) XR_ImportProcS(var_c49376, 1053444);
   (void) XR_ImportProcS(var_c49376, 67655170);
   (void) XR_ImportProcS(var_c49376, 67392513);
   (void) XR_ImportProcS(var_c49376, 528642);
   (void) XR_ImportProcS(var_c49376, 1063171);
   (void) XR_ImportProcS(var_c49376, 67393281);
   (void) XR_ImportProcS(var_c49376, 1071364);
   (void) XR_ImportProcS(var_c49376, 67392257);
   (void) XR_ImportProcS(var_c49376, 134763778);
   (void) XR_ImportProcS(var_c49376, 530434);
   (void) XR_ImportProcS(var_c49376, 67917827);
   (void) XR_ImportProcS(var_c49376, 67391233);
   (void) XR_ImportProcS(var_c49376, 67374849);
   (void) XR_ImportProcS(var_c49376, 67373825);
   (void) XR_ImportProcS(var_c49376, 67653890);
   (void) XR_ImportProcS(var_c49376, 67640578);
   var_c49376 = (word) XR_ImportInterface((word) "List", (word) XR_GetTypeIndexS((word) (&string130)), 28);
   (* (( (ptr) gf_c0733)+212)/* var_c45568 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67899907);
   (void) XR_ImportProcS(var_c49376, 67637250);
   var_c49376 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string131)), 22);
   (* (( (ptr) gf_c0733)+211)/* var_c45408 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67371777);
   (void) XR_ImportProcS(var_c49376, 266497);
   (void) XR_ImportProcS(var_c49376, 264449);
   (void) XR_ImportProcS(var_c49376, 67111424);
   (void) XR_ImportProcS(var_c49376, 3584);
   var_c49376 = (word) XR_ImportInterface((word) "ProcessProps", (word) XR_GetTypeIndexS((word) (&string132)), 6);
   (* (( (ptr) gf_c0733)+215)/* var_c46656 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67109376);
   var_c49376 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string133)), 43);
   (* (( (ptr) gf_c0733)+206)/* var_c44544 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 68160516);
   (void) XR_ImportProcS(var_c49376, 68159236);
   (void) XR_ImportProcS(var_c49376, 67373569);
   (void) XR_ImportProcS(var_c49376, 67900419);
   (void) XR_ImportProcS(var_c49376, 68163076);
   (void) XR_ImportProcS(var_c49376, 67373313);
   (void) XR_ImportProcS(var_c49376, 67377153);
   (void) XR_ImportProcS(var_c49376, 67379201);
   (void) XR_ImportProcS(var_c49376, 67634434);
   (void) XR_ImportProcS(var_c49376, 67900675);
   (void) XR_ImportProcS(var_c49376, 67373825);
   (void) XR_ImportProcS(var_c49376, 67898627);
   (void) XR_ImportProcS(var_c49376, 67900163);
   (void) XR_ImportProcS(var_c49376, 68419845);
   (void) XR_ImportProcS(var_c49376, 67633666);
   (void) XR_ImportProcS(var_c49376, 67896323);
   var_c49376 = (word) XR_ImportInterface((word) "RopeList", (word) XR_GetTypeIndexS((word) (&string134)), 15);
   (* (( (ptr) gf_c0733)+205)/* var_c44416 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67636738);
   (void) XR_ImportProcS(var_c49376, 67636226);
   (void) XR_ImportProcS(var_c49376, 67372545);
   var_c49376 = (word) XR_ImportInterface((word) "SymTab", (word) XR_GetTypeIndexS((word) (&string135)), 13);
   (* (( (ptr) gf_c0733)+214)/* var_c45664 */  ) = var_c49376;
   (void) XR_ImportProcS(var_c49376, 67897091);
   (void) XR_ImportProcS(var_c49376, 134742786);
   (void) XR_ImportProcS(var_c49376, 67633410);
   var_c49376 = (word) XR_ImportInterface((word) "SystemVersion", (word) XR_GetTypeIndexS((word) (&string136)), 6);
   (* (( (ptr) gf_c0733)+217)/* var_c49184 */  ) = var_c49376;
   }

static void CommanderBasicCommandsImpl_P0(formal_c0112, formal_c0111)
   word formal_c0112;
   word formal_c0111;
   {
   /* CommanderBasicCommandsImpl: */ 
SOURCE(622, 31367)
SOURCE(31983, 6)
   (void) Init_P2400();
   }

static void AbortCommand_P60(formal_c0116, cmd_v20720)
   word formal_c0116;
   word cmd_v20720;
   {
   word result_v20764;
   word msg_v20792;
   /* AbortCommand: */ 
SOURCE(1145, 54)
SOURCE(1145, 54)
   result_v20764 = 0;
SOURCE(1145, 54)
   msg_v20792 = 0;
SOURCE(1185, 14)
   (void) XR_RaiseError(XR_Aborted, 0);
   }

static void AliasCommand_P120(formal_c0127, formal_c0863)
   word formal_c0127;
   word formal_c0863;
   {
   W13 var_c49408;
   /* declaration of cmd_v20852 skipped */ 
   register ptr gf_c49440 =  (ptr) &globalframe;
   /* declaration of result_v20896 skipped */ 
   /* declaration of msg_v20924 skipped */ 
   /* declaration of commandLineStream_v6336 skipped */ 
   /* declaration of name_v6392 skipped */ 
   /* declaration of def_v6420 skipped */ 
   /* declaration of args_v6448 skipped */ 
   /* declaration of aliasCell_v6476 skipped */ 
   /* declaration of originalProc_v6504 skipped */ 
   (* (( (ptr) &var_c49408)+4)/* cmd_v20852 */  ) = formal_c0863;
   /* AliasCommand: */ 
SOURCE(1203, 1338)
SOURCE(1203, 1338)
   (* (( (ptr) &var_c49408)+5)/* result_v20896 */  ) = 0;
SOURCE(1203, 1338)
   (* (( (ptr) &var_c49408)+6)/* msg_v20924 */  ) = 0;
SOURCE(1243, 54)
   {
      word pd137;
      pd137 = (* (( (ptr) (* (( (ptr) gf_c49440)+203)/* var_c44160 */  ))+33) );
      (* (( (ptr) &var_c49408)+7)/* commandLineStream_v6336 */  ) = (word) ( *( (fPt) ((*  (ptr) pd137 ))))((* (( (ptr) (* (( (ptr) &var_c49408)+4)
            /* cmd_v20852 */  ))+4) ), 0, pd137);
      };
SOURCE(1320, 15)
   (* (( (ptr) &var_c49408)+8)/* name_v6392 */  ) = 0;
   (* (( (ptr) &var_c49408)+9)/* def_v6420 */  ) = 0;
SOURCE(1337, 6)
   (* (( (ptr) &var_c49408)+10)/* args_v6448 */  ) = 0;
SOURCE(1363, 20)
   (* (( (ptr) &var_c49408)+11)/* aliasCell_v6476 */  ) = 0;
SOURCE(1385, 41)
   (* (( (ptr) &var_c49408)+12)/* originalProc_v6504 */  ) = 0;
SOURCE(1428, 1113)
SOURCE(1430, 1032)
   {
      word var_c01;
      {
         word var_c0814;
         var_c0814 = (word) &var_c49408;
         var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q6792) ), ( ((word)  (fPt) NoName_Q8772) ), var_c0814);
         };
      if ((var_c01 == 3)) {
         goto lab_L100001;
         }
      else {
         if ((var_c01 == 2)) {
            goto lab_L100002;
            };
         };
      };
   goto lab_L100010;
   lab_L100002: ;
SOURCE(2477, 62)
   {
      word var_c0126;
      var_c0126 = (* (( (ptr) gf_c49440)+19) );
      (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c49440)+208)/* var_c44736 */  ))+4) ), (word) &var_c0126);
      };
   lab_L100010: ;
   /* removed tail goto */ 
   lab_L100001: ;
   (*  (ptr) formal_c0127 ) = (* (( (ptr) &var_c49408)+5)/* result_v20896 */  );
   (* (( (ptr) formal_c0127)+1) ) = (* (( (ptr) &var_c49408)+6)/* msg_v20924 */  );
   return;
   }

static word NoName_Q6792(formal_c0736)
   word formal_c0736;
   {
   register ptr gf_c0735 =  (ptr) &globalframe;
   word var_c44480;
SOURCE(1480, 33)
   (* (( (ptr) formal_c0736)+8) ) = (word) GetWord_P300((* ((( (ptr) formal_c0736)+7)) ));
SOURCE(1515, 48)
   {
      word var_c44192;
      word pd138;
      pd138 = (* (( (ptr) (* (( (ptr) gf_c0735)+203)/* var_c44160 */  ))+85) );
      var_c44192 = (word) ( *( (fPt) ((*  (ptr) pd138 ))))((* (( (ptr) formal_c0736)+7) ), 0, pd138);
      };
SOURCE(1565, 348)
   {
      word tc139;
      word pd140;
      word pd141;
      pd140 = (* (( (ptr) (* (( (ptr) gf_c0735)+203)/* var_c44160 */  ))+15) );
      if ((0 == (word) ( *( (fPt) ((*  (ptr) pd140 ))))((* ((( (ptr) formal_c0736)+7)) ), pd140))) {
         pd141 = (* (( (ptr) (* (( (ptr) gf_c0735)+203)/* var_c44160 */  ))+19) );
         tc139 =  (word) ((word) ( *( (fPt) ((*  (ptr) pd141 ))))((* ((( (ptr) formal_c0736)+7)) ), pd141) == 40);
         }
      else {
         tc139 =  (word) 0;
         };
      if (tc139) {
SOURCE(1647, 194)
         {
            register word l_v6632;
            {
               word pd142;
               pd142 = (* (( (ptr) (* (( (ptr) gf_c0735)+203)/* var_c44160 */  ))+83) );
               l_v6632 = XR_Narrow((word) ( *( (fPt) ((*  (ptr) pd142 ))))((* ((( (ptr) formal_c0736)+7)) ), pd142), (* (( (ptr) gf_c0735)+9)
                   ));
               };
            lab_L100008: ;
            if ((l_v6632 != 0)) {
               }
            else {
               goto lab_L100005;
               };
SOURCE(1737, 104)
            {
               word var_c44224;
               word var_c44256;
               var_c44224 = (*  (ptr) l_v6632 );
               if ((var_c44224 == 0)) {
                  goto lab_L100009;
                  };
               var_c44256 = XR_GetReferentType(var_c44224);
               {
                  word tc143;
                  if (((* (( (ptr) gf_c0735)+4) ) == var_c44256)) {
                     tc143 =  (word) ((*(int*)var_c44224<0) == 0);
                     }
                  else {
                     tc143 =  (word) 0;
                     };
                  if (tc143) {
                     {
                        word r_v6772;
                        r_v6772 = var_c44224;
SOURCE(1773, 20)
                        {
                           word var_c44288;
                           var_c44288 = XR_NewObject(8, (* (( (ptr) gf_c0735)+10) ));
                           (*  (ptr) var_c44288 ) = r_v6772;
                           (* (( (ptr) var_c44288)+1) ) = (* (( (ptr) formal_c0736)+10) );
                           (* (( (ptr) formal_c0736)+10) ) = var_c44288;
                           };
                        };
                     }
                  else {
                     if (((* (( (ptr) gf_c0735)+11) ) == var_c44256)) {
                        {
                           word a_v6816;
                           a_v6816 = var_c44224;
SOURCE(1806, 35)
                           {
/*1*/   word var_c44320;
/*1*/   word var_c44384;
/*1*/   {
/*1*/      word pd144;
/*1*/      pd144 = (* (( (ptr) (* (( (ptr) gf_c0735)+204)/* var_c44352 */  ))+9) );
/*1*/      var_c44320 = (word) ( *( (fPt) ((*  (ptr) pd144 ))))(a_v6816, pd144);
/*1*/      };
/*1*/   var_c44384 = XR_NewObject(8, (* (( (ptr) gf_c0735)+10) ));
/*1*/   (*  (ptr) var_c44384 ) = var_c44320;
/*1*/   (* (( (ptr) var_c44384)+1) ) = (* (( (ptr) formal_c0736)+10) );
/*1*/   (* (( (ptr) formal_c0736)+10) ) = var_c44384;
/*1*/   };
                           };
                        }
                     else {
                        lab_L100009: ;
SOURCE(1854, 8)
                        return(2);
                        };
                     };
                  };
               };
            l_v6632 = (* (( (ptr) l_v6632)+1) );
            goto lab_L100008;
            lab_L100005: ;
            };
SOURCE(1881, 32)
SOURCE(1882, 29)
         {
            word pd145;
            pd145 = (* (( (ptr) (* (( (ptr) gf_c0735)+205)/* var_c44416 */  ))+10) );
            (* (( (ptr) formal_c0736)+10) ) = (word) ( *( (fPt) ((*  (ptr) pd145 ))))((* ((( (ptr) formal_c0736)+10)) ), pd145);
            };
         };
      };
SOURCE(1919, 73)
   {
      word var_c44448;
      {
         word pd146;
         pd146 = (* (( (ptr) (* (( (ptr) gf_c0735)+203)/* var_c44160 */  ))+92) );
         var_c44448 = (word) ( *( (fPt) ((*  (ptr) pd146 ))))((* (( (ptr) formal_c0736)+7) ), 2147483647, 0, pd146);
         };
      (* (( (ptr) formal_c0736)+9) ) = (word) RopeSubst_P2280((* (( (ptr) gf_c0735)+43) ), (* (( (ptr) gf_c0735)+33) ), var_c44448, 0, 1)
      ;
      };
SOURCE(1994, 246)
   {
      word pd148;
      {
         word var_c44512;
         {
            word pd147;
            pd147 = (* (( (ptr) (* (( (ptr) gf_c0735)+203)/* var_c44160 */  ))+33) );
            var_c44512 = (word) ( *( (fPt) ((*  (ptr) pd147 ))))((* (( (ptr) formal_c0736)+9) ), 0, pd147);
            };
         var_c44480 = (word) GetWord_P300(var_c44512);
         };
      pd148 = (* (( (ptr) (* (( (ptr) gf_c0735)+206)/* var_c44544 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd148 ))))(var_c44480, (* (( (ptr) formal_c0736)+8) ), 0, pd148))) {
SOURCE(2048, 194)
         {
            word procData_v6860;
SOURCE(2074, 62)
            {
               word pd149;
               pd149 = (* (( (ptr) (* (( (ptr) gf_c0735)+207)/* var_c44576 */  ))+6) );
               procData_v6860 = (word) ( *( (fPt) ((*  (ptr) pd149 ))))((* ((( (ptr) formal_c0736)+8)) ), pd149);
               };
SOURCE(2138, 102)
            if ((procData_v6860 != 0)) {
SOURCE(2161, 34)
               (* (( (ptr) formal_c0736)+12) ) = XR_CheckProc(*  (ptr) procData_v6860 );
               }
            else {
SOURCE(2195, 45)
               (* (( (ptr) formal_c0736)+5) ) = (* (( (ptr) gf_c0735)+21) );
               (* (( (ptr) formal_c0736)+6) ) = (* (( (ptr) gf_c0735)+20) );
               return(3);
               };
            };
         };
      };
SOURCE(2245, 67)
   {
      word var_c44672;
      var_c44672 = XR_NewObject(16, (* (( (ptr) gf_c0735)+17) ));
      (*  (ptr) var_c44672 ) = (* (( (ptr) formal_c0736)+10) );
      (* (( (ptr) var_c44672)+1) ) = (* (( (ptr) formal_c0736)+9) );
      (* (( (ptr) var_c44672)+3) ) = XR_CheckProc(* (( (ptr) formal_c0736)+12) );
      (* (( (ptr) formal_c0736)+11) ) = var_c44672;
      };
SOURCE(2314, 119)
   {
      word var_c44704;
      {
         word pd150;
         pd150 = (* (( (ptr) (* (( (ptr) gf_c0735)+206)/* var_c44544 */  ))+6) );
         var_c44704 = (word) ( *( (fPt) ((*  (ptr) pd150 ))))((* (( (ptr) gf_c0735)+18) ), (* (( (ptr) (* (( (ptr) formal_c0736)+4)
                ))+4) ), pd150);
         };
      {
         word pd151;
         pd151 = (* (( (ptr) (* (( (ptr) gf_c0735)+207)/* var_c44576 */  ))+4) );
         (void) ( *( (fPt) ((*  (ptr) pd151 ))))((* (( (ptr) formal_c0736)+8) ), (word) (( (bPt) gf_c0735)+780)/* var_c44032 */ , var_c44704, (* (
               ( (ptr) formal_c0736)+11) ), 1, pd151);
         };
      };
SOURCE(2435, 27)
   {
      word pd152;
      pd152 = (* (( (ptr) (* (( (ptr) gf_c0735)+203)/* var_c44160 */  ))+28) );
      (void) ( *( (fPt) ((*  (ptr) pd152 ))))((* (( (ptr) formal_c0736)+7) ), 0, pd152);
      };
   return(0);
   }

static void AliasImplProc_P180(formal_c0169, cmd_v20984)
   word formal_c0169;
   word cmd_v20984;
   {
   W7 var_c49472;
   register ptr gf_c49504 =  (ptr) &globalframe;
   word result_v21028;
   word msg_v21056;
   /* declaration of var_c44768 skipped */ 
   word aliasCell_v6904;
   word newCommandLine_v6932;
   word commandLineStream_v6960;
   word synonyms_v7016 = 0;
   /* declaration of gennum_v7044 skipped */ 
   /* AliasImplProc: */ 
SOURCE(2548, 1358)
   {
      word tmpAddr153;
      tmpAddr153 = (word) (( (ptr) &var_c49472)+4)/* var_c44768 */ ;
      (*  (ptr) tmpAddr153 ) = ( ((word)  (fPt) UniqueRope_P2652) );
      (* (( (ptr) tmpAddr153) + 1) ) = 1;
      };
SOURCE(2548, 1358)
   result_v21028 = 0;
SOURCE(2548, 1358)
   msg_v21056 = 0;
SOURCE(2589, 54)
   aliasCell_v6904 = XR_Narrow((* (( (ptr) (* (( (ptr) cmd_v20984)+5) ))+2) ), (* (( (ptr) gf_c49504)+17) ));
SOURCE(2645, 36)
   newCommandLine_v6932 = (* (( (ptr) aliasCell_v6904)+1) );
SOURCE(2683, 54)
   {
      word pd154;
      pd154 = (* (( (ptr) (* (( (ptr) gf_c49504)+203)/* var_c44160 */  ))+33) );
      commandLineStream_v6960 = (word) ( *( (fPt) ((*  (ptr) pd154 ))))((* (( (ptr) cmd_v20984)+4) ), 0, pd154);
      };
SOURCE(2829, 16)
   var_c49472.f6/* gennum_v7044 */  = 1;
SOURCE(2981, 376)
   {
      register word l_v7344;
      l_v7344 = (*  (ptr) aliasCell_v6904 );
      lab_L100015: ;
      if ((l_v7344 != 0)) {
         }
      else {
         goto lab_L100012;
         };
      {
         W3 token_v7472;
         word new_v7500;
SOURCE(3043, 71)
         {
            word pd155;
            pd155 = (* (( (ptr) (* (( (ptr) gf_c49504)+208)/* var_c44736 */  ))+10) );
            (void) ( *( (fPt) ((*  (ptr) pd155 ))))((word) &token_v7472, commandLineStream_v6960, pd155);
            };
SOURCE(3116, 25)
         new_v7500 = token_v7472.f1;
SOURCE(3143, 137)
         if (((* (( (ptr) (*  (ptr) aliasCell_v6904 ))+1) ) != 0)) {
SOURCE(3177, 105)
            {
               word dummy_v7544;
SOURCE(3179, 26)
               dummy_v7544 = (word) UniqueRope_P2652((word) ((( (bPt) &var_c49472)+16)/* var_c44768 */ ));
SOURCE(3207, 60)
               {
                  word var_c44800;
                  word var_c44864;
                  {
                     word var_c44832;
                     var_c44832 = XR_NewObject(8, (* (( (ptr) gf_c49504)+15) ));
                     (*  (ptr) var_c44832 ) = new_v7500;
                     (* (( (ptr) var_c44832)+1) ) = dummy_v7544;
                     var_c44800 = var_c44832;
                     };
                  var_c44864 = XR_NewObject(8, (* (( (ptr) gf_c49504)+16) ));
                  (*  (ptr) var_c44864 ) = var_c44800;
                  (* (( (ptr) var_c44864)+1) ) = synonyms_v7016;
                  synonyms_v7016 = var_c44864;
                  };
SOURCE(3269, 11)
               new_v7500 = dummy_v7544;
               };
            };
SOURCE(3285, 72)
         newCommandLine_v6932 = (word) RopeSubst_P2280((*  (ptr) l_v7344 ), new_v7500, newCommandLine_v6932, 0, 1);
         };
      l_v7344 = (* (( (ptr) l_v7344)+1) );
      goto lab_L100015;
      lab_L100012: ;
      };
SOURCE(3369, 153)
   {
      register word l_v7588;
      l_v7588 = synonyms_v7016;
      lab_L100019: ;
      if ((l_v7588 != 0)) {
         }
      else {
         goto lab_L100016;
         };
SOURCE(3438, 84)
      newCommandLine_v6932 = (word) RopeSubst_P2280((* (( (ptr) (*  (ptr) l_v7588 ))+1) ), (*  (ptr) (*  (ptr) l_v7588 ) ), newCommandLine_v6932, 0, 1)
      ;
      l_v7588 = (* (( (ptr) l_v7588)+1) );
      goto lab_L100019;
      lab_L100016: ;
      };
SOURCE(3534, 75)
   {
      word var_c44896;
      {
         word pd156;
         pd156 = (* (( (ptr) (* (( (ptr) gf_c49504)+203)/* var_c44160 */  ))+92) );
         var_c44896 = (word) ( *( (fPt) ((*  (ptr) pd156 ))))(commandLineStream_v6960, 2147483647, 0, pd156);
         };
      {
         word pd157;
         pd157 = (* (( (ptr) (* (( (ptr) gf_c49504)+206)/* var_c44544 */  ))+6) );
         newCommandLine_v6932 = (word) ( *( (fPt) ((*  (ptr) pd157 ))))(newCommandLine_v6932, var_c44896, pd157);
         };
      };
SOURCE(3611, 27)
   {
      word pd158;
      pd158 = (* (( (ptr) (* (( (ptr) gf_c49504)+203)/* var_c44160 */  ))+28) );
      (void) ( *( (fPt) ((*  (ptr) pd158 ))))(commandLineStream_v6960, 0, pd158);
      };
SOURCE(3640, 266)
   if (((* (( (ptr) aliasCell_v6904)+3) ) != 0)) {
SOURCE(3677, 170)
      {
         word s_v7728;
SOURCE(3679, 37)
         {
            word pd159;
            pd159 = (* (( (ptr) (* (( (ptr) gf_c49504)+203)/* var_c44160 */  ))+33) );
            s_v7728 = (word) ( *( (fPt) ((*  (ptr) pd159 ))))(newCommandLine_v6932, 0, pd159);
            };
SOURCE(3718, 24)
         (* (( (ptr) cmd_v20984)+3) ) = (word) GetWord_P300(s_v7728);
SOURCE(3744, 56)
         {
            word var_c44928;
            W2 var_c0166;
            {
               word pd160;
               pd160 = (* (( (ptr) (* (( (ptr) gf_c49504)+203)/* var_c44160 */  ))+89) );
               (void) ( *( (fPt) ((*  (ptr) pd160 ))))((word) &var_c0166, s_v7728, (word) (( (bPt) gf_c49504)+492)/* var_c42880 */ , pd160)
               ;
               };
            var_c44928 = var_c0166.f0;
            (* (( (ptr) cmd_v20984)+4) ) = var_c44928;
            };
SOURCE(3802, 43)
         {
            W2 var_c44960;
            {
               word pd161;
               pd161 = (* (( (ptr) aliasCell_v6904)+3) );
               (void) ( *( (fPt) ((*  (ptr) pd161 ))))((word) &var_c44960, cmd_v20984, pd161);
               };
            msg_v21056 = var_c44960.f1;
            result_v21028 = var_c44960.f0;
            };
         };
      }
   else {
SOURCE(3854, 52)
      {
         word pd162;
         pd162 = (* (( (ptr) (* (( (ptr) gf_c49504)+208)/* var_c44736 */  ))+11) );
         result_v21028 = (word) ( *( (fPt) ((*  (ptr) pd162 ))))(newCommandLine_v6932, cmd_v20984, pd162);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0169 ) = result_v21028;
   (* (( (ptr) formal_c0169)+1) ) = msg_v21056;
   return;
   }

static word UniqueRope_P2652(formal_c49568)
   word formal_c49568;
   {
   register ptr gf_c49536 =  (ptr) &globalframe;
   word var_c7316;
   formal_c49568 = (formal_c49568 - 16);
   /* UniqueRope: */ 
SOURCE(2847, 129)
SOURCE(2883, 19)
   (* (( (ptr) formal_c49568)+6) ) = ((* (( (ptr) formal_c49568)+6) ) + 1);
SOURCE(2904, 72)
   {
      word var_c45024;
      {
         word pd163;
         word idx164;
         pd163 = (* (( (ptr) (* (( (ptr) gf_c49536)+209)/* var_c45056 */  ))+27) );
         var_c45024 = (word) ( *( (fPt) ((*  (ptr) pd163 ))))((
               idx164 = (* (( (ptr) formal_c49568)+6) ),
               SGNCK(idx164)
               ), 8, 0, pd163);
         };
      {
         word pd165;
         pd165 = (* (( (ptr) (* (( (ptr) gf_c49536)+206)/* var_c44544 */  ))+5) );
         return((word) ( *( (fPt) ((*  (ptr) pd165 ))))((* (( (ptr) gf_c49536)+22) ), var_c45024, (* (( (ptr) gf_c49536)+23) ), 0, 0, pd165)
         );
         };
      };
   }

static void AliasesCommand_P240(formal_c0184, cmd_v21116)
   word formal_c0184;
   word cmd_v21116;
   {
   W7 var_c49600;
   register ptr gf_c49632 =  (ptr) &globalframe;
   word result_v21160;
   word msg_v21188;
   /* declaration of var_c45088 skipped */ 
   /* declaration of matchList_v7772 skipped */ 
   /* AliasesCommand: */ 
SOURCE(3912, 658)
   {
      word tmpAddr166;
      tmpAddr166 = (word) (( (ptr) &var_c49600)+4)/* var_c45088 */ ;
      (*  (ptr) tmpAddr166 ) = ( ((word)  (fPt) EachCommand_P2952) );
      (* (( (ptr) tmpAddr166) + 1) ) = 1;
      };
SOURCE(3912, 658)
   result_v21160 = 0;
SOURCE(3912, 658)
   msg_v21188 = 0;
SOURCE(3954, 11)
   var_c49600.f6/* matchList_v7772 */  = 0;
SOURCE(4148, 37)
   {
      W2 var_c45120;
      {
         word pd167;
         pd167 = (* (( (ptr) (* (( (ptr) gf_c49632)+207)/* var_c44576 */  ))+5) );
         (void) ( *( (fPt) ((*  (ptr) pd167 ))))((word) &var_c45120, (word) (( (bPt) &var_c49600)+16)/* var_c45088 */ , pd167);
         };
      };
SOURCE(4187, 76)
   {
      word pd168;
      pd168 = (* (( (ptr) (* (( (ptr) gf_c49632)+205)/* var_c44416 */  ))+16) );
      var_c49600.f6/* matchList_v7772 */  = (word) ( *( (fPt) ((*  (ptr) pd168 ))))(var_c49600.f6/* matchList_v7772 */ , (* (( (ptr) (* (
               ( (ptr) gf_c49632)+205)/* var_c44416 */  ))+18) ), pd168);
      };
SOURCE(4265, 305)
   {
      register word each_v7928;
      each_v7928 = var_c49600.f6/* matchList_v7772 */ ;
      lab_L100024: ;
      if ((each_v7928 != 0)) {
         }
      else {
         goto lab_L100021;
         };
      {
         word name_v8056;
         word procData_v8084;
SOURCE(4331, 23)
         name_v8056 = (*  (ptr) each_v7928 );
SOURCE(4356, 62)
         {
            word pd169;
            pd169 = (* (( (ptr) (* (( (ptr) gf_c49632)+207)/* var_c44576 */  ))+6) );
            procData_v8084 = (word) ( *( (fPt) ((*  (ptr) pd169 ))))(name_v8056, pd169);
            };
SOURCE(4420, 150)
         {
            word var_c45152;
            var_c45152 = (* (( (ptr) procData_v8084)+2) );
            if ((var_c45152 == 0)) {
               goto lab_L100025;
               };
            if (((* (( (ptr) gf_c49632)+17) ) == XR_GetReferentType(var_c45152))) {
               {
                  word aliasCell_v8128;
                  aliasCell_v8128 = var_c45152;
SOURCE(4483, 87)
                  {
                     word pd170;
                     pd170 = (* (( (ptr) (* (( (ptr) gf_c49632)+206)/* var_c44544 */  ))+23) );
                     if ((0 == (word) ( *( (fPt) ((*  (ptr) pd170 ))))((* (( (ptr) gf_c49632)+24) ), (* (( (ptr) procData_v8084)+1) ), 1, pd170)
                     )) {
SOURCE(4537, 33)
                        {
                           word pd171;
                           pd171 = (* (( (ptr) (* (( (ptr) gf_c49632)+203)/* var_c44160 */  ))+93) );
                           (void) ( *( (fPt) ((*  (ptr) pd171 ))))((* (( (ptr) cmd_v21116)+1) ), (* (( (ptr) procData_v8084)+1) ), 0, 2147483647, pd171)
                           ;
                           };
                        };
                     };
                  };
               }
            else {
               lab_L100025: ;
               };
            };
         };
      each_v7928 = (* (( (ptr) each_v7928)+1) );
      goto lab_L100024;
      lab_L100021: ;
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0184 ) = result_v21160;
   (* (( (ptr) formal_c0184)+1) ) = msg_v21188;
   return;
   }

static word EachCommand_P2952(key_v30496, procData_v30524, formal_c49696)
   word key_v30496;
   word procData_v30524;
   word formal_c49696;
   {
   register ptr gf_c49664 =  (ptr) &globalframe;
   word stop_v30568;
   formal_c49696 = (formal_c49696 - 16);
   /* EachCommand: */ 
SOURCE(3985, 138)
SOURCE(3985, 138)
   stop_v30568 = 0;
SOURCE(4028, 95)
   {
      word var_c45184;
      var_c45184 = (* (( (ptr) procData_v30524)+2) );
      if ((var_c45184 == 0)) {
         goto lab_L100026;
         };
      if (((* (( (ptr) gf_c49664)+17) ) == XR_GetReferentType(var_c45184))) {
         {
            word aliasCell_v8172;
            aliasCell_v8172 = var_c45184;
SOURCE(4091, 32)
            {
               word var_c45216;
               var_c45216 = XR_NewObject(8, (* (( (ptr) gf_c49664)+10) ));
               (*  (ptr) var_c45216 ) = key_v30496;
               (* (( (ptr) var_c45216)+1) ) = (* (( (ptr) formal_c49696)+6) );
               (* (( (ptr) formal_c49696)+6) ) = var_c45216;
               };
            };
         }
      else {
         lab_L100026: ;
         };
      };
SOURCE(3985, 138)
   return(stop_v30568);
   }

static word GetWord_P300(s_v4920)
   word s_v4920;
   {
   register ptr gf_c49728 =  (ptr) &globalframe;
   word r_v4964;
   W3 var_c0193;
   /* GetWord: */ 
SOURCE(4641, 89)
SOURCE(4641, 89)
   r_v4964 = 0;
SOURCE(4692, 38)
   {
      word pd172;
      pd172 = (* (( (ptr) (* (( (ptr) gf_c49728)+208)/* var_c44736 */  ))+10) );
      (void) ( *( (fPt) ((*  (ptr) pd172 ))))((word) &var_c0193, s_v4920, pd172);
      };
   r_v4964 = var_c0193.f0;
SOURCE(4641, 89)
   return(r_v4964);
   }

static word RopeMemb_P360(rope_v5024, lst_v5052)
   word rope_v5024;
   word lst_v5052;
   {
   register ptr gf_c49760 =  (ptr) &globalframe;
   word var_c5180;
   /* RopeMemb: */ 
SOURCE(4734, 194)
SOURCE(4799, 104)
   {
      register word l_v8216;
      l_v8216 = lst_v5052;
      lab_L100030: ;
      if ((l_v8216 != 0)) {
         }
      else {
         goto lab_L100027;
         };
SOURCE(4850, 53)
      {
         word pd173;
         pd173 = (* (( (ptr) (* (( (ptr) gf_c49760)+206)/* var_c44544 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd173 ))))(rope_v5024, (*  (ptr) l_v8216 ), 0, pd173))) {
SOURCE(4891, 12)
            return(1);
            };
         };
      l_v8216 = (* (( (ptr) l_v8216)+1) );
      goto lab_L100030;
      lab_L100027: ;
      };
SOURCE(4914, 14)
   return(0);
   }

static void AnswerbackCommand_P420(formal_c0202, cmd_v5240)
   word formal_c0202;
   word cmd_v5240;
   {
   W7 var_c49792;
   register ptr gf_c49824 =  (ptr) &globalframe;
   word result_v5284;
   word msg_v5312;
   /* declaration of s_v8344 skipped */ 
   /* AnswerbackCommand: */ 
SOURCE(4932, 273)
SOURCE(4932, 273)
   result_v5284 = 0;
SOURCE(4932, 273)
   msg_v5312 = 0;
SOURCE(5059, 38)
   {
      word pd174;
      pd174 = (* (( (ptr) (* (( (ptr) gf_c49824)+203)/* var_c44160 */  ))+33) );
      var_c49792.f4/* s_v8344 */  = (word) ( *( (fPt) ((*  (ptr) pd174 ))))((* (( (ptr) cmd_v5240)+4) ), 0, pd174);
      };
SOURCE(5099, 42)
SOURCE(5099, 42)
   {
      /* declaration of var_c02 skipped */ 
      var_c49792.f5/* var_c02 */  = (* (( (ptr) (* (( (ptr) gf_c49824)+203)/* var_c44160 */  ))+83) );
      {
         /* declaration of var_c03 skipped */ 
         {
            word var_c04;
            {
               word var_c0815;
               var_c0815 = (word) &var_c49792;
               var_c04 = (word) XR_Enable(( ((word)  (fPt) NoName_Q6852) ), ( ((word)  (fPt) NoName_Q8712) ), var_c0815);
               };
            if ((var_c04 == 4)) {
               goto lab_L100033;
               };
            };
         result_v5284 = var_c49792.f6/* var_c03 */ ;
         };
      };
   lab_L100033: ;
SOURCE(5152, 42)
   if ((result_v5284 != 0)) {
SOURCE(5173, 21)
      {
         word pd175;
         pd175 = (* (( (ptr) (* (( (ptr) gf_c49824)+203)/* var_c44160 */  ))+91) );
         msg_v5312 = (word) ( *( (fPt) ((*  (ptr) pd175 ))))(var_c49792.f4/* s_v8344 */ , pd175);
         };
      };
SOURCE(5196, 9)
   {
      word pd176;
      pd176 = (* (( (ptr) (* (( (ptr) gf_c49824)+203)/* var_c44160 */  ))+28) );
      (void) ( *( (fPt) ((*  (ptr) pd176 ))))(var_c49792.f4/* s_v8344 */ , 0, pd176);
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0202 ) = result_v5284;
   (* (( (ptr) formal_c0202)+1) ) = msg_v5312;
   return;
   }

static word NoName_Q6852(formal_c0746)
   word formal_c0746;
   {
SOURCE(5099, 42)
   {
      word pd177;
      pd177 = (* (( (ptr) formal_c0746)+5) );
      (* (( (ptr) formal_c0746)+6) ) = (word) ( *( (fPt) ((*  (ptr) pd177 ))))((* ((( (ptr) formal_c0746)+4)) ), pd177);
      };
   return(0);
   }

static void CommentCommand_P480(formal_c0206, cmd_v21248)
   word formal_c0206;
   word cmd_v21248;
   {
   word result_v21292;
   word msg_v21320;
   /* CommentCommand: */ 
SOURCE(5211, 40)
SOURCE(5211, 40)
   result_v21292 = 0;
SOURCE(5211, 40)
   msg_v21320 = 0;
   /* removed tail goto */ 
   (*  (ptr) formal_c0206 ) = result_v21292;
   (* (( (ptr) formal_c0206)+1) ) = msg_v21320;
   return;
   }

static void CommanderCommand_P540(formal_c0216, cmd_v21380)
   word formal_c0216;
   word cmd_v21380;
   {
   register ptr gf_c49856 =  (ptr) &globalframe;
   word result_v21424;
   word msg_v21452;
   word child_v8388;
   word add_v8416 = 0;
   /* CommanderCommand: */ 
SOURCE(5257, 556)
SOURCE(5257, 556)
   result_v21424 = 0;
SOURCE(5257, 556)
   msg_v21452 = 0;
SOURCE(5301, 78)
   {
      word pd178;
      pd178 = (* (( (ptr) (* (( (ptr) gf_c49856)+208)/* var_c44736 */  ))+16) );
      child_v8388 = (word) ( *( (fPt) ((*  (ptr) pd178 ))))(0, 0, 0, cmd_v21380, pd178);
      };
SOURCE(5407, 202)
   lab_L100040: ;
SOURCE(5407, 202)
   {
      word keyRope_v8460;
      word val_v8488;
SOURCE(5410, 46)
      {
         word pd179;
         pd179 = (* (( (ptr) (* (( (ptr) gf_c49856)+208)/* var_c44736 */  ))+8) );
         keyRope_v8460 = (word) ( *( (fPt) ((*  (ptr) pd179 ))))(cmd_v21380, 0, pd179);
         };
SOURCE(5458, 42)
      {
         word pd180;
         pd180 = (* (( (ptr) (* (( (ptr) gf_c49856)+208)/* var_c44736 */  ))+8) );
         val_v8488 = (word) ( *( (fPt) ((*  (ptr) pd180 ))))(cmd_v21380, 0, pd180);
         };
SOURCE(5502, 22)
      if ((keyRope_v8460 == 0)) {
SOURCE(5524, 4)
         goto lab_L100039;
         };
SOURCE(5530, 79)
      {
         word var_c45248;
         {
            word pd181;
            pd181 = (* (( (ptr) (* (( (ptr) gf_c49856)+204)/* var_c44352 */  ))+5) );
            var_c45248 = (word) ( *( (fPt) ((*  (ptr) pd181 ))))(keyRope_v8460, 0, 2147483647, pd181);
            };
         {
            word pd182;
            pd182 = (* (( (ptr) (* (( (ptr) gf_c49856)+204)/* var_c44352 */  ))+14) );
            add_v8416 = (word) ( *( (fPt) ((*  (ptr) pd182 ))))(add_v8416, var_c45248, val_v8488, pd182);
            };
         };
      };
   goto lab_L100040;
   lab_L100039: ;
SOURCE(5620, 108)
   lab_L100043: ;
   if ((add_v8416 != 0)) {
      }
   else {
      goto lab_L100041;
      };
   {
      word t_v8532;
SOURCE(5639, 22)
      t_v8532 = add_v8416;
SOURCE(5663, 12)
      add_v8416 = (* (( (ptr) t_v8532)+1) );
SOURCE(5677, 27)
      (* (( (ptr) t_v8532)+1) ) = (* (( (ptr) child_v8388)+6) );
SOURCE(5706, 22)
      (* (( (ptr) child_v8388)+6) ) = t_v8532;
      };
   goto lab_L100043;
   lab_L100041: ;
SOURCE(5739, 74)
   {
      word pd183;
      pd183 = (* (( (ptr) (* (( (ptr) gf_c49856)+208)/* var_c44736 */  ))+17) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd183 ))))(child_v8388, pd183))) {
SOURCE(5796, 17)
         result_v21424 = (* (( (ptr) gf_c49856)+21) );
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0216 ) = result_v21424;
   (* (( (ptr) formal_c0216)+1) ) = msg_v21452;
   return;
   }

static void DateCommand_P600(formal_c0222, cmd_v21512)
   word formal_c0222;
   word cmd_v21512;
   {
   register ptr gf_c49888 =  (ptr) &globalframe;
   word result_v21556;
   word msg_v21584;
   /* DateCommand: */ 
SOURCE(5819, 89)
SOURCE(5819, 89)
   result_v21556 = 0;
SOURCE(5819, 89)
   msg_v21584 = 0;
SOURCE(5858, 50)
   {
      word var_c45280;
      {
         word pd184;
         pd184 = (* (( (ptr) (* (( (ptr) gf_c49888)+210)/* var_c45312 */  ))+14) );
         var_c45280 = (word) ( *( (fPt) ((*  (ptr) pd184 ))))(pd184);
         };
      {
         W2 var_c45344;
         var_c45344.f0 = 13;
         var_c45344.f1 = var_c45280;
         {
            word pd185;
            pd185 = (* (( (ptr) (* (( (ptr) gf_c49888)+203)/* var_c44160 */  ))+61) );
            (void) ( *( (fPt) ((*  (ptr) pd185 ))))((* (( (ptr) cmd_v21512)+1) ), (* (( (ptr) gf_c49888)+25) ), var_c45344, pd185);
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0222 ) = result_v21556;
   (* (( (ptr) formal_c0222)+1) ) = msg_v21584;
   return;
   }

static void EchoCommand_P660(formal_c0233, cmd_v21644)
   word formal_c0233;
   word cmd_v21644;
   {
   register ptr gf_c49920 =  (ptr) &globalframe;
   word result_v21688;
   word msg_v21716;
   word FirstArg_v8576 = 1;
   word nFlag_v8604 = 1;
   word sFlag_v8632 = 1;
   word argv_v8660;
   /* EchoCommand: */ 
SOURCE(5914, 520)
SOURCE(5914, 520)
   result_v21688 = 0;
SOURCE(5914, 520)
   msg_v21716 = 0;
SOURCE(6028, 59)
   {
      word pd186;
      pd186 = (* (( (ptr) (* (( (ptr) gf_c49920)+208)/* var_c44736 */  ))+6) );
      argv_v8660 = (word) ( *( (fPt) ((*  (ptr) pd186 ))))(cmd_v21644, 0, pd186);
      };
SOURCE(6089, 300)
   {
      register word i_v8704 = 1;
      register word noName_c45376;
      noName_c45376 = (*  (ptr) argv_v8660 );
      if ((i_v8704 >= noName_c45376)) {
         goto lab_L100046;
         };
      lab_L100049: ;
      {
         word arg_v8748;
SOURCE(6121, 20)
         {
            word limit187;
            arg_v8748 = (* ((( (ptr) argv_v8660)+1)+(
                  limit187 = (*  (ptr) argv_v8660 ),
                  BCK(i_v8704, limit187)
                  )) );
            };
SOURCE(6143, 16)
         FirstArg_v8576 = 0;
         {
            word pd188;
            pd188 = (* (( (ptr) (* (( (ptr) gf_c49920)+206)/* var_c44544 */  ))+8) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd188 ))))(arg_v8748, (* (( (ptr) gf_c49920)+26) ), 1, pd188))) {
SOURCE(6209, 15)
               nFlag_v8604 = (0 == nFlag_v8604);
               }
            else {
               {
                  word pd189;
                  pd189 = (* (( (ptr) (* (( (ptr) gf_c49920)+206)/* var_c44544 */  ))+8) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd189 ))))(arg_v8748, (* (( (ptr) gf_c49920)+27) ), 1, pd189))) {
SOURCE(6257, 15)
                     sFlag_v8632 = (0 == sFlag_v8632);
                     }
                  else {
SOURCE(6287, 48)
                     if ( ( (0 != sFlag_v8632) ? (0 == FirstArg_v8576) : 0 ) ) {
SOURCE(6316, 19)
                        {
                           word pd190;
                           pd190 = (* (( (ptr) (* (( (ptr) gf_c49920)+203)/* var_c44160 */  ))+21) );
                           (void) ( *( (fPt) ((*  (ptr) pd190 ))))((* (( (ptr) cmd_v21644)+1) ), 32, pd190);
                           };
                        };
SOURCE(6337, 24)
                     {
                        word pd191;
                        word limit192;
                        pd191 = (* (( (ptr) (* (( (ptr) gf_c49920)+203)/* var_c44160 */  ))+93) );
                        (void) ( *( (fPt) ((*  (ptr) pd191 ))))((* (( (ptr) cmd_v21644)+1) ), (* ((( (ptr) argv_v8660)+1)+(
/*1*/      limit192 = (*  (ptr) argv_v8660 ),
/*1*/      BCK(i_v8704, limit192)
/*1*/      )) ), 0, 2147483647, pd191);
                        };
                     };
                  };
               };
            };
SOURCE(6366, 23)
         {
            word pd193;
            pd193 = (* (( (ptr) (* (( (ptr) gf_c49920)+211)/* var_c45408 */  ))+18) );
            (void) ( *( (fPt) ((*  (ptr) pd193 ))))(pd193);
            };
         };
      i_v8704 = (i_v8704 + 1);
      if ((i_v8704 < noName_c45376)) {
         goto lab_L100049;
         };
      lab_L100046: ;
      };
SOURCE(6400, 34)
   if ((0 != nFlag_v8604)) {
SOURCE(6414, 20)
      {
         word pd194;
         pd194 = (* (( (ptr) (* (( (ptr) gf_c49920)+203)/* var_c44160 */  ))+21) );
         (void) ( *( (fPt) ((*  (ptr) pd194 ))))((* (( (ptr) cmd_v21644)+1) ), 10, pd194);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0233 ) = result_v21688;
   (* (( (ptr) formal_c0233)+1) ) = msg_v21716;
   return;
   }

static void ErrorCommand_P720(formal_c0237, cmd_v21776)
   word formal_c0237;
   word cmd_v21776;
   {
   word result_v21820;
   word msg_v21848;
   /* ErrorCommand: */ 
SOURCE(6440, 38)
SOURCE(6440, 38)
   result_v21820 = 0;
SOURCE(6440, 38)
   msg_v21848 = 0;
SOURCE(6480, 6)
   (void) XR_RaiseUnnamedError();
   }

static void FailCommand_P780(formal_c0242, cmd_v21908)
   word formal_c0242;
   word cmd_v21908;
   {
   register ptr gf_c49952 =  (ptr) &globalframe;
   word result_v21952;
   word msg_v21980;
   /* FailCommand: */ 
SOURCE(6490, 156)
SOURCE(6490, 156)
   result_v21952 = 0;
SOURCE(6490, 156)
   msg_v21980 = 0;
SOURCE(6529, 17)
   result_v21952 = (* (( (ptr) gf_c49952)+21) );
SOURCE(6548, 21)
   msg_v21980 = (* (( (ptr) cmd_v21908)+4) );
SOURCE(6571, 75)
   {
      word pd195;
      pd195 = (* (( (ptr) (* (( (ptr) gf_c49952)+206)/* var_c44544 */  ))+23) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd195 ))))((* (( (ptr) gf_c49952)+28) ), msg_v21980, 1, pd195))) {
SOURCE(6603, 43)
         {
            word var_c45440;
            {
               word pd196;
               pd196 = (* (( (ptr) (* (( (ptr) gf_c49952)+206)/* var_c44544 */  ))+15) );
               var_c45440 = ((word) ( *( (fPt) ((*  (ptr) pd196 ))))(msg_v21980, pd196) - 2);
               };
            {
               word pd197;
               pd197 = (* (( (ptr) (* (( (ptr) gf_c49952)+206)/* var_c44544 */  ))+17) );
               msg_v21980 = (word) ( *( (fPt) ((*  (ptr) pd197 ))))(msg_v21980, 1, var_c45440, pd197);
               };
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0242 ) = result_v21952;
   (* (( (ptr) formal_c0242)+1) ) = msg_v21980;
   return;
   }

static void FailSkipCommand_P840(formal_c0248, cmd_v22040)
   word formal_c0248;
   word cmd_v22040;
   {
   register ptr gf_c49984 =  (ptr) &globalframe;
   word result_v22084;
   word msg_v22112;
   /* FailSkipCommand: */ 
SOURCE(6652, 349)
SOURCE(6652, 349)
   result_v22084 = 0;
SOURCE(6652, 349)
   msg_v22112 = 0;
SOURCE(6695, 43)
   {
      word pd198;
      pd198 = (* (( (ptr) (* (( (ptr) gf_c49984)+208)/* var_c44736 */  ))+15) );
      result_v22084 = (word) ( *( (fPt) ((*  (ptr) pd198 ))))(cmd_v22040, (* (( (ptr) gf_c49984)+29) ), pd198);
      };
SOURCE(6740, 190)
   if ((result_v22084 == (* (( (ptr) gf_c49984)+21) ))) {
SOURCE(6768, 153)
      {
         word pd199;
         word pd200;
         pd199 = (* (( (ptr) (* (( (ptr) gf_c49984)+206)/* var_c44544 */  ))+25) );
         pd200 = (* (( (ptr) (* (( (ptr) gf_c49984)+206)/* var_c44544 */  ))+15) );
         if (( (int)(word) ( *( (fPt) ((*  (ptr) pd199 ))))((* (( (ptr) cmd_v22040)+4) ), 0, (* (( (ptr) gf_c49984)+30) ), pd199) ==  (int)(word) ( *( (fPt) (
            (*  (ptr) pd200 ))))((* ((( (ptr) cmd_v22040)+4)) ), pd200))) {
SOURCE(6856, 18)
            result_v22084 = 0;
            }
         else {
SOURCE(6874, 47)
            {
               word pd201;
               pd201 = (* (( (ptr) (* (( (ptr) gf_c49984)+206)/* var_c44544 */  ))+6) );
               msg_v22112 = (word) ( *( (fPt) ((*  (ptr) pd201 ))))((* (( (ptr) gf_c49984)+31) ), (* (( (ptr) cmd_v22040)+4) ), pd201);
               };
            };
         };
SOURCE(6923, 7)
      goto lab_L100052;
      };
SOURCE(6933, 68)
   {
      W2 var_c45472;
      {
         word pd202;
         pd202 = (* (( (ptr) (* (( (ptr) gf_c49984)+208)/* var_c44736 */  ))+13) );
         (void) ( *( (fPt) ((*  (ptr) pd202 ))))((word) &var_c45472, cmd_v22040, (* (( (ptr) cmd_v22040)+4) ), pd202);
         };
      result_v22084 = var_c45472.f0;
      };
   /* removed tail goto */ 
   lab_L100052: ;
   (*  (ptr) formal_c0248 ) = result_v22084;
   (* (( (ptr) formal_c0248)+1) ) = msg_v22112;
   return;
   }

static word IsCommandPrefix_P900(prefix_v5384, command_v5412)
   word prefix_v5384;
   word command_v5412;
   {
   register ptr gf_c50016 =  (ptr) &globalframe;
   word is_v5456;
   word pLen_v8792;
   word cLen_v8820;
   word c_v8848;
   word first_v8876 = 0;
   register word afterLast_v8904 = 0;
   /* IsCommandPrefix: */ 
SOURCE(7007, 413)
SOURCE(7076, 25)
   {
      word pd203;
      pd203 = (* (( (ptr) (* (( (ptr) gf_c50016)+206)/* var_c44544 */  ))+15) );
      pLen_v8792 = (word) ( *( (fPt) ((*  (ptr) pd203 ))))(prefix_v5384, pd203);
      };
SOURCE(7103, 26)
   {
      word pd204;
      pd204 = (* (( (ptr) (* (( (ptr) gf_c50016)+206)/* var_c44544 */  ))+15) );
      cLen_v8820 = (word) ( *( (fPt) ((*  (ptr) pd204 ))))(command_v5412, pd204);
      };
SOURCE(7167, 140)
   afterLast_v8904 = 0;
   lab_L100056: ;
   {
      word tc205;
      if (( (int)afterLast_v8904 <  (int)cLen_v8820)) {
         {
            word pd206;
            pd206 = (* (( (ptr) (* (( (ptr) gf_c50016)+206)/* var_c44544 */  ))+9) );
            c_v8848 = (word) ( *( (fPt) ((*  (ptr) pd206 ))))(command_v5412, afterLast_v8904, pd206);
            };
         tc205 =  (word) (c_v8848 != 32);
         }
      else {
         tc205 =  (word) 0;
         };
      if (tc205) {
         }
      else {
         goto lab_L100053;
         };
      };
SOURCE(7264, 43)
   {
      word var_c45504;
      var_c45504 = c_v8848;
      if ((var_c45504 == 47) || (var_c45504 == 62)) {
SOURCE(7288, 19)
         first_v8876 = (afterLast_v8904 + 1);
         };
      };
   afterLast_v8904 = (afterLast_v8904 + 1);
   goto lab_L100056;
   lab_L100053: ;
SOURCE(7327, 93)
   if (( (int)pLen_v8792 <=  (int)(afterLast_v8904 - first_v8876))) {
      {
         word var_c45536;
         {
            word pd207;
            pd207 = (* (( (ptr) (* (( (ptr) gf_c50016)+206)/* var_c44544 */  ))+17) );
            var_c45536 = (word) ( *( (fPt) ((*  (ptr) pd207 ))))(command_v5412, first_v8876, pLen_v8792, pd207);
            };
         {
            word pd208;
            pd208 = (* (( (ptr) (* (( (ptr) gf_c50016)+206)/* var_c44544 */  ))+8) );
            is_v5456 = (0 != (word) ( *( (fPt) ((*  (ptr) pd208 ))))(prefix_v5384, var_c45536, 0, pd208));
            };
         };
      }
   else {
      is_v5456 = 0;
      };
SOURCE(7007, 413)
   return(is_v5456);
   }

static void HistoryCommand_P960(formal_c0279, cmd_v22172)
   word formal_c0279;
   word cmd_v22172;
   {
   W7 var_c50048;
   register ptr gf_c50080 =  (ptr) &globalframe;
   word result_v22216;
   word msg_v22244;
   /* HistoryCommand: */ 
SOURCE(7426, 1457)
SOURCE(7426, 1457)
   result_v22216 = 0;
SOURCE(7426, 1457)
   msg_v22244 = 0;
SOURCE(7466, 1417)
SOURCE(7468, 72)
   {
      word prompt_v8948;
      register word toGive_v8976 = 0;
      word includeDuplicates_v9004 = 1;
      word includePrompt_v9032 = 1;
      word n_v9060 = 10;
      word seen_v9088 = 0;
      word commandToolData_v9116;
      word h_v9144;
      word cls_v9172;
SOURCE(7468, 72)
      {
         word pd209;
         pd209 = (* (( (ptr) (* (( (ptr) gf_c50080)+212)/* var_c45568 */  ))+20) );
         prompt_v8948 = XR_Narrow((word) ( *( (fPt) ((*  (ptr) pd209 ))))((* (( (ptr) gf_c50080)+32) ), (* (( (ptr) cmd_v22172)+6)
                ), pd209), (* (( (ptr) gf_c50080)+4) ));
         };
      if ((prompt_v8948 == 0)) {
         goto lab_L100059;
         };
      if (((*(int*)prompt_v8948<0) == 0)) {
         goto lab_L100059;
         };
      (void) XR_RaiseError(XR_NarrowFault, 0);
      lab_L100059: ;
SOURCE(7661, 94)
      {
         word pd210;
         pd210 = (* (( (ptr) (* (( (ptr) gf_c50080)+213)/* var_c45632 */  ))+5) );
         commandToolData_v9116 = (word) ( *( (fPt) ((*  (ptr) pd210 ))))(cmd_v22172, pd210);
         };
SOURCE(7757, 65)
      h_v9144 = (* (( (ptr) commandToolData_v9116)+9) );
SOURCE(7824, 40)
      {
         word pd211;
         pd211 = (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+33) );
         cls_v9172 = (word) ( *( (fPt) ((*  (ptr) pd211 ))))((* (( (ptr) cmd_v22172)+4) ), 0, pd211);
         };
SOURCE(7866, 382)
      {
         register word i_v9300;
         {
            word pd212;
            pd212 = (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+85) );
            i_v9300 = (word) ( *( (fPt) ((*  (ptr) pd212 ))))(cls_v9172, 1, pd212);
            };
         lab_L100063: ;
         {
            word pd213;
            pd213 = (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+15) );
            if ((0 == (word) ( *( (fPt) ((*  (ptr) pd213 ))))(cls_v9172, pd213))) {
               }
            else {
               goto lab_L100060;
               };
            };
         {
            /* declaration of toke_v9344 skipped */ 
            W2 var_c0273;
SOURCE(7947, 46)
            {
               word pd214;
               pd214 = (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+89) );
               (void) ( *( (fPt) ((*  (ptr) pd214 ))))((word) &var_c0273, cls_v9172, (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+88)
                   ), pd214);
               };
            var_c50048.f4/* toke_v9344 */  = var_c0273.f0;
            {
               word pd215;
               pd215 = (* (( (ptr) (* (( (ptr) gf_c50080)+206)/* var_c44544 */  ))+8) );
               if ((0 != (word) ( *( (fPt) ((*  (ptr) pd215 ))))(var_c50048.f4/* toke_v9344 */ , (* (( (ptr) gf_c50080)+34) ), 1, pd215)
               )) {
SOURCE(8032, 21)
                  includePrompt_v9032 = 0;
                  }
               else {
                  {
                     word pd216;
                     pd216 = (* (( (ptr) (* (( (ptr) gf_c50080)+206)/* var_c44544 */  ))+8) );
                     if ((0 != (word) ( *( (fPt) ((*  (ptr) pd216 ))))(var_c50048.f4/* toke_v9344 */ , (* (( (ptr) gf_c50080)+35) ), 1, pd216)
                     )) {
SOURCE(8075, 20)
                        includePrompt_v9032 = 1;
                        }
                     else {
                        {
                           word pd217;
                           pd217 = (* (( (ptr) (* (( (ptr) gf_c50080)+206)/* var_c44544 */  ))+8) );
                           if ((0 != (word) ( *( (fPt) ((*  (ptr) pd217 ))))(var_c50048.f4/* toke_v9344 */ , (* (( (ptr) gf_c50080)+36) ), 1, pd217)
                           )) {
SOURCE(8117, 25)
/*1*/   includeDuplicates_v9004 = 0;
/*1*/   }
                           else {
/*1*/   {
/*1*/      word pd218;
/*1*/      pd218 = (* (( (ptr) (* (( (ptr) gf_c50080)+206)/* var_c44544 */  ))+8) );
/*1*/      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd218 ))))(var_c50048.f4/* toke_v9344 */ , (* (( (ptr) gf_c50080)+37) ), 1, pd218)
/*1*/      )) {
SOURCE(8164, 24)
/*1*/         includeDuplicates_v9004 = 1;
/*1*/         }
/*1*/      else {
SOURCE(8201, 47)
/*1*/         {
/*1*/            /* declaration of var_c05 skipped */ 
/*1*/            var_c50048.f5/* var_c05 */  = (* (( (ptr) (* (( (ptr) gf_c50080)+209)/* var_c45056 */  ))+10) );
/*1*/            {
/*1*/               /* declaration of var_c06 skipped */ 
/*1*/               {
/*1*/                  word var_c07;
/*1*/                  {
/*1*/                     word var_c0816;
/*1*/                     var_c0816 = (word) &var_c50048;
/*1*/                     var_c07 = (word) XR_Enable(( ((word)  (fPt) NoName_Q6912) ), ( ((word)  (fPt) NoName_Q8652) ), var_c0816);
/*1*/                     };
/*1*/                  if ((var_c07 == 5)) {
/*1*/                     goto lab_L100058;
/*1*/                     };
/*1*/                  };
/*1*/               n_v9060 = var_c50048.f6/* var_c06 */ ;
/*1*/               };
/*1*/            };
/*1*/         };
/*1*/      };
/*1*/   };
                           };
                        };
                     };
                  };
               };
            };
         {
            word pd219;
            pd219 = (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+85) );
            i_v9300 = (word) ( *( (fPt) ((*  (ptr) pd219 ))))(cls_v9172, 1, pd219);
            };
         goto lab_L100063;
         lab_L100060: ;
         };
SOURCE(8274, 11)
      {
         word pd220;
         pd220 = (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+28) );
         (void) ( *( (fPt) ((*  (ptr) pd220 ))))(cls_v9172, 0, pd220);
         };
SOURCE(8287, 63)
      if ((0 == includeDuplicates_v9004)) {
SOURCE(8317, 33)
         {
            word pd221;
            pd221 = (* (( (ptr) (* (( (ptr) gf_c50080)+214)/* var_c45664 */  ))+5) );
            seen_v9088 = (word) ( *( (fPt) ((*  (ptr) pd221 ))))(17, 0, pd221);
            };
         };
SOURCE(8352, 280)
      lab_L100068: ;
      if (( (int)n_v9060 >  (int)0)) {
         }
      else {
         goto lab_L100066;
         };
      {
         word cr_v9388 = 0;
         W2 var_c0275;
         word var_c0817;
SOURCE(8377, 16)
         if ((h_v9144 == 0)) {
SOURCE(8393, 4)
            goto lab_L100067;
            };
SOURCE(8399, 29)
         cr_v9388 = (* (( (ptr) h_v9144)+1) );
SOURCE(8430, 184)
         {
            word pd222;
            pd222 = (* (( (ptr) (* (( (ptr) gf_c50080)+206)/* var_c44544 */  ))+8) );
            if ((0 == (word) ( *( (fPt) ((*  (ptr) pd222 ))))(cr_v9388, (* (( (ptr) gf_c50080)+38) ), 1, pd222))) {
SOURCE(8463, 151)
               if ((0 != includeDuplicates_v9004)) { goto then0223;};
               {
                  word pd224;
                  pd224 = (* (( (ptr) (* (( (ptr) gf_c50080)+214)/* var_c45664 */  ))+7) );
                  (void) ( *( (fPt) ((*  (ptr) pd224 ))))((word) &var_c0275, seen_v9088, cr_v9388, pd224);
                  };
               var_c0817 = var_c0275.f0;
               if ((0 == var_c0817)) {
                  then0223: ;
SOURCE(8519, 25)
                  {
                     word var_c45696;
                     var_c45696 = XR_NewObject(8, (* (( (ptr) gf_c50080)+10) ));
                     (*  (ptr) var_c45696 ) = cr_v9388;
                     (* (( (ptr) var_c45696)+1) ) = toGive_v8976;
                     toGive_v8976 = var_c45696;
                     };
SOURCE(8546, 57)
                  if ((0 == includeDuplicates_v9004)) {
SOURCE(8576, 27)
                     {
                        word var_c45728;
                        word pd225;
                        pd225 = (* (( (ptr) (* (( (ptr) gf_c50080)+214)/* var_c45664 */  ))+11) );
                        var_c45728 = (word) ( *( (fPt) ((*  (ptr) pd225 ))))(seen_v9088, cr_v9388, (* (( (ptr) gf_c50080)+39) ), pd225);
                        };
                     };
SOURCE(8605, 9)
                  n_v9060 = (n_v9060 - 1);
                  };
               };
            };
SOURCE(8622, 10)
         h_v9144 = (* (( (ptr) h_v9144)+9) );
         };
      goto lab_L100068;
      lab_L100066: ;
      lab_L100067: ;
SOURCE(8643, 143)
      /* removed bogus assignment */ 
      lab_L100072: ;
      if ((toGive_v8976 != 0)) {
         }
      else {
         goto lab_L100069;
         };
SOURCE(8698, 43)
      if ((0 != includePrompt_v9032)) {
SOURCE(8720, 21)
         {
            word pd226;
            pd226 = (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+93) );
            (void) ( *( (fPt) ((*  (ptr) pd226 ))))((* (( (ptr) cmd_v22172)+1) ), (* (( (ptr) gf_c50080)+40) ), 0, 2147483647, pd226)
            ;
            };
         };
SOURCE(8743, 43)
      {
         W2 var_c45760;
         var_c45760.f0 = 11;
         var_c45760.f1 = (*  (ptr) toGive_v8976 );
         {
            word pd227;
            pd227 = (* (( (ptr) (* (( (ptr) gf_c50080)+203)/* var_c44160 */  ))+61) );
            (void) ( *( (fPt) ((*  (ptr) pd227 ))))((* (( (ptr) cmd_v22172)+1) ), (* (( (ptr) gf_c50080)+25) ), var_c45760, pd227);
            };
         };
      toGive_v8976 = (* (( (ptr) toGive_v8976)+1) );
      goto lab_L100072;
      lab_L100069: ;
SOURCE(8797, 12)
      result_v22216 = (* (( (ptr) gf_c50080)+41) );
      };
   goto lab_L100073;
   lab_L100058: ;
SOURCE(8831, 17)
   result_v22216 = (* (( (ptr) gf_c50080)+21) );
SOURCE(8850, 31)
   msg_v22244 = (* (( (ptr) gf_c50080)+42) );
   lab_L100073: ;
   /* removed tail goto */ 
   (*  (ptr) formal_c0279 ) = result_v22216;
   (* (( (ptr) formal_c0279)+1) ) = msg_v22244;
   return;
   }

static word NoName_Q6912(formal_c0754)
   word formal_c0754;
   {
SOURCE(8201, 47)
   {
      word pd228;
      pd228 = (* (( (ptr) formal_c0754)+5) );
      (* (( (ptr) formal_c0754)+6) ) = (word) ( *( (fPt) ((*  (ptr) pd228 ))))((* (( (ptr) formal_c0754)+4) ), 8, pd228);
      };
   return(0);
   }

static void IndentCommand_P1020(formal_c0298, cmd_v22304)
   word formal_c0298;
   word cmd_v22304;
   {
   W10 var_c50112;
   register ptr gf_c50144 =  (ptr) &globalframe;
   word result_v22348;
   /* declaration of msg_v22376 skipped */ 
   /* IndentCommand: */ 
SOURCE(8887, 1412)
SOURCE(8887, 1412)
   result_v22348 = 0;
SOURCE(8887, 1412)
   (* (( (ptr) &var_c50112)+4)/* msg_v22376 */  ) = 0;
SOURCE(8926, 1373)
SOURCE(8928, 16)
   {
      /* declaration of prefix_v9432 skipped */ 
      word terminator_v9460 = 0;
      word terminatorSize_v9488 = 0;
      /* declaration of line_v9516 skipped */ 
      word argv_v9544;
SOURCE(8928, 16)
      (* (( (ptr) &var_c50112)+5)/* prefix_v9432 */  ) = 0;
SOURCE(8995, 31)
      (* (( (ptr) &var_c50112)+6)/* line_v9516 */  ) = XR_NewObject(204, (* (( (ptr) gf_c50144)+12) ));
      (* (( (hPt) (* (( (ptr) &var_c50112)+6)/* line_v9516 */  ))+1) ) = 200;
SOURCE(9028, 59)
      {
         word pd229;
         pd229 = (* (( (ptr) (* (( (ptr) gf_c50144)+208)/* var_c44736 */  ))+6) );
         argv_v9544 = (word) ( *( (fPt) ((*  (ptr) pd229 ))))(cmd_v22304, 0, pd229);
         };
SOURCE(9089, 126)
      if (((*  (ptr) argv_v9544 ) > 2) ||  ( ((*  (ptr) argv_v9544 ) < 2) ? ((* (( (ptr) (* (( (ptr) cmd_v22304)+5) ))+2) ) != (* (
         ( (ptr) gf_c50144)+44) )) : 0 ) ) {
SOURCE(9169, 46)
         {
            word pd230;
            pd230 = (* (( (ptr) (* (( (ptr) gf_c50144)+206)/* var_c44544 */  ))+6) );
            (* (( (ptr) &var_c50112)+4)/* msg_v22376 */  ) = (word) ( *( (fPt) ((*  (ptr) pd230 ))))((* (( (ptr) gf_c50144)+45) ), (* (
                  ( (ptr) (* (( (ptr) cmd_v22304)+5) ))+1) ), pd230);
            };
SOURCE(9217, 10)
         goto lab_L100076;
         };
SOURCE(9230, 564)
      {
         word var_c45824;
         var_c45824 = (* (( (ptr) (* (( (ptr) cmd_v22304)+5) ))+2) );
         if ((var_c45824 == (* (( (ptr) gf_c50144)+44) ))) {
SOURCE(9277, 386)
            {
               word depth_v9612;
               word depthNAT_v9640;
SOURCE(9306, 240)
               if (((*  (ptr) argv_v9544 ) < 2)) {
SOURCE(9330, 9)
                  depth_v9612 = 8;
SOURCE(9341, 12)
                  depthNAT_v9640 = 8;
                  }
               else {
SOURCE(9364, 71)
                  {
                     /* declaration of var_c08 skipped */ 
                     /* declaration of var_c09 skipped */ 
                     {
                        word limit232;
                        (* (( (ptr) &var_c50112)+7)/* var_c08 */  ) = (* ((( (ptr) argv_v9544)+1)+(
/*1*/   limit232 = (*  (ptr) argv_v9544 ),
/*1*/   BCK(1, limit232)
/*1*/   )) );
                        };
                     (* (( (ptr) &var_c50112)+8)/* var_c09 */  ) = (* (( (ptr) (* (( (ptr) gf_c50144)+209)/* var_c45056 */  ))+10) );
                     {
                        /* declaration of var_c010 skipped */ 
                        {
                           word var_c011;
                           {
/*1*/   word var_c0818;
/*1*/   var_c0818 = (word) &var_c50112;
/*1*/   var_c011 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7272) ), ( ((word)  (fPt) NoName_Q8592) ), var_c0818);
/*1*/   };
                           if ((var_c011 == 6)) {
/*1*/   goto lab_L100076;
/*1*/   };
                           };
                        depth_v9612 = (* (( (ptr) &var_c50112)+9)/* var_c010 */  );
                        };
                     };
SOURCE(9451, 64)
                  if (( (int)depth_v9612 <  (int)0) || ( (int)depth_v9612 >  (int)80)) {
SOURCE(9481, 34)
                     (* (( (ptr) &var_c50112)+4)/* msg_v22376 */  ) = (* (( (ptr) gf_c50144)+47) );
SOURCE(9517, 10)
                     goto lab_L100076;
                     };
SOURCE(9530, 16)
                  depthNAT_v9640 = SGNCK(depth_v9612);
                  };
SOURCE(9551, 28)
               {
                  word var_c45856;
                  word var_c45888;
                  word var_c45920;
                  var_c45856 = BCK(depthNAT_v9640, 32768);
                  var_c45888 = ((word) ((word) (var_c45856 + 3) >> 2) << 2);
                  var_c45920 = XR_NewObject((4 + var_c45888), (* (( (ptr) gf_c50144)+12) ));
                  (* (( (hPt) var_c45920)+1) ) = var_c45856;
                  (* (( (ptr) &var_c50112)+5)/* prefix_v9432 */  ) = var_c45920;
                  };
SOURCE(9581, 45)
               {
                  register word i_v9684 = 0;
                  register word noName_c45952;
                  noName_c45952 = depthNAT_v9640;
                  if ((i_v9684 >= noName_c45952)) {
                     goto lab_L100079;
                     };
                  lab_L100082: ;
SOURCE(9612, 14)
                  {
                     word limit233;
                     (* ((( (bPt) (* (( (ptr) &var_c50112)+5)/* prefix_v9432 */  ))+4)+(
                           limit233 = (word) (* (( (hPt) (* (( (ptr) &var_c50112)+5)/* prefix_v9432 */  ))+1) ),
                           BCK(i_v9684, limit233)
                           )) ) = 32;
                     };
                  i_v9684 = (i_v9684 + 1);
                  if ((i_v9684 < noName_c45952)) {
                     goto lab_L100082;
                     };
                  lab_L100079: ;
                  };
SOURCE(9637, 24)
               (*  (hPt) (* (( (ptr) &var_c50112)+5)/* prefix_v9432 */  ) ) = BCK(depthNAT_v9640, 32768);
               };
            goto endif0231;
            };
         if ((var_c45824 == (* (( (ptr) gf_c50144)+48) ))) {
SOURCE(9684, 33)
            {
               word pd234;
               word limit235;
               pd234 = (* (( (ptr) (* (( (ptr) gf_c50144)+206)/* var_c44544 */  ))+36) );
               (* (( (ptr) &var_c50112)+5)/* prefix_v9432 */  ) = (word) ( *( (fPt) ((*  (ptr) pd234 ))))((* (((( (ptr) argv_v9544)+1)+(
                        limit235 = (*  (ptr) argv_v9544 ),
                        BCK(1, limit235)
                        ))) ), pd234);
               };
            goto endif0231;
            };
         if ((var_c45824 == (* (( (ptr) gf_c50144)+49) ))) {
SOURCE(9733, 20)
            {
               word limit236;
               terminator_v9460 = (* ((( (ptr) argv_v9544)+1)+(
                     limit236 = (*  (ptr) argv_v9544 ),
                     BCK(1, limit236)
                     )) );
               };
SOURCE(9755, 39)
            {
               word pd237;
               word idx238;
               pd237 = (* (( (ptr) (* (( (ptr) gf_c50144)+206)/* var_c44544 */  ))+15) );
               terminatorSize_v9488 = (
                  idx238 = (word) ( *( (fPt) ((*  (ptr) pd237 ))))(terminator_v9460, pd237),
                  SGNCK(idx238)
                  );
               };
            goto endif0231;
            };
SOURCE(9808, 5)
         (void) XR_RaiseUnnamedError();
         goto endif0231;
         endif0231: ;
         };
SOURCE(9815, 417)
      lab_L100085: ;
      {
         /* declaration of var_c012 skipped */ 
         /* declaration of var_c013 skipped */ 
         /* declaration of var_c014 skipped */ 
         word var_c45984;
SOURCE(9818, 31)
         (* (( (ptr) &var_c50112)+7)/* var_c012 */  ) = (*  (ptr) cmd_v22304 );
         (* (( (ptr) &var_c50112)+8)/* var_c013 */  ) = (* (( (ptr) (* (( (ptr) gf_c50144)+203)/* var_c44160 */  ))+15) );
         {
            word var_c015;
            {
               word var_c0819;
               var_c0819 = (word) &var_c50112;
               var_c015 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7212) ), ( ((word)  (fPt) NoName_Q8532) ), var_c0819);
               };
            if ((var_c015 == 7)) {
               goto lab_L100084;
               };
            };
         if ((0 != (* (( (ptr) &var_c50112)+9)/* var_c014 */  ))) {
SOURCE(9860, 4)
            goto lab_L100084;
            };
SOURCE(9866, 56)
         {
            /* declaration of var_c016 skipped */ 
            /* declaration of var_c017 skipped */ 
            (* (( (ptr) &var_c50112)+7)/* var_c016 */  ) = (*  (ptr) cmd_v22304 );
            (* (( (ptr) &var_c50112)+8)/* var_c017 */  ) = (* (( (ptr) (* (( (ptr) gf_c50144)+203)/* var_c44160 */  ))+90) );
            {
               /* declaration of var_c018 skipped */ 
               {
                  word var_c019;
                  {
                     word var_c0820;
                     var_c0820 = (word) &var_c50112;
                     var_c019 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7152) ), ( ((word)  (fPt) NoName_Q8472) ), var_c0820);
                     };
                  if ((var_c019 == 8)) {
                     goto lab_L100075;
                     }
                  else {
                     if ((var_c019 == 7)) {
                        goto lab_L100084;
                        };
                     };
                  };
               (* (( (ptr) &var_c50112)+6)/* line_v9516 */  ) = (* (( (ptr) &var_c50112)+9)/* var_c018 */  );
               };
            };
SOURCE(9986, 83)
         {
            word tc239;
            word pd240;
            if ((terminator_v9460 != 0)) {
               {
                  word text_v42800;
                  text_v42800 = (* (( (ptr) &var_c50112)+6)/* line_v9516 */  );
                  var_c45984 = text_v42800;
                  };
               pd240 = (* (( (ptr) (* (( (ptr) gf_c50144)+206)/* var_c44544 */  ))+8) );
               tc239 =  (word) (0 != (word) ( *( (fPt) ((*  (ptr) pd240 ))))(terminator_v9460, var_c45984, 1, pd240));
               }
            else {
               tc239 =  (word) 0;
               };
            if (tc239) {
SOURCE(10069, 4)
               goto lab_L100084;
               };
            };
SOURCE(10075, 66)
         if (((* (( (ptr) &var_c50112)+5)/* prefix_v9432 */  ) != 0)) {
SOURCE(10096, 45)
            {
               /* declaration of var_c020 skipped */ 
               /* declaration of var_c021 skipped */ 
               (* (( (ptr) &var_c50112)+7)/* var_c020 */  ) = (* (( (ptr) cmd_v22304)+1) );
               (* (( (ptr) &var_c50112)+8)/* var_c021 */  ) = (* (( (ptr) (* (( (ptr) gf_c50144)+203)/* var_c44160 */  ))+23) );
               {
                  word var_c022;
                  {
                     word var_c0821;
                     var_c0821 = (word) &var_c50112;
                     var_c022 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7092) ), ( ((word)  (fPt) NoName_Q8412) ), var_c0821);
                     };
                  if ((var_c022 == 7)) {
                     goto lab_L100084;
                     };
                  };
               };
            };
SOURCE(10148, 43)
         {
            /* declaration of var_c023 skipped */ 
            /* declaration of var_c024 skipped */ 
            (* (( (ptr) &var_c50112)+7)/* var_c023 */  ) = (* (( (ptr) cmd_v22304)+1) );
            (* (( (ptr) &var_c50112)+8)/* var_c024 */  ) = (* (( (ptr) (* (( (ptr) gf_c50144)+203)/* var_c44160 */  ))+23) );
            {
               word var_c025;
               {
                  word var_c0822;
                  var_c0822 = (word) &var_c50112;
                  var_c025 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7032) ), ( ((word)  (fPt) NoName_Q8352) ), var_c0822);
                  };
               if ((var_c025 == 7)) {
                  goto lab_L100084;
                  };
               };
            };
SOURCE(10198, 34)
         {
            /* declaration of var_c026 skipped */ 
            /* declaration of var_c027 skipped */ 
            (* (( (ptr) &var_c50112)+7)/* var_c026 */  ) = (* (( (ptr) cmd_v22304)+1) );
            (* (( (ptr) &var_c50112)+8)/* var_c027 */  ) = (* (( (ptr) (* (( (ptr) gf_c50144)+203)/* var_c44160 */  ))+21) );
            {
               word var_c028;
               {
                  word var_c0823;
                  var_c0823 = (word) &var_c50112;
                  var_c028 = (word) XR_Enable(( ((word)  (fPt) NoName_Q6972) ), ( ((word)  (fPt) NoName_Q8292) ), var_c0823);
                  };
               if ((var_c028 == 7)) {
                  goto lab_L100084;
                  };
               };
            };
         };
      goto lab_L100085;
      lab_L100084: ;
      };
   goto lab_L100097;
   lab_L100075: ;
   goto lab_L100097;
   lab_L100076: ;
SOURCE(10280, 17)
   result_v22348 = (* (( (ptr) gf_c50144)+21) );
   lab_L100097: ;
   /* removed tail goto */ 
   (*  (ptr) formal_c0298 ) = result_v22348;
   (* (( (ptr) formal_c0298)+1) ) = (* (( (ptr) &var_c50112)+4)/* msg_v22376 */  );
   return;
   }

static word NoName_Q6972(formal_c0756)
   word formal_c0756;
   {
SOURCE(10198, 34)
   {
      word pd241;
      pd241 = (* (( (ptr) formal_c0756)+8) );
      (void) ( *( (fPt) ((*  (ptr) pd241 ))))((* (( (ptr) formal_c0756)+7) ), 10, pd241);
      };
   return(0);
   }

static word NoName_Q7032(formal_c0757)
   word formal_c0757;
   {
SOURCE(10148, 43)
   {
      word pd242;
      pd242 = (* (( (ptr) formal_c0757)+8) );
      (void) ( *( (fPt) ((*  (ptr) pd242 ))))((* (( (ptr) formal_c0757)+7) ), (* (( (ptr) formal_c0757)+6) ), 0, 2147483647, pd242)
      ;
      };
   return(0);
   }

static word NoName_Q7092(formal_c0758)
   word formal_c0758;
   {
SOURCE(10096, 45)
   {
      word pd243;
      pd243 = (* (( (ptr) formal_c0758)+8) );
      (void) ( *( (fPt) ((*  (ptr) pd243 ))))((* (( (ptr) formal_c0758)+7) ), (* (( (ptr) formal_c0758)+5) ), 0, 2147483647, pd243)
      ;
      };
   return(0);
   }

static word NoName_Q7152(formal_c0759)
   word formal_c0759;
   {
SOURCE(9866, 56)
   {
      word pd244;
      pd244 = (* (( (ptr) formal_c0759)+8) );
      (* (( (ptr) formal_c0759)+9) ) = (word) ( *( (fPt) ((*  (ptr) pd244 ))))((* (( (ptr) formal_c0759)+7) ), (* (( (ptr) formal_c0759)+6)
          ), pd244);
      };
   return(0);
   }

static word NoName_Q7212(formal_c0760)
   word formal_c0760;
   {
SOURCE(9818, 31)
   {
      word pd245;
      pd245 = (* (( (ptr) formal_c0760)+8) );
      (* (( (ptr) formal_c0760)+9) ) = (word) ( *( (fPt) ((*  (ptr) pd245 ))))((* ((( (ptr) formal_c0760)+7)) ), pd245);
      };
   return(0);
   }

static word NoName_Q7272(formal_c0761)
   word formal_c0761;
   {
SOURCE(9364, 71)
   {
      word pd246;
      pd246 = (* (( (ptr) formal_c0761)+8) );
      (* (( (ptr) formal_c0761)+9) ) = (word) ( *( (fPt) ((*  (ptr) pd246 ))))((* (( (ptr) formal_c0761)+7) ), 8, pd246);
      };
   return(0);
   }

static void PriorityCommand_P1080(formal_c0306, formal_c0864)
   word formal_c0306;
   word formal_c0864;
   {
   W10 var_c50176;
   /* declaration of cmd_v22436 skipped */ 
   register ptr gf_c50208 =  (ptr) &globalframe;
   word result_v22480;
   word msg_v22508;
   /* declaration of old_v9728 skipped */ 
   word new_v9756;
   (* (( (ptr) &var_c50176)+4)/* cmd_v22436 */  ) = formal_c0864;
   /* PriorityCommand: */ 
SOURCE(10303, 466)
SOURCE(10303, 466)
   result_v22480 = 0;
SOURCE(10303, 466)
   msg_v22508 = 0;
SOURCE(10354, 45)
   {
      word pd247;
      pd247 = (* (( (ptr) (* (( (ptr) gf_c50208)+211)/* var_c45408 */  ))+14) );
      (* (( (ptr) &var_c50176)+5)/* old_v9728 */  ) = (word) ( *( (fPt) ((*  (ptr) pd247 ))))(pd247);
      };
SOURCE(10401, 197)
   {
      word var_c46048;
      var_c46048 = (* (( (ptr) (* (( (ptr) (* (( (ptr) &var_c50176)+4)/* cmd_v22436 */  ))+5) ))+2) );
      if ((var_c46048 == (* (( (ptr) gf_c50208)+50) ))) {
         new_v9756 = 3;
         goto endif0248;
         };
      if ((var_c46048 == (* (( (ptr) gf_c50208)+51) ))) {
         new_v9756 = 1;
         goto endif0248;
         };
      if ((var_c46048 == (* (( (ptr) gf_c50208)+52) ))) {
         new_v9756 = 2;
         goto endif0248;
         };
      new_v9756 = (
         XR_RaiseUnnamedError(), 0
         );
      goto endif0248;
      endif0248: ;
      };
SOURCE(10600, 24)
   {
      word pd249;
      pd249 = (* (( (ptr) (* (( (ptr) gf_c50208)+211)/* var_c45408 */  ))+13) );
      (void) ( *( (fPt) ((*  (ptr) pd249 ))))(new_v9756, pd249);
      };
SOURCE(10626, 114)
   {
      W2 var_c46080;
      {
         /* declaration of var_c029 skipped */ 
         /* declaration of var_c030 skipped */ 
         (* (( (ptr) &var_c50176)+6)/* var_c029 */  ) = (* (( (ptr) (* (( (ptr) &var_c50176)+4)/* cmd_v22436 */  ))+4) );
         (* (( (ptr) &var_c50176)+7)/* var_c030 */  ) = (* (( (ptr) (* (( (ptr) gf_c50208)+208)/* var_c44736 */  ))+13) );
         {
            /* declaration of var_c031 skipped */ 
            {
               word var_c0824;
               var_c0824 = (word) &var_c50176;
                (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q7332) ), ( ((word)  (fPt) NoName_Q8232) ), var_c0824);
               };
            var_c46080 = (*  (W2Pt) (( (ptr) &var_c50176)+8)/* var_c031 */  );
            };
         };
      msg_v22508 = var_c46080.f1;
      result_v22480 = var_c46080.f0;
      };
SOURCE(10745, 24)
   {
      word pd250;
      pd250 = (* (( (ptr) (* (( (ptr) gf_c50208)+211)/* var_c45408 */  ))+13) );
      (void) ( *( (fPt) ((*  (ptr) pd250 ))))((* ((( (ptr) &var_c50176)+5)/* old_v9728 */ ) ), pd250);
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0306 ) = result_v22480;
   (* (( (ptr) formal_c0306)+1) ) = msg_v22508;
   return;
   }

static word NoName_Q7332(formal_c0763)
   word formal_c0763;
   {
SOURCE(10626, 114)
   {
      word pd251;
      pd251 = (* (( (ptr) formal_c0763)+7) );
      (void) ( *( (fPt) ((*  (ptr) pd251 ))))((word) (( (bPt) formal_c0763)+32), (* (( (ptr) formal_c0763)+4) ), (* (( (ptr) formal_c0763)+6)
          ), pd251);
      };
   return(0);
   }

static word SpecialChar_P1140(c_v24904)
   word c_v24904;
   {
   word quit_v24948;
   /* SpecialChar: */ 
SOURCE(10976, 132)
SOURCE(10976, 132)
   quit_v24948 = 0;
SOURCE(11009, 99)
   {
      word var_c46112;
      var_c46112 = c_v24904;
      if (((((((var_c46112 - 97) <= 25) || ((var_c46112 - 65) <= 25)) || ((var_c46112 - 48) <= 9)) || (var_c46112 == 47)) || (var_c46112 == 42)) || (var_c46112 == 46)) {
         return(0);
         }
      else {
         return(1);
         };
      };
   }

static void PrevResultCommand_P1200(formal_c0316, cmd_v5516)
   word formal_c0316;
   word cmd_v5516;
   {
   register ptr gf_c50240 =  (ptr) &globalframe;
   word result_v5560;
   word msg_v5588;
   /* PrevResultCommand: */ 
SOURCE(11112, 233)
SOURCE(11112, 233)
   result_v5560 = 0;
SOURCE(11112, 233)
   msg_v5588 = 0;
SOURCE(11239, 46)
   {
      word pd252;
      pd252 = (* (( (ptr) (* (( (ptr) gf_c50240)+212)/* var_c45568 */  ))+20) );
      result_v5560 = (word) ( *( (fPt) ((*  (ptr) pd252 ))))((* (( (ptr) gf_c50240)+29) ), (* (( (ptr) cmd_v5516)+6) ), pd252);
      };
SOURCE(11287, 58)
   {
      W2 var_c46144;
      {
         word v_v42752;
         v_v42752 = result_v5560;
         var_c46144.f0 = 10;
         var_c46144.f1 = v_v42752;
         };
      {
         word pd253;
         pd253 = (* (( (ptr) (* (( (ptr) gf_c50240)+203)/* var_c44160 */  ))+63) );
         msg_v5588 = (word) ( *( (fPt) ((*  (ptr) pd253 ))))((* (( (ptr) gf_c50240)+53) ), var_c46144, pd253);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0316 ) = result_v5560;
   (* (( (ptr) formal_c0316)+1) ) = msg_v5588;
   return;
   }

static void ResultOfCommand_P1260(formal_c0322, cmd_v5660)
   word formal_c0322;
   word cmd_v5660;
   {
   register ptr gf_c50272 =  (ptr) &globalframe;
   word result_v5704;
   word msg_v5732;
   /* ResultOfCommand: */ 
SOURCE(11351, 229)
SOURCE(11351, 229)
   result_v5704 = 0;
SOURCE(11351, 229)
   msg_v5732 = 0;
SOURCE(11476, 53)
   {
      word pd254;
      pd254 = (* (( (ptr) (* (( (ptr) gf_c50272)+208)/* var_c44736 */  ))+11) );
      result_v5704 = (word) ( *( (fPt) ((*  (ptr) pd254 ))))((* (( (ptr) cmd_v5660)+4) ), cmd_v5660, pd254);
      };
SOURCE(11531, 49)
   {
      W2 var_c46240;
      {
         word v_v42704;
         v_v42704 = result_v5704;
         var_c46240.f0 = 10;
         var_c46240.f1 = v_v42704;
         };
      {
         word pd255;
         pd255 = (* (( (ptr) (* (( (ptr) gf_c50272)+203)/* var_c44160 */  ))+63) );
         msg_v5732 = (word) ( *( (fPt) ((*  (ptr) pd255 ))))((* (( (ptr) gf_c50272)+54) ), var_c46240, pd255);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0322 ) = result_v5704;
   (* (( (ptr) formal_c0322)+1) ) = msg_v5732;
   return;
   }

static void PropCommand_P1320(formal_c0349, cmd_v25008)
   word formal_c0349;
   word cmd_v25008;
   {
   W7 var_c50304;
   register ptr gf_c50336 =  (ptr) &globalframe;
   word result_v25052;
   word msg_v25080;
   word n_v9800 = 0;
   /* declaration of arg_v9828 skipped */ 
   /* declaration of v_v9856 skipped */ 
   word quote_v9884 = 1;
   word demand_v9912 = 0;
   word value_v9940 = 0;
   word default_v9968 = 0;
   /* PropCommand: */ 
SOURCE(11586, 1444)
SOURCE(11586, 1444)
   result_v25052 = 0;
SOURCE(11586, 1444)
   msg_v25080 = 0;
SOURCE(11637, 42)
   {
      word pd256;
      pd256 = (* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+8) );
      var_c50304.f4/* arg_v9828 */  = (word) ( *( (fPt) ((*  (ptr) pd256 ))))(cmd_v25008, 0, pd256);
      };
SOURCE(11681, 12)
   var_c50304.f5/* v_v9856 */  = 0;
SOURCE(11776, 261)
   lab_L100108: ;
   {
      word pd257;
      pd257 = (* (( (ptr) (* (( (ptr) gf_c50336)+206)/* var_c44544 */  ))+23) );
      if ((word) ( *( (fPt) ((*  (ptr) pd257 ))))((* (( (ptr) gf_c50336)+55) ), var_c50304.f4/* arg_v9828 */ , 1, pd257)) {
         }
      else {
         goto lab_L100106;
         };
      };
SOURCE(11807, 183)
   {
      register word i_v10044 = 1;
      register word noName_c46336;
      {
         word pd258;
         pd258 = (* (( (ptr) (* (( (ptr) gf_c50336)+206)/* var_c44544 */  ))+15) );
         noName_c46336 = (word) ( *( (fPt) ((*  (ptr) pd258 ))))(var_c50304.f4/* arg_v9828 */ , pd258);
         };
      if (( (int)i_v10044 >=  (int)noName_c46336)) {
         goto lab_L100109;
         };
      lab_L100112: ;
SOURCE(11844, 146)
      {
         word var_c46400;
         {
            word var_c46368;
            {
               word pd259;
               pd259 = (* (( (ptr) (* (( (ptr) gf_c50336)+206)/* var_c44544 */  ))+9) );
               var_c46368 = (word) ( *( (fPt) ((*  (ptr) pd259 ))))(var_c50304.f4/* arg_v9828 */ , i_v10044, pd259);
               };
            {
               word pd260;
               pd260 = (* (( (ptr) (* (( (ptr) gf_c50336)+206)/* var_c44544 */  ))+28) );
               var_c46400 = (word) ( *( (fPt) ((*  (ptr) pd260 ))))(var_c46368, pd260);
               };
            };
         switch (var_c46400) {
            case 113: 
SOURCE(11893, 9)
               quote_v9884 = 2;
               break;
            case 115: 
SOURCE(11910, 9)
               quote_v9884 = 0;
               break;
            case 102: 
SOURCE(11927, 13)
               demand_v9912 = 1;
               break;
            default: 
SOURCE(11953, 37)
               {
                  word var_c0337;
                  var_c0337 = (* (( (ptr) (* (( (ptr) cmd_v25008)+5) ))+1) );
                  (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+4) ), (word) &var_c0337);
                  };
               break;
            };
         };
      i_v10044 = (i_v10044 + 1);
      if (( (int)i_v10044 <  (int)noName_c46336)) {
         goto lab_L100112;
         };
      lab_L100109: ;
      };
SOURCE(12001, 36)
   {
      word pd261;
      pd261 = (* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+8) );
      var_c50304.f4/* arg_v9828 */  = (word) ( *( (fPt) ((*  (ptr) pd261 ))))(cmd_v25008, 0, pd261);
      };
   goto lab_L100108;
   lab_L100106: ;
SOURCE(12048, 55)
   if ((var_c50304.f4/* arg_v9828 */  == 0)) {
SOURCE(12066, 37)
      {
         word var_c0338;
         var_c0338 = (* (( (ptr) (* (( (ptr) cmd_v25008)+5) ))+1) );
         (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+4) ), (word) &var_c0338);
         };
      };
SOURCE(12105, 40)
   {
      word pd262;
      pd262 = (* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+8) );
      default_v9968 = (word) ( *( (fPt) ((*  (ptr) pd262 ))))(cmd_v25008, 0, pd262);
      };
SOURCE(12147, 82)
   {
      word pd263;
      pd263 = (* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+8) );
      if (((word) ( *( (fPt) ((*  (ptr) pd263 ))))(cmd_v25008, 0, pd263) != 0)) {
SOURCE(12192, 37)
         {
            word var_c0339;
            var_c0339 = (* (( (ptr) (* (( (ptr) cmd_v25008)+5) ))+1) );
            (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+4) ), (word) &var_c0339);
            };
         };
      };
SOURCE(12231, 15)
   value_v9940 = default_v9968;
SOURCE(12248, 49)
   {
      word var_c46432;
      {
         word pd264;
         pd264 = (* (( (ptr) (* (( (ptr) gf_c50336)+204)/* var_c44352 */  ))+5) );
         var_c46432 = (word) ( *( (fPt) ((*  (ptr) pd264 ))))(var_c50304.f4/* arg_v9828 */ , 0, 2147483647, pd264);
         };
      {
         word pd265;
         pd265 = (* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+15) );
         var_c50304.f5/* v_v9856 */  = (word) ( *( (fPt) ((*  (ptr) pd265 ))))(cmd_v25008, var_c46432, pd265);
         };
      };
SOURCE(12299, 240)
   if ((var_c50304.f5/* v_v9856 */  == 0)) {
SOURCE(12315, 224)
      {
         word var_c46464;
         {
            word pd266;
            pd266 = (* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+15) );
            var_c46464 = (word) ( *( (fPt) ((*  (ptr) pd266 ))))(cmd_v25008, (* (( (ptr) gf_c50336)+56) ), pd266);
            };
         if ((var_c46464 == 0)) {
            goto lab_L100113;
            };
         if (((* (( (ptr) gf_c50336)+7) ) == XR_GetReferentType(var_c46464))) {
            {
               /* declaration of argv_v10088 skipped */ 
               var_c50304.f6/* argv_v10088 */  = var_c46464;
SOURCE(12425, 114)
SOURCE(12425, 114)
               {
                  word var_c032;
                  {
                     word var_c0825;
                     var_c0825 = (word) &var_c50304;
                     var_c032 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7392) ), ( ((word)  (fPt) NoName_Q8172) ), var_c0825);
                     };
                  /* removed trivial cond node */ 
                  };
               };
            }
         else {
            lab_L100113: ;
            };
         };
      };
SOURCE(12556, 240)
   {
      word var_c46560;
      word var_c46592;
      var_c46560 = var_c50304.f5/* v_v9856 */ ;
      if ((var_c46560 == 0)) {
         goto lab_L100118;
         };
      var_c46592 = XR_GetReferentType(var_c46560);
      {
         word tc267;
         if (((* (( (ptr) gf_c50336)+4) ) == var_c46592)) {
            tc267 =  (word) ((*(int*)var_c46560<0) == 0);
            }
         else {
            tc267 =  (word) 0;
            };
         if (tc267) {
            {
               word rope_v10176;
               rope_v10176 = var_c46560;
SOURCE(12589, 12)
               value_v9940 = rope_v10176;
               };
            }
         else {
            if (((* (( (ptr) gf_c50336)+11) ) == var_c46592)) {
               {
                  word atom_v10220;
                  atom_v10220 = var_c46560;
SOURCE(12617, 27)
                  {
                     word pd268;
                     pd268 = (* (( (ptr) (* (( (ptr) gf_c50336)+204)/* var_c44352 */  ))+9) );
                     value_v9940 = (word) ( *( (fPt) ((*  (ptr) pd268 ))))(atom_v10220, pd268);
                     };
                  };
               }
            else {
               lab_L100118: ;
SOURCE(12659, 137)
               if ((0 != demand_v9912)) {
SOURCE(12674, 122)
                  {
                     word var_c46624;
                     {
                        word pd269;
                        pd269 = (* (( (ptr) (* (( (ptr) gf_c50336)+206)/* var_c44544 */  ))+5) );
                        var_c46624 = (word) ( *( (fPt) ((*  (ptr) pd269 ))))((* (( (ptr) gf_c50336)+58) ), var_c50304.f4/* arg_v9828 */ ,  ( (var_c50304.f5/* v_v9856 */  == 0) ? (* (
/*1*/   ( (ptr) gf_c50336)+59) ) : (* (( (ptr) gf_c50336)+60) ) ) , 0, 0, pd269);
                        };
                     {
                        word var_c0348;
                        var_c0348 = var_c46624;
                        (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50336)+208)/* var_c44736 */  ))+4) ), (word) &var_c0348);
                        };
                     };
                  };
               };
            };
         };
      };
SOURCE(12801, 110)
   if ((quote_v9884 == 1)) {
SOURCE(12821, 90)
      {
         word tc270;
         word pd271;
         word pd273;
         word idx274;
         pd271 = (* (( (ptr) (* (( (ptr) gf_c50336)+206)/* var_c44544 */  ))+13) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd271 ))))(value_v9940, pd271))) { goto then0272;};
         pd273 = (* (( (ptr) (* (( (ptr) gf_c50336)+206)/* var_c44544 */  ))+26) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd273 ))))(value_v9940, 0, 2147483647, (word) (( (bPt) gf_c50336)+652)/* var_c43520 */ , pd273)
         )) {
            then0272: ;
            tc270 =  (word) 2;
            }
         else {
            tc270 =  (word) 0;
            };
         quote_v9884 = (
            idx274 = (word) tc270,
            BCK(idx274, 3)
            );
         };
      };
SOURCE(12916, 59)
   if ((quote_v9884 != 0)) {
SOURCE(12934, 41)
      {
         word pd275;
         pd275 = (* (( (ptr) (* (( (ptr) gf_c50336)+209)/* var_c45056 */  ))+38) );
         value_v9940 = (word) ( *( (fPt) ((*  (ptr) pd275 ))))(value_v9940, 1, pd275);
         };
      };
SOURCE(12977, 26)
   {
      word pd276;
      pd276 = (* (( (ptr) (* (( (ptr) gf_c50336)+203)/* var_c44160 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd276 ))))((* (( (ptr) cmd_v25008)+1) ), value_v9940, 0, 2147483647, pd276);
      };
SOURCE(13005, 25)
   {
      word pd277;
      pd277 = (* (( (ptr) (* (( (ptr) gf_c50336)+203)/* var_c44160 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd277 ))))((* (( (ptr) cmd_v25008)+1) ), (* (( (ptr) gf_c50336)+43) ), 0, 2147483647, pd277)
      ;
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0349 ) = result_v25052;
   (* (( (ptr) formal_c0349)+1) ) = msg_v25080;
   return;
   }

static word NoName_Q7392(formal_c0768)
   word formal_c0768;
   {
   register ptr gf_c0767 =  (ptr) &globalframe;
SOURCE(12459, 33)
   {
      word i_v10132;
      word var_c46496;
SOURCE(12459, 33)
      {
         word pd278;
         pd278 = (* (( (ptr) (* (( (ptr) gf_c0767)+209)/* var_c45056 */  ))+10) );
         i_v10132 = (word) ( *( (fPt) ((*  (ptr) pd278 ))))((* (( (ptr) formal_c0768)+4) ), 8, pd278);
         };
SOURCE(12494, 45)
      var_c46496 = (i_v10132 + 1);
      if ( ( ( (int)var_c46496 >=  (int)0) ? ( (int)var_c46496 <  (int)(*  (ptr) (* (( (ptr) formal_c0768)+6) ) )) : 0 ) ) {
SOURCE(12526, 13)
         {
            word var_c46528;
            var_c46528 = (i_v10132 + 1);
            {
               word limit279;
               (* (( (ptr) formal_c0768)+5) ) = (* ((( (ptr) (* (( (ptr) formal_c0768)+6) ))+1)+(
                     limit279 = (*  (ptr) (* (( (ptr) formal_c0768)+6) ) ),
                     BCK(var_c46528, limit279)
                     )) );
               };
            };
         };
      };
   return(0);
   }

static void PropertiesCommand_P1380(formal_c0369, formal_c0865)
   word formal_c0369;
   word formal_c0865;
   {
   W9 var_c50368;
   /* declaration of cmd_v25140 skipped */ 
   register ptr gf_c50400 =  (ptr) &globalframe;
   word result_v25184;
   /* declaration of msg_v25212 skipped */ 
   (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ) = formal_c0865;
   /* PropertiesCommand: */ 
SOURCE(13036, 1786)
SOURCE(13036, 1786)
   result_v25184 = 0;
SOURCE(13036, 1786)
   (* (( (ptr) &var_c50368)+5)/* msg_v25212 */  ) = 0;
SOURCE(13087, 1735)
SOURCE(13089, 14)
   {
      word depth_v10264 = 5;
      word width_v10292 = 32;
      register word props_v10320 = 0;
      word i_v10348 = 1;
      word token_v10376 = 0;
      word any_v10404 = 0;
      word verboseFlag_v10432 = 0;
      word key_v10460 = 0;
      word argv_v10488;
SOURCE(13231, 84)
      {
         /* declaration of var_c033 skipped */ 
         (* (( (ptr) &var_c50368)+6)/* var_c033 */  ) = (* (( (ptr) (* (( (ptr) gf_c50400)+208)/* var_c44736 */  ))+6) );
         {
            /* declaration of var_c034 skipped */ 
            {
               word var_c035;
               {
                  word var_c0826;
                  var_c0826 = (word) &var_c50368;
                  var_c035 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7572) ), ( ((word)  (fPt) NoName_Q8112) ), var_c0826);
                  };
               if ((var_c035 == 10)) {
                  goto lab_L100120;
                  };
               };
            argv_v10488 = (* (( (ptr) &var_c50368)+7)/* var_c034 */  );
            };
         };
SOURCE(13347, 1439)
SOURCE(13349, 210)
      if (((* (( (ptr) (* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+5) ))+2) ) == (* (( (ptr) gf_c50400)+61) ))) {
SOURCE(13404, 34)
         {
            word pd280;
            pd280 = (* (( (ptr) (* (( (ptr) gf_c50400)+215)/* var_c46656 */  ))+6) );
            props_v10320 = (word) ( *( (fPt) ((*  (ptr) pd280 ))))(pd280);
            };
SOURCE(13440, 40)
         {
            word pd281;
            pd281 = (* (( (ptr) (* (( (ptr) gf_c50400)+203)/* var_c44160 */  ))+93) );
            (void) ( *( (fPt) ((*  (ptr) pd281 ))))((* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ), (* (( (ptr) gf_c50400)+62)
                ), 0, 2147483647, pd281);
            };
         }
      else {
SOURCE(13491, 24)
         props_v10320 = (* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+6) );
SOURCE(13517, 42)
         {
            word pd282;
            pd282 = (* (( (ptr) (* (( (ptr) gf_c50400)+203)/* var_c44160 */  ))+93) );
            (void) ( *( (fPt) ((*  (ptr) pd282 ))))((* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ), (* (( (ptr) gf_c50400)+63)
                ), 0, 2147483647, pd282);
            };
         };
SOURCE(13564, 810)
      lab_L100126: ;
SOURCE(13567, 23)
      {
         word pd283;
         pd283 = (* (( (ptr) (* (( (ptr) gf_c50400)+211)/* var_c45408 */  ))+18) );
         (void) ( *( (fPt) ((*  (ptr) pd283 ))))(pd283);
         };
SOURCE(13592, 23)
      if ((i_v10348 >= (*  (ptr) argv_v10488 ))) {
SOURCE(13615, 4)
         goto lab_L100125;
         };
SOURCE(13621, 15)
      {
         word limit284;
         token_v10376 = (* ((( (ptr) argv_v10488)+1)+(
               limit284 = (*  (ptr) argv_v10488 ),
               BCK(i_v10348, limit284)
               )) );
         };
SOURCE(13638, 9)
      i_v10348 = (i_v10348 + 1);
SOURCE(13649, 184)
      {
         word pd285;
         pd285 = (* (( (ptr) (* (( (ptr) gf_c50400)+206)/* var_c44544 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd285 ))))(token_v10376, (* (( (ptr) gf_c50400)+36) ), 0, pd285))) {
SOURCE(13684, 22)
            if ((i_v10348 == (*  (ptr) argv_v10488 ))) {
SOURCE(13706, 13)
               goto lab_L100123;
               };
SOURCE(13721, 55)
            {
               /* declaration of var_c036 skipped */ 
               /* declaration of var_c037 skipped */ 
               {
                  word limit286;
                  (* (( (ptr) &var_c50368)+6)/* var_c036 */  ) = (* ((( (ptr) argv_v10488)+1)+(
                        limit286 = (*  (ptr) argv_v10488 ),
                        BCK(i_v10348, limit286)
                        )) );
                  };
               (* (( (ptr) &var_c50368)+7)/* var_c037 */  ) = (* (( (ptr) (* (( (ptr) gf_c50400)+209)/* var_c45056 */  ))+10) );
               {
                  /* declaration of var_c038 skipped */ 
                  {
                     word var_c039;
                     {
                        word var_c0827;
                        var_c0827 = (word) &var_c50368;
                        var_c039 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7512) ), ( ((word)  (fPt) NoName_Q8052) ), var_c0827);
                        };
                     if ((var_c039 == 11)) {
                        goto lab_L100123;
                        };
                     };
                  depth_v10264 = (* (( (ptr) &var_c50368)+8)/* var_c038 */  );
                  };
               };
SOURCE(13792, 18)
            if (( (int)width_v10292 <  (int)0)) {
SOURCE(13810, 12)
               goto lab_L100123;
               };
SOURCE(13824, 9)
            i_v10348 = (i_v10348 + 1);
SOURCE(13835, 4)
            goto lab_L100126;
            };
         };
SOURCE(13844, 182)
      {
         word pd287;
         pd287 = (* (( (ptr) (* (( (ptr) gf_c50400)+206)/* var_c44544 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd287 ))))(token_v10376, (* (( (ptr) gf_c50400)+64) ), 0, pd287))) {
SOURCE(13879, 22)
            if ((i_v10348 == (*  (ptr) argv_v10488 ))) {
SOURCE(13901, 12)
               goto lab_L100123;
               };
SOURCE(13915, 55)
            {
               /* declaration of var_c040 skipped */ 
               /* declaration of var_c041 skipped */ 
               {
                  word limit288;
                  (* (( (ptr) &var_c50368)+6)/* var_c040 */  ) = (* ((( (ptr) argv_v10488)+1)+(
                        limit288 = (*  (ptr) argv_v10488 ),
                        BCK(i_v10348, limit288)
                        )) );
                  };
               (* (( (ptr) &var_c50368)+7)/* var_c041 */  ) = (* (( (ptr) (* (( (ptr) gf_c50400)+209)/* var_c45056 */  ))+10) );
               {
                  /* declaration of var_c042 skipped */ 
                  {
                     word var_c043;
                     {
                        word var_c0828;
                        var_c0828 = (word) &var_c50368;
                        var_c043 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7452) ), ( ((word)  (fPt) NoName_Q7992) ), var_c0828);
                        };
                     if ((var_c043 == 11)) {
                        goto lab_L100123;
                        };
                     };
                  width_v10292 = (* (( (ptr) &var_c50368)+8)/* var_c042 */  );
                  };
               };
SOURCE(13985, 18)
            if (( (int)width_v10292 <  (int)0)) {
SOURCE(14003, 12)
               goto lab_L100123;
               };
SOURCE(14017, 9)
            i_v10348 = (i_v10348 + 1);
SOURCE(14028, 4)
            goto lab_L100126;
            };
         };
SOURCE(14037, 53)
      {
         word pd289;
         pd289 = (* (( (ptr) (* (( (ptr) gf_c50400)+206)/* var_c44544 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd289 ))))(token_v10376, (* (( (ptr) gf_c50400)+65) ), 0, pd289))) {
SOURCE(14072, 18)
            verboseFlag_v10432 = 1;
SOURCE(14092, 4)
            goto lab_L100126;
            };
         };
SOURCE(14101, 10)
      any_v10404 = 1;
SOURCE(14113, 136)
      {
         word tc290;
         word pd291;
         word pd292;
         pd291 = (* (( (ptr) (* (( (ptr) gf_c50400)+206)/* var_c44544 */  ))+15) );
         if (( (int)(word) ( *( (fPt) ((*  (ptr) pd291 ))))(token_v10376, pd291) >  (int)1)) {
            pd292 = (* (( (ptr) (* (( (ptr) gf_c50400)+206)/* var_c44544 */  ))+9) );
            tc290 =  (word) ((word) ( *( (fPt) ((*  (ptr) pd292 ))))(token_v10376, 0, pd292) == 36);
            }
         else {
            tc290 =  (word) 0;
            };
         if (tc290) {
SOURCE(14162, 61)
            {
               word var_c46688;
               {
                  word pd293;
                  pd293 = (* (( (ptr) (* (( (ptr) gf_c50400)+206)/* var_c44544 */  ))+17) );
                  var_c46688 = (word) ( *( (fPt) ((*  (ptr) pd293 ))))(token_v10376, 1, 2147483647, pd293);
                  };
               {
                  word pd294;
                  pd294 = (* (( (ptr) (* (( (ptr) gf_c50400)+204)/* var_c44352 */  ))+5) );
                  key_v10460 = (word) ( *( (fPt) ((*  (ptr) pd294 ))))(var_c46688, 0, 2147483647, pd294);
                  };
               };
            }
         else {
SOURCE(14223, 26)
            {
               word pd295;
               pd295 = (* (( (ptr) (* (( (ptr) gf_c50400)+204)/* var_c44352 */  ))+5) );
               key_v10460 = (word) ( *( (fPt) ((*  (ptr) pd295 ))))(token_v10376, 0, 2147483647, pd295);
               };
            };
         };
SOURCE(14251, 22)
      {
         word pd296;
         pd296 = (* (( (ptr) (* (( (ptr) gf_c50400)+203)/* var_c44160 */  ))+93) );
         (void) ( *( (fPt) ((*  (ptr) pd296 ))))((* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ), token_v10376, 0, 2147483647, pd296)
         ;
         };
SOURCE(14275, 22)
      {
         word pd297;
         pd297 = (* (( (ptr) (* (( (ptr) gf_c50400)+203)/* var_c44160 */  ))+93) );
         (void) ( *( (fPt) ((*  (ptr) pd297 ))))((* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ), (* (( (ptr) gf_c50400)+66)
             ), 0, 2147483647, pd297);
         };
SOURCE(14299, 53)
      {
         word var_c46720;
         {
            word pd298;
            pd298 = (* (( (ptr) (* (( (ptr) gf_c50400)+212)/* var_c45568 */  ))+20) );
            var_c46720 = (word) ( *( (fPt) ((*  (ptr) pd298 ))))(key_v10460, props_v10320, pd298);
            };
         (void) PrintAny_P2040(var_c46720, (* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ));
         };
SOURCE(14354, 20)
      {
         word pd299;
         pd299 = (* (( (ptr) (* (( (ptr) gf_c50400)+203)/* var_c44160 */  ))+21) );
         (void) ( *( (fPt) ((*  (ptr) pd299 ))))((* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ), 10, pd299);
         };
      goto lab_L100126;
      lab_L100125: ;
SOURCE(14385, 349)
      if ((0 == any_v10404)) {
SOURCE(14403, 166)
         /* removed bogus assignment */ 
         lab_L100134: ;
         if ((props_v10320 != 0)) {
            }
         else {
            goto lab_L100131;
            };
SOURCE(14452, 34)
         (void) PrintAny_P2040((*  (ptr) (*  (ptr) props_v10320 ) ), (* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1)
             ));
SOURCE(14488, 22)
         {
            word pd300;
            pd300 = (* (( (ptr) (* (( (ptr) gf_c50400)+203)/* var_c44160 */  ))+93) );
            (void) ( *( (fPt) ((*  (ptr) pd300 ))))((* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ), (* (( (ptr) gf_c50400)+66)
                ), 0, 2147483647, pd300);
            };
SOURCE(14512, 34)
         (void) PrintAny_P2040((* (( (ptr) (*  (ptr) props_v10320 ))+1) ), (* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1)
             ));
SOURCE(14548, 21)
         {
            word pd301;
            pd301 = (* (( (ptr) (* (( (ptr) gf_c50400)+203)/* var_c44160 */  ))+93) );
            (void) ( *( (fPt) ((*  (ptr) pd301 ))))((* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ), (* (( (ptr) gf_c50400)+43)
                ), 0, 2147483647, pd301);
            };
         props_v10320 = (* (( (ptr) props_v10320)+1) );
         goto lab_L100134;
         lab_L100131: ;
SOURCE(14714, 20)
         {
            word pd302;
            pd302 = (* (( (ptr) (* (( (ptr) gf_c50400)+203)/* var_c44160 */  ))+21) );
            (void) ( *( (fPt) ((*  (ptr) pd302 ))))((* (( (ptr) (* (( (ptr) &var_c50368)+4)/* cmd_v25140 */  ))+1) ), 10, pd302);
            };
         };
      goto lab_L100135;
      lab_L100123: ;
SOURCE(14756, 28)
      result_v25184 = (* (( (ptr) gf_c50400)+21) );
      (* (( (ptr) &var_c50368)+5)/* msg_v25212 */  ) = (* (( (ptr) gf_c50400)+67) );
      goto lab_L100119;
      lab_L100135: ;
      };
   goto lab_L100136;
   lab_L100120: ;
SOURCE(14803, 17)
   result_v25184 = (* (( (ptr) gf_c50400)+21) );
   lab_L100136: ;
   /* removed tail goto */ 
   lab_L100119: ;
   (*  (ptr) formal_c0369 ) = result_v25184;
   (* (( (ptr) formal_c0369)+1) ) = (* (( (ptr) &var_c50368)+5)/* msg_v25212 */  );
   return;
   }

static word NoName_Q7452(formal_c0770)
   word formal_c0770;
   {
SOURCE(13915, 55)
   {
      word pd303;
      pd303 = (* (( (ptr) formal_c0770)+7) );
      (* (( (ptr) formal_c0770)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd303 ))))((* (( (ptr) formal_c0770)+6) ), 8, pd303);
      };
   return(0);
   }

static word NoName_Q7512(formal_c0771)
   word formal_c0771;
   {
SOURCE(13721, 55)
   {
      word pd304;
      pd304 = (* (( (ptr) formal_c0771)+7) );
      (* (( (ptr) formal_c0771)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd304 ))))((* (( (ptr) formal_c0771)+6) ), 8, pd304);
      };
   return(0);
   }

static word NoName_Q7572(formal_c0772)
   word formal_c0772;
   {
SOURCE(13231, 84)
   {
      word pd305;
      pd305 = (* (( (ptr) formal_c0772)+6) );
      (* (( (ptr) formal_c0772)+7) ) = (word) ( *( (fPt) ((*  (ptr) pd305 ))))((* (( (ptr) formal_c0772)+4) ), 0, pd305);
      };
   return(0);
   }

static void RedoCommand_P1440(formal_c0387, cmd_v25272)
   word formal_c0387;
   word cmd_v25272;
   {
   register ptr gf_c50432 =  (ptr) &globalframe;
   word result_v25316;
   word msg_v25344;
   /* RedoCommand: */ 
SOURCE(14826, 943)
SOURCE(14826, 943)
   result_v25316 = 0;
SOURCE(14826, 943)
   msg_v25344 = 0;
SOURCE(14863, 906)
SOURCE(14865, 94)
   {
      word commandToolData_v10544;
      word cls_v10572;
      word trash_v10600;
      word key_v10628;
      W2 var_c0377;
SOURCE(14865, 94)
      {
         word pd306;
         pd306 = (* (( (ptr) (* (( (ptr) gf_c50432)+213)/* var_c45632 */  ))+5) );
         commandToolData_v10544 = (word) ( *( (fPt) ((*  (ptr) pd306 ))))(cmd_v25272, pd306);
         };
SOURCE(14961, 40)
      {
         word pd307;
         pd307 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+33) );
         cls_v10572 = (word) ( *( (fPt) ((*  (ptr) pd307 ))))((* (( (ptr) cmd_v25272)+4) ), 0, pd307);
         };
SOURCE(15003, 33)
      {
         word pd308;
         pd308 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+85) );
         trash_v10600 = (word) ( *( (fPt) ((*  (ptr) pd308 ))))(cls_v10572, 1, pd308);
         };
SOURCE(15038, 74)
      {
         word pd309;
         pd309 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+15) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd309 ))))(cls_v10572, pd309))) {
            key_v10628 = 0;
            }
         else {
            {
               word pd310;
               pd310 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+89) );
               (void) ( *( (fPt) ((*  (ptr) pd310 ))))((word) &var_c0377, cls_v10572, (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+88)
                   ), pd310);
               };
            key_v10628 = var_c0377.f0;
            };
         };
SOURCE(15114, 25)
      {
         word var_c46816;
         word pd311;
         pd311 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+85) );
         var_c46816 = (word) ( *( (fPt) ((*  (ptr) pd311 ))))(cls_v10572, 1, pd311);
         };
SOURCE(15141, 24)
      {
         word pd312;
         pd312 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+15) );
         if ((0 == (word) ( *( (fPt) ((*  (ptr) pd312 ))))(cls_v10572, pd312))) {
SOURCE(15165, 14)
            goto lab_L100138;
            };
         };
SOURCE(15181, 11)
      {
         word pd313;
         pd313 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+28) );
         (void) ( *( (fPt) ((*  (ptr) pd313 ))))(cls_v10572, 0, pd313);
         };
SOURCE(15194, 486)
      {
         register word h_v10672;
         h_v10672 = (* (( (ptr) commandToolData_v10544)+9) );
         lab_L100142: ;
         if ((h_v10672 != 0)) {
            }
         else {
            goto lab_L100139;
            };
         {
            word cr_v10716;
SOURCE(15289, 35)
            cr_v10716 = (* (( (ptr) h_v10672)+1) );
SOURCE(15326, 27)
            {
               word pd314;
               pd314 = (* (( (ptr) (* (( (ptr) gf_c50432)+206)/* var_c44544 */  ))+8) );
               if ((0 != (word) ( *( (fPt) ((*  (ptr) pd314 ))))(cr_v10716, (* (( (ptr) gf_c50432)+38) ), 1, pd314))) {
SOURCE(15353, 4)
                  goto lab_L100141;
                  };
               };
SOURCE(15359, 207)
            if ((key_v10628 == 0) || (0 != (word) IsCommandPrefix_P900(key_v10628, cr_v10716))) {
SOURCE(15411, 33)
               {
                  W2 var_c46848;
                  var_c46848.f0 = 11;
                  var_c46848.f1 = cr_v10716;
                  {
                     word pd315;
                     pd315 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+61) );
                     (void) ( *( (fPt) ((*  (ptr) pd315 ))))((* (( (ptr) cmd_v25272)+1) ), (* (( (ptr) gf_c50432)+25) ), var_c46848, pd315);
                     };
                  };
SOURCE(15446, 52)
               {
                  W2 var_c46880;
                  {
                     word pd316;
                     pd316 = (* (( (ptr) (* (( (ptr) gf_c50432)+208)/* var_c44736 */  ))+13) );
                     (void) ( *( (fPt) ((*  (ptr) pd316 ))))((word) &var_c46880, cmd_v25272, cr_v10716, pd316);
                     };
                  msg_v25344 = var_c46880.f1;
                  result_v25316 = var_c46880.f0;
                  };
SOURCE(15500, 44)
               (* (( (ptr) (* (( (ptr) commandToolData_v10544)+8) ))+1) ) = cr_v10716;
SOURCE(15546, 20)
               /* removed bogus assignment */ 
               /* removed bogus assignment */ 
               goto lab_L100137;
               };
            };
         lab_L100141: ;
         h_v10672 = (* (( (ptr) h_v10672)+9) );
         goto lab_L100142;
         lab_L100139: ;
SOURCE(15592, 88)
         {
            word var_c46976;
            word var_c47008;
            var_c46976 = (* (( (ptr) gf_c50432)+21) );
            {
               W2 var_c46944;
               var_c46944.f0 = 11;
               var_c46944.f1 = key_v10628;
               {
                  word pd317;
                  pd317 = (* (( (ptr) (* (( (ptr) gf_c50432)+203)/* var_c44160 */  ))+63) );
                  var_c47008 = (word) ( *( (fPt) ((*  (ptr) pd317 ))))((* (( (ptr) gf_c50432)+68) ), var_c46944, pd317);
                  };
               };
            result_v25316 = var_c46976;
            msg_v25344 = var_c47008;
            goto lab_L100137;
            };
         };
      };
   /* c2c skipped dead code */ 
   lab_L100138: ;
SOURCE(15711, 17)
   result_v25316 = (* (( (ptr) gf_c50432)+21) );
SOURCE(15730, 37)
   msg_v25344 = (* (( (ptr) gf_c50432)+69) );
   /* removed tail goto */ 
   lab_L100137: ;
   (*  (ptr) formal_c0387 ) = result_v25316;
   (* (( (ptr) formal_c0387)+1) ) = msg_v25344;
   return;
   }

static void RegisteredHelpCommand_P1500(formal_c0417, cmd_v25404)
   word formal_c0417;
   word cmd_v25404;
   {
   W8 var_c50464;
   register ptr gf_c50496 =  (ptr) &globalframe;
   word result_v25448;
   word msg_v25476;
   /* declaration of var_c47040 skipped */ 
   /* RegisteredHelpCommand: */ 
SOURCE(15773, 2232)
   {
      word tmpAddr318;
      tmpAddr318 = (word) (( (ptr) &var_c50464)+4)/* var_c47040 */ ;
      (*  (ptr) tmpAddr318 ) = ( ((word)  (fPt) EachCommand_P4308) );
      (* (( (ptr) tmpAddr318) + 1) ) = 1;
      };
SOURCE(15773, 2232)
   result_v25448 = 0;
SOURCE(15773, 2232)
   msg_v25476 = 0;
SOURCE(15820, 2185)
SOURCE(15822, 24)
   {
      word out_v10760;
      /* declaration of argv_v10788 skipped */ 
SOURCE(15822, 24)
      out_v10760 = (* (( (ptr) cmd_v25404)+1) );
SOURCE(15848, 64)
      {
         word pd319;
         pd319 = (* (( (ptr) (* (( (ptr) gf_c50496)+208)/* var_c44736 */  ))+6) );
         var_c50464.f6/* argv_v10788 */  = (word) ( *( (fPt) ((*  (ptr) pd319 ))))(cmd_v25404, 0, pd319);
         };
SOURCE(15914, 88)
      if (((*  (ptr) var_c50464.f6/* argv_v10788 */  ) <= 1)) {
SOURCE(15939, 63)
         {
            W2 var_c47072;
            var_c47072.f0 = 11;
            var_c47072.f1 = (* (( (ptr) cmd_v25404)+3) );
            {
               word pd320;
               pd320 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+63) );
               msg_v25476 = (word) ( *( (fPt) ((*  (ptr) pd320 ))))((* (( (ptr) gf_c50496)+70) ), var_c47072, pd320);
               };
            };
SOURCE(16004, 11)
         goto lab_L100145;
         };
SOURCE(16018, 1949)
      {
         /* declaration of matchList_v10832 skipped */ 
         word prev_v10860 = 0;
         word pattern_v10916;
SOURCE(16024, 11)
         var_c50464.f7/* matchList_v10832 */  = 0;
SOURCE(16268, 52)
         {
            word tc321;
            word limit322;
            if (((*  (ptr) var_c50464.f6/* argv_v10788 */  ) != 1)) {
               tc321 =  (word) (* (( (ptr) gf_c50496)+71) );
               }
            else {
               tc321 =  (word) (* ((( (ptr) var_c50464.f6/* argv_v10788 */ )+1)+(
                     limit322 = (*  (ptr) var_c50464.f6/* argv_v10788 */  ),
                     BCK(1, limit322)
                     )) );
               };
            pattern_v10916 = tc321;
            };
SOURCE(16322, 61)
         {
            W2 var_c47136;
            {
               word pd323;
               pd323 = (* (( (ptr) (* (( (ptr) gf_c50496)+216)/* var_c47104 */  ))+5) );
               (void) ( *( (fPt) ((*  (ptr) pd323 ))))((word) &var_c47136, pattern_v10916, (word) (( (bPt) &var_c50464)+16)/* var_c47040 */ , pd323)
               ;
               };
            };
SOURCE(16385, 302)
         if ((var_c50464.f7/* matchList_v10832 */  == 0)) {
SOURCE(16411, 155)
            {
               register word i_v11044 = 1;
               register word noName_c47168;
               noName_c47168 = (*  (ptr) var_c50464.f6/* argv_v10788 */  );
               if ((i_v11044 >= noName_c47168)) {
                  goto lab_L100146;
                  };
               lab_L100149: ;
               {
                  word rope_v11088;
                  word len_v11116;
SOURCE(16443, 20)
                  {
                     word limit324;
                     rope_v11088 = (* ((( (ptr) var_c50464.f6/* argv_v10788 */ )+1)+(
                           limit324 = (*  (ptr) var_c50464.f6/* argv_v10788 */  ),
                           BCK(i_v11044, limit324)
                           )) );
                     };
SOURCE(16465, 29)
                  {
                     word pd325;
                     word limit326;
                     pd325 = (* (( (ptr) (* (( (ptr) gf_c50496)+206)/* var_c44544 */  ))+15) );
                     len_v11116 = (word) ( *( (fPt) ((*  (ptr) pd325 ))))((* (((( (ptr) var_c50464.f6/* argv_v10788 */ )+1)+(
/*1*/   limit326 = (*  (ptr) var_c50464.f6/* argv_v10788 */  ),
/*1*/   BCK(i_v11044, limit326)
/*1*/   ))) ), pd325);
                     };
SOURCE(16496, 70)
                  {
                     word tc327;
                     word pd328;
                     if (( (int)len_v11116 >  (int)0)) {
                        pd328 = (* (( (ptr) (* (( (ptr) gf_c50496)+206)/* var_c44544 */  ))+9) );
                        tc327 =  (word) ((word) ( *( (fPt) ((*  (ptr) pd328 ))))(rope_v11088, (len_v11116 - 1), pd328) != 42);
                        }
                     else {
                        tc327 =  (word) 0;
                        };
                     if (tc327) {
SOURCE(16540, 26)
                        {
                           word var_c47200;
                           {
/*1*/   word pd329;
/*1*/   pd329 = (* (( (ptr) (* (( (ptr) gf_c50496)+206)/* var_c44544 */  ))+6) );
/*1*/   var_c47200 = (word) ( *( (fPt) ((*  (ptr) pd329 ))))(rope_v11088, (* (( (ptr) gf_c50496)+71) ), pd329);
/*1*/   };
                           {
/*1*/   word limit330;
/*1*/   (* ((( (ptr) var_c50464.f6/* argv_v10788 */ )+1)+(
/*1*/         limit330 = (*  (ptr) var_c50464.f6/* argv_v10788 */  ),
/*1*/         BCK(i_v11044, limit330)
/*1*/         )) ) = var_c47200;
/*1*/   };
                           };
                        };
                     };
                  };
               i_v11044 = (i_v11044 + 1);
               if ((i_v11044 < noName_c47168)) {
                  goto lab_L100149;
                  };
               lab_L100146: ;
               };
SOURCE(16578, 46)
            {
               word limit331;
               if (((*  (ptr) var_c50464.f6/* argv_v10788 */  ) != 1)) {
                  pattern_v10916 = (* (( (ptr) gf_c50496)+71) );
                  }
               else {
                  pattern_v10916 = (* ((( (ptr) var_c50464.f6/* argv_v10788 */ )+1)+(
                        limit331 = (*  (ptr) var_c50464.f6/* argv_v10788 */  ),
                        BCK(1, limit331)
                        )) );
                  };
               };
SOURCE(16626, 61)
            {
               W2 var_c47232;
               {
                  word pd332;
                  pd332 = (* (( (ptr) (* (( (ptr) gf_c50496)+216)/* var_c47104 */  ))+5) );
                  (void) ( *( (fPt) ((*  (ptr) pd332 ))))((word) &var_c47232, pattern_v10916, (word) (( (bPt) &var_c50464)+16)/* var_c47040 */ , pd332)
                  ;
                  };
               };
            };
SOURCE(16692, 100)
         if ((var_c50464.f7/* matchList_v10832 */  == 0)) {
SOURCE(16718, 74)
            {
               W2 var_c47264;
               var_c47264.f0 = 11;
               var_c47264.f1 = (* (( (ptr) cmd_v25404)+4) );
               {
                  word pd333;
                  pd333 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+61) );
                  (void) ( *( (fPt) ((*  (ptr) pd333 ))))((* (( (ptr) cmd_v25404)+2) ), (* (( (ptr) gf_c50496)+72) ), var_c47264, pd333);
                  };
               };
SOURCE(16794, 10)
            goto lab_L100145;
            };
SOURCE(16807, 76)
         {
            word pd334;
            pd334 = (* (( (ptr) (* (( (ptr) gf_c50496)+205)/* var_c44416 */  ))+16) );
            var_c50464.f7/* matchList_v10832 */  = (word) ( *( (fPt) ((*  (ptr) pd334 ))))(var_c50464.f7/* matchList_v10832 */ , (* (
                  ( (ptr) (* (( (ptr) gf_c50496)+205)/* var_c44416 */  ))+18) ), pd334);
            };
SOURCE(16885, 1065)
         {
            register word each_v11160;
            each_v11160 = var_c50464.f7/* matchList_v10832 */ ;
            lab_L100153: ;
            if ((each_v11160 != 0)) {
               }
            else {
               goto lab_L100150;
               };
            {
               word name_v11288;
SOURCE(16951, 23)
               name_v11288 = (*  (ptr) each_v11160 );
SOURCE(16976, 974)
               {
                  word pd335;
                  pd335 = (* (( (ptr) (* (( (ptr) gf_c50496)+206)/* var_c44544 */  ))+8) );
                  if ((0 == (word) ( *( (fPt) ((*  (ptr) pd335 ))))(name_v11288, prev_v10860, 0, pd335))) {
SOURCE(17032, 923)
                     {
                        word pData_v11332;
SOURCE(17034, 59)
                        {
                           word pd336;
                           pd336 = (* (( (ptr) (* (( (ptr) gf_c50496)+207)/* var_c44576 */  ))+6) );
                           pData_v11332 = (word) ( *( (fPt) ((*  (ptr) pd336 ))))(name_v11288, pd336);
                           };
SOURCE(17095, 11)
                        prev_v10860 = name_v11288;
SOURCE(17108, 68)
                        {
                           W2 var_c47296;
                           W2 var_c47328;
                           W2 var_c47360;
                           var_c47296.f0 = 11;
                           var_c47296.f1 = (* (( (ptr) gf_c50496)+74) );
                           var_c47328.f0 = 11;
                           var_c47328.f1 = name_v11288;
                           var_c47360.f0 = 11;
                           var_c47360.f1 = (* (( (ptr) gf_c50496)+75) );
                           {
/*1*/   word pd337;
/*1*/   pd337 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+60) );
/*1*/   (void) ( *( (fPt) ((*  (ptr) pd337 ))))(out_v10760, (* (( (ptr) gf_c50496)+73) ), var_c47296, var_c47328, var_c47360, pd337)
/*1*/   ;
/*1*/   };
                           };
SOURCE(17178, 20)
                        if ((pData_v11332 == 0)) {
SOURCE(17497, 4)
                           goto lab_L100152;
                           };
SOURCE(17506, 446)
                        {
                           word next_v11376 = 0;
                           word size_v11404;
SOURCE(17523, 32)
                           {
/*1*/   word pd338;
/*1*/   pd338 = (* (( (ptr) (* (( (ptr) gf_c50496)+206)/* var_c44544 */  ))+15) );
/*1*/   size_v11404 = (word) ( *( (fPt) ((*  (ptr) pd338 ))))((* ((( (ptr) pData_v11332)+1)) ), pd338);
/*1*/   };
SOURCE(17557, 20)
                           {
/*1*/   word pd339;
/*1*/   pd339 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+93) );
/*1*/   (void) ( *( (fPt) ((*  (ptr) pd339 ))))(out_v10760, (* (( (ptr) gf_c50496)+33) ), 0, 2147483647, pd339);
/*1*/   };
SOURCE(17579, 339)
                           {
/*1*/   register word i_v11448;
/*1*/   i_v11448 = 0;
/*1*/   lab_L100157: ;
/*1*/   if (( (int)i_v11448 <  (int)size_v11404)) {
/*1*/      }
/*1*/   else {
/*1*/      goto lab_L100154;
/*1*/      };
SOURCE(17618, 42)
/*1*/   {
/*1*/      word pd340;
/*1*/      pd340 = (* (( (ptr) (* (( (ptr) gf_c50496)+206)/* var_c44544 */  ))+24) );
/*1*/      next_v11376 = ((word) ( *( (fPt) ((*  (ptr) pd340 ))))((* (( (ptr) pData_v11332)+1) ), i_v11448, (* (( (ptr) gf_c50496)+76)
/*1*/          ), pd340) + 1);
/*1*/      };
SOURCE(17662, 208)
/*1*/   {
/*1*/      word pd342;
/*1*/      if (( (int)next_v11376 >  (int)size_v11404)) { goto then0341;};
/*1*/      pd342 = (* (( (ptr) (* (( (ptr) gf_c50496)+206)/* var_c44544 */  ))+9) );
/*1*/      if (((word) ( *( (fPt) ((*  (ptr) pd342 ))))((* (( (ptr) pData_v11332)+1) ), (next_v11376 - 1), pd342) == 10)) {
/*1*/         then0341: ;
SOURCE(17721, 64)
/*1*/         {
/*1*/            word pd343;
/*1*/            pd343 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+93) );
/*1*/            (void) ( *( (fPt) ((*  (ptr) pd343 ))))(out_v10760, (* (( (ptr) pData_v11332)+1) ), i_v11448, (next_v11376 - i_v11448), pd343)
/*1*/            ;
/*1*/            };
/*1*/         }
/*1*/      else {
SOURCE(17787, 60)
/*1*/         {
/*1*/            word pd344;
/*1*/            pd344 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+93) );
/*1*/            (void) ( *( (fPt) ((*  (ptr) pd344 ))))(out_v10760, (* (( (ptr) pData_v11332)+1) ), i_v11448, ((next_v11376 - i_v11448) - 1), pd344)
/*1*/            ;
/*1*/            };
SOURCE(17849, 21)
/*1*/         {
/*1*/            word pd345;
/*1*/            pd345 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+93) );
/*1*/            (void) ( *( (fPt) ((*  (ptr) pd345 ))))(out_v10760, (* (( (ptr) gf_c50496)+43) ), 0, 2147483647, pd345);
/*1*/            };
/*1*/         };
/*1*/      };
SOURCE(17875, 43)
/*1*/   if (( (int)next_v11376 <  (int)size_v11404)) {
SOURCE(17895, 23)
/*1*/      {
/*1*/         word pd346;
/*1*/         pd346 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+93) );
/*1*/         (void) ( *( (fPt) ((*  (ptr) pd346 ))))(out_v10760, (* (( (ptr) gf_c50496)+77) ), 0, 2147483647, pd346);
/*1*/         };
/*1*/      };
/*1*/   i_v11448 = next_v11376;
/*1*/   goto lab_L100157;
/*1*/   lab_L100154: ;
/*1*/   };
SOURCE(17929, 21)
                           {
/*1*/   word pd347;
/*1*/   pd347 = (* (( (ptr) (* (( (ptr) gf_c50496)+203)/* var_c44160 */  ))+93) );
/*1*/   (void) ( *( (fPt) ((*  (ptr) pd347 ))))(out_v10760, (* (( (ptr) gf_c50496)+43) ), 0, 2147483647, pd347);
/*1*/   };
                           };
                        };
                     };
                  };
               };
            lab_L100152: ;
            each_v11160 = (* (( (ptr) each_v11160)+1) );
            goto lab_L100153;
            lab_L100150: ;
            };
         };
      };
   goto lab_L100158;
   lab_L100145: ;
SOURCE(17986, 17)
   result_v25448 = (* (( (ptr) gf_c50496)+21) );
   lab_L100158: ;
   /* removed tail goto */ 
   (*  (ptr) formal_c0417 ) = result_v25448;
   (* (( (ptr) formal_c0417)+1) ) = msg_v25476;
   return;
   }

static word EachCommand_P4308(key_v39376, procData_v39404, formal_c50560)
   word key_v39376;
   word procData_v39404;
   word formal_c50560;
   {
   register ptr gf_c50528 =  (ptr) &globalframe;
   word stop_v39448;
   formal_c50560 = (formal_c50560 - 16);
   /* EachCommand: */ 
SOURCE(16073, 41)
SOURCE(16073, 41)
   stop_v39448 = 0;
SOURCE(16116, 129)
   {
      register word i_v11492 = 1;
      register word noName_c47392;
      noName_c47392 = (*  (ptr) (* (( (ptr) formal_c50560)+6) ) );
      if ((i_v11492 >= noName_c47392)) {
         goto lab_L100159;
         };
      lab_L100162: ;
SOURCE(16148, 97)
      {
         word pd348;
         word limit349;
         pd348 = (* (( (ptr) (* (( (ptr) gf_c50528)+206)/* var_c44544 */  ))+23) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd348 ))))((* ((( (ptr) (* (( (ptr) formal_c50560)+6) ))+1)+(
                  limit349 = (*  (ptr) (* (( (ptr) formal_c50560)+6) ) ),
                  BCK(i_v11492, limit349)
                  )) ), key_v39376, 0, pd348))) {
SOURCE(16213, 32)
            {
               word var_c47424;
               var_c47424 = XR_NewObject(8, (* (( (ptr) gf_c50528)+10) ));
               (*  (ptr) var_c47424 ) = key_v39376;
               (* (( (ptr) var_c47424)+1) ) = (* (( (ptr) formal_c50560)+7) );
               (* (( (ptr) formal_c50560)+7) ) = var_c47424;
               };
SOURCE(16247, 4)
            goto lab_L100160;
            };
         };
      i_v11492 = (i_v11492 + 1);
      if ((i_v11492 < noName_c47392)) {
         goto lab_L100162;
         };
      lab_L100159: ;
      lab_L100160: ;
      };
SOURCE(16073, 41)
   return(stop_v39448);
   }

static void ReregisterAsCommand_P1560(formal_c0440, cmd_v25536)
   word formal_c0440;
   word cmd_v25536;
   {
   register ptr gf_c50592 =  (ptr) &globalframe;
   word result_v25580;
   word msg_v25608;
   /* ReregisterAsCommand: */ 
SOURCE(18172, 947)
SOURCE(18172, 947)
   result_v25580 = 0;
SOURCE(18172, 947)
   msg_v25608 = 0;
SOURCE(18217, 902)
SOURCE(18219, 23)
   {
      W2 a_v11536;
      word i_v11564 = 0;
      word imode_v11592 = 0;
SOURCE(18219, 23)
      a_v11536.f0 = 0;
      a_v11536.f1 = 0;
SOURCE(18276, 378)
      lab_L100167: ;
SOURCE(18276, 378)
      {
         word arg_v11672;
SOURCE(18279, 42)
         {
            word pd350;
            pd350 = (* (( (ptr) (* (( (ptr) gf_c50592)+208)/* var_c44736 */  ))+8) );
            arg_v11672 = (word) ( *( (fPt) ((*  (ptr) pd350 ))))(cmd_v25536, 0, pd350);
            };
SOURCE(18323, 18)
         if ((arg_v11672 == 0)) {
SOURCE(18341, 4)
            goto lab_L100166;
            };
SOURCE(18347, 307)
         {
            word pd351;
            pd351 = (* (( (ptr) (* (( (ptr) gf_c50592)+206)/* var_c44544 */  ))+23) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd351 ))))((* (( (ptr) gf_c50592)+55) ), arg_v11672, 1, pd351))) {
               {
                  word pd352;
                  pd352 = (* (( (ptr) (* (( (ptr) gf_c50592)+206)/* var_c44544 */  ))+8) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd352 ))))(arg_v11672, (* (( (ptr) gf_c50592)+78) ), 0, pd352))) {
SOURCE(18445, 9)
                     imode_v11592 = 1;
                     }
                  else {
                     {
                        word pd353;
                        pd353 = (* (( (ptr) (* (( (ptr) gf_c50592)+206)/* var_c44544 */  ))+8) );
                        if ((0 != (word) ( *( (fPt) ((*  (ptr) pd353 ))))(arg_v11672, (* (( (ptr) gf_c50592)+79) ), 0, pd353))) {
SOURCE(18489, 10)
                           imode_v11592 =  (word) -1;
                           }
                        else {
SOURCE(18512, 44)
                           {
/*1*/   word var_c0431;
/*1*/   var_c0431 = (* (( (ptr) gf_c50592)+57) );
/*1*/   (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50592)+208)/* var_c44736 */  ))+4) ), (word) &var_c0431);
/*1*/   };
                           };
                        };
                     };
                  };
               }
            else {
SOURCE(18567, 87)
               if ((i_v11564 < 2)) {
SOURCE(18582, 10)
                  (* (( (ptr) &a_v11536)+BCK(i_v11564, 2)) ) = arg_v11672;
SOURCE(18594, 9)
                  i_v11564 = (i_v11564 + 1);
                  }
               else {
SOURCE(18610, 44)
                  {
                     word var_c0432;
                     var_c0432 = (* (( (ptr) gf_c50592)+57) );
                     (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50592)+208)/* var_c44736 */  ))+4) ), (word) &var_c0432);
                     };
                  };
               };
            };
         };
      goto lab_L100167;
      lab_L100166: ;
SOURCE(18668, 386)
      if ((i_v11564 != 2)) {
SOURCE(18682, 15)
         goto lab_L100164;
         }
      else {
SOURCE(18697, 359)
         {
            word old_v11716;
SOURCE(18699, 57)
            {
               word pd354;
               pd354 = (* (( (ptr) (* (( (ptr) gf_c50592)+207)/* var_c44576 */  ))+6) );
               old_v11716 = (word) ( *( (fPt) ((*  (ptr) pd354 ))))(a_v11536.f1, pd354);
               };
SOURCE(18758, 76)
            if ((old_v11716 == 0)) {
SOURCE(18776, 58)
               {
                  word var_c47488;
                  {
                     word pd355;
                     pd355 = (* (( (ptr) (* (( (ptr) gf_c50592)+206)/* var_c44544 */  ))+6) );
                     var_c47488 = (word) ( *( (fPt) ((*  (ptr) pd355 ))))(a_v11536.f1, (* (( (ptr) gf_c50592)+80) ), pd355);
                     };
                  {
                     word var_c0435;
                     var_c0435 = var_c47488;
                     (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50592)+208)/* var_c44736 */  ))+4) ), (word) &var_c0435);
                     };
                  };
               };
SOURCE(18836, 218)
            {
               word var_c47520;
               word var_c47552;
               {
                  word pd356;
                  pd356 = (* (( (ptr) (* (( (ptr) gf_c50592)+206)/* var_c44544 */  ))+5) );
                  var_c47520 = (word) ( *( (fPt) ((*  (ptr) pd356 ))))((* (( (ptr) gf_c50592)+81) ), a_v11536.f1, (* (( (ptr) gf_c50592)+82)
                      ), (* (( (ptr) old_v11716)+1) ), 0, pd356);
                  };
               {
                  word var_c47584;
                  var_c47584 = imode_v11592;
                  switch (var_c47584) {
                     case 4294967295: 
                        var_c47552 = 0;
                        break;
                     case 0: 
                        var_c47552 = (* (( (ptr) old_v11716)+3) );
                        break;
                     case 1: 
                        var_c47552 = 1;
                        break;
                     default: 
                        var_c47552 = (
                           XR_RaiseUnnamedError(), 0
                           );
                        break;
                     };
                  };
               {
                  word pd357;
                  pd357 = (* (( (ptr) (* (( (ptr) gf_c50592)+207)/* var_c44576 */  ))+4) );
                  (void) ( *( (fPt) ((*  (ptr) pd357 ))))(a_v11536.f0, (*  (ptr) old_v11716 ), var_c47520, (* (( (ptr) old_v11716)+2) ), var_c47552, pd357)
                  ;
                  };
               };
            };
         };
      };
   goto lab_L100168;
   lab_L100164: ;
SOURCE(19073, 44)
   {
      word var_c0439;
      var_c0439 = (* (( (ptr) gf_c50592)+57) );
      (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50592)+208)/* var_c44736 */  ))+4) ), (word) &var_c0439);
      };
   lab_L100168: ;
   /* removed tail goto */ 
   (*  (ptr) formal_c0440 ) = result_v25580;
   (* (( (ptr) formal_c0440)+1) ) = msg_v25608;
   return;
   }

static void SetPropertyCommand_P1620(formal_c0463, cmd_v25668)
   word formal_c0463;
   word cmd_v25668;
   {
   register ptr gf_c50624 =  (ptr) &globalframe;
   word result_v25712;
   word msg_v25740;
   word aList_v11760 = 0;
   word key_v11788 = 0;
   W2 spec_v11816;
   word argv_v11844;
   /* SetPropertyCommand: */ 
SOURCE(19123, 1145)
SOURCE(19123, 1145)
   result_v25712 = 0;
SOURCE(19123, 1145)
   msg_v25740 = 0;
SOURCE(19202, 14)
   {
      word var_c47616;
      var_c47616 = (* (( (ptr) (* (( (ptr) cmd_v25668)+5) ))+2) );
      if ((var_c47616 == (* (( (ptr) gf_c50624)+61) ))) {
         spec_v11816.f0 = 1;
         spec_v11816.f1 = 0;
         goto endif0358;
         };
      if ((var_c47616 == (* (( (ptr) gf_c50624)+83) ))) {
         spec_v11816.f0 = 0;
         spec_v11816.f1 = 0;
         goto endif0358;
         };
      if ((var_c47616 == (* (( (ptr) gf_c50624)+84) ))) {
         spec_v11816.f0 = 0;
         spec_v11816.f1 = 1;
         goto endif0358;
         };
      spec_v11816.f0 = 1;
      spec_v11816.f1 = 1;
      goto endif0358;
      endif0358: ;
      };
SOURCE(19427, 59)
   {
      word pd359;
      pd359 = (* (( (ptr) (* (( (ptr) gf_c50624)+208)/* var_c44736 */  ))+6) );
      argv_v11844 = (word) ( *( (fPt) ((*  (ptr) pd359 ))))(cmd_v25668, 0, pd359);
      };
SOURCE(19488, 91)
   if ((spec_v11816.f1 == 0)) {
SOURCE(19515, 40)
      {
         word pd360;
         pd360 = (* (( (ptr) (* (( (ptr) gf_c50624)+215)/* var_c46656 */  ))+6) );
         aList_v11760 = (word) ( *( (fPt) ((*  (ptr) pd360 ))))(pd360);
         };
      }
   else {
SOURCE(19555, 24)
      aList_v11760 = (* (( (ptr) cmd_v25668)+6) );
      };
SOURCE(19581, 687)
   if ( ( (spec_v11816.f0 == 1) ? ((*  (ptr) argv_v11844 ) != 3) : 0 ) ) {
SOURCE(19621, 59)
      {
         word var_c0453;
         var_c0453 = (* (( (ptr) gf_c50624)+85) );
         (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50624)+208)/* var_c44736 */  ))+4) ), (word) &var_c0453);
         };
      }
   else {
SOURCE(19680, 590)
      {
         word dp_v12116 = 0;
         word val_v12144 = 0;
SOURCE(19717, 144)
         {
            word tc361;
            word pd362;
            word limit363;
            word pd364;
            word limit365;
            pd362 = (* (( (ptr) (* (( (ptr) gf_c50624)+206)/* var_c44544 */  ))+15) );
            if (( (int)(word) ( *( (fPt) ((*  (ptr) pd362 ))))((* (((( (ptr) argv_v11844)+1)+(
                     limit363 = (*  (ptr) argv_v11844 ),
                     BCK(1, limit363)
                     ))) ), pd362) >  (int)1)) {
               pd364 = (* (( (ptr) (* (( (ptr) gf_c50624)+206)/* var_c44544 */  ))+9) );
               tc361 =  (word) ((word) ( *( (fPt) ((*  (ptr) pd364 ))))((* ((( (ptr) argv_v11844)+1)+(
                        limit365 = (*  (ptr) argv_v11844 ),
                        BCK(1, limit365)
                        )) ), 0, pd364) == 36);
               }
            else {
               tc361 =  (word) 0;
               };
            if (tc361) {
SOURCE(19770, 63)
               {
                  word var_c47776;
                  {
                     word pd366;
                     word limit367;
                     pd366 = (* (( (ptr) (* (( (ptr) gf_c50624)+206)/* var_c44544 */  ))+17) );
                     var_c47776 = (word) ( *( (fPt) ((*  (ptr) pd366 ))))((* ((( (ptr) argv_v11844)+1)+(
/*1*/   limit367 = (*  (ptr) argv_v11844 ),
/*1*/   BCK(1, limit367)
/*1*/   )) ), 1, 2147483647, pd366);
                     };
                  {
                     word pd368;
                     pd368 = (* (( (ptr) (* (( (ptr) gf_c50624)+204)/* var_c44352 */  ))+5) );
                     key_v11788 = (word) ( *( (fPt) ((*  (ptr) pd368 ))))(var_c47776, 0, 2147483647, pd368);
                     };
                  };
               }
            else {
SOURCE(19833, 28)
               {
                  word pd369;
                  word limit370;
                  pd369 = (* (( (ptr) (* (( (ptr) gf_c50624)+204)/* var_c44352 */  ))+5) );
                  key_v11788 = (word) ( *( (fPt) ((*  (ptr) pd369 ))))((* ((( (ptr) argv_v11844)+1)+(
                           limit370 = (*  (ptr) argv_v11844 ),
                           BCK(1, limit370)
                           )) ), 0, 2147483647, pd369);
                  };
               };
            };
SOURCE(19863, 254)
         {
            word var_c47808;
            var_c47808 = spec_v11816.f0;
            if ((var_c47808 == 1)) {
SOURCE(19892, 57)
               {
                  word pd371;
                  word limit372;
                  word limit373;
                  pd371 = (* (( (ptr) (* (( (ptr) gf_c50624)+206)/* var_c44544 */  ))+8) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd371 ))))((* ((( (ptr) argv_v11844)+1)+(
                           limit372 = (*  (ptr) argv_v11844 ),
                           BCK(2, limit372)
                           )) ), (* (( (ptr) gf_c50624)+86) ), 1, pd371))) {
                     val_v12144 = 0;
                     }
                  else {
                     val_v12144 = (* ((( (ptr) argv_v11844)+1)+(
                           limit373 = (*  (ptr) argv_v11844 ),
                           BCK(2, limit373)
                           )) );
                     };
                  };
               }
            else {
               if ((var_c47808 == 0)) {
SOURCE(19959, 158)
                  {
                     word rl_v12200 = 0;
SOURCE(19990, 117)
                     {
                        register word i_v12328;
                        i_v12328 = (*  (ptr) argv_v11844 );
                        if ((2 >= i_v12328)) {
                           goto lab_L100170;
                           };
                        i_v12328 = (i_v12328 - 1);
                        lab_L100173: ;
SOURCE(20033, 74)
                        {
                           word var_c47840;
                           word var_c47872;
                           {
/*1*/   word pd374;
/*1*/   word limit375;
/*1*/   word limit376;
/*1*/   pd374 = (* (( (ptr) (* (( (ptr) gf_c50624)+206)/* var_c44544 */  ))+8) );
/*1*/   if ((0 != (word) ( *( (fPt) ((*  (ptr) pd374 ))))((* ((( (ptr) argv_v11844)+1)+(
/*1*/            limit375 = (*  (ptr) argv_v11844 ),
/*1*/            BCK(i_v12328, limit375)
/*1*/            )) ), (* (( (ptr) gf_c50624)+86) ), 1, pd374))) {
/*1*/      var_c47840 = 0;
/*1*/      }
/*1*/   else {
/*1*/      var_c47840 = (* ((( (ptr) argv_v11844)+1)+(
/*1*/            limit376 = (*  (ptr) argv_v11844 ),
/*1*/            BCK(i_v12328, limit376)
/*1*/            )) );
/*1*/      };
/*1*/   };
                           var_c47872 = XR_NewObject(8, (* (( (ptr) gf_c50624)+10) ));
                           (*  (ptr) var_c47872 ) = var_c47840;
                           (* (( (ptr) var_c47872)+1) ) = rl_v12200;
                           rl_v12200 = var_c47872;
                           };
                        if ((2 >= i_v12328)) {
                           goto lab_L100170;
                           };
                        i_v12328 = (i_v12328 - 1);
                        goto lab_L100173;
                        lab_L100170: ;
                        };
SOURCE(20109, 8)
                     val_v12144 = rl_v12200;
                     };
                  }
               else {
SOURCE(20131, 5)
                  (void) XR_RaiseUnnamedError();
                  };
               };
            };
SOURCE(20138, 41)
         dp_v12116 = (word) FindLastProp_P1980(key_v11788, aList_v11760);
SOURCE(20181, 87)
         if ((dp_v12116 != 0)) {
SOURCE(20198, 18)
            (* (( (ptr) dp_v12116)+1) ) = val_v12144;
            }
         else {
SOURCE(20216, 52)
            {
               word var_c47904;
               word pd377;
               pd377 = (* (( (ptr) (* (( (ptr) gf_c50624)+212)/* var_c45568 */  ))+22) );
               var_c47904 = (word) ( *( (fPt) ((*  (ptr) pd377 ))))(key_v11788, val_v12144, aList_v11760, pd377);
               };
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0463 ) = result_v25712;
   (* (( (ptr) formal_c0463)+1) ) = msg_v25740;
   return;
   }

static void ShiftCommand_P1680(formal_c0467, cmd_v25800)
   word formal_c0467;
   word cmd_v25800;
   {
   register ptr gf_c50656 =  (ptr) &globalframe;
   word result_v25844;
   word msg_v25872;
   /* ShiftCommand: */ 
SOURCE(20277, 114)
SOURCE(20277, 114)
   result_v25844 = 0;
SOURCE(20277, 114)
   msg_v25872 = 0;
SOURCE(20317, 74)
   {
      word pd378;
      pd378 = (* (( (ptr) (* (( (ptr) gf_c50656)+208)/* var_c44736 */  ))+11) );
      result_v25844 = (word) ( *( (fPt) ((*  (ptr) pd378 ))))((* (( (ptr) cmd_v25800)+4) ), cmd_v25800, pd378);
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0467 ) = result_v25844;
   (* (( (ptr) formal_c0467)+1) ) = msg_v25872;
   return;
   }

static void SleepCommand_P1740(formal_c0474, cmd_v25932)
   word formal_c0474;
   word cmd_v25932;
   {
   W8 var_c50688;
   register ptr gf_c50720 =  (ptr) &globalframe;
   word result_v25976;
   /* declaration of msg_v26004 skipped */ 
   /* SleepCommand: */ 
SOURCE(20397, 353)
SOURCE(20397, 353)
   result_v25976 = 0;
SOURCE(20397, 353)
   var_c50688.f4/* msg_v26004 */  = 0;
SOURCE(20435, 315)
SOURCE(20437, 13)
   {
      word seconds_v12372;
      word argv_v12400;
SOURCE(20452, 59)
      {
         word pd379;
         pd379 = (* (( (ptr) (* (( (ptr) gf_c50720)+208)/* var_c44736 */  ))+6) );
         argv_v12400 = (word) ( *( (fPt) ((*  (ptr) pd379 ))))(cmd_v25932, 0, pd379);
         };
SOURCE(20513, 51)
      if (((*  (ptr) argv_v12400 ) != 2)) {
SOURCE(20536, 28)
         var_c50688.f4/* msg_v26004 */  = (* (( (ptr) gf_c50720)+87) );
SOURCE(20566, 10)
         goto lab_L100176;
         };
SOURCE(20579, 74)
      {
         /* declaration of var_c044 skipped */ 
         /* declaration of var_c045 skipped */ 
         {
            word limit380;
            var_c50688.f5/* var_c044 */  = (* ((( (ptr) argv_v12400)+1)+(
                  limit380 = (*  (ptr) argv_v12400 ),
                  BCK(1, limit380)
                  )) );
            };
         var_c50688.f6/* var_c045 */  = (* (( (ptr) (* (( (ptr) gf_c50720)+209)/* var_c45056 */  ))+11) );
         {
            /* declaration of var_c046 skipped */ 
            {
               word var_c047;
               {
                  word var_c0829;
                  var_c0829 = (word) &var_c50688;
                  var_c047 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7632) ), ( ((word)  (fPt) NoName_Q7932) ), var_c0829);
                  };
               if ((var_c047 == 12)) {
                  goto lab_L100176;
                  };
               };
            seconds_v12372 = var_c50688.f7/* var_c046 */ ;
            };
         };
SOURCE(20669, 46)
      {
         word var_c47936;
         {
            word pd381;
            pd381 = (* (( (ptr) (* (( (ptr) gf_c50720)+211)/* var_c45408 */  ))+7) );
            var_c47936 = (word) ( *( (fPt) ((*  (ptr) pd381 ))))(seconds_v12372, pd381);
            };
         {
            word pd382;
            pd382 = (* (( (ptr) (* (( (ptr) gf_c50720)+211)/* var_c45408 */  ))+21) );
            (void) ( *( (fPt) ((*  (ptr) pd382 ))))(var_c47936, pd382);
            };
         };
      };
   goto lab_L100179;
   lab_L100176: ;
SOURCE(20731, 17)
   result_v25976 = (* (( (ptr) gf_c50720)+21) );
   lab_L100179: ;
   /* removed tail goto */ 
   (*  (ptr) formal_c0474 ) = result_v25976;
   (* (( (ptr) formal_c0474)+1) ) = var_c50688.f4/* msg_v26004 */ ;
   return;
   }

static word NoName_Q7632(formal_c0781)
   word formal_c0781;
   {
SOURCE(20579, 74)
   {
      word pd383;
      pd383 = (* (( (ptr) formal_c0781)+6) );
      (* (( (ptr) formal_c0781)+7) ) = (word) ( *( (fPt) ((*  (ptr) pd383 ))))((* (( (ptr) formal_c0781)+5) ), 8, pd383);
      };
   return(0);
   }

static void TimeCommand_P1800(formal_c0491, cmd_v26064)
   word formal_c0491;
   word cmd_v26064;
   {
   register ptr gf_c50752 =  (ptr) &globalframe;
   word result_v26108;
   word msg_v26136;
   word elapsedPulses_v12444 = 0;
   word seconds_v12472 = 0;
   word startTime_v12500;
   word startPulses_v12528;
   /* TimeCommand: */ 
SOURCE(20754, 941)
SOURCE(20754, 941)
   result_v26108 = 0;
SOURCE(20754, 941)
   msg_v26136 = 0;
SOURCE(20849, 42)
   {
      word pd384;
      pd384 = (* (( (ptr) (* (( (ptr) gf_c50752)+210)/* var_c45312 */  ))+14) );
      startTime_v12500 = (word) ( *( (fPt) ((*  (ptr) pd384 ))))(pd384);
      };
SOURCE(20893, 58)
   {
      word pd385;
      pd385 = (* (( (ptr) (* (( (ptr) gf_c50752)+210)/* var_c45312 */  ))+7) );
      startPulses_v12528 = (word) ( *( (fPt) ((*  (ptr) pd385 ))))(pd385);
      };
SOURCE(20953, 74)
   {
      word pd386;
      pd386 = (* (( (ptr) (* (( (ptr) gf_c50752)+208)/* var_c44736 */  ))+11) );
      result_v26108 = (word) ( *( (fPt) ((*  (ptr) pd386 ))))((* (( (ptr) cmd_v26064)+4) ), cmd_v26064, pd386);
      };
SOURCE(21029, 56)
   {
      word pd387;
      pd387 = (* (( (ptr) (* (( (ptr) gf_c50752)+210)/* var_c45312 */  ))+7) );
      elapsedPulses_v12444 = ((word) ( *( (fPt) ((*  (ptr) pd387 ))))(pd387) - startPulses_v12528);
      };
SOURCE(21087, 64)
   {
      word var_c47968;
      {
         word pd388;
         pd388 = (* (( (ptr) (* (( (ptr) gf_c50752)+210)/* var_c45312 */  ))+14) );
         var_c47968 = (word) ( *( (fPt) ((*  (ptr) pd388 ))))(pd388);
         };
      {
         word pd389;
         word idx390;
         pd389 = (* (( (ptr) (* (( (ptr) gf_c50752)+210)/* var_c45312 */  ))+16) );
         seconds_v12472 = (
            idx390 = (word) ( *( (fPt) ((*  (ptr) pd389 ))))(startTime_v12500, var_c47968, pd389),
            SGNCK(idx390)
            );
         };
      };
SOURCE(21153, 542)
   if ((seconds_v12472 >= 10000)) {
SOURCE(21180, 93)
      {
         W2 var_c48000;
         W2 var_c48032;
         W2 var_c0830;
         var_c48000.f0 = 4;
         var_c48000.f1 = seconds_v12472;
         var_c48032.f0 = 4;
         var_c48032.f1 = seconds_v12472;
         (*  (ptr) (word) &var_c0830 ) = 0;
         (* (( (ptr) (word) &var_c0830) + 1) ) = 0;
         {
            word pd391;
            pd391 = (* (( (ptr) (* (( (ptr) gf_c50752)+203)/* var_c44160 */  ))+60) );
            (void) ( *( (fPt) ((*  (ptr) pd391 ))))((* (( (ptr) cmd_v26064)+1) ), (* (( (ptr) gf_c50752)+88) ), var_c48000, var_c48032, var_c0830, pd391)
            ;
            };
         };
      }
   else {
SOURCE(21282, 418)
      {
         word real_v12572;
         word microseconds_v12600;
SOURCE(21284, 53)
         {
            word pd392;
            pd392 = (* (( (ptr) (* (( (ptr) gf_c50752)+210)/* var_c45312 */  ))+9) );
            real_v12572 = (word) ( *( (fPt) ((*  (ptr) pd392 ))))(elapsedPulses_v12444, pd392);
            };
SOURCE(21339, 66)
         {
            word pd393;
            pd393 = (* (( (ptr) (* (( (ptr) gf_c50752)+210)/* var_c45312 */  ))+8) );
            microseconds_v12600 = (word) ( *( (fPt) ((*  (ptr) pd393 ))))(elapsedPulses_v12444, pd393);
            };
SOURCE(21407, 288)
         {
            word x394;
            word x396;
            if (((
               x394 = real_v12572,  *(float*)&x394
               ) < (
               x396 = (*  (ptr) &fc395 ),  *(float*)&x396
               ))) {
SOURCE(21427, 67)
               {
                  W2 var_c48096;
                  var_c48096.f0 = 8;
                  var_c48096.f1 = real_v12572;
                  {
                     word pd397;
                     pd397 = (* (( (ptr) (* (( (ptr) gf_c50752)+203)/* var_c44160 */  ))+61) );
                     (void) ( *( (fPt) ((*  (ptr) pd397 ))))((* (( (ptr) cmd_v26064)+1) ), (* (( (ptr) gf_c50752)+89) ), var_c48096, pd397);
                     };
                  };
               }
            else {
SOURCE(21496, 32)
               seconds_v12472 = ((word) microseconds_v12600 / 1000000);
SOURCE(21530, 39)
               microseconds_v12600 = ((word) microseconds_v12600 % 1000000);
SOURCE(21571, 124)
               {
                  W2 var_c48128;
                  W2 var_c48160;
                  W2 var_c48192;
                  var_c48128.f0 = 8;
                  var_c48128.f1 = real_v12572;
                  var_c48160.f0 = 4;
                  var_c48160.f1 = seconds_v12472;
                  var_c48192.f0 = 4;
                  var_c48192.f1 = ((word) microseconds_v12600 / 1000);
                  {
                     word pd398;
                     pd398 = (* (( (ptr) (* (( (ptr) gf_c50752)+203)/* var_c44160 */  ))+60) );
                     (void) ( *( (fPt) ((*  (ptr) pd398 ))))((* (( (ptr) cmd_v26064)+1) ), (* (( (ptr) gf_c50752)+90) ), var_c48128, var_c48160, var_c48192, pd398)
                     ;
                     };
                  };
               };
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0491 ) = result_v26108;
   (* (( (ptr) formal_c0491)+1) ) = msg_v26136;
   return;
   }

static void UnregisterCommand_P1860(formal_c0501, cmd_v26196)
   word formal_c0501;
   word cmd_v26196;
   {
   register ptr gf_c50784 =  (ptr) &globalframe;
   word result_v26240;
   word msg_v26268;
   word procData_v12644 = 0;
   word n_v12672 = 0;
   /* UnregisterCommand: */ 
SOURCE(21707, 481)
SOURCE(21707, 481)
   result_v26240 = 0;
SOURCE(21707, 481)
   msg_v26268 = 0;
SOURCE(21803, 318)
   {
      register word arg_v12716;
      {
         word pd399;
         pd399 = (* (( (ptr) (* (( (ptr) gf_c50784)+208)/* var_c44736 */  ))+8) );
         arg_v12716 = (word) ( *( (fPt) ((*  (ptr) pd399 ))))(cmd_v26196, 0, pd399);
         };
      lab_L100185: ;
      if ((arg_v12716 != 0)) {
         }
      else {
         goto lab_L100182;
         };
SOURCE(21901, 32)
      {
         word pd400;
         pd400 = (* (( (ptr) (* (( (ptr) gf_c50784)+207)/* var_c44576 */  ))+6) );
         procData_v12644 = (word) ( *( (fPt) ((*  (ptr) pd400 ))))(arg_v12716, pd400);
         };
SOURCE(21935, 175)
      if ( ( (procData_v12644 != 0) ? ((*  (ptr) procData_v12644 ) != 0) : 0 ) ) {
SOURCE(21982, 55)
         {
            word pd401;
            pd401 = (* (( (ptr) (* (( (ptr) gf_c50784)+207)/* var_c44576 */  ))+4) );
            (void) ( *( (fPt) ((*  (ptr) pd401 ))))(arg_v12716, 0, 0, 0, 1, pd401);
            };
         }
      else {
SOURCE(22037, 73)
         {
            word var_c48224;
            {
               W2 var_c48256;
               var_c48256.f0 = 11;
               var_c48256.f1 = arg_v12716;
               {
                  word pd402;
                  pd402 = (* (( (ptr) (* (( (ptr) gf_c50784)+203)/* var_c44160 */  ))+63) );
                  var_c48224 = (word) ( *( (fPt) ((*  (ptr) pd402 ))))((* (( (ptr) gf_c50784)+91) ), var_c48256, pd402);
                  };
               };
            {
               word var_c0500;
               var_c0500 = var_c48224;
               (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50784)+208)/* var_c44736 */  ))+4) ), (word) &var_c0500);
               };
            };
         };
SOURCE(22112, 9)
      n_v12672 = (n_v12672 + 1);
      {
         word pd403;
         pd403 = (* (( (ptr) (* (( (ptr) gf_c50784)+208)/* var_c44736 */  ))+8) );
         arg_v12716 = (word) ( *( (fPt) ((*  (ptr) pd403 ))))(cmd_v26196, 0, pd403);
         };
      goto lab_L100185;
      lab_L100182: ;
      };
SOURCE(22132, 56)
   if (( (int)n_v12672 ==  (int)0)) {
SOURCE(22148, 15)
      result_v26240 = (* (( (ptr) gf_c50784)+21) );
SOURCE(22165, 23)
      msg_v26268 = (* (( (ptr) (* (( (ptr) cmd_v26196)+5) ))+1) );
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0501 ) = result_v26240;
   (* (( (ptr) formal_c0501)+1) ) = msg_v26268;
   return;
   }

static void ControlCommand_P1920(formal_c0538, cmd_v26328)
   word formal_c0538;
   word cmd_v26328;
   {
   register ptr gf_c50816 =  (ptr) &globalframe;
   word result_v26372;
   word msg_v26400;
   /* ControlCommand: */ 
SOURCE(22195, 1556)
SOURCE(22195, 1556)
   result_v26372 = 0;
SOURCE(22195, 1556)
   msg_v26400 = 0;
SOURCE(22235, 1516)
SOURCE(22237, 94)
   {
      word commandToolData_v12760;
      word arg_v12788;
      word sense_v12816 = 1;
      word toggle_v12844 = 0;
      word query_v12872 = 0;
      word local_v12900 = 0;
SOURCE(22237, 94)
      {
         word pd404;
         pd404 = (* (( (ptr) (* (( (ptr) gf_c50816)+213)/* var_c45632 */  ))+5) );
         commandToolData_v12760 = (word) ( *( (fPt) ((*  (ptr) pd404 ))))(cmd_v26328, pd404);
         };
SOURCE(22333, 42)
      {
         word pd405;
         pd405 = (* (( (ptr) (* (( (ptr) gf_c50816)+208)/* var_c44736 */  ))+8) );
         arg_v12788 = (word) ( *( (fPt) ((*  (ptr) pd405 ))))(cmd_v26328, 0, pd405);
         };
SOURCE(22757, 94)
      {
         word pd406;
         pd406 = (* (( (ptr) (* (( (ptr) gf_c50816)+206)/* var_c44544 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd406 ))))(arg_v12788, (* (( (ptr) gf_c50816)+92) ), 0, pd406))) {
SOURCE(22801, 12)
            local_v12900 = 1;
SOURCE(22815, 36)
            {
               word pd407;
               pd407 = (* (( (ptr) (* (( (ptr) gf_c50816)+208)/* var_c44736 */  ))+8) );
               arg_v12788 = (word) ( *( (fPt) ((*  (ptr) pd407 ))))(cmd_v26328, 0, pd407);
               };
            };
         };
      {
         word pd408;
         pd408 = (* (( (ptr) (* (( (ptr) gf_c50816)+208)/* var_c44736 */  ))+8) );
         if (((word) ( *( (fPt) ((*  (ptr) pd408 ))))(cmd_v26328, 0, pd408) != 0)) {
SOURCE(22912, 10)
            goto lab_L100187;
            }
         else {
            if ((commandToolData_v12760 == 0)) {
               }
            else {
               if ((arg_v12788 == 0)) {
SOURCE(22972, 12)
                  sense_v12816 = 1;
                  }
               else {
                  {
                     word pd409;
                     pd409 = (* (( (ptr) (* (( (ptr) gf_c50816)+206)/* var_c44544 */  ))+8) );
                     if ((0 != (word) ( *( (fPt) ((*  (ptr) pd409 ))))(arg_v12788, (* (( (ptr) gf_c50816)+93) ), 0, pd409))) {
SOURCE(23020, 12)
                        sense_v12816 = 1;
                        }
                     else {
                        {
                           word pd410;
                           pd410 = (* (( (ptr) (* (( (ptr) gf_c50816)+206)/* var_c44544 */  ))+8) );
                           if ((0 != (word) ( *( (fPt) ((*  (ptr) pd410 ))))(arg_v12788, (* (( (ptr) gf_c50816)+94) ), 0, pd410))) {
SOURCE(23069, 13)
/*1*/   sense_v12816 = 0;
/*1*/   }
                           else {
/*1*/   {
/*1*/      word pd411;
/*1*/      pd411 = (* (( (ptr) (* (( (ptr) gf_c50816)+206)/* var_c44544 */  ))+8) );
/*1*/      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd411 ))))(arg_v12788, (* (( (ptr) gf_c50816)+95) ), 0, pd411))) {
SOURCE(23122, 13)
/*1*/         toggle_v12844 = 1;
/*1*/         }
/*1*/      else {
/*1*/         {
/*1*/            word pd412;
/*1*/            pd412 = (* (( (ptr) (* (( (ptr) gf_c50816)+206)/* var_c44544 */  ))+8) );
/*1*/            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd412 ))))(arg_v12788, (* (( (ptr) gf_c50816)+96) ), 0, pd412))) {
SOURCE(23170, 12)
/*1*/               query_v12872 = 1;
/*1*/               }
/*1*/            else {
SOURCE(23195, 10)
/*1*/               goto lab_L100187;
/*1*/               };
/*1*/            };
/*1*/         };
/*1*/      };
/*1*/   };
                           };
                        };
                     };
                  };
               };
            };
         };
SOURCE(23207, 469)
      {
         register word data_v13076;
         data_v13076 = commandToolData_v12760;
         lab_L100191: ;
         if ((data_v13076 != 0)) {
            }
         else {
            goto lab_L100188;
            };
SOURCE(23349, 284)
         {
            word var_c48288;
            var_c48288 = (* (( (ptr) (* (( (ptr) cmd_v26328)+5) ))+2) );
            if ((var_c48288 == (* (( (ptr) gf_c50816)+97) ))) {
SOURCE(23397, 42)
               {
                  word var_c48320;
                  {
                     word var_c48352;
                     word old_v42640;
                     old_v42640 = (*((int*)commandToolData_v12760 + 6)<0);
SOURCE(22508, 198)
                     if ((0 != query_v12872)) {
SOURCE(22524, 95)
                        {
                           word var_c48384;
                           var_c48384 = (* (( (ptr) (* (( (ptr) cmd_v26328)+5) ))+2) );
                           if ((var_c48384 == 0)) {
/*1*/   goto lab_L100192;
/*1*/   };
                           if (((* (( (ptr) gf_c50816)+11) ) == XR_GetReferentType(var_c48384))) {
/*1*/   {
/*1*/      word atom_v13120;
/*1*/      atom_v13120 = var_c48384;
SOURCE(22579, 40)
/*1*/      {
/*1*/         word var_c48416;
/*1*/         {
/*1*/            word pd414;
/*1*/            pd414 = (* (( (ptr) (* (( (ptr) gf_c50816)+204)/* var_c44352 */  ))+9) );
/*1*/            var_c48416 = (word) ( *( (fPt) ((*  (ptr) pd414 ))))(atom_v13120, pd414);
/*1*/            };
/*1*/         {
/*1*/            word pd415;
/*1*/            pd415 = (* (( (ptr) (* (( (ptr) gf_c50816)+203)/* var_c44160 */  ))+93) );
/*1*/            (void) ( *( (fPt) ((*  (ptr) pd415 ))))((* (( (ptr) cmd_v26328)+1) ), var_c48416, 0, 2147483647, pd415);
/*1*/            };
/*1*/         };
/*1*/      };
/*1*/   }
                           else {
/*1*/   lab_L100192: ;
SOURCE(22632, 5)
/*1*/   (void) XR_RaiseUnnamedError();
/*1*/   };
                           };
SOURCE(22639, 54)
                        {
                           word pd416;
                           pd416 = (* (( (ptr) (* (( (ptr) gf_c50816)+203)/* var_c44160 */  ))+93) );
                           (void) ( *( (fPt) ((*  (ptr) pd416 ))))((* (( (ptr) cmd_v26328)+1) ),  ( (0 != old_v42640) ? (* (( (ptr) gf_c50816)+101) ) : (* (
/*1*/      ( (ptr) gf_c50816)+102) ) ) , 0, 2147483647, pd416);
                           };
SOURCE(22695, 11)
                        var_c48352 = old_v42640;
                        goto lab_L100193;
                        };
SOURCE(22711, 41)
                     if ((0 != toggle_v12844)) {
                        var_c48352 = (0 == old_v42640);
                        }
                     else {
                        var_c48352 = sense_v12816;
                        };
                     lab_L100193: ;
                     var_c48320 = var_c48352;
                     };
                  ((P1x0b) (( (bPt) data_v13076) + 24))->f = (var_c48320 & 1);
                  };
               goto endif0413;
               };
            if ((var_c48288 == (* (( (ptr) gf_c50816)+98) ))) {
SOURCE(23451, 50)
               {
                  word var_c48448;
                  {
                     word var_c48480;
                     word old_v42548;
                     old_v42548 = ( ! (*((int*)commandToolData_v12760 + 6)<0));
SOURCE(22508, 198)
                     if ((0 != query_v12872)) {
SOURCE(22524, 95)
                        {
                           word var_c48512;
                           var_c48512 = (* (( (ptr) (* (( (ptr) cmd_v26328)+5) ))+2) );
                           if ((var_c48512 == 0)) {
/*1*/   goto lab_L100194;
/*1*/   };
                           if (((* (( (ptr) gf_c50816)+11) ) == XR_GetReferentType(var_c48512))) {
/*1*/   {
/*1*/      word atom_v42596;
/*1*/      atom_v42596 = var_c48512;
SOURCE(22579, 40)
/*1*/      {
/*1*/         word var_c48544;
/*1*/         {
/*1*/            word pd417;
/*1*/            pd417 = (* (( (ptr) (* (( (ptr) gf_c50816)+204)/* var_c44352 */  ))+9) );
/*1*/            var_c48544 = (word) ( *( (fPt) ((*  (ptr) pd417 ))))(atom_v42596, pd417);
/*1*/            };
/*1*/         {
/*1*/            word pd418;
/*1*/            pd418 = (* (( (ptr) (* (( (ptr) gf_c50816)+203)/* var_c44160 */  ))+93) );
/*1*/            (void) ( *( (fPt) ((*  (ptr) pd418 ))))((* (( (ptr) cmd_v26328)+1) ), var_c48544, 0, 2147483647, pd418);
/*1*/            };
/*1*/         };
/*1*/      };
/*1*/   }
                           else {
/*1*/   lab_L100194: ;
SOURCE(22632, 5)
/*1*/   (void) XR_RaiseUnnamedError();
/*1*/   };
                           };
SOURCE(22639, 54)
                        {
                           word pd419;
                           pd419 = (* (( (ptr) (* (( (ptr) gf_c50816)+203)/* var_c44160 */  ))+93) );
                           (void) ( *( (fPt) ((*  (ptr) pd419 ))))((* (( (ptr) cmd_v26328)+1) ),  ( (0 != old_v42548) ? (* (( (ptr) gf_c50816)+101) ) : (* (
/*1*/      ( (ptr) gf_c50816)+102) ) ) , 0, 2147483647, pd419);
                           };
SOURCE(22695, 11)
                        var_c48480 = old_v42548;
                        goto lab_L100195;
                        };
SOURCE(22711, 41)
                     if ((0 != toggle_v12844)) {
                        var_c48480 = (0 == old_v42548);
                        }
                     else {
                        var_c48480 = sense_v12816;
                        };
                     lab_L100195: ;
                     var_c48448 = (0 == var_c48480);
                     };
                  ((P1x0b) (( (bPt) data_v13076) + 24))->f = (var_c48448 & 1);
                  };
               goto endif0413;
               };
            if ((var_c48288 == (* (( (ptr) gf_c50816)+99) ))) {
SOURCE(23518, 48)
               {
                  word var_c48576;
                  {
                     word var_c48608;
                     word old_v42456;
                     old_v42456 = (((unsigned)(* (( (bPt) commandToolData_v12760)+24) ) << 25) >> 31);
SOURCE(22508, 198)
                     if ((0 != query_v12872)) {
SOURCE(22524, 95)
                        {
                           word var_c48640;
                           var_c48640 = (* (( (ptr) (* (( (ptr) cmd_v26328)+5) ))+2) );
                           if ((var_c48640 == 0)) {
/*1*/   goto lab_L100196;
/*1*/   };
                           if (((* (( (ptr) gf_c50816)+11) ) == XR_GetReferentType(var_c48640))) {
/*1*/   {
/*1*/      word atom_v42504;
/*1*/      atom_v42504 = var_c48640;
SOURCE(22579, 40)
/*1*/      {
/*1*/         word var_c48672;
/*1*/         {
/*1*/            word pd420;
/*1*/            pd420 = (* (( (ptr) (* (( (ptr) gf_c50816)+204)/* var_c44352 */  ))+9) );
/*1*/            var_c48672 = (word) ( *( (fPt) ((*  (ptr) pd420 ))))(atom_v42504, pd420);
/*1*/            };
/*1*/         {
/*1*/            word pd421;
/*1*/            pd421 = (* (( (ptr) (* (( (ptr) gf_c50816)+203)/* var_c44160 */  ))+93) );
/*1*/            (void) ( *( (fPt) ((*  (ptr) pd421 ))))((* (( (ptr) cmd_v26328)+1) ), var_c48672, 0, 2147483647, pd421);
/*1*/            };
/*1*/         };
/*1*/      };
/*1*/   }
                           else {
/*1*/   lab_L100196: ;
SOURCE(22632, 5)
/*1*/   (void) XR_RaiseUnnamedError();
/*1*/   };
                           };
SOURCE(22639, 54)
                        {
                           word pd422;
                           pd422 = (* (( (ptr) (* (( (ptr) gf_c50816)+203)/* var_c44160 */  ))+93) );
                           (void) ( *( (fPt) ((*  (ptr) pd422 ))))((* (( (ptr) cmd_v26328)+1) ),  ( (0 != old_v42456) ? (* (( (ptr) gf_c50816)+101) ) : (* (
/*1*/      ( (ptr) gf_c50816)+102) ) ) , 0, 2147483647, pd422);
                           };
SOURCE(22695, 11)
                        var_c48608 = old_v42456;
                        goto lab_L100197;
                        };
SOURCE(22711, 41)
                     if ((0 != toggle_v12844)) {
                        var_c48608 = (0 == old_v42456);
                        }
                     else {
                        var_c48608 = sense_v12816;
                        };
                     lab_L100197: ;
                     var_c48576 = var_c48608;
                     };
                  ((P1x1b) (( (bPt) data_v13076) + 24))->f = (var_c48576 & 1);
                  };
               goto endif0413;
               };
            if ((var_c48288 == (* (( (ptr) gf_c50816)+100) ))) {
SOURCE(23583, 50)
               {
                  word var_c48704;
                  {
                     word var_c48736;
                     word old_v42364;
                     old_v42364 = (((unsigned)(* (( (bPt) commandToolData_v12760)+24) ) << 26) >> 31);
SOURCE(22508, 198)
                     if ((0 != query_v12872)) {
SOURCE(22524, 95)
                        {
                           word var_c48768;
                           var_c48768 = (* (( (ptr) (* (( (ptr) cmd_v26328)+5) ))+2) );
                           if ((var_c48768 == 0)) {
/*1*/   goto lab_L100198;
/*1*/   };
                           if (((* (( (ptr) gf_c50816)+11) ) == XR_GetReferentType(var_c48768))) {
/*1*/   {
/*1*/      word atom_v42412;
/*1*/      atom_v42412 = var_c48768;
SOURCE(22579, 40)
/*1*/      {
/*1*/         word var_c48800;
/*1*/         {
/*1*/            word pd423;
/*1*/            pd423 = (* (( (ptr) (* (( (ptr) gf_c50816)+204)/* var_c44352 */  ))+9) );
/*1*/            var_c48800 = (word) ( *( (fPt) ((*  (ptr) pd423 ))))(atom_v42412, pd423);
/*1*/            };
/*1*/         {
/*1*/            word pd424;
/*1*/            pd424 = (* (( (ptr) (* (( (ptr) gf_c50816)+203)/* var_c44160 */  ))+93) );
/*1*/            (void) ( *( (fPt) ((*  (ptr) pd424 ))))((* (( (ptr) cmd_v26328)+1) ), var_c48800, 0, 2147483647, pd424);
/*1*/            };
/*1*/         };
/*1*/      };
/*1*/   }
                           else {
/*1*/   lab_L100198: ;
SOURCE(22632, 5)
/*1*/   (void) XR_RaiseUnnamedError();
/*1*/   };
                           };
SOURCE(22639, 54)
                        {
                           word pd425;
                           pd425 = (* (( (ptr) (* (( (ptr) gf_c50816)+203)/* var_c44160 */  ))+93) );
                           (void) ( *( (fPt) ((*  (ptr) pd425 ))))((* (( (ptr) cmd_v26328)+1) ),  ( (0 != old_v42364) ? (* (( (ptr) gf_c50816)+101) ) : (* (
/*1*/      ( (ptr) gf_c50816)+102) ) ) , 0, 2147483647, pd425);
                           };
SOURCE(22695, 11)
                        var_c48736 = old_v42364;
                        goto lab_L100199;
                        };
SOURCE(22711, 41)
                     if ((0 != toggle_v12844)) {
                        var_c48736 = (0 == old_v42364);
                        }
                     else {
                        var_c48736 = sense_v12816;
                        };
                     lab_L100199: ;
                     var_c48704 = var_c48736;
                     };
                  ((P1x2b) (( (bPt) data_v13076) + 24))->f = (var_c48704 & 1);
                  };
               goto endif0413;
               };
SOURCE(23646, 5)
            (void) XR_RaiseUnnamedError();
            goto endif0413;
            endif0413: ;
            };
SOURCE(23653, 23)
         if (((0 != query_v12872) || (0 != local_v12900))) {
SOURCE(23676, 4)
            goto lab_L100189;
            };
         {
            word pd426;
            pd426 = (* (( (ptr) (* (( (ptr) gf_c50816)+213)/* var_c45632 */  ))+5) );
            data_v13076 = (word) ( *( (fPt) ((*  (ptr) pd426 ))))((* ((( (ptr) data_v13076)+7)) ), pd426);
            };
         goto lab_L100191;
         lab_L100188: ;
         lab_L100189: ;
         };
      };
   goto lab_L100200;
   lab_L100187: ;
SOURCE(23706, 43)
   {
      word var_c0537;
      var_c0537 = (* (( (ptr) (* (( (ptr) cmd_v26328)+5) ))+1) );
      (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c50816)+208)/* var_c44736 */  ))+4) ), (word) &var_c0537);
      };
   lab_L100200: ;
   /* removed tail goto */ 
   (*  (ptr) formal_c0538 ) = result_v26372;
   (* (( (ptr) formal_c0538)+1) ) = msg_v26400;
   return;
   }

static word FindLastProp_P1980(key_v5804, aList_v5832)
   word key_v5804;
   word aList_v5832;
   {
   word dp_v5888;
   /* FindLastProp: */ 
SOURCE(23755, 205)
SOURCE(23755, 205)
   dp_v5888 = 0;
SOURCE(23844, 95)
   lab_L100203: ;
   if ((aList_v5832 != 0)) {
      }
   else {
      goto lab_L100201;
      };
SOURCE(23865, 54)
   if (((*  (ptr) (*  (ptr) aList_v5832 ) ) == key_v5804)) {
SOURCE(23895, 24)
      dp_v5888 = (*  (ptr) aList_v5832 );
      };
SOURCE(23921, 18)
   aList_v5832 = (* (( (ptr) aList_v5832)+1) );
   goto lab_L100203;
   lab_L100201: ;
SOURCE(23950, 10)
   return(dp_v5888);
   }

static void PrintAny_P2040(any_v5948, out_v5976)
   word any_v5948;
   word out_v5976;
   {
   register ptr gf_c50848 =  (ptr) &globalframe;
   /* PrintAny: */ 
SOURCE(23966, 650)
SOURCE(24016, 591)
   if ((any_v5948 == 0)) {
SOURCE(24032, 24)
      {
         word pd427;
         pd427 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+93) );
         (void) ( *( (fPt) ((*  (ptr) pd427 ))))(out_v5976, (* (( (ptr) gf_c50848)+86) ), 0, 2147483647, pd427);
         };
      }
   else {
SOURCE(24056, 551)
      {
         word var_c48832;
         word var_c48864;
         var_c48832 = any_v5948;
         if ((var_c48832 == 0)) {
            goto lab_L100204;
            };
         var_c48864 = XR_GetReferentType(var_c48832);
         {
            word tc430;
            if (((* (( (ptr) gf_c50848)+11) ) == var_c48864)) {
               {
                  word x_v13148;
                  x_v13148 = var_c48832;
SOURCE(24088, 27)
                  {
                     W2 var_c48896;
                     var_c48896.f0 = 1;
                     var_c48896.f1 = x_v13148;
                     {
                        word pd429;
                        pd429 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+61) );
                        (void) ( *( (fPt) ((*  (ptr) pd429 ))))(out_v5976, (* (( (ptr) gf_c50848)+104) ), var_c48896, pd429);
                        };
                     };
                  };
               goto endif0428;
               };
            if (((* (( (ptr) gf_c50848)+4) ) == var_c48864)) {
               tc430 =  (word) ((*(int*)var_c48832<0) == 0);
               }
            else {
               tc430 =  (word) 0;
               };
            if (tc430) {
               {
                  word x_v13192;
                  x_v13192 = var_c48832;
SOURCE(24133, 30)
                  {
                     W2 var_c48928;
                     var_c48928.f0 = 11;
                     var_c48928.f1 = x_v13192;
                     {
                        word pd431;
                        pd431 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+61) );
                        (void) ( *( (fPt) ((*  (ptr) pd431 ))))(out_v5976, (* (( (ptr) gf_c50848)+105) ), var_c48928, pd431);
                        };
                     };
                  };
               goto endif0428;
               };
            if (((* (( (ptr) gf_c50848)+10) ) == var_c48864)) {
               {
                  word x_v13236;
                  x_v13236 = var_c48832;
SOURCE(24191, 24)
                  {
                     word pd432;
                     pd432 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+93) );
                     (void) ( *( (fPt) ((*  (ptr) pd432 ))))(out_v5976, (* (( (ptr) gf_c50848)+106) ), 0, 2147483647, pd432);
                     };
SOURCE(24217, 126)
                  {
                     register word y_v13364;
                     y_v13364 = x_v13236;
                     lab_L100208: ;
                     if ((y_v13364 != 0)) {
                        }
                     else {
                        goto lab_L100205;
                        };
SOURCE(24269, 36)
                     {
                        W2 var_c48960;
                        var_c48960.f0 = 11;
                        var_c48960.f1 = (*  (ptr) y_v13364 );
                        {
                           word pd433;
                           pd433 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+61) );
                           (void) ( *( (fPt) ((*  (ptr) pd433 ))))(out_v5976, (* (( (ptr) gf_c50848)+105) ), var_c48960, pd433);
                           };
                        };
SOURCE(24307, 36)
                     if (((* (( (ptr) y_v13364)+1) ) != 0)) {
SOURCE(24326, 17)
                        {
                           word pd434;
                           pd434 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+93) );
                           (void) ( *( (fPt) ((*  (ptr) pd434 ))))(out_v5976, (* (( (ptr) gf_c50848)+107) ), 0, 2147483647, pd434);
                           };
                        };
                     y_v13364 = (* (( (ptr) y_v13364)+1) );
                     goto lab_L100208;
                     lab_L100205: ;
                     };
SOURCE(24354, 16)
                  {
                     word pd435;
                     pd435 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+93) );
                     (void) ( *( (fPt) ((*  (ptr) pd435 ))))(out_v5976, (* (( (ptr) gf_c50848)+108) ), 0, 2147483647, pd435);
                     };
                  };
               goto endif0428;
               };
            if (((* (( (ptr) gf_c50848)+9) ) == var_c48864)) {
               {
                  word x_v13492;
                  x_v13492 = var_c48832;
SOURCE(24397, 20)
                  {
                     word pd436;
                     pd436 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+93) );
                     (void) ( *( (fPt) ((*  (ptr) pd436 ))))(out_v5976, (* (( (ptr) gf_c50848)+109) ), 0, 2147483647, pd436);
                     };
SOURCE(24419, 110)
                  {
                     register word y_v13632;
                     y_v13632 = x_v13492;
                     lab_L100212: ;
                     if ((y_v13632 != 0)) {
                        }
                     else {
                        goto lab_L100209;
                        };
SOURCE(24469, 22)
                     (void) PrintAny_P2040((*  (ptr) y_v13632 ), out_v5976);
SOURCE(24493, 36)
                     if (((* (( (ptr) y_v13632)+1) ) != 0)) {
SOURCE(24512, 17)
                        {
                           word pd437;
                           pd437 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+93) );
                           (void) ( *( (fPt) ((*  (ptr) pd437 ))))(out_v5976, (* (( (ptr) gf_c50848)+107) ), 0, 2147483647, pd437);
                           };
                        };
                     y_v13632 = (* (( (ptr) y_v13632)+1) );
                     goto lab_L100212;
                     lab_L100209: ;
                     };
SOURCE(24540, 16)
                  {
                     word pd438;
                     pd438 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+93) );
                     (void) ( *( (fPt) ((*  (ptr) pd438 ))))(out_v5976, (* (( (ptr) gf_c50848)+108) ), 0, 2147483647, pd438);
                     };
                  };
               goto endif0428;
               };
            lab_L100204: ;
SOURCE(24572, 35)
            {
               W2 var_c48992;
               var_c48992.f0 = 10;
               var_c48992.f1 = any_v5948;
               {
                  word pd439;
                  pd439 = (* (( (ptr) (* (( (ptr) gf_c50848)+203)/* var_c44160 */  ))+61) );
                  (void) ( *( (fPt) ((*  (ptr) pd439 ))))(out_v5976, (* (( (ptr) gf_c50848)+110) ), var_c48992, pd439);
                  };
               };
            goto endif0428;
            endif0428: ;
            };
         };
      };
SOURCE(24610, 6)
   return;
   }

static void VersionCommand_P2100(formal_c0559, formal_c0866)
   word formal_c0559;
   word formal_c0866;
   {
   W5 var_c50880;
   /* declaration of cmd_v26460 skipped */ 
   word result_v26504;
   word msg_v26532;
   var_c50880.f4/* cmd_v26460 */  = formal_c0866;
   /* VersionCommand: */ 
SOURCE(24622, 227)
SOURCE(24622, 227)
   result_v26504 = 0;
SOURCE(24622, 227)
   msg_v26532 = 0;
SOURCE(24672, 177)
   {
      word var_c0831;
      var_c0831 = (word) &var_c50880;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q7692) ), ( ((word)  (fPt) NoName_Q7872) ), var_c0831);
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0559 ) = result_v26504;
   (* (( (ptr) formal_c0559)+1) ) = msg_v26532;
   return;
   }

static word NoName_Q7692(formal_c0787)
   word formal_c0787;
   {
   register ptr gf_c0786 =  (ptr) &globalframe;
SOURCE(24735, 42)
   {
      word arg_v13772;
SOURCE(24735, 42)
      {
         word pd440;
         pd440 = (* (( (ptr) (* (( (ptr) gf_c0786)+208)/* var_c44736 */  ))+8) );
         arg_v13772 = (word) ( *( (fPt) ((*  (ptr) pd440 ))))((* (( (ptr) formal_c0787)+4) ), 0, pd440);
         };
SOURCE(24779, 70)
      {
         word var_c49024;
         {
            word pd441;
            if ((arg_v13772 == 0)) {
               var_c49024 = 2;
               }
            else {
               pd441 = (* (( (ptr) (* (( (ptr) gf_c0786)+209)/* var_c45056 */  ))+10) );
               var_c49024 = (word) ( *( (fPt) ((*  (ptr) pd441 ))))(arg_v13772, 8, pd441);
               };
            };
         (void) PutVersion_P2220((* (( (ptr) (* (( (ptr) formal_c0787)+4) ))+1) ), var_c49024);
         };
      };
   return(0);
   }

static void MapCommand_P2160(formal_c0581, formal_c0867)
   word formal_c0581;
   word formal_c0867;
   {
   W9 var_c50912;
   /* declaration of cmd_v26592 skipped */ 
   register ptr gf_c50944 =  (ptr) &globalframe;
   word result_v26636;
   /* declaration of msg_v26664 skipped */ 
   (* (( (ptr) &var_c50912)+4)/* cmd_v26592 */  ) = formal_c0867;
   /* MapCommand: */ 
SOURCE(24855, 1400)
SOURCE(24855, 1400)
   result_v26636 = 0;
SOURCE(24855, 1400)
   (* (( (ptr) &var_c50912)+5)/* msg_v26664 */  ) = 0;
SOURCE(24891, 1364)
SOURCE(24893, 24)
   {
      word out_v13816;
      word switches_v13872 = 0;
      word debug_v13900 = 0;
      word args_v13928;
      /* declaration of var_c048 skipped */ 
      /* declaration of var_c049 skipped */ 
      word zorch_v13956 = 0;
      word nTried_v13984 = 0;
      word nFailed_v14012 = 0;
SOURCE(24893, 24)
      out_v13816 = (* (( (ptr) (* (( (ptr) &var_c50912)+4)/* cmd_v26592 */  ))+1) );
SOURCE(25031, 6)
      (* (( (ptr) &var_c50912)+6)/* var_c048 */  ) = (* (( (ptr) (* (( (ptr) gf_c50944)+208)/* var_c44736 */  ))+5) );
      {
         word var_c050;
         {
            word var_c0832;
            var_c0832 = (word) &var_c50912;
            var_c050 = (word) XR_Enable(( ((word)  (fPt) NoName_Q7752) ), ( ((word)  (fPt) NoName_Q7812) ), var_c0832);
            };
         if ((var_c050 == 13)) {
            goto lab_L100217;
            };
         };
      args_v13928 = (*  (W2Pt) (( (ptr) &var_c50912)+7)/* var_c049 */  ).f0;
SOURCE(25224, 884)
      lab_L100222: ;
      if ((args_v13928 != 0)) {
         }
      else {
         goto lab_L100220;
         };
      {
         word arg_v14176;
         word argLen_v14204;
SOURCE(25244, 22)
         arg_v14176 = (*  (ptr) args_v13928 );
SOURCE(25268, 30)
         {
            word pd442;
            pd442 = (* (( (ptr) (* (( (ptr) gf_c50944)+206)/* var_c44544 */  ))+14) );
            argLen_v14204 = (word) ( *( (fPt) ((*  (ptr) pd442 ))))(arg_v14176, pd442);
            };
SOURCE(25300, 16)
         args_v13928 = (* (( (ptr) args_v13928)+1) );
SOURCE(25318, 293)
         {
            word pd443;
            pd443 = (* (( (ptr) (* (( (ptr) gf_c50944)+206)/* var_c44544 */  ))+23) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd443 ))))((* (( (ptr) gf_c50944)+55) ), arg_v14176, 1, pd443))) {
SOURCE(25348, 280)
               {
                  word sense_v14248 = 1;
SOURCE(25392, 219)
                  {
                     register word j_v14340 = 1;
                     register word noName_c49056;
                     {
                        word pd444;
                        word idx445;
                        pd444 = (* (( (ptr) (* (( (ptr) gf_c50944)+206)/* var_c44544 */  ))+14) );
                        noName_c49056 = (
                           idx445 = (word) ( *( (fPt) ((*  (ptr) pd444 ))))(arg_v14176, pd444),
                           SGNCK(idx445)
                           );
                        };
                     if ((j_v14340 >= noName_c49056)) {
                        goto lab_L100223;
                        };
                     lab_L100226: ;
                     {
                        word c_v14384;
SOURCE(25431, 28)
                        {
                           word pd446;
                           pd446 = (* (( (ptr) (* (( (ptr) gf_c50944)+206)/* var_c44544 */  ))+9) );
                           c_v14384 = (word) ( *( (fPt) ((*  (ptr) pd446 ))))(arg_v14176, j_v14340, pd446);
                           };
SOURCE(25461, 120)
                        {
                           word var_c49088;
                           var_c49088 = c_v14384;
                           if (((var_c49088 - 65) <= 25)) {
SOURCE(25490, 29)
/*1*/   {
/*1*/      word x447;
/*1*/      word x448;
/*1*/      x447 = (word) (BCK((c_v14384 - 65), 26) + 6);
/*1*/      x448 = (word) &switches_v13872;
/*1*/      x447 = 32 - ((word) x447+1);
/*1*/      (*  (ptr) x448 ) = ((*  (ptr) x448 ) & ( ~ ((unsigned) 1 << x447))) | (((sense_v14248 & 1)) << x447);
/*1*/      };
/*1*/   }
                           else {
/*1*/   if (((var_c49088 - 97) <= 25)) {
SOURCE(25536, 19)
/*1*/      {
/*1*/         word x449;
/*1*/         word x450;
/*1*/         x449 = (word) (BCK((c_v14384 - 97), 26) + 6);
/*1*/         x450 = (word) &switches_v13872;
/*1*/         x449 = 32 - ((word) x449+1);
/*1*/         (*  (ptr) x450 ) = ((*  (ptr) x450 ) & ( ~ ((unsigned) 1 << x449))) | (((sense_v14248 & 1)) << x449);
/*1*/         };
/*1*/      }
/*1*/   else {
/*1*/      if ((var_c49088 == 126)) {
SOURCE(25564, 17)
/*1*/         sense_v14248 = (0 == sense_v14248);
SOURCE(25583, 4)
/*1*/         goto lab_L100225;
/*1*/         };
/*1*/      };
/*1*/   };
                           };
SOURCE(25599, 12)
                        sense_v14248 = 1;
                        };
                     lab_L100225: ;
                     j_v14340 = (j_v14340 + 1);
                     if ((j_v14340 < noName_c49056)) {
                        goto lab_L100226;
                        };
                     lab_L100223: ;
                     };
SOURCE(25622, 4)
                  goto lab_L100222;
                  };
               };
            };
SOURCE(25631, 140)
         {
            word tc451;
            word pd452;
            pd452 = (* (( (ptr) (* (( (ptr) gf_c50944)+206)/* var_c44544 */  ))+24) );
            if (( (int)(word) ( *( (fPt) ((*  (ptr) pd452 ))))(arg_v14176, 0, (* (( (ptr) gf_c50944)+71) ), pd452) <  (int)argLen_v14204)) {
               tc451 =  (word) (((unsigned)switches_v13872 << 29) >> 31);
               }
            else {
               tc451 =  (word) 0;
               };
            if (tc451) {
SOURCE(25692, 79)
               if ((zorch_v13956 == 0)) {
SOURCE(25714, 57)
                  (* (( (ptr) &var_c50912)+5)/* msg_v26664 */  ) = (* (( (ptr) gf_c50944)+111) );
SOURCE(25773, 10)
                  goto lab_L100217;
                  };
               };
            };
SOURCE(25791, 277)
         if ((zorch_v13956 != 0)) {
SOURCE(25811, 265)
            {
               word line_v14428;
               word eachResult_v14456;
SOURCE(25813, 36)
               {
                  word pd453;
                  pd453 = (* (( (ptr) (* (( (ptr) gf_c50944)+206)/* var_c44544 */  ))+6) );
                  line_v14428 = (word) ( *( (fPt) ((*  (ptr) pd453 ))))(zorch_v13956, arg_v14176, pd453);
                  };
SOURCE(25851, 51)
               {
                  word pd454;
                  pd454 = (* (( (ptr) (* (( (ptr) gf_c50944)+208)/* var_c44736 */  ))+11) );
                  eachResult_v14456 = (word) ( *( (fPt) ((*  (ptr) pd454 ))))(line_v14428, (* (( (ptr) &var_c50912)+4)/* cmd_v26592 */  ), pd454)
                  ;
                  };
SOURCE(25904, 19)
               nTried_v13984 = (nTried_v13984 + 1);
SOURCE(25925, 19)
               result_v26636 = eachResult_v14456;
SOURCE(25946, 122)
               if ((eachResult_v14456 == (* (( (ptr) gf_c50944)+21) ))) {
SOURCE(25978, 21)
                  nFailed_v14012 = (nFailed_v14012 + 1);
SOURCE(26001, 21)
                  if (switches_v13872 & 01000) {
SOURCE(26022, 10)
                     goto lab_L100217;
                     };
                  }
               else {
SOURCE(26041, 27)
                  if (switches_v13872 & 0200) {
SOURCE(26062, 6)
                     goto lab_L100216;
                     };
                  };
SOURCE(26070, 4)
               goto lab_L100222;
               };
            };
SOURCE(26079, 29)
         {
            word pd455;
            pd455 = (* (( (ptr) (* (( (ptr) gf_c50944)+206)/* var_c44544 */  ))+6) );
            zorch_v13956 = (word) ( *( (fPt) ((*  (ptr) pd455 ))))(arg_v14176, (* (( (ptr) gf_c50944)+33) ), pd455);
            };
         };
      goto lab_L100222;
      lab_L100220: ;
SOURCE(26119, 37)
      if ( ( (((unsigned)switches_v13872 << 6) >> 31) ? ( (int)nFailed_v14012 !=  (int)0) : 0 ) ) {
SOURCE(26156, 10)
         goto lab_L100217;
         };
SOURCE(26168, 42)
      if ( ( (((unsigned)switches_v13872 << 10) >> 31) ? ( (int)nFailed_v14012 ==  (int)nTried_v13984) : 0 ) ) {
SOURCE(26210, 10)
         goto lab_L100217;
         };
      };
   goto lab_L100227;
   lab_L100217: ;
SOURCE(26236, 17)
   result_v26636 = (* (( (ptr) gf_c50944)+21) );
   lab_L100227: ;
   /* removed tail goto */ 
   lab_L100216: ;
   (*  (ptr) formal_c0581 ) = result_v26636;
   (* (( (ptr) formal_c0581)+1) ) = (* (( (ptr) &var_c50912)+5)/* msg_v26664 */  );
   return;
   }

static word NoName_Q7752(formal_c0789)
   word formal_c0789;
   {
SOURCE(25031, 6)
   {
      word pd456;
      pd456 = (* (( (ptr) formal_c0789)+6) );
      (void) ( *( (fPt) ((*  (ptr) pd456 ))))((word) (( (bPt) formal_c0789)+28), (* (( (ptr) formal_c0789)+4) ), 0, pd456);
      };
   return(0);
   }

static void PutVersion_P2220(formal_c0868, formal_c0869)
   word formal_c0868;
   word formal_c0869;
   {
   W8 var_c50976;
   /* declaration of out_v6048 skipped */ 
   /* declaration of n_v6076 skipped */ 
   register ptr gf_c51008 =  (ptr) &globalframe;
   /* declaration of var_c49120 skipped */ 
   var_c50976.f4/* out_v6048 */  = formal_c0868;
   var_c50976.f5/* n_v6076 */  = formal_c0869;
   /* PutVersion: */ 
SOURCE(26259, 280)
   {
      word tmpAddr457;
      tmpAddr457 = (word) (( (ptr) &var_c50976)+6)/* var_c49120 */ ;
      (*  (ptr) tmpAddr457 ) = ( ((word)  (fPt) P_P6012) );
      (* (( (ptr) tmpAddr457) + 1) ) = 1;
      };
SOURCE(26389, 52)
   {
      W2 var_c49152;
      var_c49152.f0 = 5;
      {
         word idx458;
         var_c49152.f1 = (
            idx458 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c51008)+217)/* var_c49184 */  ))+9) ) ),
            SGNCK(idx458)
            );
         };
      {
         word pd459;
         pd459 = (* (( (ptr) (* (( (ptr) gf_c51008)+203)/* var_c44160 */  ))+55) );
         (void) ( *( (fPt) ((*  (ptr) pd459 ))))(var_c50976.f4/* out_v6048 */ , var_c49152, pd459);
         };
      };
SOURCE(26443, 9)
   var_c50976.f5/* n_v6076 */  = (var_c50976.f5/* n_v6076 */  - 1);
SOURCE(26454, 30)
   {
      word idx460;
      (void) P_P6012((
            idx460 = (* (( (ptr) (* (( (ptr) (* (( (ptr) gf_c51008)+217)/* var_c49184 */  ))+9) ))+1) ),
            SGNCK(idx460)
            ), (word) (( (bPt) &var_c50976)+24)/* var_c49120 */ );
      };
SOURCE(26486, 30)
   {
      word idx461;
      (void) P_P6012((
            idx461 = (* (( (ptr) (* (( (ptr) (* (( (ptr) gf_c51008)+217)/* var_c49184 */  ))+9) ))+2) ),
            SGNCK(idx461)
            ), (word) (( (bPt) &var_c50976)+24)/* var_c49120 */ );
      };
SOURCE(26518, 21)
   {
      word pd462;
      pd462 = (* (( (ptr) (* (( (ptr) gf_c51008)+203)/* var_c44160 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd462 ))))(var_c50976.f4/* out_v6048 */ , (* (( (ptr) gf_c51008)+43) ), 0, 2147483647, pd462)
      ;
      };
   }

static void P_P6012(i_v14588, formal_c51072)
   word i_v14588;
   word formal_c51072;
   {
   register ptr gf_c51040 =  (ptr) &globalframe;
   formal_c51072 = (formal_c51072 - 24);
   /* P: */ 
SOURCE(26305, 81)
SOURCE(26326, 48)
   if (( (int)(* (( (ptr) formal_c51072)+5) ) >  (int)0)) {
SOURCE(26340, 34)
      {
         W2 var_c49216;
         var_c49216.f0 = 5;
         var_c49216.f1 = i_v14588;
         {
            word pd463;
            pd463 = (* (( (ptr) (* (( (ptr) gf_c51040)+203)/* var_c44160 */  ))+61) );
            (void) ( *( (fPt) ((*  (ptr) pd463 ))))((* (( (ptr) formal_c51072)+4) ), (* (( (ptr) gf_c51040)+112) ), var_c49216, pd463)
            ;
            };
         };
      };
SOURCE(26376, 10)
   (* (( (ptr) formal_c51072)+5) ) = ((* (( (ptr) formal_c51072)+5) ) - 1);
   }

static word RopeSubst_P2280(old_v6136, new_v6164, base_v6192, case_v6220, allOccurrences_v6248)
   word old_v6136;
   word new_v6164;
   word base_v6192;
   word case_v6220;
   word allOccurrences_v6248;
   {
   register ptr gf_c51104 =  (ptr) &globalframe;
   word var_c6292;
   word lenOld_v14616;
   word lenNew_v14644;
   word i_v14672 = 0;
   /* RopeSubst: */ 
SOURCE(26545, 386)
SOURCE(26652, 28)
   {
      word pd464;
      pd464 = (* (( (ptr) (* (( (ptr) gf_c51104)+206)/* var_c44544 */  ))+15) );
      lenOld_v14616 = (word) ( *( (fPt) ((*  (ptr) pd464 ))))(old_v6136, pd464);
      };
SOURCE(26682, 28)
   {
      word pd465;
      pd465 = (* (( (ptr) (* (( (ptr) gf_c51104)+206)/* var_c44544 */  ))+15) );
      lenNew_v14644 = (word) ( *( (fPt) ((*  (ptr) pd465 ))))(new_v6164, pd465);
      };
SOURCE(26724, 184)
   lab_L100230: ;
   {
      word pd466;
      pd466 = (* (( (ptr) (* (( (ptr) gf_c51104)+206)/* var_c44544 */  ))+11) );
      i_v14672 = (word) ( *( (fPt) ((*  (ptr) pd466 ))))(base_v6192, old_v6136, i_v14672, case_v6220, pd466);
      };
   if (( (int)i_v14672 !=  (int) (word) -1)) {
      }
   else {
      goto lab_L100228;
      };
SOURCE(26794, 65)
   {
      word pd467;
      pd467 = (* (( (ptr) (* (( (ptr) gf_c51104)+206)/* var_c44544 */  ))+16) );
      base_v6192 = (word) ( *( (fPt) ((*  (ptr) pd467 ))))(base_v6192, i_v14672, lenOld_v14616, new_v6164, pd467);
      };
SOURCE(26861, 27)
   if ((0 == allOccurrences_v6248)) {
SOURCE(26888, 4)
      goto lab_L100229;
      };
SOURCE(26894, 14)
   i_v14672 = (i_v14672 + lenNew_v14644);
   goto lab_L100230;
   lab_L100228: ;
   lab_L100229: ;
SOURCE(26919, 12)
   return(base_v6192);
   }

static word NewlineBreak_P2340(char_v26724)
   word char_v26724;
   {
   word var_c26768;
   /* NewlineBreak: */ 
SOURCE(26937, 92)
SOURCE(26968, 46)
   if ((char_v26724 == 10) || (char_v26724 == 13)) {
SOURCE(27001, 13)
      return(0);
      };
SOURCE(27016, 13)
   return(2);
   }

static void Init_P2400()
   {
   W6 var_c51136;
   register ptr gf_c51168 =  (ptr) &globalframe;
   /* declaration of var_c49248 skipped */ 
   /* Init: */ 
SOURCE(27034, 4943)
   {
      word tmpAddr468;
      tmpAddr468 = (word) (( (ptr) &var_c51136)+4)/* var_c49248 */ ;
      (*  (ptr) tmpAddr468 ) = ( ((word)  (fPt) Register_P6072) );
      (* (( (ptr) tmpAddr468) + 1) ) = 1;
      };
SOURCE(27269, 82)
   (void) Register_P6072((word) &string469, (word) (( (bPt) gf_c51168)+620)/* var_c43392 */ , (word) &string470, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(27353, 106)
   (void) Register_P6072((word) &string471, (word) (( (bPt) gf_c51168)+620)/* var_c43392 */ , (word) &string472, (* (( (ptr) gf_c51168)+61)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(27461, 127)
   (void) Register_P6072((word) &string473, (word) (( (bPt) gf_c51168)+588)/* var_c43264 */ , (word) &string474, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(27590, 149)
   (void) Register_P6072((word) &string475, (word) (( (bPt) gf_c51168)+588)/* var_c43264 */ , (word) &string476, (* (( (ptr) gf_c51168)+61)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(27741, 186)
   (void) Register_P6072((word) &string477, (word) (( (bPt) gf_c51168)+588)/* var_c43264 */ , (word) &string478, (* (( (ptr) gf_c51168)+84)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(27929, 166)
   (void) Register_P6072((word) &string479, (word) (( (bPt) gf_c51168)+588)/* var_c43264 */ , (word) &string480, (* (( (ptr) gf_c51168)+83)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28097, 51)
   (void) Register_P6072((word) &string481, (word) (( (bPt) gf_c51168)+740)/* var_c43872 */ , (word) &string482, 0, 1, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28150, 52)
   (void) Register_P6072((word) &string483, (word) (( (bPt) gf_c51168)+740)/* var_c43872 */ , (word) &string482, 0, 1, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28204, 51)
   (void) Register_P6072((word) &string484, (word) (( (bPt) gf_c51168)+740)/* var_c43872 */ , (word) &string482, 0, 1, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28257, 52)
   (void) Register_P6072((word) &string485, (word) (( (bPt) gf_c51168)+740)/* var_c43872 */ , (word) &string482, 0, 1, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28311, 64)
   (void) Register_P6072((word) &string94, (word) (( (bPt) gf_c51168)+604)/* var_c43328 */ , (word) &string486, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28377, 58)
   (void) Register_P6072((word) &string487, (word) (( (bPt) gf_c51168)+796)/* var_c44096 */ , (word) &string488, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28437, 130)
   (void) Register_P6072((word) &string489, (word) (( (bPt) gf_c51168)+788)/* var_c44064 */ , (word) &string490, 0, 1, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28569, 55)
   (void) Register_P6072((word) &string491, (word) (( (bPt) gf_c51168)+772)/* var_c44000 */ , (word) &string492, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28626, 83)
   (void) Register_P6072((word) &string493, (word) (( (bPt) gf_c51168)+748)/* var_c43904 */ , (word) &string494, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28711, 52)
   (void) Register_P6072((word) &string495, (word) (( (bPt) gf_c51168)+724)/* var_c43808 */ , (word) &string496, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28765, 105)
   (void) Register_P6072((word) &string497, (word) (( (bPt) gf_c51168)+716)/* var_c43776 */ , (word) &string498, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28872, 64)
   (void) Register_P6072((word) &string499, (word) (( (bPt) gf_c51168)+708)/* var_c43744 */ , (word) &string500, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28938, 58)
   (void) Register_P6072((word) &string501, (word) (( (bPt) gf_c51168)+700)/* var_c43712 */ , (word) &string502, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(28998, 49)
   (void) Register_P6072((word) &string503, (word) (( (bPt) gf_c51168)+692)/* var_c43680 */ , (word) &string504, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29049, 67)
   (void) Register_P6072((word) &string505, (word) (( (bPt) gf_c51168)+604)/* var_c43328 */ , (word) &string486, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29118, 73)
   (void) Register_P6072((word) &string42, (word) (( (bPt) gf_c51168)+668)/* var_c43584 */ , (word) &string506, (* (( (ptr) gf_c51168)+44)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29193, 118)
   (void) Register_P6072((word) &string46, (word) (( (bPt) gf_c51168)+668)/* var_c43584 */ , (word) &string507, (* (( (ptr) gf_c51168)+48)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29313, 87)
   (void) Register_P6072((word) &string508, (word) (( (bPt) gf_c51168)+644)/* var_c43488 */ , (word) &string509, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29402, 117)
   (void) Register_P6072((word) &string510, (word) (( (bPt) gf_c51168)+636)/* var_c43456 */ , (word) &string511, 0, 1, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29521, 132)
   (void) Register_P6072((word) &string47, (word) (( (bPt) gf_c51168)+668)/* var_c43584 */ , (word) &string512, (* (( (ptr) gf_c51168)+49)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29655, 80)
   {
      word pd513;
      pd513 = (* (( (ptr) (* (( (ptr) gf_c51168)+207)/* var_c44576 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd513 ))))((* (( (ptr) gf_c51168)+113) ), (word) (( (bPt) gf_c51168)+596)/* var_c43296 */ , (* (
            ( (ptr) gf_c51168)+57) ), 0, 1, pd513);
      };
SOURCE(29737, 80)
   (void) Register_P6072((word) &string514, (word) (( (bPt) gf_c51168)+580)/* var_c43232 */ , (word) &string515, 0, 1, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29819, 79)
   (void) Register_P6072((word) &string516, (word) (( (bPt) gf_c51168)+580)/* var_c43232 */ , (word) &string517, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29900, 65)
   (void) Register_P6072((word) &string518, (word) (( (bPt) gf_c51168)+580)/* var_c43232 */ , (word) &string519, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(29967, 66)
   (void) Register_P6072((word) &string520, (word) (( (bPt) gf_c51168)+732)/* var_c43840 */ , (word) &string521, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30035, 65)
   (void) Register_P6072((word) &string522, (word) (( (bPt) gf_c51168)+572)/* var_c43200 */ , (word) &string523, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30102, 77)
   (void) Register_P6072((word) &string524, (word) (( (bPt) gf_c51168)+564)/* var_c43168 */ , (word) &string525, 0, 1, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30181, 99)
   (void) Register_P6072((word) &string526, (word) (( (bPt) gf_c51168)+556)/* var_c43136 */ , (word) &string527, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30282, 135)
   (void) Register_P6072((word) &string95, (word) (( (bPt) gf_c51168)+548)/* var_c43104 */ , (word) &string528, (* (( (ptr) gf_c51168)+97)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30419, 131)
   (void) Register_P6072((word) &string96, (word) (( (bPt) gf_c51168)+548)/* var_c43104 */ , (word) &string529, (* (( (ptr) gf_c51168)+98)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30552, 129)
   (void) Register_P6072((word) &string97, (word) (( (bPt) gf_c51168)+548)/* var_c43104 */ , (word) &string530, (* (( (ptr) gf_c51168)+99)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30683, 125)
   (void) Register_P6072((word) &string98, (word) (( (bPt) gf_c51168)+548)/* var_c43104 */ , (word) &string531, (* (( (ptr) gf_c51168)+100)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30810, 65)
   (void) Register_P6072((word) &string532, (word) (( (bPt) gf_c51168)+524)/* var_c43008 */ , (word) &string533, 0, 0, (word) (
         ( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(30877, 138)
   (void) Register_P6072((word) &string534, (word) (( (bPt) gf_c51168)+660)/* var_c43552 */ , (word) &string535, (* (( (ptr) gf_c51168)+50)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(31017, 138)
   (void) Register_P6072((word) &string536, (word) (( (bPt) gf_c51168)+660)/* var_c43552 */ , (word) &string537, (* (( (ptr) gf_c51168)+51)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(31157, 126)
   (void) Register_P6072((word) &string538, (word) (( (bPt) gf_c51168)+660)/* var_c43552 */ , (word) &string539, (* (( (ptr) gf_c51168)+52)
       ), 0, (word) (( (bPt) &var_c51136)+16)/* var_c49248 */ );
SOURCE(31285, 122)
   {
      word pd540;
      pd540 = (* (( (ptr) (* (( (ptr) gf_c51168)+207)/* var_c44576 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd540 ))))((* (( (ptr) gf_c51168)+114) ), (word) (( (bPt) gf_c51168)+612)/* var_c43360 */ , (* (
            ( (ptr) gf_c51168)+115) ), 0, 1, pd540);
      };
SOURCE(31409, 242)
   {
      word pd541;
      pd541 = (* (( (ptr) (* (( (ptr) gf_c51168)+207)/* var_c44576 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd541 ))))((* (( (ptr) gf_c51168)+116) ), (word) (( (bPt) gf_c51168)+676)/* var_c43616 */ , (* (
            ( (ptr) gf_c51168)+117) ), 0, 1, pd541);
      };
SOURCE(31653, 55)
   {
      word pd542;
      pd542 = (* (( (ptr) (* (( (ptr) gf_c51168)+207)/* var_c44576 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd542 ))))((* (( (ptr) gf_c51168)+118) ), (word) (( (bPt) gf_c51168)+628)/* var_c43424 */ , (* (
            ( (ptr) gf_c51168)+103) ), 0, 1, pd542);
      };
SOURCE(31710, 267)
   {
      word pd543;
      pd543 = (* (( (ptr) (* (( (ptr) gf_c51168)+207)/* var_c44576 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd543 ))))((* (( (ptr) gf_c51168)+119) ), (word) (( (bPt) gf_c51168)+516)/* var_c42976 */ , (* (
            ( (ptr) gf_c51168)+120) ), 0, 1, pd543);
      };
   }

static void Register_P6072(name_v14792, proc_v14820, doc_v14848, data_v14876, un_v14904, formal_c51232)
   word name_v14792;
   word proc_v14820;
   word doc_v14848;
   word data_v14876;
   word un_v14904;
   word formal_c51232;
   {
   register ptr gf_c51200 =  (ptr) &globalframe;
   formal_c51232 = (formal_c51232 - 16);
   /* Register: */ 
SOURCE(27049, 214)
SOURCE(27170, 93)
   {
      word var_c49280;
      word var_c49344;
      {
         word pd544;
         pd544 = (* (( (ptr) (* (( (ptr) gf_c51200)+218)/* var_c49312 */  ))+9) );
         var_c49280 = (word) ( *( (fPt) ((*  (ptr) pd544 ))))(name_v14792, pd544);
         };
      {
         word pd545;
         pd545 = (* (( (ptr) (* (( (ptr) gf_c51200)+218)/* var_c49312 */  ))+9) );
         var_c49344 = (word) ( *( (fPt) ((*  (ptr) pd545 ))))(doc_v14848, pd545);
         };
      {
         word pd546;
         pd546 = (* (( (ptr) (* (( (ptr) gf_c51200)+207)/* var_c44576 */  ))+4) );
         (void) ( *( (fPt) ((*  (ptr) pd546 ))))(var_c49280, proc_v14820, var_c49344, data_v14876, (0 == un_v14904), pd546);
         };
      };
   }

static void NoName_Q7812(formal_c0613, formal_c200064, formal_c200065, formal_c200066, formal_c200067)
   word formal_c0613;
   word formal_c200064;
   word formal_c200065;
   word formal_c200066;
   word formal_c200067;
   {
   register ptr gf_c0797 =  (ptr) &globalframe;
   if ((formal_c200065 == (* (( (ptr) (* (( (ptr) gf_c0797)+208)/* var_c44736 */  ))+4) ))) {
      {
         word errorMsg_v41244;
         errorMsg_v41244 = (*  (ptr) formal_c200067 );
SOURCE(25107, 14)
         (* (( (ptr) formal_c200064)+5) ) = errorMsg_v41244;
SOURCE(25123, 10)
         (*  (ptr) formal_c0613 ) = 2;
         (* (( (ptr) formal_c0613)+1) ) = 13;
         return;
         };
      };
   (*  (ptr) formal_c0613 ) = 0;
   (* (( (ptr) formal_c0613)+1) ) = 0;
   return;
   }

static void NoName_Q7872(formal_c0621, formal_c200060, formal_c200061, formal_c200062, formal_c200063)
   word formal_c0621;
   word formal_c200060;
   word formal_c200061;
   word formal_c200062;
   word formal_c200063;
   {
   register ptr gf_c0798 =  (ptr) &globalframe;
   if ((formal_c200061 == (* (( (ptr) (* (( (ptr) gf_c0798)+209)/* var_c45056 */  ))+7) ))) {
      {
         word reason_v40872;
         word index_v40900;
         reason_v40872 = (*  (ptr) formal_c200063 );
         index_v40900 = (* (( (ptr) formal_c200063)+1) );
SOURCE(24696, 37)
         {
            word var_c0620;
            var_c0620 = (* (( (ptr) (* (( (ptr) (* (( (ptr) formal_c200060)+4) ))+5) ))+1) );
            (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0798)+208)/* var_c44736 */  ))+4) ), (word) &var_c0620);
            };
         };
      };
   (*  (ptr) formal_c0621 ) = 0;
   (* (( (ptr) formal_c0621)+1) ) = 0;
   return;
   }

static void NoName_Q7932(formal_c0628, formal_c200056, formal_c200057, formal_c200058, formal_c200059)
   word formal_c0628;
   word formal_c200056;
   word formal_c200057;
   word formal_c200058;
   word formal_c200059;
   {
   register ptr gf_c0799 =  (ptr) &globalframe;
   if ((formal_c200057 == (* (( (ptr) (* (( (ptr) gf_c0799)+209)/* var_c45056 */  ))+7) ))) {
      {
         word reason_v40404;
         word index_v40432;
         reason_v40404 = (*  (ptr) formal_c200059 );
         index_v40432 = (* (( (ptr) formal_c200059)+1) );
SOURCE(20638, 15)
         (* (( (ptr) formal_c200056)+4) ) = (* (( (ptr) gf_c0799)+46) );
SOURCE(20655, 10)
         (*  (ptr) formal_c0628 ) = 2;
         (* (( (ptr) formal_c0628)+1) ) = 12;
         return;
         };
      };
   (*  (ptr) formal_c0628 ) = 0;
   (* (( (ptr) formal_c0628)+1) ) = 0;
   return;
   }

static void NoName_Q7992(formal_c0635, formal_c200052, formal_c200053, formal_c200054, formal_c200055)
   word formal_c0635;
   word formal_c200052;
   word formal_c200053;
   word formal_c200054;
   word formal_c200055;
   {
   register ptr gf_c0800 =  (ptr) &globalframe;
   if ((formal_c200053 == (* (( (ptr) (* (( (ptr) gf_c0800)+209)/* var_c45056 */  ))+7) ))) {
      {
         word reason_v39164;
         word index_v39192;
         reason_v39164 = (*  (ptr) formal_c200055 );
         index_v39192 = (* (( (ptr) formal_c200055)+1) );
SOURCE(13970, 13)
         (*  (ptr) formal_c0635 ) = 2;
         (* (( (ptr) formal_c0635)+1) ) = 11;
         return;
         };
      };
   (*  (ptr) formal_c0635 ) = 0;
   (* (( (ptr) formal_c0635)+1) ) = 0;
   return;
   }

static void NoName_Q8052(formal_c0642, formal_c200048, formal_c200049, formal_c200050, formal_c200051)
   word formal_c0642;
   word formal_c200048;
   word formal_c200049;
   word formal_c200050;
   word formal_c200051;
   {
   register ptr gf_c0801 =  (ptr) &globalframe;
   if ((formal_c200049 == (* (( (ptr) (* (( (ptr) gf_c0801)+209)/* var_c45056 */  ))+7) ))) {
      {
         word reason_v39076;
         word index_v39104;
         reason_v39076 = (*  (ptr) formal_c200051 );
         index_v39104 = (* (( (ptr) formal_c200051)+1) );
SOURCE(13776, 14)
         (*  (ptr) formal_c0642 ) = 2;
         (* (( (ptr) formal_c0642)+1) ) = 11;
         return;
         };
      };
   (*  (ptr) formal_c0642 ) = 0;
   (* (( (ptr) formal_c0642)+1) ) = 0;
   return;
   }

static void NoName_Q8112(formal_c0648, formal_c200044, formal_c200045, formal_c200046, formal_c200047)
   word formal_c0648;
   word formal_c200044;
   word formal_c200045;
   word formal_c200046;
   word formal_c200047;
   {
   register ptr gf_c0802 =  (ptr) &globalframe;
   if ((formal_c200045 == (* (( (ptr) (* (( (ptr) gf_c0802)+208)/* var_c44736 */  ))+4) ))) {
      {
         word errorMsg_v39016;
         errorMsg_v39016 = (*  (ptr) formal_c200047 );
SOURCE(13317, 14)
         (* (( (ptr) formal_c200044)+5) ) = errorMsg_v39016;
SOURCE(13333, 10)
         (*  (ptr) formal_c0648 ) = 2;
         (* (( (ptr) formal_c0648)+1) ) = 10;
         return;
         };
      };
   (*  (ptr) formal_c0648 ) = 0;
   (* (( (ptr) formal_c0648)+1) ) = 0;
   return;
   }

static void NoName_Q8172(formal_c0655, formal_c200040, formal_c200041, formal_c200042, formal_c200043)
   word formal_c0655;
   word formal_c200040;
   word formal_c200041;
   word formal_c200042;
   word formal_c200043;
   {
   register ptr gf_c0803 =  (ptr) &globalframe;
   if ((formal_c200041 == (* (( (ptr) (* (( (ptr) gf_c0803)+209)/* var_c45056 */  ))+7) ))) {
      {
         word reason_v38408;
         word index_v38436;
         reason_v38408 = (*  (ptr) formal_c200043 );
         index_v38436 = (* (( (ptr) formal_c200043)+1) );
SOURCE(12449, 8)
         (*  (ptr) formal_c0655 ) = 2;
         (* (( (ptr) formal_c0655)+1) ) = 9;
         return;
         };
      };
   (*  (ptr) formal_c0655 ) = 0;
   (* (( (ptr) formal_c0655)+1) ) = 0;
   return;
   }

static void NoName_Q8232(formal_c0660, formal_c200036, formal_c200037, formal_c200038, formal_c200039)
   word formal_c0660;
   word formal_c200036;
   word formal_c200037;
   word formal_c200038;
   word formal_c200039;
   {
   register ptr gf_c0804 =  (ptr) &globalframe;
   if ((formal_c200037 == XR_Unwind)) {
SOURCE(10716, 24)
      {
         word pd547;
         pd547 = (* (( (ptr) (* (( (ptr) gf_c0804)+211)/* var_c45408 */  ))+13) );
         (void) ( *( (fPt) ((*  (ptr) pd547 ))))((* ((( (ptr) formal_c200036)+5)) ), pd547);
         };
      };
   (*  (ptr) formal_c0660 ) = 0;
   (* (( (ptr) formal_c0660)+1) ) = 0;
   return;
   }

static void NoName_Q8292(formal_c0669, formal_c200032, formal_c200033, formal_c200034, formal_c200035)
   word formal_c0669;
   word formal_c200032;
   word formal_c200033;
   word formal_c200034;
   word formal_c200035;
   {
   register ptr gf_c0805 =  (ptr) &globalframe;
   if ((formal_c200033 == (* (( (ptr) (* (( (ptr) gf_c0805)+203)/* var_c44160 */  ))+5) ))) {
      {
         word ec_v37516;
         word stream_v37544;
         word details_v37572;
         word msg_v37600;
         ec_v37516 = (*  (ptr) formal_c200035 );
         stream_v37544 = (* (( (ptr) formal_c200035)+1) );
         details_v37572 = (* (( (ptr) formal_c200035)+2) );
         msg_v37600 = (* (( (ptr) formal_c200035)+3) );
SOURCE(10232, 5)
         (*  (ptr) formal_c0669 ) = 2;
         (* (( (ptr) formal_c0669)+1) ) = 7;
         return;
         };
      };
   (*  (ptr) formal_c0669 ) = 0;
   (* (( (ptr) formal_c0669)+1) ) = 0;
   return;
   }

static void NoName_Q8352(formal_c0678, formal_c200028, formal_c200029, formal_c200030, formal_c200031)
   word formal_c0678;
   word formal_c200028;
   word formal_c200029;
   word formal_c200030;
   word formal_c200031;
   {
   register ptr gf_c0806 =  (ptr) &globalframe;
   if ((formal_c200029 == (* (( (ptr) (* (( (ptr) gf_c0806)+203)/* var_c44160 */  ))+5) ))) {
      {
         word ec_v37372;
         word stream_v37400;
         word details_v37428;
         word msg_v37456;
         ec_v37372 = (*  (ptr) formal_c200031 );
         stream_v37400 = (* (( (ptr) formal_c200031)+1) );
         details_v37428 = (* (( (ptr) formal_c200031)+2) );
         msg_v37456 = (* (( (ptr) formal_c200031)+3) );
SOURCE(10191, 5)
         (*  (ptr) formal_c0678 ) = 2;
         (* (( (ptr) formal_c0678)+1) ) = 7;
         return;
         };
      };
   (*  (ptr) formal_c0678 ) = 0;
   (* (( (ptr) formal_c0678)+1) ) = 0;
   return;
   }

static void NoName_Q8412(formal_c0687, formal_c200024, formal_c200025, formal_c200026, formal_c200027)
   word formal_c0687;
   word formal_c200024;
   word formal_c200025;
   word formal_c200026;
   word formal_c200027;
   {
   register ptr gf_c0807 =  (ptr) &globalframe;
   if ((formal_c200025 == (* (( (ptr) (* (( (ptr) gf_c0807)+203)/* var_c44160 */  ))+5) ))) {
      {
         word ec_v37228;
         word stream_v37256;
         word details_v37284;
         word msg_v37312;
         ec_v37228 = (*  (ptr) formal_c200027 );
         stream_v37256 = (* (( (ptr) formal_c200027)+1) );
         details_v37284 = (* (( (ptr) formal_c200027)+2) );
         msg_v37312 = (* (( (ptr) formal_c200027)+3) );
SOURCE(10141, 5)
         (*  (ptr) formal_c0687 ) = 2;
         (* (( (ptr) formal_c0687)+1) ) = 7;
         return;
         };
      };
   (*  (ptr) formal_c0687 ) = 0;
   (* (( (ptr) formal_c0687)+1) ) = 0;
   return;
   }

static void NoName_Q8472(formal_c0698, formal_c200020, formal_c200021, formal_c200022, formal_c200023)
   word formal_c0698;
   word formal_c200020;
   word formal_c200021;
   word formal_c200022;
   word formal_c200023;
   {
   register ptr gf_c0808 =  (ptr) &globalframe;
   if ((formal_c200021 == (* (( (ptr) (* (( (ptr) gf_c0808)+203)/* var_c44160 */  ))+4) ))) {
      {
         word stream_v36684;
         stream_v36684 = (*  (ptr) formal_c200023 );
SOURCE(9922, 13)
         (*  (ptr) formal_c0698 ) = 2;
         (* (( (ptr) formal_c0698)+1) ) = 8;
         return;
         };
      }
   else {
      if ((formal_c200021 == (* (( (ptr) (* (( (ptr) gf_c0808)+203)/* var_c44160 */  ))+5) ))) {
         {
            word ec_v36744;
            word stream_v36772;
            word details_v36800;
            word msg_v36828;
            ec_v36744 = (*  (ptr) formal_c200023 );
            stream_v36772 = (* (( (ptr) formal_c200023)+1) );
            details_v36800 = (* (( (ptr) formal_c200023)+2) );
            msg_v36828 = (* (( (ptr) formal_c200023)+3) );
SOURCE(9949, 4)
            (*  (ptr) formal_c0698 ) = 2;
            (* (( (ptr) formal_c0698)+1) ) = 7;
            return;
            };
         }
      else {
         if ((formal_c200021 == (* (( (ptr) (* (( (ptr) gf_c0808)+203)/* var_c44160 */  ))+8) ))) {
            {
               word stream_v36980;
               stream_v36980 = (*  (ptr) formal_c200023 );
SOURCE(9968, 13)
               (*  (ptr) formal_c0698 ) = 2;
               (* (( (ptr) formal_c0698)+1) ) = 8;
               return;
               };
            };
         };
      };
   (*  (ptr) formal_c0698 ) = 0;
   (* (( (ptr) formal_c0698)+1) ) = 0;
   return;
   }

static void NoName_Q8532(formal_c0707, formal_c200016, formal_c200017, formal_c200018, formal_c200019)
   word formal_c0707;
   word formal_c200016;
   word formal_c200017;
   word formal_c200018;
   word formal_c200019;
   {
   register ptr gf_c0809 =  (ptr) &globalframe;
   if ((formal_c200017 == (* (( (ptr) (* (( (ptr) gf_c0809)+203)/* var_c44160 */  ))+5) ))) {
      {
         word ec_v36352;
         word stream_v36380;
         word details_v36408;
         word msg_v36436;
         ec_v36352 = (*  (ptr) formal_c200019 );
         stream_v36380 = (* (( (ptr) formal_c200019)+1) );
         details_v36408 = (* (( (ptr) formal_c200019)+2) );
         msg_v36436 = (* (( (ptr) formal_c200019)+3) );
SOURCE(9849, 11)
         (*  (ptr) formal_c0707 ) = 2;
         (* (( (ptr) formal_c0707)+1) ) = 7;
         return;
         };
      };
   (*  (ptr) formal_c0707 ) = 0;
   (* (( (ptr) formal_c0707)+1) ) = 0;
   return;
   }

static void NoName_Q8592(formal_c0714, formal_c200012, formal_c200013, formal_c200014, formal_c200015)
   word formal_c0714;
   word formal_c200012;
   word formal_c200013;
   word formal_c200014;
   word formal_c200015;
   {
   register ptr gf_c0810 =  (ptr) &globalframe;
   if ((formal_c200013 == (* (( (ptr) (* (( (ptr) gf_c0810)+209)/* var_c45056 */  ))+7) ))) {
      {
         word reason_v36084;
         word index_v36112;
         reason_v36084 = (*  (ptr) formal_c200015 );
         index_v36112 = (* (( (ptr) formal_c200015)+1) );
SOURCE(9420, 15)
         (* (( (ptr) formal_c200012)+4) ) = (* (( (ptr) gf_c0810)+46) );
SOURCE(9437, 10)
         (*  (ptr) formal_c0714 ) = 2;
         (* (( (ptr) formal_c0714)+1) ) = 6;
         return;
         };
      };
   (*  (ptr) formal_c0714 ) = 0;
   (* (( (ptr) formal_c0714)+1) ) = 0;
   return;
   }

static void NoName_Q8652(formal_c0721, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c0721;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0811 =  (ptr) &globalframe;
   if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0811)+209)/* var_c45056 */  ))+7) ))) {
      {
         word reason_v35220;
         word index_v35248;
         reason_v35220 = (*  (ptr) formal_c200011 );
         index_v35248 = (* (( (ptr) formal_c200011)+1) );
SOURCE(8248, 15)
         (*  (ptr) formal_c0721 ) = 2;
         (* (( (ptr) formal_c0721)+1) ) = 5;
         return;
         };
      };
   (*  (ptr) formal_c0721 ) = 0;
   (* (( (ptr) formal_c0721)+1) ) = 0;
   return;
   }

static void NoName_Q8712(formal_c0727, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0727;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0812 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0812)+203)/* var_c44160 */  ))+4) ))) {
      {
         word stream_v31256;
         stream_v31256 = (*  (ptr) formal_c200007 );
SOURCE(5141, 9)
         (*  (ptr) formal_c0727 ) = 2;
         (* (( (ptr) formal_c0727)+1) ) = 4;
         return;
         };
      };
   (*  (ptr) formal_c0727 ) = 0;
   (* (( (ptr) formal_c0727)+1) ) = 0;
   return;
   }

static void NoName_Q8772(formal_c0732, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0732;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0813 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0813)+203)/* var_c44160 */  ))+4) )) || (formal_c200001 == (* (( (ptr) (* (
         ( (ptr) gf_c0813)+203)/* var_c44160 */  ))+5) ))) {
SOURCE(1467, 8)
      (*  (ptr) formal_c0732 ) = 2;
      (* (( (ptr) formal_c0732)+1) ) = 2;
      return;
      };
   (*  (ptr) formal_c0732 ) = 0;
   (* (( (ptr) formal_c0732)+1) ) = 0;
   return;
   }

/* file: CommanderBasicCommandsImpl, module: CommanderBasicCommandsImpl, compiled at: January 15, 1993 5:41:35 pm PST */ 
extern void XR_install_CommanderBasicCommandsImpl() {
   NoName_Q6732();
   }
extern void XR_run_CommanderBasicCommandsImpl() { XR_Start(&globalframe); }