XProfan

Titre de la fenêtre "Ich suis un ordinateur, daher peux je Gedanken lesen!"
Font 2:Randomiser:Cls rnd(8^8):Imprimer
imprimer "  Vorbereitung: vous besoin papier et Stift!           " : Frage
imprimer "  je konzentriere mich eh bien sur ses Hirnströme...        ";

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

    SetTimer 4000:WaitInput :locate %csrlin,%pos-9:imprimer " AHA!  ":Killtimer:Frage
    imprimer "  Bilden vous aus 3 Les chiffres (1. et 3. anders) une numéro.  " : Frage
    imprimer "  balayer vous qui se mettre um. Es ensteht une zweite numéro. " : Frage
    imprimer "  qui kleinere numéro s'il te plaît eh bien de qui größeren abziehen.  " : Frage
    imprimer "  Ist cela Ergebnis zweistellig,écrivons vous eh bien 0 devant. " : Frage
    imprimer "  Addieren vous trop diesem Ergebnis dessen Stellenumkehrung." : Frage
    Imprimer "                                                          "
    imprimer "           Bereit, mon Voraussage aufzudecken?          " : WaitInput
    locate %csrlin-1,0
    imprimer "           Einen Moment ... son 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
    Imprimer "              Na, stimmts? merci pour Mitmachen!         "
    Beep
    SetTimer 6000:WaitInput :Killtimer
    Fin

    proc Frage

        Imprimer "      <Bereit pour den prochain Schritt? bouton drücken!>   "
        beep : locate %csrlin-1,0 : WaitInput

    ENDPROC