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)+"  en   "+time(2),"Test de mehrzeiligen msg",["JA","NEIN","VIELLEICHT"],null,ergebnis

proc ergebnis btn txt1

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

    if str(btn) == 1

        imprimir leer + "JA"
        imprimir leer
        imprimir leer
        imprimir leer + "Nach Eingabe de TEXT,"
        imprimir leer + "ergibt 'ENTER' una neue Zeile"
        imprimir leer
        imprimir leer + "Zweites 'JA' ergibt Anzeige el Eingabe"
        imprimir leer + "tatschen = Ende"
        imprimir leer
        imprimir leer + "'ENDE' final alles"
        imprimir leer
        imprimir leer
        msg msg.box, "TEST","neue Línea con 'Enter'",["JA","NEIN","ENDE"],["",131072+1],eingabe

    endif

    if str(btn) == 2

        imprimir leer + "NEIN"
        imprimir leer
        imprimir leer + "zum Beenden Por favor, tatschen"

    endif

    if str(btn) == 0

        imprimir leer + "vielleicht"
        imprimir leer
        imprimir leer + "zum Beenden Por favor, tatschen"
        gui gui.bgcolor, gui.hwnd, rgb 255 0 0 128

    endif

ENDPROC

proc eingabe btn txt2

    mehrzeilige_eingabe = txt2
    imprimir mehrzeilige_eingabe

    if str(btn) == 0

        end

    endif

ENDPROC

proc event (id, data)

    if id == event.touchdown

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

    endif

ENDPROC