% Content-encoding: UTF-8
\documentclass[ngerman]{article}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\setcounter{secnumdepth}{0}
\setcounter{tocdepth}{0}

\begin{document}

\title{Gedankenlesen}
\author{Michael Kalus}
\maketitle

\begin{multicols}{2}
\parskip   = 0.33\baselineskip \advance\parskip by 0pt plus 2pt

Einige kennen diese Spielerei möglicherweise schon. Aber ich war neulich erstmal wieder verblüfft über den Effekt. Und musste noch mal genauer hinsehen, wie das eigentlich funktioniert. Da wird man aufgefordert, sich eine zweistellige Zahl zu denken, deren Quersumme davon abzuziehen und  das Ergebnis als Index in eine Symboltabelle zu benutzen. Und nun intensiv dieses Symbol anzuschauen, damit der Computer es erspüren könne! Und siehe da, es klappt tatsächlich. Ja, warum klappt das??

Deswegen:
\begin{verbatim}
: ?? ( -- )
  100 10 DO cr
  i . 
  i i 10 /mod + - . 
  LOOP ;
\end{verbatim}

Es ist eigentlich sehr einfach. Hier der Beweis: 
\columnbreak

\begin{footnotesize}
\begin{verbatim}
Gedankenlesen in Forth

Denke an eine zweistellige Zahl, z.B. die 54.
Ziehe von dieser Zahl ihre 2 Ziffern ab (54-5-4=45)
Suche das Symbol, das zu diesem Ergebnis passt.
Konzentriere dich auf dieses Symbol und druecke eine Taste...

 0 P   1 g   2 f   3 `   4 V   5 w   6 [   7 _   8 c   9 c  
10 W  11 }  12 E  13 <  14 e  15 k  16 h  17 ^  18 c  19 x  
20 k  21 R  22 ]  23 l  24 o  25 f  26 d  27 c  28 V  29 z  
30 Q  31 c  32 t  33 _  34 c  35 C  36 c  37 O  38 b  39 P  
40 {  41 r  42 J  43 W  44 u  45 c  46 u  47 j  48 y  49 V  
50 [  51 x  52 v  53 H  54 c  55 j  56 a  57 g  58 W  59 K  
60 i  61 z  62 a  63 c  64 m  65 b  66 `  67 x  68 |  69 t  
70 @  71 <  72 c  73 n  74 <  75 i  76 O  77 f  78 j  79 l  
80 W  81 c  82 \  83 ^  84 }  85 @  86 \  87 J  88 k  89 h  
90 R  91 ^  92 s  93 V  94 f  95 j  96 p  97 R  98 a  99 N  

Es ist:  c

Noch mal? --> Leertaste! 
\end{verbatim}
\end{footnotesize}

Viel Vergnügen beim Nachrätseln, oder damit andere zu verblüffen.
\end{multicols}

\section{Links}
\url{http://www.isnichwahr.de/redirect15446.html}\\
\url{http://www.extremefunnyhumor.com/magic_mindreader.htm}

\begin{multicols}{2}
\section{Listing}
\begin{footnotesize}
\listinginput[1]{1}{2006-04/Gedankenlesen.fs}
\end{footnotesize}

\end{multicols}

%\end{document}