**FREE
ctl-opt DFTACTGRP(*NO);

dcl-f SHOWCOLORD WorkStn
                 Handler('PROFOUNDUI(HANDLER)');

Dou btnExit = *On;
  ExFmt ShowColors;
EndDo;

*InLr = *On;
RETURN;