prtsv     Вывод содержимого стек-вектора на STDOUT

 system prtsv

 <prtsv Sb>
 <prtsv SbS1>
 <prtsv SbS1S2>
                   где Sb - символ-ссылка - имя стек-вектора или
                            символ-метка - имя ящика, содержащего имя
                            стек-вектора.
                       S1 - номер элемента стек-вектора, начиная с
                            которого производится печать.
                       S2 - номер элемента стек-вектора, на котором
                            печать заканчивается.

   Замечание: К сожалению, процедура работает неправильно.

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

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

                        start
                        entry task
                        system newsv,wtr,popsv,prtsv
                        swap box

               task =   <wtr /box/<newsv 'D'/12//X'FFFF/>> +
                        <popsv /box//X'1234//9999/>        +
                        <popsv /box//X'2345ABCD//0/>       +
                        <popsv /box//102//0/>              +
                        <prtsv /box//2/>
                        end

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

             C:\PRIMER>primer.exe
             *** СТЕК - BEKTOP ***
             2  -  abcd  abce  ce  cf
             3  -  66  67  10d  10e
             *********************

             C:\PRIMER>