COMPRESS-FILE

Go through a SPECX-format data file, and physically remove spectra with negative scan numbers. This thus makes more space available in the file, but at the same time renumbers existing spectra within the file.

Examples:

    >> compress-file<CR>
    File number? (^z to list) [1] <CR>

    INDEX LISTING OF FILE : l483small.dat                           

    File title : test                                    
    Owner :      me          
    No. of scans in file =   4  Max no. =  20
    Last record used =  48
    Date of listing : 26-AUG-90




     SEQ MODE  TITLE     NQD NPT  IQ     FCEN        FINC       INTT    ZD
     --- ----  -----     --- ---  --     ----        ----       ----    --

       1   2 DARK_CLOUDS  1  65    1  230.537994     0.7422   120.00    27.
       2   2 DARK_CLOUDS  1  65    1  230.537994     0.7422   120.00    27.
       3   2 DARK_CLOUDS  1  65    1  230.537994     0.7422   120.00    27.
       4   2 DARK_CLOUDS  1  65    1  230.537994     0.7422   120.00    27.