XProfan

WindowTitle "Ich bin ein Computer, daher kann ich Gedanken lesen!"
Font 2:Randomize:Cls rnd(8^8):Print
print "  Vorbereitung: Sie benötigen Papier und Stift!           " : Frage
print "  Ich konzentriere mich nun auf ihre Hirnströme...        ";

Whileloop 0,6000,100 : SOUND 100+&Loop,360/4 : Endwhile : beep

    SetTimer 4000:WaitInput :locate %csrlin,%pos-9:print " AHA!  ":Killtimer:Frage
    print "  Bilden Sie aus 3 Ziffern (1. und 3. anders) eine Zahl.  " : Frage
    print "  Kehren sie die Stellen um. Es ensteht eine zweite Zahl. " : Frage
    print "  Die kleinere Zahl bitte nun von der größeren abziehen.  " : Frage
    print "  Ist das Ergebnis zweistellig,schreiben sie nun 0 davor. " : Frage
    print "  Addieren sie zu diesem Ergebnis dessen Stellenumkehrung." : Frage
    Print "                                                          "
    print "           Bereit, meine Voraussage aufzudecken?          " : WaitInput
    locate %csrlin-1,0
    print "           Einen Moment ... Ihr Ergebnis ... lautet:      "
    SetTimer 6000:WaitInput :Killtimer
    UseFont "Courier New",90,90,1,0,0
    DrawText 100,200,"1089"
    SetTimer 6000:WaitInput :Killtimer
    locate 19,0
    Print "              Na, stimmts? Danke fürs Mitmachen!         "
    Beep
    SetTimer 6000:WaitInput :Killtimer
    End

    proc Frage

        Print "      <Bereit per den nächsten Schritt? Taste drücken!>   "
        beep : locate %csrlin-1,0 : WaitInput

    Endproc