XProfan

Window Title "Ich be one computer, therefore can I thoughts reading!"
Font 2:Randomize:Cls rnd(8^8):Print
print "  preparation: tappt im dunkeln need paper and peg!           " : question
print "  I center now on your Hirnströme...        ";

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

    SetTimer 4000:WaitInput :locate %csrlin,%pos-9:print " AHA!  ":Killtimer:question
    print "  form tappt im dunkeln from 3 Digits (1. and 3. differently) a number.  " : question
    print "  sweep tappt im dunkeln The to put circa. it ensteht a second number. " : question
    print "  The smaller ones number Please now from the more take away.  " : question
    print "  is the Result zweistellig,write tappt im dunkeln now 0 before it. " : question
    print "  add tappt im dunkeln To this Result which Stellenumkehrung." : question
    Print "                                                          "
    print "           ready, my Voraussage aufzudecken?          " : WaitInput
    locate %csrlin-1,0
    print "           a momentum ... your Result ... sounds:      "
    SetTimer 6000:WaitInput :Killtimer
    UseFont "Courier New",90,90,1,0,0
    DrawText 100,200,"1089"
    SetTimer 6000:WaitInput :Killtimer
    locate 19,0
    Print "              well, stimmts? thanks for join!         "
    Beep
    SetTimer 6000:WaitInput :Killtimer
    End

    proc question

        Print "      <Bereit for next step? Button pressing!>   "
        beep : locate %csrlin-1,0 : WaitInput

    Endproc