%!PS-Adobe-2.0
%%Creator: (unix/mail)
%%Title: (ISO Latin 1) 
%%CreationDate: (21.08.93)
%%DocumentFonts: Courier ISOfont
%%EndComments

/ISOvec [
  8#304	/Adieresis		% Umlaut A	196
  8#326	/Odieresis		% Umlaut O	214
  8#334	/Udieresis		% Umlaut U	220
  8#337	/germandbls		% scharf-s	223
  8#344 /adieresis		% Umlaut a	228
  8#366 /odieresis		% Umlaut o	246
  8#374 /udieresis		% Umlaut u	252
  ] def

/ReEncode {				% font newfont vector ReEncode -
  3 2 roll findfont			% newfont vector font auf Stack
    dup length dict			%   leere Kopie auf Stack
    begin				%   auf DStack
      {					%   fuer alle key/value in Courier
        1 index /FID eq			%     if key == /FID
          { pop pop }			%       ignorieren
          { 1 index /Encoding eq	%     else if key == /Encoding
            { dup length array copy def	%	kopieren
	      dup aload			%       vector Elemente auf Stack
	      length 2 idiv		%	fuer jedes Paar
	      { currentdict /Encoding get %	  Encoding auf Stack
		3 1 roll put		%	  Encoding[index] name
	      } repeat
            }
            { def } ifelse		%     else key/value kopieren
          } ifelse
      } forall
      pop				%   vector entfernen
      currentdict			%   neuer Font auf Stack
    end
    definefont				%   neuer Font heisst newfont
    pop					%   newfont entfernen
} bind def


/buff 256 string def
/startprint {				% Der Printer-Emulator:
	{ % Main loop:
		currentfile buff readline 
      	 	currentpoint 16 sub exch pop % Y-Wert auf Stack  
		72 exch moveto 		% Bewegung an den Zeilenanfang  
		exch show not { exit } if
		% exch vertauscht Zeile (substring) und bool
	} loop
	showpage
} bind def
%%EndProlog


/Courier /ISOfont ISOvec ReEncode
/ISOfont findfont 12 scalefont setfont	% einschalten
72 800 moveto				% oben links

startprint
... Text mit Umlauten ...
... Text mit Umlauten ...
... äää ööö üüü ...
... Text mit Umlauten ...
... Text mit Umlauten ...