Infinity-Profan

var j
var n
var txt1
var txt2
var empty = "                         "
var mehrzeilige_eingabe
cls rgb 0 0 150
msg msg.box,time(7)+"  circa   "+time(2),"Test of mehrzeiligen msg",["JA","NEIN","VIELLEICHT"],zero,Result

proc Result btn txt1

    print "
    "
    print empty + "Es watts  "+st(btn)+".  gewählt"
    print empty + "______________________________"
    print empty

    if st(btn) == 1

        print empty + "JA"
        print empty
        print empty
        print empty + "Nach input of TEXT,"
        print empty + "ergibt 'ENTER' a new Zeile"
        print empty
        print empty + "Zweites 'JA' yields display the Eingabe"
        print empty + "tatschen = Ende"
        print empty
        print empty + "'ENDE' exits alles"
        print empty
        print empty
        msg msg.box, "TEST","neue row with 'Enter'",["JA","NEIN","ENDE"],["",131072+1],input

    endif

    if st(btn) == 2

        print empty + "NEIN"
        print empty
        print empty + "zum terminate Please tatschen"

    endif

    if st(btn) == 0

        print empty + "vielleicht"
        print empty
        print empty + "zum terminate Please tatschen"
        gui gui.bgcolor, gui.hwnd, rgb 255 0 0 128

    endif

endproc

proc input btn txt2

    mehrzeilige_eingabe = txt2
    print mehrzeilige_eingabe

    if st(btn) == 0

        end

    endif

endproc

proc event (id, data)

    if id == event.touchdown

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

    endif

endproc