XProfan

Título de la ventana "Ich bin una Computer, por lo tanto kann Yo Gedanken lesen!"
Font 2:Selección aleatoria:Cls rnd(8^8):Imprimir
imprimir "  Vorbereitung: Sie benötigen Papier y Stift!           " : Cuestión
imprimir "  Yo konzentriere mich nun en ihre Hirnströme...        ";

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

    SetTimer 4000:WaitInput :locate %csrlin,%pos-9:imprimir " AHA!  ":Killtimer:Cuestión
    imprimir "  Bilden Sie de 3 Ziffern (1. y 3. anders) una Zahl.  " : Cuestión
    imprimir "  Kehren ellos el Stellen en. Lo ensteht una zweite Zahl. " : Cuestión
    imprimir "  El kleinere Zahl Por favor, nun de el größeren abziehen.  " : Cuestión
    imprimir "  Ist el Ergebnis zweistellig,escribir ellos nun 0 davor. " : Cuestión
    imprimir "  Addieren ellos a diesem Ergebnis dessen Stellenumkehrung." : Cuestión
    Imprimir "                                                          "
    imprimir "           Bereit, mi Voraussage aufzudecken?          " : WaitInput
    locate %csrlin-1,0
    imprimir "           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
    Imprimir "              Na, stimmts? Gracias fürs Mitmachen!         "
    Beep
    SetTimer 6000:WaitInput :Killtimer
    End

    proc Cuestión

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

    ENDPROC