Infinity-Profan

var j
var n
var txt1
var txt2
var leer = "                         "
var mehrzeilige_eingabe
cls rgb 0 0 150
msg msg.box,time(7)+"  um   "+time(2),"Test von mehrzeiligen msg",["JA","NEIN","VIELLEICHT"],null,ergebnis

proc ergebnis btn txt1

    print "
    "
    print leer + "Es wurde  "+str(btn)+".  gewählt"
    print leer + "______________________________"
    print leer

    if str(btn) == 1

        print leer + "JA"
        print leer
        print leer
        print leer + "Nach Eingabe von TEXT,"
        print leer + "ergibt 'ENTER' eine neue Zeile"
        print leer
        print leer + "Zweites 'JA' ergibt Anzeige der Eingabe"
        print leer + "tatschen = Ende"
        print leer
        print leer + "'ENDE' beendet alles"
        print leer
        print leer
        msg msg.box, "TEST","neue Zeile mit 'Enter'",["JA","NEIN","ENDE"],["",131072+1],eingabe

    endif

    if str(btn) == 2

        print leer + "NEIN"
        print leer
        print leer + "zum Beenden bitte tatschen"

    endif

    if str(btn) == 0

        print leer + "vielleicht"
        print leer
        print leer + "zum Beenden bitte tatschen"
        gui gui.bgcolor, gui.hwnd, rgb 255 0 0 128

    endif

endproc

proc eingabe btn txt2

    mehrzeilige_eingabe = txt2
    print mehrzeilige_eingabe

    if str(btn) == 0

        end

    endif

endproc

proc event (id, data)

    if id == event.touchdown

        msg msg.box, "ENDE"
        print leer+"ENDE"
        end

    endif

endproc