home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / space / software / src / detest.for < prev    next >
Encoding:
Text File  |  1993-06-12  |  48.6 KB  |  1,668 lines
  1. C*****************************************************************************
  2. C
  3. C_TITLE DETEST - Test performance of decompression routines.
  4. C
  5. C_DESCR The DETEST program tests the performance of the decompression
  6. C       subroutines. The fortran versions of the decompression subroutines 
  7. C       were tested using the VAX/VMS FORTRAN 77 version 4.8 compiler, and
  8. C       Microsoft Fortran versions V3.31 and V4.01 comilers. Because
  9. C       of differences of Fortran language compilers among different 
  10. C       operating systems, there is no assurance that the decompression 
  11. C       routines will correctly function on your system.  If problems occur 
  12. C       while trying to install the decompression software on your system, 
  13. C       this program can be run to verify the performance of the 
  14. C       subroutines.
  15. C
  16. C       The DETEST program has three arrays containing fixed values.  
  17. C       The first array, HIST, contains the values of a first-difference 
  18. C       histogram. This array is passed to the DECMPINIT subroutine for 
  19. C       initialization of the Huffman coding tree.  The second array, 
  20. C       LININ, contains the values of an image-line which has been 
  21. C       compressed. This array is passed to the DECOMPRESS subroutine
  22. C       for decompression of the line. The output of the DECOMPRESS
  23. C       routine is placed in the LINOUT array and is compared, sample
  24. C       by sample, with the LINTST array.  The LINTST array contains
  25. C       the correct values of the decompression subroutine. If there
  26. C       is a mismatch then a failure is reported.
  27. C
  28. C       LINOUT, LINTST, and LININ are defined as CHARACTER*1 arrays
  29. C       so that the elements can be treated as 8-bit bytes. 
  30. C       
  31. C_LIMS  This routine was tested on a VAX/VMS system, a RAINBOW PC,
  32. C       and an IBM PC/XT system. This routine and the decompression
  33. C       routines are totally dependent on a computer system having
  34. C       8-bit byte addressable memory architecture.
  35. C
  36. C_HIST  01-July-1988 Eric Eliason, USGS Flagstaff, original verison
  37. C****************************************************************************
  38.       INTEGER*4 HIST(512)
  39.       INTEGER*4 LENIN,LENOUT,ITEST,IOUT
  40.       CHARACTER*1 LININ(227),LINTST(836),LINOUT(836)
  41. C*****************************************************************************
  42. C IP = logical unit number of output device
  43. C The logical unit number points to terminal output, you may need to
  44. C change this logical unit number for your computer system.
  45. C******************************************************************************
  46.       IP = 6
  47. C****************************************************************************
  48. C Initialize the first-difference histogram
  49. C*****************************************************************************
  50.       HIST(  1)=    12
  51.       HIST(  2)=     6
  52.       HIST(  3)=    13
  53.       HIST(  4)=     3
  54.       HIST(  5)=    13
  55.       HIST(  6)=    15
  56.       HIST(  7)=    13
  57.       HIST(  8)=    49
  58.       HIST(  9)=     8
  59.       HIST( 10)=     7
  60.       HIST( 11)=    13
  61.       HIST( 12)=     8
  62.       HIST( 13)=    16
  63.       HIST( 14)=     4
  64.       HIST( 15)=    17
  65.       HIST( 16)=    33
  66.       HIST( 17)=    13
  67.       HIST( 18)=     8
  68.       HIST( 19)=    11
  69.       HIST( 20)=     3
  70.       HIST( 21)=    26
  71.       HIST( 22)=     4
  72.       HIST( 23)=    15
  73.       HIST( 24)=    42
  74.       HIST( 25)=    19
  75.       HIST( 26)=     6
  76.       HIST( 27)=    19
  77.       HIST( 28)=    12
  78.       HIST( 29)=     3
  79.       HIST( 30)=     4
  80.       HIST( 31)=    19
  81.       HIST( 32)=    10
  82.       HIST( 33)=     7
  83.       HIST( 34)=    11
  84.       HIST( 35)=    13
  85.       HIST( 36)=     3
  86.       HIST( 37)=    21
  87.       HIST( 38)=    11
  88.       HIST( 39)=     3
  89.       HIST( 40)=    45
  90.       HIST( 41)=    14
  91.       HIST( 42)=     6
  92.       HIST( 43)=    14
  93.       HIST( 44)=     8
  94.       HIST( 45)=    15
  95.       HIST( 46)=     8
  96.       HIST( 47)=    13
  97.       HIST( 48)=    43
  98.       HIST( 49)=     2
  99.       HIST( 50)=     7
  100.       HIST( 51)=    15
  101.       HIST( 52)=    18
  102.       HIST( 53)=    11
  103.       HIST( 54)=     3
  104.       HIST( 55)=    13
  105.       HIST( 56)=    14
  106.       HIST( 57)=    14
  107.       HIST( 58)=    11
  108.       HIST( 59)=    10
  109.       HIST( 60)=     5
  110.       HIST( 61)=    14
  111.       HIST( 62)=     6
  112.       HIST( 63)=    12
  113.       HIST( 64)=    50
  114.       HIST( 65)=    15
  115.       HIST( 66)=     5
  116.       HIST( 67)=    15
  117.       HIST( 68)=     4
  118.       HIST( 69)=     7
  119.       HIST( 70)=     5
  120.       HIST( 71)=    16
  121.       HIST( 72)=    33
  122.       HIST( 73)=     9
  123.       HIST( 74)=     5
  124.       HIST( 75)=    15
  125.       HIST( 76)=     4
  126.       HIST( 77)=   436
  127.       HIST( 78)=     7
  128.       HIST( 79)=     4
  129.       HIST( 80)=    22
  130.       HIST( 81)=    20
  131.       HIST( 82)=     8
  132.       HIST( 83)=     4
  133.       HIST( 84)=     7
  134.       HIST( 85)=    15
  135.       HIST( 86)=     4
  136.       HIST( 87)=    14
  137.       HIST( 88)=    23
  138.       HIST( 89)=     5
  139.       HIST( 90)=     3
  140.       HIST( 91)=    15
  141.       HIST( 92)=     9
  142.       HIST( 93)=     4
  143.       HIST( 94)=     6
  144.       HIST( 95)=    13
  145.       HIST( 96)=    29
  146.       HIST( 97)=    17
  147.       HIST( 98)=     5
  148.       HIST( 99)=     4
  149.       HIST(100)=     3
  150.       HIST(101)=    16
  151.       HIST(102)=     6
  152.       HIST(103)=     5
  153.       HIST(104)=    36
  154.       HIST(105)=    32
  155.       HIST(106)=     4
  156.       HIST(107)=    43
  157.       HIST(108)=     3
  158.       HIST(109)=    39
  159.       HIST(110)=     3
  160.       HIST(111)=    53
  161.       HIST(112)=    21
  162.       HIST(113)=    32
  163.       HIST(114)=     3
  164.       HIST(115)=   106
  165.       HIST(116)=     4
  166.       HIST(117)=    78
  167.       HIST(118)=     4
  168.       HIST(119)=    14
  169.       HIST(120)=    32
  170.       HIST(121)=    18
  171.       HIST(122)=     6
  172.       HIST(123)=    10
  173.       HIST(124)=     4
  174.       HIST(125)=    24
  175.       HIST(126)=     3
  176.       HIST(127)=    20
  177.       HIST(128)=    41
  178.       HIST(129)=    14
  179.       HIST(130)=     3
  180.       HIST(131)=    29
  181.       HIST(132)=     4
  182.       HIST(133)=    17
  183.       HIST(134)=     5
  184.       HIST(135)=    15
  185.       HIST(136)=    16
  186.       HIST(137)=    17
  187.       HIST(138)=     5
  188.       HIST(139)=     3
  189.       HIST(140)=     4
  190.       HIST(141)=    17
  191.       HIST(142)=     5
  192.       HIST(143)=     8
  193.       HIST(144)=    28
  194.       HIST(145)=    13
  195.       HIST(146)=     3
  196.       HIST(147)=    14
  197.       HIST(148)=     6
  198.       HIST(149)=     7
  199.       HIST(150)=     7
  200.       HIST(151)=    13
  201.       HIST(152)=    31
  202.       HIST(153)=     6
  203.       HIST(154)=     5
  204.       HIST(155)=    13
  205.       HIST(156)=     4
  206.       HIST(157)=    19
  207.       HIST(158)=     5
  208.       HIST(159)=     4
  209.       HIST(160)=    41
  210.       HIST(161)=    14
  211.       HIST(162)=    10
  212.       HIST(163)=     9
  213.       HIST(164)=     3
  214.       HIST(165)=    14
  215.       HIST(166)=     5
  216.       HIST(167)=    21
  217.       HIST(168)=    44
  218.       HIST(169)=     8
  219.       HIST(170)=     4
  220.       HIST(171)=    14
  221.       HIST(172)=    11
  222.       HIST(173)=     7
  223.       HIST(174)=     6
  224.       HIST(175)=    15
  225.       HIST(176)=     9
  226.       HIST(177)=    20
  227.       HIST(178)=     3
  228.       HIST(179)=     6
  229.       HIST(180)=     5
  230.       HIST(181)=    22
  231.       HIST(182)=     8
  232.       HIST(183)=     9
  233.       HIST(184)=    30
  234.       HIST(185)=    22
  235.       HIST(186)=     3
  236.       HIST(187)=    20
  237.       HIST(188)=    10
  238.       HIST(189)=     3
  239.       HIST(190)=    11
  240.       HIST(191)=    19
  241.       HIST(192)=    39
  242.       HIST(193)=     2
  243.       HIST(194)=    13
  244.       HIST(195)=    13
  245.       HIST(196)=     3
  246.       HIST(197)=    27
  247.       HIST(198)=     8
  248.       HIST(199)=     9
  249.       HIST(200)=    22
  250.       HIST(201)=    16
  251.       HIST(202)=    10
  252.       HIST(203)=     4
  253.       HIST(204)=    11
  254.       HIST(205)=    14
  255.       HIST(206)=    13
  256.       HIST(207)=    21
  257.       HIST(208)=    59
  258.       HIST(209)=     3
  259.       HIST(210)=    25
  260.       HIST(211)=    13
  261.       HIST(212)=    25
  262.       HIST(213)=     8
  263.       HIST(214)=    31
  264.       HIST(215)=    15
  265.       HIST(216)=    72
  266.       HIST(217)=    26
  267.       HIST(218)=    50
  268.       HIST(219)=     6
  269.       HIST(220)=    47
  270.       HIST(221)=    14
  271.       HIST(222)=    71
  272.       HIST(223)=     5
  273.       HIST(224)=   486
  274.       HIST(225)=    17
  275.       HIST(226)=    65
  276.       HIST(227)=    21
  277.       HIST(228)=    59
  278.       HIST(229)=     8
  279.       HIST(230)=    48
  280.       HIST(231)=    20
  281.       HIST(232)=    49
  282.       HIST(233)=    17
  283.       HIST(234)=    66
  284.       HIST(235)=    14
  285.       HIST(236)=    97
  286.       HIST(237)=    20
  287.       HIST(238)=   103
  288.       HIST(239)=     6
  289.       HIST(240)=   155
  290.       HIST(241)=    35
  291.       HIST(242)=   157
  292.       HIST(243)=    15
  293.       HIST(244)=   152
  294.       HIST(245)=    17
  295.       HIST(246)=   247
  296.       HIST(247)=    15
  297.       HIST(248)=   367
  298.       HIST(249)=     8
  299.       HIST(250)=  1147
  300.       HIST(251)=    14
  301.       HIST(252)=  9225
  302.       HIST(253)=    24
  303.       HIST(254)=113488
  304.       HIST(255)=    23
  305.       HIST(256)=405608
  306.       HIST(257)=  1073
  307.       HIST(258)=112576
  308.       HIST(259)=   126
  309.       HIST(260)=  9256
  310.       HIST(261)=    86
  311.       HIST(262)=  1179
  312.       HIST(263)=    94
  313.       HIST(264)=   441
  314.       HIST(265)=   109
  315.       HIST(266)=   347
  316.       HIST(267)=    95
  317.       HIST(268)=   187
  318.       HIST(269)=    10
  319.       HIST(270)=   183
  320.       HIST(271)=     4
  321.       HIST(272)=   148
  322.       HIST(273)=    31
  323.       HIST(274)=   192
  324.       HIST(275)=    92
  325.       HIST(276)=   139
  326.       HIST(277)=    71
  327.       HIST(278)=   298
  328.       HIST(279)=   274
  329.       HIST(280)=   137
  330.       HIST(281)=    14
  331.       HIST(282)=    43
  332.       HIST(283)=    21
  333.       HIST(284)=    40
  334.       HIST(285)=   406
  335.       HIST(286)=    40
  336.       HIST(287)=    20
  337.       HIST(288)=    49
  338.       HIST(289)=    13
  339.       HIST(290)=    67
  340.       HIST(291)=     5
  341.       HIST(292)=    59
  342.       HIST(293)=    17
  343.       HIST(294)=    79
  344.       HIST(295)=     6
  345.       HIST(296)=    72
  346.       HIST(297)=    30
  347.       HIST(298)=    54
  348.       HIST(299)=     6
  349.       HIST(300)=    23
  350.       HIST(301)=    11
  351.       HIST(302)=    19
  352.       HIST(303)=    13
  353.       HIST(304)=    21
  354.       HIST(305)=    23
  355.       HIST(306)=    14
  356.       HIST(307)=    22
  357.       HIST(308)=    19
  358.       HIST(309)=     5
  359.       HIST(310)=    24
  360.       HIST(311)=     4
  361.       HIST(312)=    11
  362.       HIST(313)=    17
  363.       HIST(314)=     6
  364.       HIST(315)=     9
  365.       HIST(316)=     9
  366.       HIST(317)=    28
  367.       HIST(318)=     4
  368.       HIST(319)=     3
  369.       HIST(320)=    24
  370.       HIST(321)=    23
  371.       HIST(322)=    34
  372.       HIST(323)=    19
  373.       HIST(324)=    12
  374.       HIST(325)=     6
  375.       HIST(326)=    10
  376.       HIST(327)=    20
  377.       HIST(328)=    11
  378.       HIST(329)=    12
  379.       HIST(330)=    31
  380.       HIST(331)=   813
  381.       HIST(332)=     8
  382.       HIST(333)=    25
  383.       HIST(334)=     5
  384.       HIST(335)=     6
  385.       HIST(336)=     5
  386.       HIST(337)=    38
  387.       HIST(338)=     9
  388.       HIST(339)=     6
  389.       HIST(340)=    18
  390.       HIST(341)=     6
  391.       HIST(342)=    13
  392.       HIST(343)=    14
  393.       HIST(344)=     4
  394.       HIST(345)=    23
  395.       HIST(346)=     9
  396.       HIST(347)=    24
  397.       HIST(348)=     3
  398.       HIST(349)=    85
  399.       HIST(350)=    94
  400.       HIST(351)=    87
  401.       HIST(352)=    94
  402.       HIST(353)=    99
  403.       HIST(354)=    90
  404.       HIST(355)=    83
  405.       HIST(356)=    85
  406.       HIST(357)=   100
  407.       HIST(358)=    85
  408.       HIST(359)=     3
  409.       HIST(360)=    26
  410.       HIST(361)=     8
  411.       HIST(362)=    22
  412.       HIST(363)=    13
  413.       HIST(364)=     5
  414.       HIST(365)=    13
  415.       HIST(366)=     7
  416.       HIST(367)=    19
  417.       HIST(368)=     7
  418.       HIST(369)=    17
  419.       HIST(370)=    14
  420.       HIST(371)=     3
  421.       HIST(372)=     7
  422.       HIST(373)=    27
  423.       HIST(374)=     6
  424.       HIST(375)=     3
  425.       HIST(376)=     5
  426.       HIST(377)=    21
  427.       HIST(378)=    12
  428.       HIST(379)=    13
  429.       HIST(380)=    14
  430.       HIST(381)=     5
  431.       HIST(382)=     7
  432.       HIST(383)=    14
  433.       HIST(384)=     3
  434.       HIST(385)=    26
  435.       HIST(386)=     7
  436.       HIST(387)=    16
  437.       HIST(388)=     8
  438.       HIST(389)=     8
  439.       HIST(390)=    18
  440.       HIST(391)=     4
  441.       HIST(392)=     3
  442.       HIST(393)=    23
  443.       HIST(394)=    16
  444.       HIST(395)=     6
  445.       HIST(396)=     4
  446.       HIST(397)=    16
  447.       HIST(398)=     5
  448.       HIST(399)=     3
  449.       HIST(400)=    14
  450.       HIST(401)=     4
  451.       HIST(402)=    19
  452.       HIST(403)=    16
  453.       HIST(404)=     4
  454.       HIST(405)=     3
  455.       HIST(406)=     3
  456.       HIST(407)=    15
  457.       HIST(408)=     6
  458.       HIST(409)=    10
  459.       HIST(410)=    21
  460.       HIST(411)=     3
  461.       HIST(412)=     6
  462.       HIST(413)=    15
  463.       HIST(414)=     4
  464.       HIST(415)=     3
  465.       HIST(416)=     8
  466.       HIST(417)=    28
  467.       HIST(418)=     6
  468.       HIST(419)=     8
  469.       HIST(420)=    16
  470.       HIST(421)=     8
  471.       HIST(422)=    10
  472.       HIST(423)=    15
  473.       HIST(424)=     3
  474.       HIST(425)=    26
  475.       HIST(426)=    24
  476.       HIST(427)=    14
  477.       HIST(428)=     3
  478.       HIST(429)=     8
  479.       HIST(430)=    17
  480.       HIST(431)=     5
  481.       HIST(432)=    13
  482.       HIST(433)=    19
  483.       HIST(434)=     3
  484.       HIST(435)=    11
  485.       HIST(436)=     4
  486.       HIST(437)=    17
  487.       HIST(438)=     5
  488.       HIST(439)=     6
  489.       HIST(440)=    15
  490.       HIST(441)=    24
  491.       HIST(442)=    20
  492.       HIST(443)=    15
  493.       HIST(444)=     4
  494.       HIST(445)=     9
  495.       HIST(446)=     4
  496.       HIST(447)=    16
  497.       HIST(448)=     8
  498.       HIST(449)=     3
  499.       HIST(450)=    28
  500.       HIST(451)=    21
  501.       HIST(452)=    13
  502.       HIST(453)=    25
  503.       HIST(454)=    11
  504.       HIST(455)=     3
  505.       HIST(456)=     3
  506.       HIST(457)=    21
  507.       HIST(458)=    17
  508.       HIST(459)=    10
  509.       HIST(460)=    17
  510.       HIST(461)=     4
  511.       HIST(462)=    11
  512.       HIST(463)=    13
  513.       HIST(464)=     9
  514.       HIST(465)=    22
  515.       HIST(466)=    17
  516.       HIST(467)=    25
  517.       HIST(468)=     5
  518.       HIST(469)=    10
  519.       HIST(470)=    24
  520.       HIST(471)=     4
  521.       HIST(472)=    12
  522.       HIST(473)=    25
  523.       HIST(474)=    18
  524.       HIST(475)=     3
  525.       HIST(476)=    13
  526.       HIST(477)=    19
  527.       HIST(478)=    11
  528.       HIST(479)=     9
  529.       HIST(480)=    16
  530.       HIST(481)=     6
  531.       HIST(482)=    34
  532.       HIST(483)=    26
  533.       HIST(484)=     6
  534.       HIST(485)=     8
  535.       HIST(486)=     6
  536.       HIST(487)=    27
  537.       HIST(488)=     3
  538.       HIST(489)=    16
  539.       HIST(490)=    13
  540.       HIST(491)=    11
  541.       HIST(492)=     9
  542.       HIST(493)=    14
  543.       HIST(494)=     5
  544.       HIST(495)=     7
  545.       HIST(496)=     4
  546.       HIST(497)=    26
  547.       HIST(498)=     8
  548.       HIST(499)=     3
  549.       HIST(500)=    17
  550.       HIST(501)=     8
  551.       HIST(502)=    12
  552.       HIST(503)=    13
  553.       HIST(504)=    14
  554.       HIST(505)=     3
  555.       HIST(506)=     3
  556.       HIST(507)=    23
  557.       HIST(508)=     6
  558.       HIST(509)=     4
  559.       HIST(510)=    12
  560.       HIST(511)=     1
  561.       HIST(512)=     0
  562. C****************************************************************************
  563. C Initialize the input compressed line, 
  564. C****************************************************************************
  565.       LENIN =   227
  566.       LININ(  1) = CHAR( 28)
  567.       LININ(  2) = CHAR(234)
  568.       LININ(  3) = CHAR(141)
  569.       LININ(  4) = CHAR( 54)
  570.       LININ(  5) = CHAR( 22)
  571.       LININ(  6) = CHAR(101)
  572.       LININ(  7) = CHAR( 71)
  573.       LININ(  8) = CHAR( 24)
  574.       LININ(  9) = CHAR(198)
  575.       LININ( 10) = CHAR(155)
  576.       LININ( 11) = CHAR(230)
  577.       LININ( 12) = CHAR(203)
  578.       LININ( 13) = CHAR(113)
  579.       LININ( 14) = CHAR( 56)
  580.       LININ( 15) = CHAR(160)
  581.       LININ( 16) = CHAR( 31)
  582.       LININ( 17) = CHAR( 30)
  583.       LININ( 18) = CHAR( 50)
  584.       LININ( 19) = CHAR(193)
  585.       LININ( 20) = CHAR(142)
  586.       LININ( 21) = CHAR(151)
  587.       LININ( 22) = CHAR( 45)
  588.       LININ( 23) = CHAR(167)
  589.       LININ( 24) = CHAR( 30)
  590.       LININ( 25) = CHAR(210)
  591.       LININ( 26) = CHAR(218)
  592.       LININ( 27) = CHAR( 92)
  593.       LININ( 28) = CHAR( 82)
  594.       LININ( 29) = CHAR( 84)
  595.       LININ( 30) = CHAR(150)
  596.       LININ( 31) = CHAR( 51)
  597.       LININ( 32) = CHAR( 99)
  598.       LININ( 33) = CHAR(203)
  599.       LININ( 34) = CHAR(250)
  600.       LININ( 35) = CHAR( 25)
  601.       LININ( 36) = CHAR(108)
  602.       LININ( 37) = CHAR( 33)
  603.       LININ( 38) = CHAR(151)
  604.       LININ( 39) = CHAR(149)
  605.       LININ( 40) = CHAR(248)
  606.       LININ( 41) = CHAR( 73)
  607.       LININ( 42) = CHAR(105)
  608.       LININ( 43) = CHAR(114)
  609.       LININ( 44) = CHAR(198)
  610.       LININ( 45) = CHAR(206)
  611.       LININ( 46) = CHAR(151)
  612.       LININ( 47) = CHAR(113)
  613.       LININ( 48) = CHAR(180)
  614.       LININ( 49) = CHAR(143)
  615.       LININ( 50) = CHAR(216)
  616.       LININ( 51) = CHAR(207)
  617.       LININ( 52) = CHAR(142)
  618.       LININ( 53) = CHAR(231)
  619.       LININ( 54) = CHAR( 55)
  620.       LININ( 55) = CHAR(255)
  621.       LININ( 56) = CHAR(105)
  622.       LININ( 57) = CHAR(108)
  623.       LININ( 58) = CHAR(199)
  624.       LININ( 59) = CHAR(203)
  625.       LININ( 60) = CHAR(143)
  626.       LININ( 61) = CHAR(226)
  627.       LININ( 62) = CHAR(162)
  628.       LININ( 63) = CHAR(150)
  629.       LININ( 64) = CHAR( 95)
  630.       LININ( 65) = CHAR(151)
  631.       LININ( 66) = CHAR(184)
  632.       LININ( 67) = CHAR(207)
  633.       LININ( 68) = CHAR(113)
  634.       LININ( 69) = CHAR(205)
  635.       LININ( 70) = CHAR(149)
  636.       LININ( 71) = CHAR( 38)
  637.       LININ( 72) = CHAR(205)
  638.       LININ( 73) = CHAR(150)
  639.       LININ( 74) = CHAR( 89)
  640.       LININ( 75) = CHAR( 82)
  641.       LININ( 76) = CHAR( 88)
  642.       LININ( 77) = CHAR(160)
  643.       LININ( 78) = CHAR(216)
  644.       LININ( 79) = CHAR(231)
  645.       LININ( 80) = CHAR(184)
  646.       LININ( 81) = CHAR(210)
  647.       LININ( 82) = CHAR(247)
  648.       LININ( 83) = CHAR(255)
  649.       LININ( 84) = CHAR( 96)
  650.       LININ( 85) = CHAR(163)
  651.       LININ( 86) = CHAR( 47)
  652.       LININ( 87) = CHAR( 82)
  653.       LININ( 88) = CHAR(108)
  654.       LININ( 89) = CHAR(102)
  655.       LININ( 90) = CHAR(193)
  656.       LININ( 91) = CHAR( 67)
  657.       LININ( 92) = CHAR(130)
  658.       LININ( 93) = CHAR(139)
  659.       LININ( 94) = CHAR(143)
  660.       LININ( 95) = CHAR( 47)
  661.       LININ( 96) = CHAR(207)
  662.       LININ( 97) = CHAR(221)
  663.       LININ( 98) = CHAR(165)
  664.       LININ( 99) = CHAR(199)
  665.       LININ(100) = CHAR( 30)
  666.       LININ(101) = CHAR( 94)
  667.       LININ(102) = CHAR(201)
  668.       LININ(103) = CHAR(113)
  669.       LININ(104) = CHAR(180)
  670.       LININ(105) = CHAR(238)
  671.       LININ(106) = CHAR( 42)
  672.       LININ(107) = CHAR( 71)
  673.       LININ(108) = CHAR(101)
  674.       LININ(109) = CHAR(145)
  675.       LININ(110) = CHAR(218)
  676.       LININ(111) = CHAR( 95)
  677.       LININ(112) = CHAR(188)
  678.       LININ(113) = CHAR(220)
  679.       LININ(114) = CHAR( 31)
  680.       LININ(115) = CHAR( 84)
  681.       LININ(116) = CHAR( 46)
  682.       LININ(117) = CHAR(109)
  683.       LININ(118) = CHAR( 47)
  684.       LININ(119) = CHAR(234)
  685.       LININ(120) = CHAR(165)
  686.       LININ(121) = CHAR(138)
  687.       LININ(122) = CHAR( 77)
  688.       LININ(123) = CHAR(246)
  689.       LININ(124) = CHAR(148)
  690.       LININ(125) = CHAR(208)
  691.       LININ(126) = CHAR(203)
  692.       LININ(127) = CHAR( 42)
  693.       LININ(128) = CHAR( 42)
  694.       LININ(129) = CHAR( 78)
  695.       LININ(130) = CHAR(226)
  696.       LININ(131) = CHAR(129)
  697.       LININ(132) = CHAR(218)
  698.       LININ(133) = CHAR( 93)
  699.       LININ(134) = CHAR(165)
  700.       LININ(135) = CHAR(199)
  701.       LININ(136) = CHAR(105)
  702.       LININ(137) = CHAR(168)
  703.       LININ(138) = CHAR(101)
  704.       LININ(139) = CHAR( 73)
  705.       LININ(140) = CHAR(227)
  706.       LININ(141) = CHAR(248)
  707.       LININ(142) = CHAR(161)
  708.       LININ(143) = CHAR(166)
  709.       LININ(144) = CHAR(210)
  710.       LININ(145) = CHAR(161)
  711.       LININ(146) = CHAR( 67)
  712.       LININ(147) = CHAR(142)
  713.       LININ(148) = CHAR(149)
  714.       LININ(149) = CHAR(118)
  715.       LININ(150) = CHAR( 70)
  716.       LININ(151) = CHAR(151)
  717.       LININ(152) = CHAR( 20)
  718.       LININ(153) = CHAR( 11)
  719.       LININ(154) = CHAR( 73)
  720.       LININ(155) = CHAR( 99)
  721.       LININ(156) = CHAR( 31)
  722.       LININ(157) = CHAR( 26)
  723.       LININ(158) = CHAR( 91)
  724.       LININ(159) = CHAR( 96)
  725.       LININ(160) = CHAR(198)
  726.       LININ(161) = CHAR( 90)
  727.       LININ(162) = CHAR( 92)
  728.       LININ(163) = CHAR( 83)
  729.       LININ(164) = CHAR( 75)
  730.       LININ(165) = CHAR(246)
  731.       LININ(166) = CHAR( 88)
  732.       LININ(167) = CHAR( 54)
  733.       LININ(168) = CHAR( 22)
  734.       LININ(169) = CHAR(210)
  735.       LININ(170) = CHAR(199)
  736.       LININ(171) = CHAR(216)
  737.       LININ(172) = CHAR(198)
  738.       LININ(173) = CHAR(118)
  739.       LININ(174) = CHAR(118)
  740.       LININ(175) = CHAR(113)
  741.       LININ(176) = CHAR(140)
  742.       LININ(177) = CHAR(108)
  743.       LININ(178) = CHAR(216)
  744.       LININ(179) = CHAR( 63)
  745.       LININ(180) = CHAR(101)
  746.       LININ(181) = CHAR(162)
  747.       LININ(182) = CHAR(205)
  748.       LININ(183) = CHAR( 12)
  749.       LININ(184) = CHAR(110)
  750.       LININ(185) = CHAR(184)
  751.       LININ(186) = CHAR(127)
  752.       LININ(187) = CHAR(255)
  753.       LININ(188) = CHAR(255)
  754.       LININ(189) = CHAR(255)
  755.       LININ(190) = CHAR(255)
  756.       LININ(191) = CHAR(255)
  757.       LININ(192) = CHAR(255)
  758.       LININ(193) = CHAR(255)
  759.       LININ(194) = CHAR(255)
  760.       LININ(195) = CHAR(255)
  761.       LININ(196) = CHAR(255)
  762.       LININ(197) = CHAR(255)
  763.       LININ(198) = CHAR(255)
  764.       LININ(199) = CHAR(255)
  765.       LININ(200) = CHAR(255)
  766.       LININ(201) = CHAR(255)
  767.       LININ(202) = CHAR(255)
  768.       LININ(203) = CHAR(255)
  769.       LININ(204) = CHAR(255)
  770.       LININ(205) = CHAR(254)
  771.       LININ(206) = CHAR(133)
  772.       LININ(207) = CHAR( 64)
  773.       LININ(208) = CHAR( 93)
  774.       LININ(209) = CHAR( 22)
  775.       LININ(210) = CHAR(188)
  776.       LININ(211) = CHAR( 82)
  777.       LININ(212) = CHAR( 58)
  778.       LININ(213) = CHAR(241)
  779.       LININ(214) = CHAR( 72)
  780.       LININ(215) = CHAR(250)
  781.       LININ(216) = CHAR(252)
  782.       LININ(217) = CHAR(148)
  783.       LININ(218) = CHAR(176)
  784.       LININ(219) = CHAR(255)
  785.       LININ(220) = CHAR(255)
  786.       LININ(221) = CHAR(241)
  787.       LININ(222) = CHAR( 29)
  788.       LININ(223) = CHAR( 29)
  789.       LININ(224) = CHAR(124)
  790.       LININ(225) = CHAR(100)
  791.       LININ(226) = CHAR( 27)
  792.       LININ(227) = CHAR(128)
  793. C******************************************************************************
  794. C Initialize the result of the decompressed line. This array is tested
  795. C against the result of the DECOMPRESS subroutine
  796. C******************************************************************************
  797.       LENOUT =   836
  798.       LINTST(  1) = CHAR( 28)
  799.       LINTST(  2) = CHAR( 28)
  800.       LINTST(  3) = CHAR( 28)
  801.       LINTST(  4) = CHAR( 28)
  802.       LINTST(  5) = CHAR( 24)
  803.       LINTST(  6) = CHAR( 24)
  804.       LINTST(  7) = CHAR( 26)
  805.       LINTST(  8) = CHAR( 24)
  806.       LINTST(  9) = CHAR( 28)
  807.       LINTST( 10) = CHAR( 28)
  808.       LINTST( 11) = CHAR( 26)
  809.       LINTST( 12) = CHAR( 28)
  810.       LINTST( 13) = CHAR( 30)
  811.       LINTST( 14) = CHAR( 30)
  812.       LINTST( 15) = CHAR( 28)
  813.       LINTST( 16) = CHAR( 30)
  814.       LINTST( 17) = CHAR( 30)
  815.       LINTST( 18) = CHAR( 30)
  816.       LINTST( 19) = CHAR( 32)
  817.       LINTST( 20) = CHAR( 32)
  818.       LINTST( 21) = CHAR( 28)
  819.       LINTST( 22) = CHAR( 30)
  820.       LINTST( 23) = CHAR( 30)
  821.       LINTST( 24) = CHAR( 30)
  822.       LINTST( 25) = CHAR( 30)
  823.       LINTST( 26) = CHAR( 32)
  824.       LINTST( 27) = CHAR( 30)
  825.       LINTST( 28) = CHAR( 32)
  826.       LINTST( 29) = CHAR( 30)
  827.       LINTST( 30) = CHAR( 32)
  828.       LINTST( 31) = CHAR( 30)
  829.       LINTST( 32) = CHAR( 34)
  830.       LINTST( 33) = CHAR( 34)
  831.       LINTST( 34) = CHAR( 32)
  832.       LINTST( 35) = CHAR( 32)
  833.       LINTST( 36) = CHAR( 32)
  834.       LINTST( 37) = CHAR( 32)
  835.       LINTST( 38) = CHAR( 34)
  836.       LINTST( 39) = CHAR( 34)
  837.       LINTST( 40) = CHAR( 34)
  838.       LINTST( 41) = CHAR( 32)
  839.       LINTST( 42) = CHAR( 34)
  840.       LINTST( 43) = CHAR( 34)
  841.       LINTST( 44) = CHAR( 32)
  842.       LINTST( 45) = CHAR( 30)
  843.       LINTST( 46) = CHAR( 30)
  844.       LINTST( 47) = CHAR( 32)
  845.       LINTST( 48) = CHAR( 36)
  846.       LINTST( 49) = CHAR( 36)
  847.       LINTST( 50) = CHAR( 36)
  848.       LINTST( 51) = CHAR( 38)
  849.       LINTST( 52) = CHAR( 34)
  850.       LINTST( 53) = CHAR( 36)
  851.       LINTST( 54) = CHAR( 38)
  852.       LINTST( 55) = CHAR( 40)
  853.       LINTST( 56) = CHAR( 38)
  854.       LINTST( 57) = CHAR( 38)
  855.       LINTST( 58) = CHAR( 38)
  856.       LINTST( 59) = CHAR( 38)
  857.       LINTST( 60) = CHAR( 40)
  858.       LINTST( 61) = CHAR( 38)
  859.       LINTST( 62) = CHAR( 38)
  860.       LINTST( 63) = CHAR( 38)
  861.       LINTST( 64) = CHAR( 40)
  862.       LINTST( 65) = CHAR( 38)
  863.       LINTST( 66) = CHAR( 40)
  864.       LINTST( 67) = CHAR( 40)
  865.       LINTST( 68) = CHAR( 38)
  866.       LINTST( 69) = CHAR( 40)
  867.       LINTST( 70) = CHAR( 42)
  868.       LINTST( 71) = CHAR( 40)
  869.       LINTST( 72) = CHAR( 42)
  870.       LINTST( 73) = CHAR( 40)
  871.       LINTST( 74) = CHAR( 40)
  872.       LINTST( 75) = CHAR( 44)
  873.       LINTST( 76) = CHAR( 42)
  874.       LINTST( 77) = CHAR( 42)
  875.       LINTST( 78) = CHAR( 44)
  876.       LINTST( 79) = CHAR( 44)
  877.       LINTST( 80) = CHAR( 42)
  878.       LINTST( 81) = CHAR( 40)
  879.       LINTST( 82) = CHAR( 44)
  880.       LINTST( 83) = CHAR( 44)
  881.       LINTST( 84) = CHAR( 44)
  882.       LINTST( 85) = CHAR( 46)
  883.       LINTST( 86) = CHAR( 44)
  884.       LINTST( 87) = CHAR( 44)
  885.       LINTST( 88) = CHAR( 44)
  886.       LINTST( 89) = CHAR( 42)
  887.       LINTST( 90) = CHAR( 46)
  888.       LINTST( 91) = CHAR( 44)
  889.       LINTST( 92) = CHAR( 42)
  890.       LINTST( 93) = CHAR( 46)
  891.       LINTST( 94) = CHAR( 44)
  892.       LINTST( 95) = CHAR( 44)
  893.       LINTST( 96) = CHAR( 46)
  894.       LINTST( 97) = CHAR( 42)
  895.       LINTST( 98) = CHAR( 46)
  896.       LINTST( 99) = CHAR( 42)
  897.       LINTST(100) = CHAR( 46)
  898.       LINTST(101) = CHAR( 44)
  899.       LINTST(102) = CHAR( 46)
  900.       LINTST(103) = CHAR( 44)
  901.       LINTST(104) = CHAR( 46)
  902.       LINTST(105) = CHAR( 46)
  903.       LINTST(106) = CHAR( 46)
  904.       LINTST(107) = CHAR( 44)
  905.       LINTST(108) = CHAR( 46)
  906.       LINTST(109) = CHAR( 44)
  907.       LINTST(110) = CHAR( 44)
  908.       LINTST(111) = CHAR( 44)
  909.       LINTST(112) = CHAR( 46)
  910.       LINTST(113) = CHAR( 46)
  911.       LINTST(114) = CHAR( 44)
  912.       LINTST(115) = CHAR( 44)
  913.       LINTST(116) = CHAR( 44)
  914.       LINTST(117) = CHAR( 44)
  915.       LINTST(118) = CHAR( 44)
  916.       LINTST(119) = CHAR( 44)
  917.       LINTST(120) = CHAR( 36)
  918.       LINTST(121) = CHAR( 20)
  919.       LINTST(122) = CHAR( 12)
  920.       LINTST(123) = CHAR( 20)
  921.       LINTST(124) = CHAR( 40)
  922.       LINTST(125) = CHAR( 44)
  923.       LINTST(126) = CHAR( 46)
  924.       LINTST(127) = CHAR( 46)
  925.       LINTST(128) = CHAR( 44)
  926.       LINTST(129) = CHAR( 48)
  927.       LINTST(130) = CHAR( 46)
  928.       LINTST(131) = CHAR( 46)
  929.       LINTST(132) = CHAR( 48)
  930.       LINTST(133) = CHAR( 48)
  931.       LINTST(134) = CHAR( 46)
  932.       LINTST(135) = CHAR( 48)
  933.       LINTST(136) = CHAR( 46)
  934.       LINTST(137) = CHAR( 44)
  935.       LINTST(138) = CHAR( 46)
  936.       LINTST(139) = CHAR( 46)
  937.       LINTST(140) = CHAR( 46)
  938.       LINTST(141) = CHAR( 46)
  939.       LINTST(142) = CHAR( 50)
  940.       LINTST(143) = CHAR( 48)
  941.       LINTST(144) = CHAR( 48)
  942.       LINTST(145) = CHAR( 46)
  943.       LINTST(146) = CHAR( 46)
  944.       LINTST(147) = CHAR( 48)
  945.       LINTST(148) = CHAR( 46)
  946.       LINTST(149) = CHAR( 44)
  947.       LINTST(150) = CHAR( 48)
  948.       LINTST(151) = CHAR( 50)
  949.       LINTST(152) = CHAR( 48)
  950.       LINTST(153) = CHAR( 48)
  951.       LINTST(154) = CHAR( 48)
  952.       LINTST(155) = CHAR( 48)
  953.       LINTST(156) = CHAR( 48)
  954.       LINTST(157) = CHAR( 46)
  955.       LINTST(158) = CHAR( 48)
  956.       LINTST(159) = CHAR( 46)
  957.       LINTST(160) = CHAR( 48)
  958.       LINTST(161) = CHAR( 48)
  959.       LINTST(162) = CHAR( 48)
  960.       LINTST(163) = CHAR( 48)
  961.       LINTST(164) = CHAR( 48)
  962.       LINTST(165) = CHAR( 48)
  963.       LINTST(166) = CHAR( 50)
  964.       LINTST(167) = CHAR( 48)
  965.       LINTST(168) = CHAR( 48)
  966.       LINTST(169) = CHAR( 46)
  967.       LINTST(170) = CHAR( 46)
  968.       LINTST(171) = CHAR( 48)
  969.       LINTST(172) = CHAR( 48)
  970.       LINTST(173) = CHAR( 48)
  971.       LINTST(174) = CHAR( 48)
  972.       LINTST(175) = CHAR( 50)
  973.       LINTST(176) = CHAR( 50)
  974.       LINTST(177) = CHAR( 50)
  975.       LINTST(178) = CHAR( 48)
  976.       LINTST(179) = CHAR( 48)
  977.       LINTST(180) = CHAR( 48)
  978.       LINTST(181) = CHAR( 48)
  979.       LINTST(182) = CHAR( 48)
  980.       LINTST(183) = CHAR( 48)
  981.       LINTST(184) = CHAR( 48)
  982.       LINTST(185) = CHAR( 48)
  983.       LINTST(186) = CHAR( 48)
  984.       LINTST(187) = CHAR( 48)
  985.       LINTST(188) = CHAR( 46)
  986.       LINTST(189) = CHAR( 50)
  987.       LINTST(190) = CHAR( 48)
  988.       LINTST(191) = CHAR( 46)
  989.       LINTST(192) = CHAR( 48)
  990.       LINTST(193) = CHAR( 48)
  991.       LINTST(194) = CHAR( 48)
  992.       LINTST(195) = CHAR( 50)
  993.       LINTST(196) = CHAR( 48)
  994.       LINTST(197) = CHAR( 48)
  995.       LINTST(198) = CHAR( 48)
  996.       LINTST(199) = CHAR( 48)
  997.       LINTST(200) = CHAR( 50)
  998.       LINTST(201) = CHAR( 50)
  999.       LINTST(202) = CHAR( 48)
  1000.       LINTST(203) = CHAR( 48)
  1001.       LINTST(204) = CHAR( 50)
  1002.       LINTST(205) = CHAR( 48)
  1003.       LINTST(206) = CHAR( 48)
  1004.       LINTST(207) = CHAR( 48)
  1005.       LINTST(208) = CHAR( 48)
  1006.       LINTST(209) = CHAR( 48)
  1007.       LINTST(210) = CHAR( 48)
  1008.       LINTST(211) = CHAR( 50)
  1009.       LINTST(212) = CHAR( 46)
  1010.       LINTST(213) = CHAR( 46)
  1011.       LINTST(214) = CHAR( 48)
  1012.       LINTST(215) = CHAR( 44)
  1013.       LINTST(216) = CHAR( 50)
  1014.       LINTST(217) = CHAR( 48)
  1015.       LINTST(218) = CHAR( 48)
  1016.       LINTST(219) = CHAR( 48)
  1017.       LINTST(220) = CHAR( 48)
  1018.       LINTST(221) = CHAR( 48)
  1019.       LINTST(222) = CHAR( 50)
  1020.       LINTST(223) = CHAR( 50)
  1021.       LINTST(224) = CHAR( 48)
  1022.       LINTST(225) = CHAR( 48)
  1023.       LINTST(226) = CHAR( 48)
  1024.       LINTST(227) = CHAR( 46)
  1025.       LINTST(228) = CHAR( 46)
  1026.       LINTST(229) = CHAR( 48)
  1027.       LINTST(230) = CHAR( 46)
  1028.       LINTST(231) = CHAR( 48)
  1029.       LINTST(232) = CHAR( 48)
  1030.       LINTST(233) = CHAR( 48)
  1031.       LINTST(234) = CHAR( 48)
  1032.       LINTST(235) = CHAR( 48)
  1033.       LINTST(236) = CHAR( 46)
  1034.       LINTST(237) = CHAR( 46)
  1035.       LINTST(238) = CHAR( 48)
  1036.       LINTST(239) = CHAR( 46)
  1037.       LINTST(240) = CHAR( 46)
  1038.       LINTST(241) = CHAR( 48)
  1039.       LINTST(242) = CHAR( 48)
  1040.       LINTST(243) = CHAR( 48)
  1041.       LINTST(244) = CHAR( 46)
  1042.       LINTST(245) = CHAR( 48)
  1043.       LINTST(246) = CHAR( 48)
  1044.       LINTST(247) = CHAR( 44)
  1045.       LINTST(248) = CHAR( 48)
  1046.       LINTST(249) = CHAR( 48)
  1047.       LINTST(250) = CHAR( 46)
  1048.       LINTST(251) = CHAR( 48)
  1049.       LINTST(252) = CHAR( 48)
  1050.       LINTST(253) = CHAR( 48)
  1051.       LINTST(254) = CHAR( 46)
  1052.       LINTST(255) = CHAR( 48)
  1053.       LINTST(256) = CHAR( 48)
  1054.       LINTST(257) = CHAR( 46)
  1055.       LINTST(258) = CHAR( 48)
  1056.       LINTST(259) = CHAR( 48)
  1057.       LINTST(260) = CHAR( 46)
  1058.       LINTST(261) = CHAR( 48)
  1059.       LINTST(262) = CHAR( 48)
  1060.       LINTST(263) = CHAR( 44)
  1061.       LINTST(264) = CHAR( 48)
  1062.       LINTST(265) = CHAR( 46)
  1063.       LINTST(266) = CHAR( 48)
  1064.       LINTST(267) = CHAR( 44)
  1065.       LINTST(268) = CHAR( 46)
  1066.       LINTST(269) = CHAR( 48)
  1067.       LINTST(270) = CHAR( 48)
  1068.       LINTST(271) = CHAR( 48)
  1069.       LINTST(272) = CHAR( 46)
  1070.       LINTST(273) = CHAR( 48)
  1071.       LINTST(274) = CHAR( 46)
  1072.       LINTST(275) = CHAR( 46)
  1073.       LINTST(276) = CHAR( 48)
  1074.       LINTST(277) = CHAR( 48)
  1075.       LINTST(278) = CHAR( 48)
  1076.       LINTST(279) = CHAR( 48)
  1077.       LINTST(280) = CHAR( 48)
  1078.       LINTST(281) = CHAR( 46)
  1079.       LINTST(282) = CHAR( 46)
  1080.       LINTST(283) = CHAR( 48)
  1081.       LINTST(284) = CHAR( 46)
  1082.       LINTST(285) = CHAR( 50)
  1083.       LINTST(286) = CHAR( 48)
  1084.       LINTST(287) = CHAR( 48)
  1085.       LINTST(288) = CHAR( 48)
  1086.       LINTST(289) = CHAR( 46)
  1087.       LINTST(290) = CHAR( 46)
  1088.       LINTST(291) = CHAR( 46)
  1089.       LINTST(292) = CHAR( 46)
  1090.       LINTST(293) = CHAR( 46)
  1091.       LINTST(294) = CHAR( 46)
  1092.       LINTST(295) = CHAR( 46)
  1093.       LINTST(296) = CHAR( 46)
  1094.       LINTST(297) = CHAR( 46)
  1095.       LINTST(298) = CHAR( 46)
  1096.       LINTST(299) = CHAR( 44)
  1097.       LINTST(300) = CHAR( 46)
  1098.       LINTST(301) = CHAR( 48)
  1099.       LINTST(302) = CHAR( 44)
  1100.       LINTST(303) = CHAR( 46)
  1101.       LINTST(304) = CHAR( 46)
  1102.       LINTST(305) = CHAR( 46)
  1103.       LINTST(306) = CHAR( 48)
  1104.       LINTST(307) = CHAR( 48)
  1105.       LINTST(308) = CHAR( 46)
  1106.       LINTST(309) = CHAR( 46)
  1107.       LINTST(310) = CHAR( 46)
  1108.       LINTST(311) = CHAR( 42)
  1109.       LINTST(312) = CHAR( 46)
  1110.       LINTST(313) = CHAR( 46)
  1111.       LINTST(314) = CHAR( 44)
  1112.       LINTST(315) = CHAR( 46)
  1113.       LINTST(316) = CHAR( 44)
  1114.       LINTST(317) = CHAR( 46)
  1115.       LINTST(318) = CHAR( 46)
  1116.       LINTST(319) = CHAR( 46)
  1117.       LINTST(320) = CHAR( 44)
  1118.       LINTST(321) = CHAR( 46)
  1119.       LINTST(322) = CHAR( 48)
  1120.       LINTST(323) = CHAR( 44)
  1121.       LINTST(324) = CHAR( 46)
  1122.       LINTST(325) = CHAR( 44)
  1123.       LINTST(326) = CHAR( 44)
  1124.       LINTST(327) = CHAR( 46)
  1125.       LINTST(328) = CHAR( 48)
  1126.       LINTST(329) = CHAR( 44)
  1127.       LINTST(330) = CHAR( 46)
  1128.       LINTST(331) = CHAR( 46)
  1129.       LINTST(332) = CHAR( 44)
  1130.       LINTST(333) = CHAR( 44)
  1131.       LINTST(334) = CHAR( 46)
  1132.       LINTST(335) = CHAR( 44)
  1133.       LINTST(336) = CHAR( 44)
  1134.       LINTST(337) = CHAR( 44)
  1135.       LINTST(338) = CHAR( 46)
  1136.       LINTST(339) = CHAR( 46)
  1137.       LINTST(340) = CHAR( 44)
  1138.       LINTST(341) = CHAR( 44)
  1139.       LINTST(342) = CHAR( 44)
  1140.       LINTST(343) = CHAR( 44)
  1141.       LINTST(344) = CHAR( 44)
  1142.       LINTST(345) = CHAR( 46)
  1143.       LINTST(346) = CHAR( 46)
  1144.       LINTST(347) = CHAR( 46)
  1145.       LINTST(348) = CHAR( 46)
  1146.       LINTST(349) = CHAR( 46)
  1147.       LINTST(350) = CHAR( 46)
  1148.       LINTST(351) = CHAR( 46)
  1149.       LINTST(352) = CHAR( 44)
  1150.       LINTST(353) = CHAR( 44)
  1151.       LINTST(354) = CHAR( 42)
  1152.       LINTST(355) = CHAR( 46)
  1153.       LINTST(356) = CHAR( 44)
  1154.       LINTST(357) = CHAR( 44)
  1155.       LINTST(358) = CHAR( 46)
  1156.       LINTST(359) = CHAR( 44)
  1157.       LINTST(360) = CHAR( 44)
  1158.       LINTST(361) = CHAR( 46)
  1159.       LINTST(362) = CHAR( 44)
  1160.       LINTST(363) = CHAR( 44)
  1161.       LINTST(364) = CHAR( 44)
  1162.       LINTST(365) = CHAR( 46)
  1163.       LINTST(366) = CHAR( 46)
  1164.       LINTST(367) = CHAR( 44)
  1165.       LINTST(368) = CHAR( 44)
  1166.       LINTST(369) = CHAR( 44)
  1167.       LINTST(370) = CHAR( 42)
  1168.       LINTST(371) = CHAR( 44)
  1169.       LINTST(372) = CHAR( 44)
  1170.       LINTST(373) = CHAR( 46)
  1171.       LINTST(374) = CHAR( 46)
  1172.       LINTST(375) = CHAR( 44)
  1173.       LINTST(376) = CHAR( 44)
  1174.       LINTST(377) = CHAR( 46)
  1175.       LINTST(378) = CHAR( 44)
  1176.       LINTST(379) = CHAR( 42)
  1177.       LINTST(380) = CHAR( 46)
  1178.       LINTST(381) = CHAR( 46)
  1179.       LINTST(382) = CHAR( 46)
  1180.       LINTST(383) = CHAR( 44)
  1181.       LINTST(384) = CHAR( 44)
  1182.       LINTST(385) = CHAR( 46)
  1183.       LINTST(386) = CHAR( 42)
  1184.       LINTST(387) = CHAR( 42)
  1185.       LINTST(388) = CHAR( 44)
  1186.       LINTST(389) = CHAR( 44)
  1187.       LINTST(390) = CHAR( 46)
  1188.       LINTST(391) = CHAR( 44)
  1189.       LINTST(392) = CHAR( 44)
  1190.       LINTST(393) = CHAR( 42)
  1191.       LINTST(394) = CHAR( 44)
  1192.       LINTST(395) = CHAR( 44)
  1193.       LINTST(396) = CHAR( 42)
  1194.       LINTST(397) = CHAR( 44)
  1195.       LINTST(398) = CHAR( 44)
  1196.       LINTST(399) = CHAR( 46)
  1197.       LINTST(400) = CHAR( 44)
  1198.       LINTST(401) = CHAR( 44)
  1199.       LINTST(402) = CHAR( 42)
  1200.       LINTST(403) = CHAR( 46)
  1201.       LINTST(404) = CHAR( 44)
  1202.       LINTST(405) = CHAR( 44)
  1203.       LINTST(406) = CHAR( 44)
  1204.       LINTST(407) = CHAR( 44)
  1205.       LINTST(408) = CHAR( 44)
  1206.       LINTST(409) = CHAR( 42)
  1207.       LINTST(410) = CHAR( 42)
  1208.       LINTST(411) = CHAR( 42)
  1209.       LINTST(412) = CHAR( 44)
  1210.       LINTST(413) = CHAR( 44)
  1211.       LINTST(414) = CHAR( 44)
  1212.       LINTST(415) = CHAR( 42)
  1213.       LINTST(416) = CHAR( 42)
  1214.       LINTST(417) = CHAR( 44)
  1215.       LINTST(418) = CHAR( 46)
  1216.       LINTST(419) = CHAR( 44)
  1217.       LINTST(420) = CHAR( 44)
  1218.       LINTST(421) = CHAR( 44)
  1219.       LINTST(422) = CHAR( 44)
  1220.       LINTST(423) = CHAR( 40)
  1221.       LINTST(424) = CHAR( 40)
  1222.       LINTST(425) = CHAR( 42)
  1223.       LINTST(426) = CHAR( 44)
  1224.       LINTST(427) = CHAR( 44)
  1225.       LINTST(428) = CHAR( 42)
  1226.       LINTST(429) = CHAR( 42)
  1227.       LINTST(430) = CHAR( 44)
  1228.       LINTST(431) = CHAR( 44)
  1229.       LINTST(432) = CHAR( 44)
  1230.       LINTST(433) = CHAR( 42)
  1231.       LINTST(434) = CHAR( 46)
  1232.       LINTST(435) = CHAR( 44)
  1233.       LINTST(436) = CHAR( 44)
  1234.       LINTST(437) = CHAR( 44)
  1235.       LINTST(438) = CHAR( 44)
  1236.       LINTST(439) = CHAR( 44)
  1237.       LINTST(440) = CHAR( 44)
  1238.       LINTST(441) = CHAR( 40)
  1239.       LINTST(442) = CHAR( 40)
  1240.       LINTST(443) = CHAR( 44)
  1241.       LINTST(444) = CHAR( 42)
  1242.       LINTST(445) = CHAR( 44)
  1243.       LINTST(446) = CHAR( 40)
  1244.       LINTST(447) = CHAR( 44)
  1245.       LINTST(448) = CHAR( 44)
  1246.       LINTST(449) = CHAR( 42)
  1247.       LINTST(450) = CHAR( 42)
  1248.       LINTST(451) = CHAR( 42)
  1249.       LINTST(452) = CHAR( 42)
  1250.       LINTST(453) = CHAR( 40)
  1251.       LINTST(454) = CHAR( 44)
  1252.       LINTST(455) = CHAR( 48)
  1253.       LINTST(456) = CHAR( 48)
  1254.       LINTST(457) = CHAR( 40)
  1255.       LINTST(458) = CHAR( 46)
  1256.       LINTST(459) = CHAR( 42)
  1257.       LINTST(460) = CHAR( 44)
  1258.       LINTST(461) = CHAR( 44)
  1259.       LINTST(462) = CHAR( 40)
  1260.       LINTST(463) = CHAR( 44)
  1261.       LINTST(464) = CHAR( 44)
  1262.       LINTST(465) = CHAR( 44)
  1263.       LINTST(466) = CHAR( 42)
  1264.       LINTST(467) = CHAR( 42)
  1265.       LINTST(468) = CHAR( 44)
  1266.       LINTST(469) = CHAR( 40)
  1267.       LINTST(470) = CHAR( 42)
  1268.       LINTST(471) = CHAR( 44)
  1269.       LINTST(472) = CHAR( 42)
  1270.       LINTST(473) = CHAR( 42)
  1271.       LINTST(474) = CHAR( 40)
  1272.       LINTST(475) = CHAR( 44)
  1273.       LINTST(476) = CHAR( 42)
  1274.       LINTST(477) = CHAR( 42)
  1275.       LINTST(478) = CHAR( 40)
  1276.       LINTST(479) = CHAR( 44)
  1277.       LINTST(480) = CHAR( 42)
  1278.       LINTST(481) = CHAR( 42)
  1279.       LINTST(482) = CHAR( 44)
  1280.       LINTST(483) = CHAR( 42)
  1281.       LINTST(484) = CHAR( 42)
  1282.       LINTST(485) = CHAR( 40)
  1283.       LINTST(486) = CHAR( 44)
  1284.       LINTST(487) = CHAR( 44)
  1285.       LINTST(488) = CHAR( 40)
  1286.       LINTST(489) = CHAR( 42)
  1287.       LINTST(490) = CHAR( 40)
  1288.       LINTST(491) = CHAR( 42)
  1289.       LINTST(492) = CHAR( 42)
  1290.       LINTST(493) = CHAR( 38)
  1291.       LINTST(494) = CHAR( 42)
  1292.       LINTST(495) = CHAR( 42)
  1293.       LINTST(496) = CHAR( 42)
  1294.       LINTST(497) = CHAR( 42)
  1295.       LINTST(498) = CHAR( 44)
  1296.       LINTST(499) = CHAR( 42)
  1297.       LINTST(500) = CHAR( 42)
  1298.       LINTST(501) = CHAR( 42)
  1299.       LINTST(502) = CHAR( 42)
  1300.       LINTST(503) = CHAR( 42)
  1301.       LINTST(504) = CHAR( 42)
  1302.       LINTST(505) = CHAR( 44)
  1303.       LINTST(506) = CHAR( 40)
  1304.       LINTST(507) = CHAR( 42)
  1305.       LINTST(508) = CHAR( 40)
  1306.       LINTST(509) = CHAR( 44)
  1307.       LINTST(510) = CHAR( 44)
  1308.       LINTST(511) = CHAR( 42)
  1309.       LINTST(512) = CHAR( 46)
  1310.       LINTST(513) = CHAR( 42)
  1311.       LINTST(514) = CHAR( 44)
  1312.       LINTST(515) = CHAR( 40)
  1313.       LINTST(516) = CHAR( 42)
  1314.       LINTST(517) = CHAR( 40)
  1315.       LINTST(518) = CHAR( 40)
  1316.       LINTST(519) = CHAR( 42)
  1317.       LINTST(520) = CHAR( 40)
  1318.       LINTST(521) = CHAR( 40)
  1319.       LINTST(522) = CHAR( 44)
  1320.       LINTST(523) = CHAR( 40)
  1321.       LINTST(524) = CHAR( 40)
  1322.       LINTST(525) = CHAR( 40)
  1323.       LINTST(526) = CHAR( 40)
  1324.       LINTST(527) = CHAR( 38)
  1325.       LINTST(528) = CHAR( 40)
  1326.       LINTST(529) = CHAR( 40)
  1327.       LINTST(530) = CHAR( 42)
  1328.       LINTST(531) = CHAR( 40)
  1329.       LINTST(532) = CHAR( 44)
  1330.       LINTST(533) = CHAR( 42)
  1331.       LINTST(534) = CHAR( 42)
  1332.       LINTST(535) = CHAR( 44)
  1333.       LINTST(536) = CHAR( 40)
  1334.       LINTST(537) = CHAR( 42)
  1335.       LINTST(538) = CHAR( 44)
  1336.       LINTST(539) = CHAR( 38)
  1337.       LINTST(540) = CHAR( 42)
  1338.       LINTST(541) = CHAR( 40)
  1339.       LINTST(542) = CHAR( 42)
  1340.       LINTST(543) = CHAR( 40)
  1341.       LINTST(544) = CHAR( 42)
  1342.       LINTST(545) = CHAR( 40)
  1343.       LINTST(546) = CHAR( 40)
  1344.       LINTST(547) = CHAR( 40)
  1345.       LINTST(548) = CHAR( 40)
  1346.       LINTST(549) = CHAR( 42)
  1347.       LINTST(550) = CHAR( 40)
  1348.       LINTST(551) = CHAR( 44)
  1349.       LINTST(552) = CHAR( 42)
  1350.       LINTST(553) = CHAR( 40)
  1351.       LINTST(554) = CHAR( 38)
  1352.       LINTST(555) = CHAR( 40)
  1353.       LINTST(556) = CHAR( 42)
  1354.       LINTST(557) = CHAR( 40)
  1355.       LINTST(558) = CHAR( 42)
  1356.       LINTST(559) = CHAR( 40)
  1357.       LINTST(560) = CHAR( 42)
  1358.       LINTST(561) = CHAR( 42)
  1359.       LINTST(562) = CHAR( 40)
  1360.       LINTST(563) = CHAR( 44)
  1361.       LINTST(564) = CHAR( 42)
  1362.       LINTST(565) = CHAR( 42)
  1363.       LINTST(566) = CHAR( 44)
  1364.       LINTST(567) = CHAR( 40)
  1365.       LINTST(568) = CHAR( 38)
  1366.       LINTST(569) = CHAR( 42)
  1367.       LINTST(570) = CHAR( 40)
  1368.       LINTST(571) = CHAR( 40)
  1369.       LINTST(572) = CHAR( 40)
  1370.       LINTST(573) = CHAR( 40)
  1371.       LINTST(574) = CHAR( 40)
  1372.       LINTST(575) = CHAR( 38)
  1373.       LINTST(576) = CHAR( 40)
  1374.       LINTST(577) = CHAR( 40)
  1375.       LINTST(578) = CHAR( 38)
  1376.       LINTST(579) = CHAR( 40)
  1377.       LINTST(580) = CHAR( 42)
  1378.       LINTST(581) = CHAR( 40)
  1379.       LINTST(582) = CHAR( 38)
  1380.       LINTST(583) = CHAR( 40)
  1381.       LINTST(584) = CHAR( 42)
  1382.       LINTST(585) = CHAR( 42)
  1383.       LINTST(586) = CHAR( 40)
  1384.       LINTST(587) = CHAR( 38)
  1385.       LINTST(588) = CHAR( 42)
  1386.       LINTST(589) = CHAR( 40)
  1387.       LINTST(590) = CHAR( 42)
  1388.       LINTST(591) = CHAR( 40)
  1389.       LINTST(592) = CHAR( 40)
  1390.       LINTST(593) = CHAR( 40)
  1391.       LINTST(594) = CHAR( 40)
  1392.       LINTST(595) = CHAR( 38)
  1393.       LINTST(596) = CHAR( 40)
  1394.       LINTST(597) = CHAR( 38)
  1395.       LINTST(598) = CHAR( 40)
  1396.       LINTST(599) = CHAR( 38)
  1397.       LINTST(600) = CHAR( 40)
  1398.       LINTST(601) = CHAR( 40)
  1399.       LINTST(602) = CHAR( 40)
  1400.       LINTST(603) = CHAR( 40)
  1401.       LINTST(604) = CHAR( 38)
  1402.       LINTST(605) = CHAR( 40)
  1403.       LINTST(606) = CHAR( 40)
  1404.       LINTST(607) = CHAR( 40)
  1405.       LINTST(608) = CHAR( 40)
  1406.       LINTST(609) = CHAR( 38)
  1407.       LINTST(610) = CHAR( 40)
  1408.       LINTST(611) = CHAR( 40)
  1409.       LINTST(612) = CHAR( 40)
  1410.       LINTST(613) = CHAR( 40)
  1411.       LINTST(614) = CHAR( 42)
  1412.       LINTST(615) = CHAR( 40)
  1413.       LINTST(616) = CHAR( 42)
  1414.       LINTST(617) = CHAR( 40)
  1415.       LINTST(618) = CHAR( 42)
  1416.       LINTST(619) = CHAR( 40)
  1417.       LINTST(620) = CHAR( 38)
  1418.       LINTST(621) = CHAR( 40)
  1419.       LINTST(622) = CHAR( 40)
  1420.       LINTST(623) = CHAR( 40)
  1421.       LINTST(624) = CHAR( 38)
  1422.       LINTST(625) = CHAR( 40)
  1423.       LINTST(626) = CHAR( 42)
  1424.       LINTST(627) = CHAR( 40)
  1425.       LINTST(628) = CHAR( 40)
  1426.       LINTST(629) = CHAR( 40)
  1427.       LINTST(630) = CHAR( 40)
  1428.       LINTST(631) = CHAR( 40)
  1429.       LINTST(632) = CHAR( 38)
  1430.       LINTST(633) = CHAR( 40)
  1431.       LINTST(634) = CHAR( 40)
  1432.       LINTST(635) = CHAR( 38)
  1433.       LINTST(636) = CHAR( 48)
  1434.       LINTST(637) = CHAR( 46)
  1435.       LINTST(638) = CHAR( 38)
  1436.       LINTST(639) = CHAR( 40)
  1437.       LINTST(640) = CHAR( 40)
  1438.       LINTST(641) = CHAR( 40)
  1439.       LINTST(642) = CHAR( 38)
  1440.       LINTST(643) = CHAR( 38)
  1441.       LINTST(644) = CHAR(  0)
  1442.       LINTST(645) = CHAR(  0)
  1443.       LINTST(646) = CHAR(  0)
  1444.       LINTST(647) = CHAR(  0)
  1445.       LINTST(648) = CHAR(  0)
  1446.       LINTST(649) = CHAR(  0)
  1447.       LINTST(650) = CHAR(  0)
  1448.       LINTST(651) = CHAR(  0)
  1449.       LINTST(652) = CHAR(  0)
  1450.       LINTST(653) = CHAR(  0)
  1451.       LINTST(654) = CHAR(  0)
  1452.       LINTST(655) = CHAR(  0)
  1453.       LINTST(656) = CHAR(  0)
  1454.       LINTST(657) = CHAR(  0)
  1455.       LINTST(658) = CHAR(  0)
  1456.       LINTST(659) = CHAR(  0)
  1457.       LINTST(660) = CHAR(  0)
  1458.       LINTST(661) = CHAR(  0)
  1459.       LINTST(662) = CHAR(  0)
  1460.       LINTST(663) = CHAR(  0)
  1461.       LINTST(664) = CHAR(  0)
  1462.       LINTST(665) = CHAR(  0)
  1463.       LINTST(666) = CHAR(  0)
  1464.       LINTST(667) = CHAR(  0)
  1465.       LINTST(668) = CHAR(  0)
  1466.       LINTST(669) = CHAR(  0)
  1467.       LINTST(670) = CHAR(  0)
  1468.       LINTST(671) = CHAR(  0)
  1469.       LINTST(672) = CHAR(  0)
  1470.       LINTST(673) = CHAR(  0)
  1471.       LINTST(674) = CHAR(  0)
  1472.       LINTST(675) = CHAR(  0)
  1473.       LINTST(676) = CHAR(  0)
  1474.       LINTST(677) = CHAR(  0)
  1475.       LINTST(678) = CHAR(  0)
  1476.       LINTST(679) = CHAR(  0)
  1477.       LINTST(680) = CHAR(  0)
  1478.       LINTST(681) = CHAR(  0)
  1479.       LINTST(682) = CHAR(  0)
  1480.       LINTST(683) = CHAR(  0)
  1481.       LINTST(684) = CHAR(  0)
  1482.       LINTST(685) = CHAR(  0)
  1483.       LINTST(686) = CHAR(  0)
  1484.       LINTST(687) = CHAR(  0)
  1485.       LINTST(688) = CHAR(  0)
  1486.       LINTST(689) = CHAR(  0)
  1487.       LINTST(690) = CHAR(  0)
  1488.       LINTST(691) = CHAR(  0)
  1489.       LINTST(692) = CHAR(  0)
  1490.       LINTST(693) = CHAR(  0)
  1491.       LINTST(694) = CHAR(  0)
  1492.       LINTST(695) = CHAR(  0)
  1493.       LINTST(696) = CHAR(  0)
  1494.       LINTST(697) = CHAR(  0)
  1495.       LINTST(698) = CHAR(  0)
  1496.       LINTST(699) = CHAR(  0)
  1497.       LINTST(700) = CHAR(  0)
  1498.       LINTST(701) = CHAR(  0)
  1499.       LINTST(702) = CHAR(  0)
  1500.       LINTST(703) = CHAR(  0)
  1501.       LINTST(704) = CHAR(  0)
  1502.       LINTST(705) = CHAR(  0)
  1503.       LINTST(706) = CHAR(  0)
  1504.       LINTST(707) = CHAR(  0)
  1505.       LINTST(708) = CHAR(  0)
  1506.       LINTST(709) = CHAR(  0)
  1507.       LINTST(710) = CHAR(  0)
  1508.       LINTST(711) = CHAR(  0)
  1509.       LINTST(712) = CHAR(  0)
  1510.       LINTST(713) = CHAR(  0)
  1511.       LINTST(714) = CHAR(  0)
  1512.       LINTST(715) = CHAR(  0)
  1513.       LINTST(716) = CHAR(  0)
  1514.       LINTST(717) = CHAR(  0)
  1515.       LINTST(718) = CHAR(  0)
  1516.       LINTST(719) = CHAR(  0)
  1517.       LINTST(720) = CHAR(  0)
  1518.       LINTST(721) = CHAR(  0)
  1519.       LINTST(722) = CHAR(  0)
  1520.       LINTST(723) = CHAR(  0)
  1521.       LINTST(724) = CHAR(  0)
  1522.       LINTST(725) = CHAR(  0)
  1523.       LINTST(726) = CHAR(  0)
  1524.       LINTST(727) = CHAR(  0)
  1525.       LINTST(728) = CHAR(  0)
  1526.       LINTST(729) = CHAR(  0)
  1527.       LINTST(730) = CHAR(  0)
  1528.       LINTST(731) = CHAR(  0)
  1529.       LINTST(732) = CHAR(  0)
  1530.       LINTST(733) = CHAR(  0)
  1531.       LINTST(734) = CHAR(  0)
  1532.       LINTST(735) = CHAR(  0)
  1533.       LINTST(736) = CHAR(  0)
  1534.       LINTST(737) = CHAR(  0)
  1535.       LINTST(738) = CHAR(  0)
  1536.       LINTST(739) = CHAR(  0)
  1537.       LINTST(740) = CHAR(  0)
  1538.       LINTST(741) = CHAR(  0)
  1539.       LINTST(742) = CHAR(  0)
  1540.       LINTST(743) = CHAR(  0)
  1541.       LINTST(744) = CHAR(  0)
  1542.       LINTST(745) = CHAR(  0)
  1543.       LINTST(746) = CHAR(  0)
  1544.       LINTST(747) = CHAR(  0)
  1545.       LINTST(748) = CHAR(  0)
  1546.       LINTST(749) = CHAR(  0)
  1547.       LINTST(750) = CHAR(  0)
  1548.       LINTST(751) = CHAR(  0)
  1549.       LINTST(752) = CHAR(  0)
  1550.       LINTST(753) = CHAR(  0)
  1551.       LINTST(754) = CHAR(  0)
  1552.       LINTST(755) = CHAR(  0)
  1553.       LINTST(756) = CHAR(  0)
  1554.       LINTST(757) = CHAR(  0)
  1555.       LINTST(758) = CHAR(  0)
  1556.       LINTST(759) = CHAR(  0)
  1557.       LINTST(760) = CHAR(  0)
  1558.       LINTST(761) = CHAR(  0)
  1559.       LINTST(762) = CHAR(  0)
  1560.       LINTST(763) = CHAR(  0)
  1561.       LINTST(764) = CHAR(  0)
  1562.       LINTST(765) = CHAR(  0)
  1563.       LINTST(766) = CHAR(  0)
  1564.       LINTST(767) = CHAR(  0)
  1565.       LINTST(768) = CHAR(  0)
  1566.       LINTST(769) = CHAR(  0)
  1567.       LINTST(770) = CHAR(  0)
  1568.       LINTST(771) = CHAR(  0)
  1569.       LINTST(772) = CHAR(  0)
  1570.       LINTST(773) = CHAR(  0)
  1571.       LINTST(774) = CHAR(  0)
  1572.       LINTST(775) = CHAR(  0)
  1573.       LINTST(776) = CHAR(  0)
  1574.       LINTST(777) = CHAR(  0)
  1575.       LINTST(778) = CHAR(  0)
  1576.       LINTST(779) = CHAR(  0)
  1577.       LINTST(780) = CHAR(  0)
  1578.       LINTST(781) = CHAR(  0)
  1579.       LINTST(782) = CHAR(  0)
  1580.       LINTST(783) = CHAR(  0)
  1581.       LINTST(784) = CHAR(  0)
  1582.       LINTST(785) = CHAR(  0)
  1583.       LINTST(786) = CHAR(  0)
  1584.       LINTST(787) = CHAR(  0)
  1585.       LINTST(788) = CHAR(  0)
  1586.       LINTST(789) = CHAR(  0)
  1587.       LINTST(790) = CHAR(  0)
  1588.       LINTST(791) = CHAR(  0)
  1589.       LINTST(792) = CHAR(  0)
  1590.       LINTST(793) = CHAR(  0)
  1591.       LINTST(794) = CHAR(  0)
  1592.       LINTST(795) = CHAR(  0)
  1593.       LINTST(796) = CHAR(  0)
  1594.       LINTST(797) = CHAR(  0)
  1595.       LINTST(798) = CHAR(  0)
  1596.       LINTST(799) = CHAR(  0)
  1597.       LINTST(800) = CHAR(  0)
  1598.       LINTST(801) = CHAR(179)
  1599.       LINTST(802) = CHAR(104)
  1600.       LINTST(803) = CHAR(  2)
  1601.       LINTST(804) = CHAR(  0)
  1602.       LINTST(805) = CHAR(  1)
  1603.       LINTST(806) = CHAR(  0)
  1604.       LINTST(807) = CHAR(  1)
  1605.       LINTST(808) = CHAR(  0)
  1606.       LINTST(809) = CHAR(  0)
  1607.       LINTST(810) = CHAR(  0)
  1608.       LINTST(811) = CHAR( 24)
  1609.       LINTST(812) = CHAR( 20)
  1610.       LINTST(813) = CHAR(  0)
  1611.       LINTST(814) = CHAR(  0)
  1612.       LINTST(815) = CHAR(  0)
  1613.       LINTST(816) = CHAR(  0)
  1614.       LINTST(817) = CHAR(  0)
  1615.       LINTST(818) = CHAR(  0)
  1616.       LINTST(819) = CHAR(  0)
  1617.       LINTST(820) = CHAR(  0)
  1618.       LINTST(821) = CHAR(  0)
  1619.       LINTST(822) = CHAR(  0)
  1620.       LINTST(823) = CHAR(  0)
  1621.       LINTST(824) = CHAR(  0)
  1622.       LINTST(825) = CHAR(  0)
  1623.       LINTST(826) = CHAR(  0)
  1624.       LINTST(827) = CHAR(  0)
  1625.       LINTST(828) = CHAR(  0)
  1626.       LINTST(829) = CHAR(  0)
  1627.       LINTST(830) = CHAR(  0)
  1628.       LINTST(831) = CHAR(  0)
  1629.       LINTST(832) = CHAR(  2)
  1630.       LINTST(833) = CHAR(  1)
  1631.       LINTST(834) = CHAR(  0)
  1632.       LINTST(835) = CHAR(131)
  1633.       LINTST(836) = CHAR(  2)
  1634. C****************************************************************************
  1635. C Work begins here. Initialize the Huffman coding tree with call to
  1636. C DECMPINIT. Decompress the compressed line contained in LININ.
  1637. C Output of decompression ends up in LINOUT
  1638. C***************************************************************************
  1639.       CALL DECMPINIT(HIST)
  1640.       IFAIL = 0
  1641.       DO 200 J = 1,2
  1642.       CALL DECOMPRESS(LININ,LINOUT,LENIN,LENOUT)
  1643. C****************************************************************************
  1644. C Compare decompressed line in LINOUT with values in LINTST.
  1645. C Report any errors if there are any mismatches. If mismatches exist
  1646. C the decompression routines have not been successfully implemented on
  1647. C your computer system.
  1648. C****************************************************************************
  1649.       DO 100 I = 1,LENOUT
  1650.       IF (LINOUT(I).NE.LINTST(I)) THEN
  1651.       IFAIL = 1
  1652.       IOUT = ICHAR(LINOUT(I))
  1653.       ITEST= ICHAR(LINTST(I))
  1654.       WRITE(IP,900) I,IOUT,ITEST
  1655.   900 FORMAT(' Error, decompression failed '/,
  1656.      .'   Sample number:',i3,
  1657.      .'   Value coming out of DECOMPRESS routine: ',i4,/,
  1658.      .'   Value should be: ',i4)
  1659.       END IF
  1660.   100 CONTINUE
  1661.   200 CONTINUE
  1662.       IF (IFAIL.EQ.0) WRITE(IP,905)
  1663.   905 FORMAT(' Decompression subroutines were successful')
  1664.       IF (IFAIL.NE.0) WRITE(IP,910)
  1665.   910 FORMAT(' Decompression subroutines failed')
  1666.       STOP
  1667.       END
  1668.