/*
**  $VER: CL-Uniconify.clrexx 0.001 (16 Nov 1995)
**
**        © 1995 Ralf Ramge
**
**  PROGRAMNAME:
**      CL-Iconify.clrexx
**
**  FUNCTION:
**
**      Demonstrationsskript für Connectline 5.0
**
**      Connectline © 1986-1995 Oliver Wagner, Mathias Mischler
**
**      Deiconifiziert sämtliche Connectline-Fenster.
**
*/

/* rexxsupport.library öffnen */

if ~show('L','rexxsupport.library') then do
    if ~addlib('rexxsupport.library',0,-30,0) then do
        say 'rexxsupport.library nicht gefunden !'
        say 'Bitte kopieren Sie diese Library von'
        say 'Ihren Workbench-Disketten nach LIBS:'
        exit 10
        end
    end

portlist=showlist(P)
do x=1 to words(portlist)
    port=word(portlist,x)
    if left(port,2)='CL' then do
        address value port
        'SHOW'
        end
    end
exit