client/derived/SupGUIBundle.m3


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 {
  "disk.pbm",
  "info.pbm",
  "SupGUI.fv",
  "tape_play.pbm",
  "exit.pbm",
  "Copyright.txt",
  "stop.pbm",
  NIL
};

VAR Elements := ARRAY [0..7] OF TEXT {
  E0,
  E1,
  NIL (* E2 .. E2_3 *),
  E3,
  E4,
  E5,
  E6,
  NIL
};

PROCEDURE GetElt (n: INTEGER): TEXT =
  <*FATAL Thread.Alerted, Wr.Failure *>
  VAR wr := TextWr.New ();
  BEGIN
    CASE n OF
    | 2 =>
        Wr.PutText (wr, E2);
        Wr.PutText (wr, E2_0);
        Wr.PutText (wr, E2_1);
        Wr.PutText (wr, E2_2);
        Wr.PutText (wr, E2_3);
    ELSE (*skip*)
    END;
    RETURN TextWr.ToText (wr);
  END GetElt;

CONST E0 =
   "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 E1 =
   "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 E2 =
   "; 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; $Id: SupGUI.fv,v 1.1.1.1 2009-04-09 17:0"
 & "1:40 jkrell Exp $\n\n(Shape\n  (Width 700 - 350 + Inf)\n\n  (Color \"Na"
 & "vyBlue\")\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  (Macro TLA"
 & " BOA (x) `(Text LeftAlign ,x))\n  (Macro TRA BOA (x) `(Text RightAlign "
 & ",x))\n\n  (Macro ABOUT ()\n    `(VBox\n      (Text (Labe";

CONST E2_0 =
   "lFont (WeightName \"bold\") (PointSize 180)) \"CVSup\\256\")\n      (Te"
 & "xt (LabelFont (WeightName \"bold\"))\n\t\"Copyright \\251 1996-2003 Joh"
 & "n D. Polstra\")\n      (Glue 6)\n      (HBox\n\t(Fill)\n\t(Shape (Width"
 & " + 0 - 0) \"Software version: \")\n\t(Shape (Width + 0 - 0) (Text %clie"
 & "ntVersion \"0.0\"))\n\t(Fill))\n      (HBox\n\t(Fill)\n\t(Shape (Width "
 & "+ 0 - 0) \"Protocol version: \")\n\t(Shape (Width + 0 - 0) (Text %proto"
 & "Version \"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 %target "
 & "\"Unknown\"))\n\t(Fill))\n      \"http://www.cvsup.org/\"\n      \"Repo"
 & "rt problems to cvsup-bugs@polstra.com\"\n      (Glue 6)\n      (Chisel)"
 & "\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    (Pop"
 & "Button %license (For licenseWindow) \"fine print\")\n\t    \" for detai"
 & "ls.\"))\n\t(Fill))\n      (Glue 6)\n      (Chisel)\n      (Glue 6)\n   "
 & "   \"CVSup is a registered trademark of John D. Polstra.\"))\n\n  (Macr"
 & "o COPYRIGHT ()\n    `(Shape (Width 500 - 250 + Inf) (Height 200 - 100 +"
 & " Inf)\n      (TextEdit ReadOnly (From \"Copyright.txt\"))))\n\n  (Macro"
 & " MESSAGES ()\n    `(ZSplit\n      (ZBackground\n\t(VBox\n\t  (Shape (He"
 & "ight + 0) \"Messages\")\n\t  (Chisel)\n\t  (TextEdit %messages ReadOnly"
 & ")))\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.00"
 & "0 0.000 0.500)\n\t(Filter Dormant\n\t  (Button %save\n\t    (Pixmap \"d"
 & "isk.pbm\"))))))\n\n  (Macro BRIEFTRACE BOA (name label)\n    `(Shape (H"
 & "eight + 0)\n      (HBox\n\t(Shape (Width 50 + 0)\n\t  (TLA ,label))\n\t"
 & "(Text ,name LeftAlign (LabelFont \"fixed\") \"\"))))\n\n\n  (Macro STAT"
 & "SROW BOA (name label)\n    `(Shape (Height + 0)\n      (HBox\n\t(Shape "
 & "(Width 0 + 20000)\n\t  (TLA ,label))\n\t(HBox (LabelFont \"fixed\")\n\t"
 & "  (Shape (Width 0 + 10000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth"
 & " name 1)) \"Count\"))\n\t      RightAlign \"0\"))\n\t  (Shape (Width 0 "
 & "+ 10000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"FileKB"
 & "\"))\n\t      RightAlign \"0\"))\n\t  (Shape ";

CONST E2_1 =
   "(Width 0 + 10000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth name 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 label valIn"
 & " valOut)\n    `(Shape (Height + 0)\n      (HBox\n\t(Shape (Width 0 + 10"
 & "000)\n\t  (TLA ,label))\n\t(HBox (LabelFont \"fixed\")\n\t  (Shape (Wid"
 & "th 0 + 10000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"C"
 & "ommIn\"))\n\t      RightAlign ,valIn))\n\t  (Shape (Width 0 + 10000)\n\t"
 & "    (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"CommOut\"))\n\t   "
 & "   RightAlign ,valOut))\n\t  (Shape (Width 0 + 10000)\n\t    (Text %,(I"
 & "ntern (Cat (SymbolName (Nth name 1)) \"WireIn\"))\n\t      RightAlign ,"
 & "valIn))\n\t  (Shape (Width 0 + 10000)\n\t    (Text %,(Intern (Cat (Symb"
 & "olName (Nth name 1)) \"WireOut\"))\n\t      RightAlign ,valOut))\n\t  ("
 & "Shape (Width 0 + 10000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth na"
 & "me 1)) \"WireTot\"))\n\t      RightAlign \"0\"))))))\n\n  (Macro COMMST"
 & "ATS ()\n    `(VBox\n      (HBox\n\t(Shape (Width 0 + 10000) (TLA \"Modu"
 & "le\"))\n\t(Shape (Width 0 + 10000) (TRA \"Proto In\"))\n\t(Shape (Width"
 & " 0 + 10000) (TRA \"Proto Out\"))\n\t(Shape (Width 0 + 10000) (TRA \"Wir"
 & "e In\"))\n\t(Shape (Width 0 + 10000) (TRA \"Wire Out\"))\n\t(Shape (Wid"
 & "th 0 + 10000) (TRA \"Wire Tot\")))\n      (Chisel)\n      (COMMROW %lis"
 & "ter   \"Lister\"   \"-\" \"0\")\n      (COMMROW %detailer \"Detailer\" "
 & "\"0\" \"0\")\n      (COMMROW %updater  \"Updater\"  \"0\" \"-\")\n     "
 & " (Chisel)\n      (COMMROW %tot      \"Total\"    \"0\" \"0\")))\n\n  (M"
 & "acro 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      (C"
 & "hisel)\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 + 10"
 & "000) (TRA \"File KB\"))\n\t      (Shape (Width 0 + 10000) (TRA \"Wire K"
 & "B\"))\n\t      (Shape (Width 0 + 10000) (";

CONST E2_2 =
   "TRA \"Compr %\")))\n\t    (Chisel)\n\t    (STATSROW %edit  \"Edit\")\n\t"
 & "    (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 + 1";

CONST E2_3 =
   "0000)\n\t    (STATS))\n\t  (Chisel)\n\t  (Shape (Width 0 + 10000)\n\t  "
 & "  (Font \"fixed\")\n\t    (MESSAGES)))\n\t(Chisel)\n\t(FILTER)\n\t(Chis"
 & "el)\n\t(CONTROLS)))\n    (ZChassis %aboutWindow (Title \"About CVSup\")"
 & "\n      (Color \"SomewhatDarkBlue\")\n      (LightShadow HSV 0.000 0.00"
 & "0 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  (Weight"
 & "Name \"medium\")\n\t  (Width \"normal\")\n\t  (PointSize 120))\n\t(ABOU"
 & "T)))\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 E3 =
   "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 E4 =
   "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 E5 =
   "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";

CONST E6 =
   "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";

BEGIN
END SupGUIBundle.