1                                                          The SAS System                              08:43 Sunday, August 15, 1993

NOTE: Copyright(c) 1989 by SAS Institute Inc., Cary, NC USA. 
NOTE: SAS (r) Proprietary Software Release 6.07.02
      Licensed to IMSOR, Site 0020181001.




   This message is contained in the SAS news file, and is presented
   upon initialization. Edit the file "news" in the "misc" directory 
   to display site-specific news and information in the program log. 
   The command line option "-nonews" will prevent this display.

NB: To end the SAS session type: endsas;



NOTE: AUTOEXEC processing beginning; file is /uss1/x411/noteex/autoexec.sas.

NOTE: SAS initialization used:
      real time           2.110 seconds
      cpu time            0.920 seconds


NOTE: AUTOEXEC processing completed.

1          /* compr.sas */
2          /* Purpose:  */
3          
4          data _NULL_;
5          infile 'dummy.lst' eof=endfile missover lrecl=81 pad;
6          file 'dummy.lll';
7          array buffer{100} $ 80 _TEMPORARY_;
8          retain endfile 0 lleft 65 i 1;
9          
10         input @1 line $char81.;
11         
12         if 1=0 then do;
13         endfile:
14           endfile=1;
15         end;
16         
17         if rank(substr(line,1,1))=12 OR endfile then do;
18         
19           if i-1 LE lleft-2 then do; *output, same page;
20             if lleft=65 then put @1 '' @;
21             else do;
22               put ' ';
23               put '/---------------------------------------'
24                   '----------------------------------------' '---/';
25             end;
26             do j=1 to i-1;
27               put buffer{j} $char80.;
28             end;
29             lleft=lleft-i+1 -2;
30           end;
31           else do; *output, new page;
32             put @1 '' @;
33             do j=1 to i-1;
34               put buffer{j} $char80.;
35             end;
36             lleft=65-i+1;
37           end;
38         
2                                The SAS System

39           i=1;
40           buffer{i}=substr(line,2,80);
41         end;
42         
43         else do;
44           buffer{i}=substr(line,1,80);
45         end;
46         
47         i=i+1;
48         
49         if endfile then stop;

NOTE: The infile 'dummy.lst' is:
      File Name=/uss1/x411/noteex/dummy.lst,
      Owner Name=x411,Group Name=x411,
      Access Permission=rw-r--r--,
      File Size (bytes)=7875
      
NOTE: The file 'dummy.lll' is:
      File Name=/uss1/x411/noteex/dummy.lll,
      Owner Name=x411,Group Name=x411,
      Access Permission=rw-r--r--
      
NOTE: 216 records were read from the infile 'dummy.lst'.
      The minimum record length was 0.
      The maximum record length was 81.
NOTE: 230 records were written to the file 'dummy.lll'.
      The minimum record length was 1.
      The maximum record length was 84.
NOTE: DATA statement used:
      real time           3.505 seconds
      cpu time            1.020 seconds


NOTE: The SAS System used:
      real time           6.024 seconds
      cpu time            2.180 seconds

NOTE: SAS Institute Inc., SAS Circle, PO Box 8000, Cary, NC 27512-8000