/*
 * Script für WRITE V3.263 © 1993 Tim Teulings
 * Dieses Script zeigt den Umgang mit den Befehlen :
 * CLEARLIST, ADDLIST und SHOWLIST
 *
 */

IF ~show('P',"WRITE")
THEN DO
 say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
 exit 10
END

ADDRESS "WRITE"

OPTIONS RESULTS

'MESSAGEOK "Dieses REXX-Script demonstriert\nden Umgang mit den Befehlen\nCLEARLIST, ADDLIST und SHOWLIST !"'

'MESSAGEOK "Wir generieren eine Liste\nmit diversen Einträgen..."'

CLEARLIST 0

'ADDLIST "Hallo Leute !" 0 '
'ADDLIST "Dies ist ein Test..." 0'
'ADDLIST "Eintrag Nummer 3" 0'
'ADDLIST "Mir fällt nichts mehr ein #@/&% !" 0'
'ADDLIST "So here I am one more..." 0'
'ADDLIST "Buh !" 0'
'ADDLIST "Ende der Liste !" 0'

'MESSAGEOK "Ok.\nNun kann man sich mittels des\nSHOWLIST-Befehls diese Liste\nanzeigen lassen..."'

'SHOWLIST 0 0'

'MESSAGEOK "...oder sogar ein Element\nder Liste auswählen !"'

'SHOWLIST 0 0 {@SELECT}'

IF RC~=0 THEN DO
  'MESSAGEOK "Sie haben nichts\nausgewählt."'
END
ELSE DO
ReturnString = RESULT
  MESSAGEOK "(" || "Sie haben den Eintrag\n" || '"' || ReturnString || '"'  || "\nausgewählt !" || ")"
END

'MESSAGEOK "Ende des Demos !"'