<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">\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 &gt; out.txt
\end{verbatim}

Ferner benutzte ich einige Steuerelemente des Compilers:
\smallskip

\begin{tabular}{lp{0.55\columnwidth}}
\verb|(| &amp; Beginnt einen Kommentar; wird nicht ausgefÃ¼hrt.\\
\verb|)| &amp; Beendet den Kommentar.\\
\verb|.(| &amp; Beginnt einen Kommentar; wird nicht compiliert, sondern ausgegeben. \\
\verb|INCLUDE| $&lt;\!\!name\!\!&gt;$	&amp; 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}</pre></body></html>