INCRDSV   Увеличение на 1 номера элемента и выдача элемента стек-вектора

 SYSTEM INCRDSV

 <INCRDSV SbSn>
                  где Sb - символ-ссылка - имя стек-вектора  или
                           символ-метка - имя ящика, содержащего имя
                           стек-вектора,
                      Sn - номер элемента стек-вектора.

   Увеличение на 1 номера элемента Sn и выдача элемента стек-вектора по
   новому номеру.

   Значение:  Результатом замены является Sn+1 - увеличенный на единицу
              номер элемента, за которым следуют макроцифры по 16 бит -
              элемент стек-вектора.

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

                   START
                   ENTRY task
                   SYSTEM NEWSV,WTR,POPSVE,INCRDSV,SYMB,PROUT
                   SWAP box

         printres
               S0S1S2 = <PROUT '/'<SYMB S0>'//'<SYMB S1>'//'<SYMB S2>'/'>
               Ex     = <PROUT 'Error!'>

         task =    <WTR /box/<NEWSV 'F'/1/>>  +
                   <POPSVE /box//1111//2222/>       +
                   <POPSVE /box//3333//4444/>       +
                   <POPSVE /box//5555//6666/>       +
                   <printres <INCRDSV /box//0/>> +
                   <printres <INCRDSV /box//1/>> +
                   <printres <INCRDSV /box//2/>> +
                   <printres <INCRDSV /box//3/>>
                   END

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

             C:\PRIMER>primer.exe
             /1//1111//2222/
             /2//3333//4444/
             /3//5555//6666/
             Error!

             C:\PRIMER>

Seealso:


 DECRDSV