title Census of Canada, 1986: CARTLIB file                                      
title1 SAS control commands by Sandra Gardner, UTCC, 1990
CMS FILEDEF LAINE DISK LAINE DATA A;                                            
DATA ssd.coords;                                                                
  INFILE LAINE;                                                                 
  INPUT @1 TESTCHAR $1. @;                                                      
                                                                                
  RETAIN CTCODE1 CTCODE2 'CT0000';                                              
  KEEP CTCODE1 CTCODE2 X Y;                                                     
                                                                                
  IF TESTCHAR='<'                                                               
     THEN DO;                                                                   
             INPUT;                                                             
             DELETE;                                                            
          END;                                                                  
     ELSE IF TESTCHAR='C'                                                       
             THEN INPUT @1 CTCODE1 $6.                                          
                        @8 CTCODE2 $6.;                                         
             else if testchar='o'                                               
                     then do;                                                   
                             input @1 out $3.                                   
                                   @5 ctcode2 $6.;                              
                             ctcode1=out;                                       
                          end;                                                  
             ELSE DO;                                                           
                     M=-1;                                                      
                     INPUT +M @;                                                
                     DO I=1 TO 5;                                               
                        INPUT X 6. +1 Y 7. +1 @;                                
                        IF X NE .                                               
                           THEN OUTPUT;                                         
                           ELSE DELETE;                                         
                     END;                                                       
                     INPUT;                                                     
                  END;                                                          
PROC PRINT;