listing-Frage

[W2K]

Hallo,

ich bekomme es nicht hin die Schrift in meiner lsting-Umgebung zu verändern.
Ich möchte gerne eine kleine, ganz schlichte Schreibmaschinenschrift haben -
so wie sie in www.ctan.org/tex-archive/macros/latex/contrib/listings/listings-1.3.pdf auf Seite 5 zu sehen ist (grüne Schreibmaschinenschrift).

Bei mir schaut das Ganze komisch aus:


%------------------------------------------------------------------------------
%
%------------------------------------------------------------------------------
\documentclass[a4paper, % DINA4-Papier
oneside, % Einseitiger Druck
onecolumn, % Text in einer Spalte
titlepage, % Titelseite
nochapterprefix,%
normalheadings, % Normale Kopfzeilen-Schrift
halfparskip, %
headsepline, %
footsepline, %
1.0headlines, %
headinclude, %
footexclude, %
DIV15, % Seitenformat
liststotoc, % Listen --> Inhaltsverzeichnis
bibtotoc] % Literaturverzeichnis --> Inhaltsverzeichnis
{scrbook}
%------------------------------------------------------------------------------
%
%------------------------------------------------------------------------------
%
% Zustzliche Paktete einbinden
%
%------------------------------------------------------------------------------
\usepackage[ngerman]{babel} % Neue deutsche Rechtschreibung
\usepackage[T1]{fontenc} %
\usepackage[latin1]{inputenc} % Dateicodierung
\usepackage{scrpage2} % Seitenstil
\usepackage{color} % Farben
\usepackage{graphicx} % Einbindung von Grafiken
\usepackage{wrapfig} % Textumflossene Grafiken
\usepackage{multicol} % Paket fr mehrspaltige Dokumente
\usepackage{lscape} % Einzelne Seiten auf Landscape-Format drehen
\usepackage[table]{pstricks} % PSTricks-Zeichnungen
\usepackage{pst-vue3d} % PSTricks-3D-Umgebungen
\usepackage{pst-plot} % PSTricks-Plot-Umgebungen
\usepackage{subfig} % Bilder untereinander
\usepackage{amsmath} % Erweiterungen fr mathematische Umgebungen
\usepackage{accents} % Akzente auf Variablen setzen
\usepackage{cancel} % Durchstreichen mathematischer Ausdrcke
\usepackage{setspace} % Zeilenabstand setzen
\usepackage{nofloat} % Nicht-flieende Umgebung fr Bilder
\usepackage{caption} % Bildunterschriften
\usepackage{listings} % Darstellung von Quellcode
\usepackage{ltxtable} % GTabellen
\usepackage{longtable} % Lange Tabellen fr Symbolverzeichnis, etc.
\usepackage{natbib} % Paket, um BibTex einzubinden
\usepackage{footnpag}[1] % Paket, um BibTex einzubinden
\usepackage{lmodern} % Latin Modern Schriften verwenden
%\usepackage{times} % Bookman Schriften verwenden
%\usepackage{times} % Times Schriften verwenden
\usepackage[colorlinks=true, %
citecolor=red, %
linkcolor=blue, %
pdfpagelabels=true, %
breaklinks=true] %
{hyperref} % Hyperlinks, Verweise farbig abheben
%------------------------------------------------------------------------------
%
%------------------------------------------------------------------------------
\hyphenation{Chien} %
\sloppy %
%------------------------------------------------------------------------------
\pagestyle{scrheadings} % Seitenstil scrheadings setzen
\cfoot{\pagemark} %
\flushbottom % Flle die Seite von oben bis unten
\linespread{1.25} % Zeilenabstand um 25% erhhen
%------------------------------------------------------------------------------
%
%------------------------------------------------------------------------------
\renewcommand{\captionlabelfont}{\bfseries}
\renewcommand{\captionfont}{}
\renewcommand{\sectionmark}[1]{\markright{\thesection. #1}}
%------------------------------------------------------------------------------
%
%------------------------------------------------------------------------------
\lstset{showspaces=false, % Leerzeichen darstellen
showtabs=false, % Tabulatoren darstellen
tab=rightarrowfill} % Tabulatorzeichen definieren
\lstset{basicstyle=\small, % Kleinen Schriftsatz verwenden
keywordstyle=\color{blue},%
% Keyword-Stil definieren
commentstyle=\color{gray},%
% Kommentar-Farbe
stringstyle=\ttfamily} % Typewriter-Schrifttyp
\lstset{numbers=left, %
stepnumber=2, %
numberstyle=\tiny, %
numbersep=10pt, %
language=Fortran %
}
%------------------------------------------------------------------------------

\begin{document}
\begin{lstlisting}
!
! POSITION OF ROWS TO EACH OTHER
!
subroutine IFCNGB(k,ifc)
do
end do
end subroutine
\end{listing}
\end{document}


Vielen Dank für Euren Rat.