OPTIONS LINESIZE=77 PAGESIZE=68;                                               
filename IN 'sea_ctry.asc';                                                    
DATA SEA_MAP;                                                                  
FILE PRINT;                                                                    
INFILE IN;                                                                     
INPUT NAME $ 1-6 COMMA $ 7  NUM 8-12;                                          
PUT 'NAME   ,  NUMBER OF POINTS';                                              
PUT NAME $ COMMA $ NUM;                                                        
LENGTH DEFAULT=4;                                                              
PUT 'X          , Y';                                                          
DO I = 1 TO NUM;                                                               
   INPUT X 1-10 COMMA $ 11 Y 12-21;                                            
   PUT X COMMA $ Y;                                                            
   END;                                                                        
RUN;