\documentclass[a4paper]{article}

\usepackage[utf-8]{inputenc}
\usepackage[german]{babel}
\usepackage{url}
\usepackage{alltt}
\usepackage{multicol}

\title{Berichte generieren mit Hilfe von Gforth — ein Kinderspiel}
\ifx\shorttitle\undefined\else
\shorttitle{Berichte generieren}
\fi
\author{Michael Kalus}

\begin{document}
\maketitle

%\begin{center}
%\includegraphics[width=0.75\textwidth]{2007-0304/euroforth-gruppenfoto}\\
%\end{center}

\begin{multicols}{2}
Wer wie ich immer wieder kürzere Berichte abgeben muss --- als Arzt im Krankenhaus sind das Befunde von oft angefertigten Untersuchungen, von denen viele standardisiert befundet werden können, so wie EKG, Lungenfunktionsprüfungen, Röntgenbilder des Thorax u.a. -- wünscht sich einen Baukasten dafür. Hier eine sehr simple Lösung in Gforth. 

Alle Sätze dieses Beispiels sind natürlich Blindtexte, da ich hier keine Patientendaten veröffentlichen kann. Aber es braucht nicht viel Fantasie, um den Nutzen auch so zu erkennen, hoffe ich zumindest. Nun, bevor ich in langatmige Erklärungen verfalle, seht selbst. Es ist so simpel, dass man es wohl kaum ausführlicher kommentieren muss.

Benutzt wird das Feature von Gforth, ein Input-File verarbeiten zu können und den Output sogleich in ein File zu schreiben:

\begin{verbatim}
PowerBook$ gforth in.fs > out.txt
\end{verbatim}

Ferner benutzte ich einige Steuerelemente des Compilers:
\smallskip

\begin{tabular}{lp{0.55\columnwidth}}
\verb|(| & Beginnt einen Kommentar; wird nicht ausgeführt.\\
\verb|)| & Beendet den Kommentar.\\
\verb|.(| & Beginnt einen Kommentar; wird nicht compiliert, sondern ausgegeben. \\
\verb|INCLUDE| $<\!\!name\!\!>$	& Fügt weitere Dateien ein.\\
\end{tabular}
\medskip

Weitere Steuerelemente wie \verb|[IF]| und \verb|[THEN]| werden ebenfalls benutzt. Natürlich können auch Kalkulationen eingefügt werden.

\hfill Viel Vergnügen, Michael
\end{multicols}

\section{Links}  
\url{http://www.jwdt.com/~paysan/gforth.html} --- Current release 0.6.2\\
\url{http://www.newmediadesigner.de/} --- Blindtext-Archiv\\

\section{Listings}

\subsection{File: \texttt{in.fs}}
\begin{quote}
\listinginput[1]{1}{2008-02/in.fs}
\end{quote}
\medskip

\subsection{File: \texttt{m.dep}}
\begin{quote}
\listinginput[1]{1}{2008-02/m.dep}
\end{quote}
\medskip

\subsection{File: \texttt{bio.txt}}
\begin{quote}
\listinginput[1]{1}{2008-02/bio.txt}
\end{quote}

\end{document}