[*]Profan

Título de la ventana "Debugprüfung - " $ $ProfVer
cls
// en Summe: sólo Widestring verweigert se (Con el el Arrays war sí klar. Tal vez lässt se el Diálogo sí variabler gestalten, así mehr adecuado se.)
Declarar Test1$
Declarar cadena Test2
Declarar widestring Test3
Declarar Test4%
Declarar int Test5
Declarar quadint Test6
Declarar float Test7
Declarar single Test8
Declarar test9$[1]
Test1$ = "Das debería adecuado voluntad."
Test2  = "neue Typen-Deklaration"
Test3  = "Überraschung"
Test4% = 12
Test5  = 14
Test6  = 2018
Test7  = pi()
Test8  = 3.14
test9$[0] = "na"
test9$[1] = "klar"
 $D "Daten Mostrar (1)", Test1$
Imprimir "und más en el Program: "; Test1$
WaitInput
 $D "Daten Mostrar (2)", Test2
Imprimir "und más en el Program: "; Test2
WaitInput
 $D "Daten Mostrar (3)", Test3
// upps
Imprimir "und más en el Program: "; Test3
WaitInput
 $D "Daten Mostrar (4)", Test4%
Imprimir "und más en el Program: "; Test4%
WaitInput
 $D "Daten Mostrar (5)", Test5
Imprimir "und más en el Program: "; Test5
WaitInput
 $D "Daten Mostrar (6)", Test6
Imprimir "und más en el Program: "; Test6
WaitInput
 $D "Daten Mostrar (7)", Test7
Imprimir "und más en el Program: "; Test7
WaitInput
 $D "Daten Mostrar (8)", Test8
// por qué nutzt überhaupt wer esta Datentyp
Imprimir "und más en el Program: "; Test8
WaitInput
 $D "Daten Mostrar (9)", test9$[1]
Imprimir "und más en el Program: "; test9$[1]
WaitInput
end