PROGRAM GETPUT(INPUT,OUTPUT);                               
  VAR F  :TEXT;                                             
      I  : INTEGER;                                         
      CH : CHAR;                                            
BEGIN                                                       
  OPEN(F,8,3,"TEST,S,W");                                   
  FOR I:=1 TO 200 DO                                        
   BEGIN                                                    
    F^:=CHR(I); PUT(F)                                      
   END;                                                     
  CLOSE(F);                                                 
  OPEN(F,8,3,"TEST,S,R");                                   
  WHILE NOT EOF(F) DO                                       
   BEGIN                                                    
    GET(F); WRITE(ORD(F^));                                 
   END;                                                     
  CLOSE(F);                                                 
  OPEN(F,8,3,"TEST,S,R");                                   
  WHILE NOT EOF(F) DO                                       
   BEGIN                                                    
    READ(F,CH); WRITE(ORD(CH),ORD(F^));                     
   END;                                                     
  CLOSE(F);                                                 
END.