DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T V

⟦fc9e7616a⟧ TextFile

    Length: 41242 (0xa11a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

package Compp is
    --  5000 ENUMERATION LITERALS, 513 LINES, 5 STATEM

    type Type_500 is (A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12,
                      A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23,
                      A24, A25, A26, A27, A28, A29, A30, A31, A32, A33,
                      A34, A35, A36, A37, A38, A39, A40, A41, A42, A43,
                      A44, A45, A46, A47, A48, A49, A50, A51, A52, A53,
                      A54, A55, A56, A57, A58, A59, A60, A61, A62, A63,
                      A64, A65, A66, A67, A68, A69, A70, A71, A72, A73,
                      A74, A75, A76, A77, A78, A79, A80, A81, A82, A83,
                      A84, A85, A86, A87, A88, A89, A90, A91, A92, A93,
                      A94, A95, A96, A97, A98, A99, A100, A101, A102, A103,
                      A104, A105, A106, A107, A108, A109, A110, A111, A112,
                      A113, A114, A115, A116, A117, A118, A119, A120, A121,
                      A122, A123, A124, A125, A126, A127, A128, A129, A130,
                      A131, A132, A133, A134, A135, A136, A137, A138, A139,
                      A140, A141, A142, A143, A144, A145, A146, A147, A148,
                      A149, A150, A151, A152, A153, A154, A155, A156, A157,
                      A158, A159, A160, A161, A162, A163, A164, A165, A166,
                      A167, A168, A169, A170, A171, A172, A173, A174, A175,
                      A176, A177, A178, A179, A180, A181, A182, A183, A184,
                      A185, A186, A187, A188, A189, A190, A191, A192, A193,
                      A194, A195, A196, A197, A198, A199, A200, A201, A202,
                      A203, A204, A205, A206, A207, A208, A209, A210, A211,
                      A212, A213, A214, A215, A216, A217, A218, A219, A220,
                      A221, A222, A223, A224, A225, A226, A227, A228, A229,
                      A230, A231, A232, A233, A234, A235, A236, A237, A238,
                      A239, A240, A241, A242, A243, A244, A245, A246, A247,
                      A248, A249, A250, A251, A252, A253, A254, A255, A256,
                      A257, A258, A259, A260, A261, A262, A263, A264, A265,
                      A266, A267, A268, A269, A270, A271, A272, A273, A274,
                      A275, A276, A277, A278, A279, A280, A281, A282, A283,
                      A284, A285, A286, A287, A288, A289, A290, A291, A292,
                      A293, A294, A295, A296, A297, A298, A299, A300, A301,
                      A302, A303, A304, A305, A306, A307, A308, A309, A310,
                      A311, A312, A313, A314, A315, A316, A317, A318, A319,
                      A320, A321, A322, A323, A324, A325, A326, A327, A328,
                      A329, A330, A331, A332, A333, A334, A335, A336, A337,
                      A338, A339, A340, A341, A342, A343, A344, A345, A346,
                      A347, A348, A349, A350, A351, A352, A353, A354, A355,
                      A356, A357, A358, A359, A360, A361, A362, A363, A364,
                      A365, A366, A367, A368, A369, A370, A371, A372, A373,
                      A374, A375, A376, A377, A378, A379, A380, A381, A382,
                      A383, A384, A385, A386, A387, A388, A389, A390, A391,
                      A392, A393, A394, A395, A396, A397, A398, A399, A400,
                      A401, A402, A403, A404, A405, A406, A407, A408, A409,
                      A410, A411, A412, A413, A414, A415, A416, A417, A418,
                      A419, A420, A421, A422, A423, A424, A425, A426, A427,
                      A428, A429, A430, A431, A432, A433, A434, A435, A436,
                      A437, A438, A439, A440, A441, A442, A443, A444, A445,
                      A446, A447, A448, A449, A450, A451, A452, A453, A454,
                      A455, A456, A457, A458, A459, A460, A461, A462, A463,
                      A464, A465, A466, A467, A468, A469, A470, A471, A472,
                      A473, A474, A475, A476, A477, A478, A479, A480, A481,
                      A482, A483, A484, A485, A486, A487, A488, A489, A490,
                      A491, A492, A493, A494, A495, A496, A497, A498, A499);

    type Type_1000 is (B0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12,
                       B13, B14, B15, B16, B17, B18, B19, B20, B21, B22, B23,
                       B24, B25, B26, B27, B28, B29, B30, B31, B32, B33, B34,
                       B35, B36, B37, B38, B39, B40, B41, B42, B43, B44, B45,
                       B46, B47, B48, B49, B50, B51, B52, B53, B54, B55, B56,
                       B57, B58, B59, B60, B61, B62, B63, B64, B65, B66, B67,
                       B68, B69, B70, B71, B72, B73, B74, B75, B76, B77, B78,
                       B79, B80, B81, B82, B83, B84, B85, B86, B87, B88, B89,
                       B90, B91, B92, B93, B94, B95, B96, B97, B98, B99, B100,
                       B101, B102, B103, B104, B105, B106, B107, B108, B109,
                       B110, B111, B112, B113, B114, B115, B116, B117, B118,
                       B119, B120, B121, B122, B123, B124, B125, B126, B127,
                       B128, B129, B130, B131, B132, B133, B134, B135, B136,
                       B137, B138, B139, B140, B141, B142, B143, B144, B145,
                       B146, B147, B148, B149, B150, B151, B152, B153, B154,
                       B155, B156, B157, B158, B159, B160, B161, B162, B163,
                       B164, B165, B166, B167, B168, B169, B170, B171, B172,
                       B173, B174, B175, B176, B177, B178, B179, B180, B181,
                       B182, B183, B184, B185, B186, B187, B188, B189, B190,
                       B191, B192, B193, B194, B195, B196, B197, B198, B199,
                       B200, B201, B202, B203, B204, B205, B206, B207, B208,
                       B209, B210, B211, B212, B213, B214, B215, B216, B217,
                       B218, B219, B220, B221, B222, B223, B224, B225, B226,
                       B227, B228, B229, B230, B231, B232, B233, B234, B235,
                       B236, B237, B238, B239, B240, B241, B242, B243, B244,
                       B245, B246, B247, B248, B249, B250, B251, B252, B253,
                       B254, B255, B256, B257, B258, B259, B260, B261, B262,
                       B263, B264, B265, B266, B267, B268, B269, B270, B271,
                       B272, B273, B274, B275, B276, B277, B278, B279, B280,
                       B281, B282, B283, B284, B285, B286, B287, B288, B289,
                       B290, B291, B292, B293, B294, B295, B296, B297, B298,
                       B299, B300, B301, B302, B303, B304, B305, B306, B307,
                       B308, B309, B310, B311, B312, B313, B314, B315, B316,
                       B317, B318, B319, B320, B321, B322, B323, B324, B325,
                       B326, B327, B328, B329, B330, B331, B332, B333, B334,
                       B335, B336, B337, B338, B339, B340, B341, B342, B343,
                       B344, B345, B346, B347, B348, B349, B350, B351, B352,
                       B353, B354, B355, B356, B357, B358, B359, B360, B361,
                       B362, B363, B364, B365, B366, B367, B368, B369, B370,
                       B371, B372, B373, B374, B375, B376, B377, B378, B379,
                       B380, B381, B382, B383, B384, B385, B386, B387, B388,
                       B389, B390, B391, B392, B393, B394, B395, B396, B397,
                       B398, B399, B400, B401, B402, B403, B404, B405, B406,
                       B407, B408, B409, B410, B411, B412, B413, B414, B415,
                       B416, B417, B418, B419, B420, B421, B422, B423, B424,
                       B425, B426, B427, B428, B429, B430, B431, B432, B433,
                       B434, B435, B436, B437, B438, B439, B440, B441, B442,
                       B443, B444, B445, B446, B447, B448, B449, B450, B451,
                       B452, B453, B454, B455, B456, B457, B458, B459, B460,
                       B461, B462, B463, B464, B465, B466, B467, B468, B469,
                       B470, B471, B472, B473, B474, B475, B476, B477, B478,
                       B479, B480, B481, B482, B483, B484, B485, B486, B487,
                       B488, B489, B490, B491, B492, B493, B494, B495, B496,
                       B497, B498, B499, C0, C1, C2, C3, C4, C5, C6, C7, C8,
                       C9, C10, C11, C12, C13, C14, C15, C16, C17, C18, C19,
                       C20, C21, C22, C23, C24, C25, C26, C27, C28, C29, C30,
                       C31, C32, C33, C34, C35, C36, C37, C38, C39, C40, C41,
                       C42, C43, C44, C45, C46, C47, C48, C49, C50, C51, C52,
                       C53, C54, C55, C56, C57, C58, C59, C60, C61, C62, C63,
                       C64, C65, C66, C67, C68, C69, C70, C71, C72, C73,
                       C74, C75, C76, C77, C78, C79, C80, C81, C82, C83,
                       C84, C85, C86, C87, C88, C89, C90, C91, C92, C93,
                       C94, C95, C96, C97, C98, C99, C100, C101, C102, C103,
                       C104, C105, C106, C107, C108, C109, C110, C111, C112,
                       C113, C114, C115, C116, C117, C118, C119, C120, C121,
                       C122, C123, C124, C125, C126, C127, C128, C129, C130,
                       C131, C132, C133, C134, C135, C136, C137, C138, C139,
                       C140, C141, C142, C143, C144, C145, C146, C147, C148,
                       C149, C150, C151, C152, C153, C154, C155, C156, C157,
                       C158, C159, C160, C161, C162, C163, C164, C165, C166,
                       C167, C168, C169, C170, C171, C172, C173, C174, C175,
                       C176, C177, C178, C179, C180, C181, C182, C183, C184,
                       C185, C186, C187, C188, C189, C190, C191, C192, C193,
                       C194, C195, C196, C197, C198, C199, C200, C201, C202,
                       C203, C204, C205, C206, C207, C208, C209, C210, C211,
                       C212, C213, C214, C215, C216, C217, C218, C219, C220,
                       C221, C222, C223, C224, C225, C226, C227, C228, C229,
                       C230, C231, C232, C233, C234, C235, C236, C237, C238,
                       C239, C240, C241, C242, C243, C244, C245, C246, C247,
                       C248, C249, C250, C251, C252, C253, C254, C255, C256,
                       C257, C258, C259, C260, C261, C262, C263, C264, C265,
                       C266, C267, C268, C269, C270, C271, C272, C273, C274,
                       C275, C276, C277, C278, C279, C280, C281, C282, C283,
                       C284, C285, C286, C287, C288, C289, C290, C291, C292,
                       C293, C294, C295, C296, C297, C298, C299, C300, C301,
                       C302, C303, C304, C305, C306, C307, C308, C309, C310,
                       C311, C312, C313, C314, C315, C316, C317, C318, C319,
                       C320, C321, C322, C323, C324, C325, C326, C327, C328,
                       C329, C330, C331, C332, C333, C334, C335, C336, C337,
                       C338, C339, C340, C341, C342, C343, C344, C345, C346,
                       C347, C348, C349, C350, C351, C352, C353, C354, C355,
                       C356, C357, C358, C359, C360, C361, C362, C363, C364,
                       C365, C366, C367, C368, C369, C370, C371, C372, C373,
                       C374, C375, C376, C377, C378, C379, C380, C381, C382,
                       C383, C384, C385, C386, C387, C388, C389, C390, C391,
                       C392, C393, C394, C395, C396, C397, C398, C399, C400,
                       C401, C402, C403, C404, C405, C406, C407, C408, C409,
                       C410, C411, C412, C413, C414, C415, C416, C417, C418,
                       C419, C420, C421, C422, C423, C424, C425, C426, C427,
                       C428, C429, C430, C431, C432, C433, C434, C435, C436,
                       C437, C438, C439, C440, C441, C442, C443, C444, C445,
                       C446, C447, C448, C449, C450, C451, C452, C453, C454,
                       C455, C456, C457, C458, C459, C460, C461, C462, C463,
                       C464, C465, C466, C467, C468, C469, C470, C471, C472,
                       C473, C474, C475, C476, C477, C478, C479, C480, C481,
                       C482, C483, C484, C485, C486, C487, C488, C489, C490,
                       C491, C492, C493, C494, C495, C496, C497, C498, C499);

    type Type_1500 is (D0, D1, D2, D3, D4, D5, D6, D7, D8, D9, D10, D11, D12,
                       D13, D14, D15, D16, D17, D18, D19, D20, D21, D22, D23,
                       D24, D25, D26, D27, D28, D29, D30, D31, D32, D33, D34,
                       D35, D36, D37, D38, D39, D40, D41, D42, D43, D44, D45,
                       D46, D47, D48, D49, D50, D51, D52, D53, D54, D55, D56,
                       D57, D58, D59, D60, D61, D62, D63, D64, D65, D66, D67,
                       D68, D69, D70, D71, D72, D73, D74, D75, D76, D77, D78,
                       D79, D80, D81, D82, D83, D84, D85, D86, D87, D88, D89,
                       D90, D91, D92, D93, D94, D95, D96, D97, D98, D99, D100,
                       D101, D102, D103, D104, D105, D106, D107, D108, D109,
                       D110, D111, D112, D113, D114, D115, D116, D117, D118,
                       D119, D120, D121, D122, D123, D124, D125, D126, D127,
                       D128, D129, D130, D131, D132, D133, D134, D135, D136,
                       D137, D138, D139, D140, D141, D142, D143, D144, D145,
                       D146, D147, D148, D149, D150, D151, D152, D153, D154,
                       D155, D156, D157, D158, D159, D160, D161, D162, D163,
                       D164, D165, D166, D167, D168, D169, D170, D171, D172,
                       D173, D174, D175, D176, D177, D178, D179, D180, D181,
                       D182, D183, D184, D185, D186, D187, D188, D189, D190,
                       D191, D192, D193, D194, D195, D196, D197, D198, D199,
                       D200, D201, D202, D203, D204, D205, D206, D207, D208,
                       D209, D210, D211, D212, D213, D214, D215, D216, D217,
                       D218, D219, D220, D221, D222, D223, D224, D225, D226,
                       D227, D228, D229, D230, D231, D232, D233, D234, D235,
                       D236, D237, D238, D239, D240, D241, D242, D243, D244,
                       D245, D246, D247, D248, D249, D250, D251, D252, D253,
                       D254, D255, D256, D257, D258, D259, D260, D261, D262,
                       D263, D264, D265, D266, D267, D268, D269, D270, D271,
                       D272, D273, D274, D275, D276, D277, D278, D279, D280,
                       D281, D282, D283, D284, D285, D286, D287, D288, D289,
                       D290, D291, D292, D293, D294, D295, D296, D297, D298,
                       D299, D300, D301, D302, D303, D304, D305, D306, D307,
                       D308, D309, D310, D311, D312, D313, D314, D315, D316,
                       D317, D318, D319, D320, D321, D322, D323, D324, D325,
                       D326, D327, D328, D329, D330, D331, D332, D333, D334,
                       D335, D336, D337, D338, D339, D340, D341, D342, D343,
                       D344, D345, D346, D347, D348, D349, D350, D351, D352,
                       D353, D354, D355, D356, D357, D358, D359, D360, D361,
                       D362, D363, D364, D365, D366, D367, D368, D369, D370,
                       D371, D372, D373, D374, D375, D376, D377, D378, D379,
                       D380, D381, D382, D383, D384, D385, D386, D387, D388,
                       D389, D390, D391, D392, D393, D394, D395, D396, D397,
                       D398, D399, D400, D401, D402, D403, D404, D405, D406,
                       D407, D408, D409, D410, D411, D412, D413, D414, D415,
                       D416, D417, D418, D419, D420, D421, D422, D423, D424,
                       D425, D426, D427, D428, D429, D430, D431, D432, D433,
                       D434, D435, D436, D437, D438, D439, D440, D441, D442,
                       D443, D444, D445, D446, D447, D448, D449, D450, D451,
                       D452, D453, D454, D455, D456, D457, D458, D459, D460,
                       D461, D462, D463, D464, D465, D466, D467, D468, D469,
                       D470, D471, D472, D473, D474, D475, D476, D477, D478,
                       D479, D480, D481, D482, D483, D484, D485, D486, D487,
                       D488, D489, D490, D491, D492, D493, D494, D495, D496,
                       D497, D498, D499, E0, E1, E2, E3, E4, E5, E6, E7, E8,
                       E9, E10, E11, E12, E13, E14, E15, E16, E17, E18, E19,
                       E20, E21, E22, E23, E24, E25, E26, E27, E28, E29, E30,
                       E31, E32, E33, E34, E35, E36, E37, E38, E39, E40, E41,
                       E42, E43, E44, E45, E46, E47, E48, E49, E50, E51, E52,
                       E53, E54, E55, E56, E57, E58, E59, E60, E61, E62, E63,
                       E64, E65, E66, E67, E68, E69, E70, E71, E72, E73, E74,
                       E75, E76, E77, E78, E79, E80, E81, E82, E83, E84, E85,
                       E86, E87, E88, E89, E90, E91, E92, E93, E94, E95, E96,
                       E97, E98, E99, E100, E101, E102, E103, E104, E105, E106,
                       E107, E108, E109, E110, E111, E112, E113, E114, E115,
                       E116, E117, E118, E119, E120, E121, E122, E123, E124,
                       E125, E126, E127, E128, E129, E130, E131, E132, E133,
                       E134, E135, E136, E137, E138, E139, E140, E141, E142,
                       E143, E144, E145, E146, E147, E148, E149, E150, E151,
                       E152, E153, E154, E155, E156, E157, E158, E159, E160,
                       E161, E162, E163, E164, E165, E166, E167, E168, E169,
                       E170, E171, E172, E173, E174, E175, E176, E177, E178,
                       E179, E180, E181, E182, E183, E184, E185, E186, E187,
                       E188, E189, E190, E191, E192, E193, E194, E195, E196,
                       E197, E198, E199, E200, E201, E202, E203, E204, E205,
                       E206, E207, E208, E209, E210, E211, E212, E213, E214,
                       E215, E216, E217, E218, E219, E220, E221, E222, E223,
                       E224, E225, E226, E227, E228, E229, E230, E231, E232,
                       E233, E234, E235, E236, E237, E238, E239, E240, E241,
                       E242, E243, E244, E245, E246, E247, E248, E249, E250,
                       E251, E252, E253, E254, E255, E256, E257, E258, E259,
                       E260, E261, E262, E263, E264, E265, E266, E267, E268,
                       E269, E270, E271, E272, E273, E274, E275, E276, E277,
                       E278, E279, E280, E281, E282, E283, E284, E285, E286,
                       E287, E288, E289, E290, E291, E292, E293, E294, E295,
                       E296, E297, E298, E299, E300, E301, E302, E303, E304,
                       E305, E306, E307, E308, E309, E310, E311, E312, E313,
                       E314, E315, E316, E317, E318, E319, E320, E321, E322,
                       E323, E324, E325, E326, E327, E328, E329, E330, E331,
                       E332, E333, E334, E335, E336, E337, E338, E339, E340,
                       E341, E342, E343, E344, E345, E346, E347, E348, E349,
                       E350, E351, E352, E353, E354, E355, E356, E357, E358,
                       E359, E360, E361, E362, E363, E364, E365, E366, E367,
                       E368, E369, E370, E371, E372, E373, E374, E375, E376,
                       E377, E378, E379, E380, E381, E382, E383, E384, E385,
                       E386, E387, E388, E389, E390, E391, E392, E393, E394,
                       E395, E396, E397, E398, E399, E400, E401, E402, E403,
                       E404, E405, E406, E407, E408, E409, E410, E411, E412,
                       E413, E414, E415, E416, E417, E418, E419, E420, E421,
                       E422, E423, E424, E425, E426, E427, E428, E429, E430,
                       E431, E432, E433, E434, E435, E436, E437, E438, E439,
                       E440, E441, E442, E443, E444, E445, E446, E447, E448,
                       E449, E450, E451, E452, E453, E454, E455, E456, E457,
                       E458, E459, E460, E461, E462, E463, E464, E465, E466,
                       E467, E468, E469, E470, E471, E472, E473, E474, E475,
                       E476, E477, E478, E479, E480, E481, E482, E483, E484,
                       E485, E486, E487, E488, E489, E490, E491, E492, E493,
                       E494, E495, E496, E497, E498, E499, F0, F1, F2, F3, F4,
                       F5, F6, F7, F8, F9, F10, F11, F12, F13, F14, F15, F16,
                       F17, F18, F19, F20, F21, F22, F23, F24, F25, F26, F27,
                       F28, F29, F30, F31, F32, F33, F34, F35, F36, F37, F38,
                       F39, F40, F41, F42, F43, F44, F45, F46, F47, F48, F49,
                       F50, F51, F52, F53, F54, F55, F56, F57, F58, F59, F60,
                       F61, F62, F63, F64, F65, F66, F67, F68, F69, F70, F71,
                       F72, F73, F74, F75, F76, F77, F78, F79, F80, F81, F82,
                       F83, F84, F85, F86, F87, F88, F89, F90, F91, F92, F93,
                       F94, F95, F96, F97, F98, F99, F100, F101, F102, F103,
                       F104, F105, F106, F107, F108, F109, F110, F111, F112,
                       F113, F114, F115, F116, F117, F118, F119, F120, F121,
                       F122, F123, F124, F125, F126, F127, F128, F129, F130,
                       F131, F132, F133, F134, F135, F136, F137, F138, F139,
                       F140, F141, F142, F143, F144, F145, F146, F147, F148,
                       F149, F150, F151, F152, F153, F154, F155, F156, F157,
                       F158, F159, F160, F161, F162, F163, F164, F165, F166,
                       F167, F168, F169, F170, F171, F172, F173, F174, F175,
                       F176, F177, F178, F179, F180, F181, F182, F183, F184,
                       F185, F186, F187, F188, F189, F190, F191, F192, F193,
                       F194, F195, F196, F197, F198, F199, F200, F201, F202,
                       F203, F204, F205, F206, F207, F208, F209, F210, F211,
                       F212, F213, F214, F215, F216, F217, F218, F219, F220,
                       F221, F222, F223, F224, F225, F226, F227, F228, F229,
                       F230, F231, F232, F233, F234, F235, F236, F237, F238,
                       F239, F240, F241, F242, F243, F244, F245, F246, F247,
                       F248, F249, F250, F251, F252, F253, F254, F255, F256,
                       F257, F258, F259, F260, F261, F262, F263, F264, F265,
                       F266, F267, F268, F269, F270, F271, F272, F273, F274,
                       F275, F276, F277, F278, F279, F280, F281, F282, F283,
                       F284, F285, F286, F287, F288, F289, F290, F291, F292,
                       F293, F294, F295, F296, F297, F298, F299, F300, F301,
                       F302, F303, F304, F305, F306, F307, F308, F309, F310,
                       F311, F312, F313, F314, F315, F316, F317, F318, F319,
                       F320, F321, F322, F323, F324, F325, F326, F327, F328,
                       F329, F330, F331, F332, F333, F334, F335, F336, F337,
                       F338, F339, F340, F341, F342, F343, F344, F345, F346,
                       F347, F348, F349, F350, F351, F352, F353, F354, F355,
                       F356, F357, F358, F359, F360, F361, F362, F363, F364,
                       F365, F366, F367, F368, F369, F370, F371, F372, F373,
                       F374, F375, F376, F377, F378, F379, F380, F381, F382,
                       F383, F384, F385, F386, F387, F388, F389, F390, F391,
                       F392, F393, F394, F395, F396, F397, F398, F399, F400,
                       F401, F402, F403, F404, F405, F406, F407, F408, F409,
                       F410, F411, F412, F413, F414, F415, F416, F417, F418,
                       F419, F420, F421, F422, F423, F424, F425, F426, F427,
                       F428, F429, F430, F431, F432, F433, F434, F435, F436,
                       F437, F438, F439, F440, F441, F442, F443, F444, F445,
                       F446, F447, F448, F449, F450, F451, F452, F453, F454,
                       F455, F456, F457, F458, F459, F460, F461, F462, F463,
                       F464, F465, F466, F467, F468, F469, F470, F471, F472,
                       F473, F474, F475, F476, F477, F478, F479, F480, F481,
                       F482, F483, F484, F485, F486, F487, F488, F489, F490,
                       F491, F492, F493, F494, F495, F496, F497, F498, F499);

    type Type_2000 is (G0, G1, G2, G3, G4, G5, G6, G7, G8, G9, G10, G11, G12,
                       G13, G14, G15, G16, G17, G18, G19, G20, G21, G22, G23,
                       G24, G25, G26, G27, G28, G29, G30, G31, G32, G33, G34,
                       G35, G36, G37, G38, G39, G40, G41, G42, G43, G44, G45,
                       G46, G47, G48, G49, G50, G51, G52, G53, G54, G55, G56,
                       G57, G58, G59, G60, G61, G62, G63, G64, G65, G66, G67,
                       G68, G69, G70, G71, G72, G73, G74, G75, G76, G77, G78,
                       G79, G80, G81, G82, G83, G84, G85, G86, G87, G88, G89,
                       G90, G91, G92, G93, G94, G95, G96, G97, G98, G99, G100,
                       G101, G102, G103, G104, G105, G106, G107, G108, G109,
                       G110, G111, G112, G113, G114, G115, G116, G117, G118,
                       G119, G120, G121, G122, G123, G124, G125, G126, G127,
                       G128, G129, G130, G131, G132, G133, G134, G135, G136,
                       G137, G138, G139, G140, G141, G142, G143, G144, G145,
                       G146, G147, G148, G149, G150, G151, G152, G153, G154,
                       G155, G156, G157, G158, G159, G160, G161, G162, G163,
                       G164, G165, G166, G167, G168, G169, G170, G171, G172,
                       G173, G174, G175, G176, G177, G178, G179, G180, G181,
                       G182, G183, G184, G185, G186, G187, G188, G189, G190,
                       G191, G192, G193, G194, G195, G196, G197, G198, G199,
                       G200, G201, G202, G203, G204, G205, G206, G207, G208,
                       G209, G210, G211, G212, G213, G214, G215, G216, G217,
                       G218, G219, G220, G221, G222, G223, G224, G225, G226,
                       G227, G228, G229, G230, G231, G232, G233, G234, G235,
                       G236, G237, G238, G239, G240, G241, G242, G243, G244,
                       G245, G246, G247, G248, G249, G250, G251, G252, G253,
                       G254, G255, G256, G257, G258, G259, G260, G261, G262,
                       G263, G264, G265, G266, G267, G268, G269, G270, G271,
                       G272, G273, G274, G275, G276, G277, G278, G279, G280,
                       G281, G282, G283, G284, G285, G286, G287, G288, G289,
                       G290, G291, G292, G293, G294, G295, G296, G297, G298,
                       G299, G300, G301, G302, G303, G304, G305, G306, G307,
                       G308, G309, G310, G311, G312, G313, G314, G315, G316,
                       G317, G318, G319, G320, G321, G322, G323, G324, G325,
                       G326, G327, G328, G329, G330, G331, G332, G333, G334,
                       G335, G336, G337, G338, G339, G340, G341, G342, G343,
                       G344, G345, G346, G347, G348, G349, G350, G351, G352,
                       G353, G354, G355, G356, G357, G358, G359, G360, G361,
                       G362, G363, G364, G365, G366, G367, G368, G369, G370,
                       G371, G372, G373, G374, G375, G376, G377, G378, G379,
                       G380, G381, G382, G383, G384, G385, G386, G387, G388,
                       G389, G390, G391, G392, G393, G394, G395, G396, G397,
                       G398, G399, G400, G401, G402, G403, G404, G405, G406,
                       G407, G408, G409, G410, G411, G412, G413, G414, G415,
                       G416, G417, G418, G419, G420, G421, G422, G423, G424,
                       G425, G426, G427, G428, G429, G430, G431, G432, G433,
                       G434, G435, G436, G437, G438, G439, G440, G441, G442,
                       G443, G444, G445, G446, G447, G448, G449, G450, G451,
                       G452, G453, G454, G455, G456, G457, G458, G459, G460,
                       G461, G462, G463, G464, G465, G466, G467, G468, G469,
                       G470, G471, G472, G473, G474, G475, G476, G477, G478,
                       G479, G480, G481, G482, G483, G484, G485, G486, G487,
                       G488, G489, G490, G491, G492, G493, G494, G495, G496,
                       G497, G498, G499, H0, H1, H2, H3, H4, H5, H6, H7, H8,
                       H9, H10, H11, H12, H13, H14, H15, H16, H17, H18, H19,
                       H20, H21, H22, H23, H24, H25, H26, H27, H28, H29, H30,
                       H31, H32, H33, H34, H35, H36, H37, H38, H39, H40, H41,
                       H42, H43, H44, H45, H46, H47, H48, H49, H50, H51, H52,
                       H53, H54, H55, H56, H57, H58, H59, H60, H61, H62, H63,
                       H64, H65, H66, H67, H68, H69, H70, H71, H72, H73, H74,
                       H75, H76, H77, H78, H79, H80, H81, H82, H83, H84, H85,
                       H86, H87, H88, H89, H90, H91, H92, H93, H94, H95, H96,
                       H97, H98, H99, H100, H101, H102, H103, H104, H105,
                       H106, H107, H108, H109, H110, H111, H112, H113, H114,
                       H115, H116, H117, H118, H119, H120, H121, H122, H123,
                       H124, H125, H126, H127, H128, H129, H130, H131, H132,
                       H133, H134, H135, H136, H137, H138, H139, H140, H141,
                       H142, H143, H144, H145, H146, H147, H148, H149, H150,
                       H151, H152, H153, H154, H155, H156, H157, H158, H159,
                       H160, H161, H162, H163, H164, H165, H166, H167, H168,
                       H169, H170, H171, H172, H173, H174, H175, H176, H177,
                       H178, H179, H180, H181, H182, H183, H184, H185, H186,
                       H187, H188, H189, H190, H191, H192, H193, H194, H195,
                       H196, H197, H198, H199, H200, H201, H202, H203, H204,
                       H205, H206, H207, H208, H209, H210, H211, H212, H213,
                       H214, H215, H216, H217, H218, H219, H220, H221, H222,
                       H223, H224, H225, H226, H227, H228, H229, H230, H231,
                       H232, H233, H234, H235, H236, H237, H238, H239, H240,
                       H241, H242, H243, H244, H245, H246, H247, H248, H249,
                       H250, H251, H252, H253, H254, H255, H256, H257, H258,
                       H259, H260, H261, H262, H263, H264, H265, H266, H267,
                       H268, H269, H270, H271, H272, H273, H274, H275, H276,
                       H277, H278, H279, H280, H281, H282, H283, H284, H285,
                       H286, H287, H288, H289, H290, H291, H292, H293, H294,
                       H295, H296, H297, H298, H299, H300, H301, H302, H303,
                       H304, H305, H306, H307, H308, H309, H310, H311, H312,
                       H313, H314, H315, H316, H317, H318, H319, H320, H321,
                       H322, H323, H324, H325, H326, H327, H328, H329, H330,
                       H331, H332, H333, H334, H335, H336, H337, H338, H339,
                       H340, H341, H342, H343, H344, H345, H346, H347, H348,
                       H349, H350, H351, H352, H353, H354, H355, H356, H357,
                       H358, H359, H360, H361, H362, H363, H364, H365, H366,
                       H367, H368, H369, H370, H371, H372, H373, H374, H375,
                       H376, H377, H378, H379, H380, H381, H382, H383, H384,
                       H385, H386, H387, H388, H389, H390, H391, H392, H393,
                       H394, H395, H396, H397, H398, H399, H400, H401, H402,
                       H403, H404, H405, H406, H407, H408, H409, H410, H411,
                       H412, H413, H414, H415, H416, H417, H418, H419, H420,
                       H421, H422, H423, H424, H425, H426, H427, H428, H429,
                       H430, H431, H432, H433, H434, H435, H436, H437, H438,
                       H439, H440, H441, H442, H443, H444, H445, H446, H447,
                       H448, H449, H450, H451, H452, H453, H454, H455, H456,
                       H457, H458, H459, H460, H461, H462, H463, H464, H465,
                       H466, H467, H468, H469, H470, H471, H472, H473, H474,
                       H475, H476, H477, H478, H479, H480, H481, H482, H483,
                       H484, H485, H486, H487, H488, H489, H490, H491, H492,
                       H493, H494, H495, H496, H497, H498, H499, I0, I1, I2,
                       I3, I4, I5, I6, I7, I8, I9, I10, I11, I12, I13, I14,
                       I15, I16, I17, I18, I19, I20, I21, I22, I23, I24, I25,
                       I26, I27, I28, I29, I30, I31, I32, I33, I34, I35, I36,
                       I37, I38, I39, I40, I41, I42, I43, I44, I45, I46, I47,
                       I48, I49, I50, I51, I52, I53, I54, I55, I56, I57, I58,
                       I59, I60, I61, I62, I63, I64, I65, I66, I67, I68, I69,
                       I70, I71, I72, I73, I74, I75, I76, I77, I78, I79, I80,
                       I81, I82, I83, I84, I85, I86, I87, I88, I89, I90, I91,
                       I92, I93, I94, I95, I96, I97, I98, I99, I100, I101,
                       I102, I103, I104, I105, I106, I107, I108, I109, I110,
                       I111, I112, I113, I114, I115, I116, I117, I118, I119,
                       I120, I121, I122, I123, I124, I125, I126, I127, I128,
                       I129, I130, I131, I132, I133, I134, I135, I136, I137,
                       I138, I139, I140, I141, I142, I143, I144, I145, I146,
                       I147, I148, I149, I150, I151, I152, I153, I154, I155,
                       I156, I157, I158, I159, I160, I161, I162, I163, I164,
                       I165, I166, I167, I168, I169, I170, I171, I172, I173,
                       I174, I175, I176, I177, I178, I179, I180, I181, I182,
                       I183, I184, I185, I186, I187, I188, I189, I190, I191,
                       I192, I193, I194, I195, I196, I197, I198, I199, I200,
                       I201, I202, I203, I204, I205, I206, I207, I208, I209,
                       I210, I211, I212, I213, I214, I215, I216, I217, I218,
                       I219, I220, I221, I222, I223, I224, I225, I226, I227,
                       I228, I229, I230, I231, I232, I233, I234, I235, I236,
                       I237, I238, I239, I240, I241, I242, I243, I244, I245,
                       I246, I247, I248, I249, I250, I251, I252, I253, I254,
                       I255, I256, I257, I258, I259, I260, I261, I262, I263,
                       I264, I265, I266, I267, I268, I269, I270, I271, I272,
                       I273, I274, I275, I276, I277, I278, I279, I280, I281,
                       I282, I283, I284, I285, I286, I287, I288, I289, I290,
                       I291, I292, I293, I294, I295, I296, I297, I298, I299,
                       I300, I301, I302, I303, I304, I305, I306, I307, I308,
                       I309, I310, I311, I312, I313, I314, I315, I316, I317,
                       I318, I319, I320, I321, I322, I323, I324, I325, I326,
                       I327, I328, I329, I330, I331, I332, I333, I334, I335,
                       I336, I337, I338, I339, I340, I341, I342, I343, I344,
                       I345, I346, I347, I348, I349, I350, I351, I352, I353,
                       I354, I355, I356, I357, I358, I359, I360, I361, I362,
                       I363, I364, I365, I366, I367, I368, I369, I370, I371,
                       I372, I373, I374, I375, I376, I377, I378, I379, I380,
                       I381, I382, I383, I384, I385, I386, I387, I388, I389,
                       I390, I391, I392, I393, I394, I395, I396, I397, I398,
                       I399, I400, I401, I402, I403, I404, I405, I406, I407,
                       I408, I409, I410, I411, I412, I413, I414, I415, I416,
                       I417, I418, I419, I420, I421, I422, I423, I424, I425,
                       I426, I427, I428, I429, I430, I431, I432, I433, I434,
                       I435, I436, I437, I438, I439, I440, I441, I442, I443,
                       I444, I445, I446, I447, I448, I449, I450, I451, I452,
                       I453, I454, I455, I456, I457, I458, I459, I460, I461,
                       I462, I463, I464, I465, I466, I467, I468, I469, I470,
                       I471, I472, I473, I474, I475, I476, I477, I478, I479,
                       I480, I481, I482, I483, I484, I485, I486, I487, I488,
                       I489, I490, I491, I492, I493, I494, I495, I496, I497,
                       I498, I499, J0, J1, J2, J3, J4, J5, J6, J7, J8, J9,
                       J10, J11, J12, J13, J14, J15, J16, J17, J18, J19, J20,
                       J21, J22, J23, J24, J25, J26, J27, J28, J29, J30, J31,
                       J32, J33, J34, J35, J36, J37, J38, J39, J40, J41, J42,
                       J43, J44, J45, J46, J47, J48, J49, J50, J51, J52, J53,
                       J54, J55, J56, J57, J58, J59, J60, J61, J62, J63,
                       J64, J65, J66, J67, J68, J69, J70, J71, J72, J73,
                       J74, J75, J76, J77, J78, J79, J80, J81, J82, J83,
                       J84, J85, J86, J87, J88, J89, J90, J91, J92, J93,
                       J94, J95, J96, J97, J98, J99, J100, J101, J102, J103,
                       J104, J105, J106, J107, J108, J109, J110, J111, J112,
                       J113, J114, J115, J116, J117, J118, J119, J120, J121,
                       J122, J123, J124, J125, J126, J127, J128, J129, J130,
                       J131, J132, J133, J134, J135, J136, J137, J138, J139,
                       J140, J141, J142, J143, J144, J145, J146, J147, J148,
                       J149, J150, J151, J152, J153, J154, J155, J156, J157,
                       J158, J159, J160, J161, J162, J163, J164, J165, J166,
                       J167, J168, J169, J170, J171, J172, J173, J174, J175,
                       J176, J177, J178, J179, J180, J181, J182, J183, J184,
                       J185, J186, J187, J188, J189, J190, J191, J192, J193,
                       J194, J195, J196, J197, J198, J199, J200, J201, J202,
                       J203, J204, J205, J206, J207, J208, J209, J210, J211,
                       J212, J213, J214, J215, J216, J217, J218, J219, J220,
                       J221, J222, J223, J224, J225, J226, J227, J228, J229,
                       J230, J231, J232, J233, J234, J235, J236, J237, J238,
                       J239, J240, J241, J242, J243, J244, J245, J246, J247,
                       J248, J249, J250, J251, J252, J253, J254, J255, J256,
                       J257, J258, J259, J260, J261, J262, J263, J264, J265,
                       J266, J267, J268, J269, J270, J271, J272, J273, J274,
                       J275, J276, J277, J278, J279, J280, J281, J282, J283,
                       J284, J285, J286, J287, J288, J289, J290, J291, J292,
                       J293, J294, J295, J296, J297, J298, J299, J300, J301,
                       J302, J303, J304, J305, J306, J307, J308, J309, J310,
                       J311, J312, J313, J314, J315, J316, J317, J318, J319,
                       J320, J321, J322, J323, J324, J325, J326, J327, J328,
                       J329, J330, J331, J332, J333, J334, J335, J336, J337,
                       J338, J339, J340, J341, J342, J343, J344, J345, J346,
                       J347, J348, J349, J350, J351, J352, J353, J354, J355,
                       J356, J357, J358, J359, J360, J361, J362, J363, J364,
                       J365, J366, J367, J368, J369, J370, J371, J372, J373,
                       J374, J375, J376, J377, J378, J379, J380, J381, J382,
                       J383, J384, J385, J386, J387, J388, J389, J390, J391,
                       J392, J393, J394, J395, J396, J397, J398, J399, J400,
                       J401, J402, J403, J404, J405, J406, J407, J408, J409,
                       J410, J411, J412, J413, J414, J415, J416, J417, J418,
                       J419, J420, J421, J422, J423, J424, J425, J426, J427,
                       J428, J429, J430, J431, J432, J433, J434, J435, J436,
                       J437, J438, J439, J440, J441, J442, J443, J444, J445,
                       J446, J447, J448, J449, J450, J451, J452, J453, J454,
                       J455, J456, J457, J458, J459, J460, J461, J462, J463,
                       J464, J465, J466, J467, J468, J469, J470, J471, J472,
                       J473, J474, J475, J476, J477, J478, J479, J480, J481,
                       J482, J483, J484, J485, J486, J487, J488, J489, J490,
                       J491, J492, J493, J494, J495, J496, J497, J498, J499);

end Compp;