-- Auto generated by b64_to_tash/tash_from_gif
-- By: Martin C. Carlisle
with Tcl;
with Tcl.Ada;
package body logo200 is
   procedure Generate_Image(Interp : in Tcl.Tcl_Interp) is
   begin
      declare Tcl_Input : constant String := 
         "set image_data " & '"' &  ASCII.LF &
         "R0lGODlhyABfAPcAAAAAAAgICBAQEBgYGCEhISkpKTExMTk5OUJCQkpKSlJS" &  ASCII.LF &
         "UlpaWmNjY2tra3Nzc3t7e4SEhIyMjJSUlJycnKWlpa2trbW1tb29vb3GvcbG" &  ASCII.LF &
         "xsbOxs7Ozs7WztbW1tbe1t7e3t7n3ufn5+fv5+/v7+/37/f39/f/9///////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "////////////////////////////////////////////////////////////" &  ASCII.LF &
         "/////////////////////ywAAAAAyABfAAAI/gBPCBxIsKDBgwgTKlzIsKHD" &  ASCII.LF &
         "hwkhJCgBsaLFixgzatzIsSIBABIMZnjQsaTJkyhTcnwAAEHBCh8pqJxJs6ZN" &  ASCII.LF &
         "iyEKIoAwsEQCAAAG3BxKtChNCAM6ILxwAECABRSNSp1KFSIDAA0ONhgAoECF" &  ASCII.LF &
         "qmDDih1YAWjOgR0+BmBwFmHbsXDjdiyxgOfACB8PfFhY1oHcv4A3fvg5gCTD" &  ASCII.LF &
         "DgASBF7M2OGClhkcXkjcuLLlgh9CPkQAIMLlz6AbTibwNrTp0xQAENh7unXR" &  ASCII.LF &
         "EAQ0X7zgIABl17htflAdtUICpQtDXPgJFMHX3MhnNp0gEAKACwvxAk0cObn1" &  ASCII.LF &
         "lKMphgCwAOGHCR+D/kKIer28YArdT3D2XGLAAfICOzwGegBCWwYyzet/+MEB" &  ASCII.LF &
         "VwACjZbTVaydUMECtrV03EAfBBBAdftFeFAIDSS4wIKchSQBABWUQEEBQAXg" &  ASCII.LF &
         "wFnwnfBTehKmeMJIQA3AQIEB8pZBVyB2NeJAk0E1UAYFMKdihExN1wBwBZXA" &  ASCII.LF &
         "WQglNAXAAQuSBVSTP0ZYgZLcwSjQAwTI1IFmEjTQIUJNMRBlhCVMCVSWBoUQ" &  ASCII.LF &
         "gW0BQFnQAQPAeIEEpY2J3AcQKNljiXiGtwB0CoFomJ02VTDBAgQsIIGbKJXg" &  ASCII.LF &
         "QHgETFBiCVgClQCgC6UWQJ2ElkTbdKDaeEGJHIXgnFNoFqQmmwlAyFAJ/hAw" &  ASCII.LF &
         "2qlgFfxXgJcVTAknfa5qdAFSTi3Q6wl9AvXnrGN94CcFdZoJgF8bDTedsGlC" &  ASCII.LF &
         "EF6ryI4Fnmr5IVTmA1ZWdAFnwQ4Lq4XDZjvVqavVJBy5iQ6LJ1dPpauuVM4N" &  ASCII.LF &
         "UEG4JsEKaQR1hlApd/beW9QHDQSFqUoR/DcAnQZR+t+xBof1AYgDFLyRmv8R" &  ASCII.LF &
         "YBdmELBJbcVhBTnAwiZlgGhxABtULMEkh0WpsfxupHKCCKAskMTGahxzRR/Q" &  ASCII.LF &
         "RmWoCzjwAWsfmPlUSiqHiG21IY7880YlTEAcqAQcgECC0xGQALmQJZTBBQ8k" &  ASCII.LF &
         "cOkFRLp1wXzc6UzsAxP7PLVDj07n4gQZdIB0/t4PMBDemZIidGioLb6IkATh" &  ASCII.LF &
         "uei2wH7KPbdDIBLQQAmkHkT55QrZNkACEHSOAAEJGr4z4i0+ULnAIjv+uENJ" &  ASCII.LF &
         "z1QBsy5vBRSzpKv2AKcfwF3u6tcFGUDiEPCbe3gFdMs7aCVE8MACMOY+HQIt" &  ASCII.LF &
         "R1zbmRRUfnxjwAJll3zPu/12gsVfj9FgNdeUsGoMjCpfggd4PzxQxVsvfnBN" &  ASCII.LF &
         "yUaUA9rn9AGC9Hkfgn/Uk9/8FpIv1ZWkQQDgyf5a5AD3sQR+xqsAtAbYkNR0" &  ASCII.LF &
         "RioJO0AGrhIUo3lHd0sKHEEKEADvUbAgH8mKVAiTIHC5BYBdgZ1BInCbE4rt" &  ASCII.LF &
         "d+WbyQfINQAHWE9g/tPxikIQ8xwbJuQxExwK92jmHRiGjyGPQVGRkESqEnyA" &  ASCII.LF &
         "ihPC3M6QlJPLaZEhWGwI5bh4AgGOsQRU9CLlEoKYTRFlffDjzkH6Y6vq0W1J" &  ASCII.LF &
         "pAraBfaYgbeMbY8XsFIHAJm3MgLykGPLQCIV+YHK/ZGRlbNi0P5IyEYehJKH" &  ASCII.LF &
         "5OMFFLlJUk1GKDap2nxEVIJPqmp6XfmSQCZQAE4xyCwGySTaBiKcTBKklJk8" &  ASCII.LF &
         "mix3Ccg8yrJXJcAkLwNZkBEMc5fhcs6gvKORqtWIADcSyAJcIpD+gM94AgFK" &  ASCII.LF &
         "2tLEldLg8pAF0iMg0yZOQH5gkMe0ZSx3iZl0gpMg5XQnqR6DzYJYK4cK/tlW" &  ASCII.LF &
         "UMCFH5fB8AB27MABNLMbAGzTII9BWTxHtaNcEgSdhzSmO83pMl7CR5jpbAtG" &  ASCII.LF &
         "j3mQx+QwYUlsyAcY8J8A3K6MQCkQhWylyhA0xTA0PAAUAbBMYmUSQt8E5Ftk" &  ASCII.LF &
         "2YGcutNKPj0keYKaTghNdJwR+4grq2mbpWKGg6qJpkCaUoC3BbFJAnVKFz/y" &  ASCII.LF &
         "sYQcqSCy3ACDbgpPWe7lA4pMKyHTqkixFgSisiTPQtlq0RNI9Kh5hKVCrqLC" &  ASCII.LF &
         "IVaIPvuKJVcQ8B+AwqcCmoOOkZbk1BNsBwBvCWo4M+nW+MgyYHzsAInWeMth" &  ASCII.LF &
         "ZoA8tfzjFWmJURKV84ohSO0Vj8apxza2AwGI/lNCpsQ+VR4Ef/CrQJ1+0r6p" &  ASCII.LF &
         "AsWEtKxhNS/b0HfiSJYHgSsxvZNJuMIHSfE8Sy0P2ZZ44rMgHp1pSMtYgRot" &  ASCII.LF &
         "SVZl/BCo7OPX/jUkYT5CC1l3RlyBTBep6zRuxHKJSVJtwKGGzKRGkfuQx9R0" &  ASCII.LF &
         "jkGBEQWoxKR8Kgmg5ytA+p5LtvBEbyEIRJkwIRRPVy00XHfVKXOpW98iCRNp" &  ASCII.LF &
         "/M2vfBviXxI/ayDn+65CuksfO5bpP6opgIwL8DcCGDBh7eqJWdV7yLTt0pfq" &  ASCII.LF &
         "nG+PfVqi9+5xZxO27C7ZejT5TUamDCnoWRBVYG9RIDxMIhWWuGa3BaS3IWUJ" &  ASCII.LF &
         "wDYX2pYdCyTDfLxk/nMRotxGZpJPzR3BQok5Z14uFbYBcEjC+qqQqh0YvNV8" &  ASCII.LF &
         "naDtCJFtSVHJh6SlLEcw1jUXycyPRqSI91iije4SOJb+sUKaAmi0OAif4l0S" &  ASCII.LF &
         "oWtSq8SE6749bnSieTzi4b4ZM5y8qTDhQ9QlU6TWS15IU6DMkKtsd2dXBqwA" &  ASCII.LF &
         "D1ij/wYIvydQLpGCmi7l9srI6YRPnZsbFVxDeim8aQhsZUuQEIS6yjbZ0kcK" &  ASCII.LF &
         "ozb9Hle+0DbXhwuCarw+9KfdPipDF8IV+ykEiQRhpbBvUgEGaM6DGxaqe+Oq" &  ASCII.LF &
         "aoqq6tonkDelCSLPilI7tRBnNEN+ohiRavUEwf7usJuZvAb8rbdDJHiy/tcr" &  ASCII.LF &
         "kNI6fNWKPuasU37McJEZIxkYAAEOipAMYrnTGAlBBzrgALbRB2KHMasVr81O" &  ASCII.LF &
         "kZD8zC1XblkRqdx5s7qXGeGrQ2gIWJWo7G9nMtuvEzJtkTv2l0Ju9Youu0Zh" &  ASCII.LF &
         "EuTDQU1bMG+KWohvfCAb4nVCMp7At1fkZqBiwL6uO6GjkhPhNjU3WJG9dpRL" &  ASCII.LF &
         "duSCn7Rn7Q4bkCwERAe4SgHs7hAKOS0CNLfIUf3Y3ne/eukCR3KQoX3rJA98" &  ASCII.LF &
         "opS/CjUTcoHjLMckyrIUcHECb4aHWMdHR3SacU/Igm/S98u1du8fkgHbzN5J" &  ASCII.LF &
         "ky9JeLpqkqanurOUDbvBz554xWNKmD4Wedf3/pj5hGyo4q9qSj0vguPuc2TO" &  ASCII.LF &
         "GeBXm6W/R4l3m5LARHZ0443sTO+xsQcJsEPKQgCO8J/vzXQ0G5B+ORQC55R+" &  ASCII.LF &
         "kXQ0HZB+CWGAG1BFaLUBljQQcnZOB7VuDPIBA7iAeZMBEngRUeQQScIhGhEC" &  ASCII.LF &
         "XDF+4jNdDFgTRHR8AsF/GsESyWdENjWBNqF6D/F6FxECDoJzNKgSsAUAX7Zi" &  ASCII.LF &
         "XUF5BMESBJArSriETNiETviEUBiFUjiFVFiFVniFULhxj5FjDNEU5ucdWEc4" &  ASCII.LF &
         "YjiGZFiGZniGaJiGariGbAgqfPcTXKgQc4J/BpEwCSABeJiHeriHfNiHfviH" &  ASCII.LF &
         "gBiIgjiIhFiIhviHkXQ4I11BE6PxhT94E7hlbBwRhPb2iFTxQJKYERfAFeBn" &  ASCII.LF &
         "iWHxQCg4G3kBgJ5oE5HYEQDEPKUIFyEwH6qIEUvEfKsoFiAEdA8hHw42i4Ax" &  ASCII.LF &
         "UoDlOBWwJmfigrooFYMxHQFQAMGjRmgUASQ1HeBihMNoFBlgLWlYAJcSjZcR" &  ASCII.LF &
         "NGXjXV2TABMgjNj4F5J0NKwVjkUREAAAOw==" &  ASCII.LF &
         '"' &  ASCII.LF &
         "image create photo logo200 -data $image_data" &  ASCII.LF &
                  ASCII.LF;
      begin
         Tcl.Ada.Tcl_Eval(Interp,Tcl_Input);
      end;
   end Generate_Image;
end logo200;
