Local lcMenu, lcSub clear FOR i = 1 TO CNTPAD('_msysmenu') lcMenu = (GETPAD('_msysmenu', i)) ?lcMenu FOR j = 1 TO CNTPAD(lcMenu) lcSub = (GETPAD(lcMenu, j)) ?".........." + lcSub ENDFOR ENDFOR