MODULE SupGUIBundle;
Generated by m3bundle; see its manpage.
IMPORT Bundle, BundleRep, Text;
IMPORT Thread, Wr, TextWr;
TYPE T = Bundle.T OBJECT OVERRIDES
get := LookUp;
getNames := GetNames;
END;
TYPE Texts = REF ARRAY OF TEXT;
VAR
bundle: T := NIL;
names : Texts := NIL;
PROCEDURE Get(): Bundle.T =
BEGIN
IF (bundle = NIL) THEN bundle := NEW (T) END;
RETURN bundle;
END Get;
PROCEDURE GetNames (<*UNUSED*> self: T): Texts =
BEGIN
IF names = NIL THEN
names := NEW (Texts, NUMBER (Names));
names^ := Names;
END;
RETURN names;
END GetNames;
PROCEDURE LookUp (<*UNUSED*> self: T; element: TEXT): TEXT =
BEGIN
FOR i := 0 TO LAST (Names)-1 DO
IF Text.Equal (Names[i], element) THEN
IF Elements[i] = NIL THEN Elements[i] := GetElt (i) END;
RETURN Elements[i];
END;
END;
RETURN NIL;
END LookUp;
CONST Names = ARRAY [0..7] OF TEXT {
"stop.pbm",
"disk.pbm",
"info.pbm",
"SupGUI.fv",
"tape_play.pbm",
"exit.pbm",
"Copyright.txt",
NIL
};
VAR Elements := ARRAY [0..7] OF TEXT {
E0,
E1,
E2,
NIL (* E3 .. E3_3 *),
E4,
E5,
E6,
NIL
};
PROCEDURE GetElt (n: INTEGER): TEXT =
<*FATAL Thread.Alerted, Wr.Failure *>
VAR wr := TextWr.New ();
BEGIN
CASE n OF
| 3 =>
Wr.PutText (wr, E3);
Wr.PutText (wr, E3_0);
Wr.PutText (wr, E3_1);
Wr.PutText (wr, E3_2);
Wr.PutText (wr, E3_3);
ELSE (*skip*)
END;
RETURN TextWr.ToText (wr);
END GetElt;
CONST E0 =
"P1\n16 16\n0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 "
& "0 0 0 0 0\n1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 "
& "1 1 1 1 1\n1 1 1 1 1 1 1 1 1 0 1 1 0 1 0 0 0 1 1 0 1 1 0 0 1 1 1 0 1 1 "
& "1 0 1 1 0\n1 0 1 0 1 0 1 1 0 1 1 1 0 1 1 0 1 0 1 0 1 0 1 1 1 0 1 1 0 1 "
& "1 0 1 0 1\n0 0 1 1 1 1 0 1 1 0 1 1 0 1 0 1 0 1 1 1 1 0 1 1 1 0 1 1 1 0 "
& "1 1 0 1 1\n1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 "
& "1 0 0 0 0\n0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 "
& "0 0 0 0 0\n1 1 1 1 1 1 0 0 0 0 0\n";
CONST E1 =
"P1\n16 16\n0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 "
& "0 0 1 0 0\n0 1 0 0 0 1 0 1 0 0 0 1 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 1 "
& "0 0 0 1 1\n1 1 1 1 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 1 0 1 0 0 1 1 1 1 1 1 1 1 1 0 0 1 0 1 0 1 0 0 0 0 "
& "0 0 0 0 0\n1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 "
& "0 0 1 0 1\n0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 "
& "0 1 0 1 0\n1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";
CONST E2 =
"P1\n16 16\n0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 0 0 "
& "0 1 1 1 1\n1 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 "
& "1 1 0 0 0\n0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 "
& "0 0 0 0 0\n0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";
CONST E3 =
"; Copyright 1996-2003 John D. Polstra.\n; All rights reserved.\n;\n; Re"
& "distribution and use in source and binary forms, with or without\n; mod"
& "ification, are permitted provided that the following conditions\n; are "
& "met:\n; 1. Redistributions of source code must retain the above copyrig"
& "ht\n; notice, this list of conditions and the following disclaimer.\n"
& "; 2. Redistributions in binary form must reproduce the above copyright\n"
& "; notice, this list of conditions and the following disclaimer in th"
& "e\n; documentation and/or other materials provided with the distribu"
& "tion.\n; 3. All advertising materials mentioning features or use of thi"
& "s software\n; must display the following acknowledgment:\n; Thi"
& "s product includes software developed by John D. Polstra.\n; 4. The nam"
& "e of the author may not be used to endorse or promote products\n; de"
& "rived from this software without specific prior written permission.\n;\n"
& "; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS\'\' AND ANY EXPRESS O"
& "R\n; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WAR"
& "RANTIES\n; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE "
& "DISCLAIMED.\n; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, I"
& "NDIRECT,\n; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (I"
& "NCLUDING, BUT\n; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SER"
& "VICES; LOSS OF USE,\n; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWE"
& "VER CAUSED AND ON ANY\n; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRI"
& "CT LIABILITY, OR TORT\n; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN"
& " ANY WAY OUT OF THE USE OF\n; THIS SOFTWARE, EVEN IF ADVISED OF THE POS"
& "SIBILITY OF SUCH DAMAGE.\n\n(Shape\n (Width 700 - 350 + Inf)\n\n (Col"
& "or \"NavyBlue\")\n (LightShadow HSV 0.000 0.250 1.000)\n (BgColor "
& " HSV 0.000 0.400 1.000)\n (DarkShadow HSV 0.000 0.600 1.000)\n\n (Ma"
& "cro TLA BOA (x) `(Text LeftAlign ,x))\n (Macro TRA BOA (x) `(Text Righ"
& "tAlign ,x))\n\n (Macro ABOUT ()\n `(VBox\n (Text (LabelFont (W"
& "eightName \"bold\") (PointSize 180)) \"CVSup\\256\")\n ";
CONST E3_0 =
"(Text (LabelFont (WeightName \"bold\"))\n\t\"Copyright \\251 1996-2003 "
& "John D. Polstra\")\n (Glue 6)\n (HBox\n\t(Fill)\n\t(Shape (Wi"
& "dth + 0 - 0) \"Software version: \")\n\t(Shape (Width + 0 - 0) (Text %c"
& "lientVersion \"0.0\"))\n\t(Fill))\n (HBox\n\t(Fill)\n\t(Shape (Wid"
& "th + 0 - 0) \"Protocol version: \")\n\t(Shape (Width + 0 - 0) (Text %pr"
& "otoVersion \"0.0\"))\n\t(Fill))\n (HBox\n\t(Fill)\n\t(Shape (Width"
& " + 0 - 0) \"Operating system: \")\n\t(Shape (Width + 0 - 0) (Text %targ"
& "et \"Unknown\"))\n\t(Fill))\n \"https://www.cvsup.org/\"\n \"R"
& "eport problems to cvsup-bugs@polstra.com\"\n (Glue 6)\n (Chis"
& "el)\n (Glue 6)\n \"This is free software. See\"\n (HBox"
& "\n\t(Fill)\n\t(Shape (Width + 0 - 0)\n\t (HBox\n\t \"the \"\n\t "
& "(PopButton %license (For licenseWindow) \"fine print\")\n\t \" for d"
& "etails.\"))\n\t(Fill))\n (Glue 6)\n (Chisel)\n (Glue 6)\n"
& " \"CVSup is a registered trademark of John D. Polstra.\"))\n\n (M"
& "acro COPYRIGHT ()\n `(Shape (Width 500 - 250 + Inf) (Height 200 - 10"
& "0 + Inf)\n (TextEdit ReadOnly (From \"Copyright.txt\"))))\n\n (Ma"
& "cro MESSAGES ()\n `(ZSplit\n (ZBackground\n\t(VBox\n\t (Shape "
& "(Height + 0) \"Messages\")\n\t (Chisel)\n\t (TextEdit %messages ReadO"
& "nly)))\n (ZChild Open (At 1.0 1.0 SE)\n\t(LightShadow HSV 0.000 0."
& "000 1.000)\n\t(BgColor HSV 0.000 0.000 0.750)\n\t(DarkShadow HSV 0"
& ".000 0.000 0.500)\n\t(Filter Dormant\n\t (Button %save\n\t (Pixmap "
& "\"disk.pbm\"))))))\n\n (Macro BRIEFTRACE BOA (name label)\n `(Shape"
& " (Height + 0)\n (HBox\n\t(Shape (Width 50 + 0)\n\t (TLA ,label))\n"
& "\t(Text ,name LeftAlign (LabelFont \"fixed\") \"\"))))\n\n\n (Macro ST"
& "ATSROW BOA (name label)\n `(Shape (Height + 0)\n (HBox\n\t(Shap"
& "e (Width 0 + 20000)\n\t (TLA ,label))\n\t(HBox (LabelFont \"fixed\")\n"
& "\t (Shape (Width 0 + 10000)\n\t (Text %,(Intern (Cat (SymbolName (N"
& "th name 1)) \"Count\"))\n\t RightAlign \"0\"))\n\t (Shape (Width "
& "0 + 10000)\n\t (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"File"
& "KB\"))\n\t RightAlign \"0\"))\n\t (Shape (Width 0 + 10000)\n\t "
& " (Text %,(Intern (Cat (SymbolName (Nth n";
CONST E3_1 =
"ame 1)) \"WireKB\"))\n\t RightAlign \"0\"))\n\t (Shape (Width 0 +"
& " 10000)\n\t (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"Compr\""
& "))\n\t RightAlign \"0.0\"))))))\n\n (Macro COMMROW BOA (name labe"
& "l valIn valOut)\n `(Shape (Height + 0)\n (HBox\n\t(Shape (Width"
& " 0 + 10000)\n\t (TLA ,label))\n\t(HBox (LabelFont \"fixed\")\n\t (Sha"
& "pe (Width 0 + 10000)\n\t (Text %,(Intern (Cat (SymbolName (Nth name "
& "1)) \"CommIn\"))\n\t RightAlign ,valIn))\n\t (Shape (Width 0 + 10"
& "000)\n\t (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"CommOut\")"
& ")\n\t RightAlign ,valOut))\n\t (Shape (Width 0 + 10000)\n\t (T"
& "ext %,(Intern (Cat (SymbolName (Nth name 1)) \"WireIn\"))\n\t Righ"
& "tAlign ,valIn))\n\t (Shape (Width 0 + 10000)\n\t (Text %,(Intern (C"
& "at (SymbolName (Nth name 1)) \"WireOut\"))\n\t RightAlign ,valOut)"
& ")\n\t (Shape (Width 0 + 10000)\n\t (Text %,(Intern (Cat (SymbolName"
& " (Nth name 1)) \"WireTot\"))\n\t RightAlign \"0\"))))))\n\n (Macr"
& "o COMMSTATS ()\n `(VBox\n (HBox\n\t(Shape (Width 0 + 10000) (TL"
& "A \"Module\"))\n\t(Shape (Width 0 + 10000) (TRA \"Proto In\"))\n\t(Shap"
& "e (Width 0 + 10000) (TRA \"Proto Out\"))\n\t(Shape (Width 0 + 10000) (T"
& "RA \"Wire In\"))\n\t(Shape (Width 0 + 10000) (TRA \"Wire Out\"))\n\t(Sh"
& "ape (Width 0 + 10000) (TRA \"Wire Tot\")))\n (Chisel)\n (COMM"
& "ROW %lister \"Lister\" \"-\" \"0\")\n (COMMROW %detailer \"Det"
& "ailer\" \"0\" \"0\")\n (COMMROW %updater \"Updater\" \"0\" \"-\""
& ")\n (Chisel)\n (COMMROW %tot \"Total\" \"0\" \"0\")))"
& "\n\n (Macro CLOCK ()\n `(Shape (Width + 0)\n (Frame Lowered\n\t"
& "(Text %clock (LabelFont \"fixed\") \"00:00:00\"))))\n\n (Macro STATS ("
& ")\n `(VBox %statistics\n (Shape (Height + 0) \"Statistics\")\n "
& " (Chisel)\n (Rim (Pen 5.0)\n\t(Shape (Height + 0)\n\t (VBox\n"
& "\t (HBox\n\t (Shape (Width 0 + 20000) (TLA \"Update Type\"))\n\t"
& " (Shape (Width 0 + 10000) (TRA \"Files\"))\n\t (Shape (Width "
& "0 + 10000) (TRA \"File KB\"))\n\t (Shape (Width 0 + 10000) (TRA \""
& "Wire KB\"))\n\t (Shape (Width 0 + 10000) (TRA \"Compr %\")))\n\t "
& " (Chisel)\n\t (STATSROW %edit \"Edit\")\n\t";
CONST E3_2 =
" (STATSROW %co \"Checkout\")\n\t (STATSROW %rsync \"Rsync\")\n"
& "\t (STATSROW %app \"Append\")\n\t (STATSROW %touch \"Touch\")\n"
& "\t (STATSROW %add \"Create\")\n\t (STATSROW %del \"Delete\")\n"
& "\t (STATSROW %repl \"Replace\")\n\t (STATSROW %fixup \"Fixup\")\n"
& "\t (STATSROW %other \"Other\")\n\t (Chisel)\n\t (STATSROW %tot"
& " \"Total\")\n\n\t (Glue 12.0)\n\t (COMMSTATS)\n\t (Glue 12.0"
& ")\n\n\t (HBox\n\t (Shape (Width + 0)\n\t\t(TLA \"Elapsed time\""
& "))\n\t (Glue 3.0)\n\t (Shape (Width + 0)\n\t\t(Text %clock (L"
& "abelFont \"fixed\") \"00:00:00\"))\n\t (Fill)\n\t (Shape (Wid"
& "th + 0)\n\t\t(TLA \"Update rate\"))\n\t (Shape (Width + 0)\n\t\t(T"
& "ext %xferRate RightAlign (LabelFont \"fixed\")\n\t\t \" 0.0 KB/sec\""
& ")))\n\n\t (Glue 12.0)\n\t (BRIEFTRACE %lister \"Listing\")\n\t "
& " (BRIEFTRACE %detailer \"Detailing\"))))\n (Fill)))\n\n (Macro FI"
& "LTER ()\n `(Shape (Height + 0 - 0)\n (HBox\n\t(Glue 5.0)\n\t(Sh"
& "ape (Width + 0 - 0)\n\t (TLA \"Filter \"))\n\t(Frame Lowered\n\t (Sha"
& "pe (Width + Inf - Inf)\n\t (Filter Passive\n\t (TypeIn %filter "
& "ExpandOnDemand))))\n\t(Glue 1.0))))\n\n (Macro CONTROLS ()\n `(Shap"
& "e (Height + 0 - 0)\n (HBox\n\t(Shape (Width + 0)\n\t (HBox\n\t "
& " (LightShadow HSV 0.000 0.000 1.000)\n\t (BgColor HSV 0.000 0.00"
& "0 0.750)\n\t (DarkShadow HSV 0.000 0.000 0.500)\n\t (TSplit\n\t "
& " (Filter Dormant\n\t\t(Button %quit (Color \"DarkRed\")\n\t\t (Pix"
& "map \"exit.pbm\")))\n\t (Filter Dormant\n\t\t(Button %abort (Color"
& " \"DarkRed\")\n\t\t (Pixmap \"stop.pbm\"))))\n\t (Filter Dormant\n\t"
& " (Button %start (Color \"QuiteDarkGreen\")\n\t\t(Pixmap \"tape_pla"
& "y.pbm\")))))\n\t(Glue 3.0)\n\t(Shape (Width + Inf - Inf)\n\t (Text %st"
& "atus (LabelFont \"fixed\") LeftAlign \"\"))\n\t(Shape (Width + 0 - 0)\n"
& "\t (HBox\n\t (LightShadow HSV 0.000 0.000 1.000)\n\t (BgColor "
& " HSV 0.000 0.000 0.750)\n\t (DarkShadow HSV 0.000 0.000 0.500)\n\t"
& " (PopButton %about (For aboutWindow)\n\t (Pixmap \"info.pbm\"))"
& ")))))\n\n (ZSplit\n (ZBackground\n (VBox\n\t(HBox\n\t (Shape "
& "(Width 0 + 10000)\n\t (STATS))\n\t (Chisel)\n\t (Shape (Width 0 + "
& "10000)\n\t ";
CONST E3_3 =
" (Font \"fixed\")\n\t (MESSAGES)))\n\t(Chisel)\n\t(FILTER)\n\t(Chi"
& "sel)\n\t(CONTROLS)))\n (ZChassis %aboutWindow (Title \"About CVSup\""
& ")\n (Color \"SomewhatDarkBlue\")\n (LightShadow HSV 0.000 0.0"
& "00 1.000)\n (BgColor HSV 0.000 0.000 0.750)\n (DarkShadow"
& " HSV 0.000 0.000 0.500)\n (Rim (Pen 10)\n\t(LabelFont\n\t (Weigh"
& "tName \"medium\")\n\t (Width \"normal\")\n\t (PointSize 120))\n\t(ABO"
& "UT)))\n (ZChassis %licenseWindow (Title \"License\")\n (Color \""
& "Black\")\n (LightShadow HSV 0.000 0.000 1.000)\n (BgColor "
& " HSV 0.000 0.000 0.750)\n (DarkShadow HSV 0.000 0.000 0.500)\n "
& " (Font \"fixed\")\n (COPYRIGHT)))\n)\n";
CONST E4 =
"P1\n16 16\n0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 "
& "0 0 0 0 1\n1 0 1 1 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 "
& "0 1 1 0 0\n0 1 1 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 1 0 0 0 0 0 0 0 1 1 "
& "0 0 0 1 1\n1 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 1 1 0 1 1 "
& "1 0 0 0 0\n0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";
CONST E5 =
"P1\n16 16\n0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 0 0 1 0 1 1 1 1 "
& "0 0 0 1 0\n0 0 1 0 0 1 0 1 0 1 0 0 0 0 1 0 0 0 0 1 1 0 0 1 0 1 0 0 0 0 "
& "1 1 0 0 0\n1 1 0 0 1 0 1 0 0 0 0 1 0 0 0 1 0 0 1 0 1 0 1 0 0 0 0 1 0 0 "
& "0 1 0 0 1\n0 1 0 1 0 0 0 0 1 1 1 0 1 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 "
& "1 0 0 0 0\n0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";
CONST E6 =
"Copyright \251 1996-2003 John D. Polstra.\nAll rights reserved.\n\nRedi"
& "stribution and use in source and binary forms, with or without\nmodific"
& "ation, are permitted provided that the following conditions\nare met:\n"
& "1. Redistributions of source code must retain the above copyright\n n"
& "otice, this list of conditions and the following disclaimer.\n2. Redist"
& "ributions in binary form must reproduce the above copyright\n notice,"
& " this list of conditions and the following disclaimer in the\n docume"
& "ntation and/or other materials provided with the distribution.\n3. All "
& "advertising materials mentioning features or use of this software\n m"
& "ust display the following acknowledgment:\n This product includes s"
& "oftware developed by John D. Polstra.\n4. The name of the author may no"
& "t be used to endorse or promote products\n derived from this software"
& " without specific prior written permission.\n\nTHIS SOFTWARE IS PROVIDE"
& "D BY THE AUTHOR ``AS IS\'\' AND ANY EXPRESS OR\nIMPLIED WARRANTIES, INC"
& "LUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES\nOF MERCHANTABILITY "
& "AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.\nIN NO EVENT SHALL"
& " THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,\nINCIDENTAL, SPECIAL, E"
& "XEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT\nNOT LIMITED TO, PRO"
& "CUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\nDATA, OR PROFIT"
& "S; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\nTHEORY OF LIABI"
& "LITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n(INCLUDING NEGLIG"
& "ENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF\nTHIS SOFTWARE,"
& " EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n\nCVSup is a regis"
& "tered trademark of John D. Polstra.\n";
BEGIN
END SupGUIBundle.