lenv      Считывание текущей длины вектора

 system lenv

 <lenv Sb>
                   где Sb - символ-ссылка - имя вектора или
                            символ-метка - имя ящика, содержащего имя
                            вектора.

   Значение:  Процедура возвращает текущую длину вектора.

  -------------------------------- Пример ----------------------------------

                       start
                       entry task
                       system newv,wtr,lenv,symb,prout
                       swap box

            task =     <wtr /box/<newv 'D'/12//X'FFFF/>> +
                       <prout <symb <lenv /box/>>>
                       end

          Даст в результате выполнения:

            C:\PRIMER>primer.exe
            12

            C:\PRIMER>