PROGRAM UPSHIFT ( TTY, INPUT, OUTPUT );

VAR
  CH: CHAR;
  FILENAME: ARRAY [0..15] OF CHAR;

 BEGIN
  WRITE(TTY,'FILE: ');  BREAK;  READLN(TTY);
  READ(TTY,FILENAME);
  RESET(INPUT,FILENAME);
  IF EOF
  THEN WRITELN(TTY,'FILE NOT FOUND')
  ELSE
   BEGIN
    REWRITE(OUTPUT,FILENAME);
    WHILE NOT EOF DO
     BEGIN
      WHILE NOT EOLN DO
       BEGIN
	READ(CH);
	IF ORD(CH)>95
	THEN WRITE( CHR(ORD(CH)-32))
	ELSE WRITE(CH);
       END;
      READLN;  WRITELN;
     END
   END
 END.