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

 system lensv

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

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

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

                       start
                       entry task
                       system newsv,wtr,popsv,lensv,symb,prout
                       swap box

            task =     <wtr /box/<newsv 'D'/12//X'FFFF/>> +
                       <prout <symb <lensv /box/>>>       +
                       <popsv /box//X'1234/>              +
                       <prout <symb <lensv /box/>>>       +
                       <popsv /box//X'2345/>              +
                       <prout <symb <lensv /box/>>>       +
                       <popsv /box//X'3456/>              +
                       <prout <symb <lensv /box/>>>
                       end

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

            C:\PRIMER>primer.exe
            0
            1
            2
            3

            C:\PRIMER>