/*
 $VER: InfoList_select.dopus 2.92 (95.01.04 18:55:58)

 Funktion: Dies ist ein Rexx-Script für DOpus4.0+. Mit Hilfe von InfoList
   können Files (de)selectiert werden, die einem bestimmten Filetyp
   entsprechen. Siehe Infolist.dok.

 Benötigt werden:
   InfoList
   DOpus 4.0+ runing
   temporäres Dir "T:"

 Aufruf: RX InfoList_select.DOPUS

 Programmierer: Lutz Hanke, Dorfstr. 43, 01825 Breitenau, Germany
*/


ADDRESS 'DOPUS.1'
OPTIONS RESULTS

'Status 3'				/* aktives Fenster feststellen */
active = RESULT
inactive = active && 1			/* einfache Berechnung des Inaktiven */

'status 13' active
from_path = result


'getstring "Bitte die Selectparameter eingeben' '0a'X ||,
  'z.B. ANIM IFF GRAFIC ICON MUSIC PACK PROG TXT UNKNOWN oder NO()"'

res = result
'busy on'
if res ~= '' & res ~= 'RESULT' then do
  ADDRESS 'COMMAND' 'Infolist "'from_path'" >t:il files lformat %n' res
  if rc = 0 then do
    if open('il','t:il') then do
      do while ~EOF('il')
        name = readln('il')
        'SelectFile "'name'" -1 1'
      end
      call close('il')
    end
    else 'request Umleitungs File war nicht zu öffnen. ??'
  end
  else 'request Infolist lieferte Fehler.'
end

'busy off'

exit 0