Infinity-Profan

var j
var n
var txt1
var txt2
var vide = "                         "
var mehrzeilige_eingabe
cls rgb 0 0 150
msg msg.box,time(7)+"  um   "+time(2),"Test de mehrzeiligen msg",["JA","NEIN","VIELLEICHT"],zéro,ergebnis

proc ergebnis btn txt1

    imprimer "
    "
    imprimer vide + "Es wurde  "+str(btn)+".  gewählt"
    imprimer vide + "______________________________"
    imprimer vide

    si str(btn) == 1

        imprimer vide + "JA"
        imprimer vide
        imprimer vide
        imprimer vide + "Nach Eingabe de TEXT,"
        imprimer vide + "ergibt 'ENTER' une neue Zeile"
        imprimer vide
        imprimer vide + "Zweites 'JA' ergibt Anzeige qui Eingabe"
        imprimer vide + "tatschen = Ende"
        imprimer vide
        imprimer vide + "'ENDE' finissez alles"
        imprimer vide
        imprimer vide
        msg msg.box, "TEST","neue la ligne avec 'Enter'",["JA","NEIN","ENDE"],[»,131072+1],eingabe

    endif

    si str(btn) == 2

        imprimer vide + "NEIN"
        imprimer vide
        imprimer vide + "zum finissons s'il te plaît tatschen"

    endif

    si str(btn) == 0

        imprimer vide + "vielleicht"
        imprimer vide
        imprimer vide + "zum finissons s'il te plaît tatschen"
        gui gui.bgcolor, gui.hwnd, rgb 255 0 0 128

    endif

endproc

proc eingabe btn txt2

    mehrzeilige_eingabe = txt2
    imprimer mehrzeilige_eingabe

    si str(btn) == 0

        end

    endif

endproc

proc event (id, data)

    si id == event.touchdown

        msg msg.box, "ENDE"
        imprimer vide+"ENDE"
        end

    endif

endproc