OPTIONS LINESIZE=120 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
******************************************************;
* PROJECT NAME: Learning to Use SAS                   ;
*             PROGRAM NAME     DATE     PROGRAMMER    ;
TITLE1 "Source:dmes99p7.sas  9/28/99      EJS "       ;
* Description:                                        ;
*    Read in data with embedded ASCII characters      ;
*     saved from WEB directly as lec1sm2.dta          ;
******************************************************;

**************************;
*** Read each column and *;
***  convert to ASCII code;
***  writing the output   ;
**************************;


DATA d;
  INFILE 'c:\data\lec1sm2.dta' MISSOVER;
  INPUT (v1-v39) ($1.)  ;
  ARRAY v{39} $;
  ARRAY b{39} $3 ;
  FILE PRINT;

  DO i=1 TO 39;
    b{i}=rank(v(i));
  END;
  PUT (v1-v25) ($1.0+3) "read v";
  PUT (b1-b25) ($3.0+1) ;

  PUT (v26-v39) ($1.0+3) "read v";
  PUT (b26-b39) ($3.0+1) ;



*************************;
*** Illustrate ASCII code;
***   13                 ;
*************************;
DATA d1;
  FILE print;
  x=byte(13);
  PUT  'Ascii code 13' x;
RUN;