PROGRAM TRANS (INPUT,OUTPUT);                     
(* UMWANDLUNG SEQUENTIELLE DATEIEN-> VIZA-FORMAT*)
(* FLORIAN MATTHES 8.12.1985                    *)
TYPE TNAME= ARRAY[1..20]OF CHAR;                  
VAR C:CHAR;                                       
    F,G:TEXT;                                     
    N1,N2:TNAME;                                  
                                                  
PROCEDURE READNAME(VAR N:TNAME;C:CHAR);           
 VAR I:INTEGER;                                   
BEGIN                                             
 I:=0;                                            
 REPEAT I:=I+1; READ(N[I])                        
 UNTIL (I=16) OR EOLN;                            
 N[I  ]:=",";N[I+1]:="S";                         
 N[I+2]:=",";N[I+3]:=C;                           
END;                                              
                                                  
BEGIN                                             
 READNAME(N1,"R");OPEN(F,8,3,N1);                 
 READNAME(N2,"W");OPEN(G,8,4,N2);                 
 WHILE NOT EOF(F) DO                              
  BEGIN                                           
   READ(F,C);                                     
   WHILE NOT EOLN(F) DO                           
    BEGIN                                         
     IF ORD(C)>192 THEN WRITE(G,CHR(ORD(C)-128))  
     ELSE                                         
     IF ORD(C)>64  THEN WRITE(G,CHR(ORD(C)-64))   
     ELSE WRITE(G,C);                             
     READ(F,C)                                    
    END;                                          
   WRITE(G,CHR(220))                              
  END;                                            
 CLOSE(F);CLOSE(G)                                
END.