/*
 * Eingabe.rexx
 * Beispiel-ARexx-Skript zu TurboBase   © Michael Friedrich
 *
 *
 *
 */

/* Failat auf 11 setzen, da TurboBase bei Klick auf <Abbruch> den
   Wert 10 zurückliefert!
*/
Options FailAt 11
/* Dies wird benötigt, um das Ergebnis von EINGABE in RESULT zurück-
   zuerhalten */
Options Results

/* Wir wollen mit TurboBase kommunizieren */
ADDRESS TBASE


REQPARA 10 10   /* Fenster an Position 10,10 */
'message "Dies ist ein ARexx-Beispiel" "Beispiel 1"'

REQPARA OK Ja Abbruch Nein
'request "Wollen Sie das Beispiel fortsetzen?" "Beispiel 2"'

/* Hat Benutzer auf <Abbruch> gedrückt ??? */
IF rc~=0 then exit

'EINGABE "Geben Sie einen Text ein" "Beispiel 3"'

if rc==0 then say "Sie haben '"RESULT||"' eingegeben"