Page 74 - 4352
P. 74

partno_text$
                     Тип
                     строковий
                     Умовчання
                     Опис
                     Текст  коментарю,  заданий  у  заголовку  вихідної  програми  або  порожній
               рядок (рядок нульової довжини), якщо відсутній у вихідній програмі.
                     Приклад
                  'Вивід інформації на початку програми
                  if command#=HEADER# then
                  ' Вивід рядка PARTNO (текст на стрічці) випередженої
                  ' символом '@'
                                                            n
                    write id1# using "@%s%s , partno_text$ , NL$

                    n#=NSTART#   ' Установка початкового значення
                               ' лічильника кадрів
                    write id1# using "%%"  'Вивід знака відсотка на
                                           ' початку програми
                    write id1# using "%s", NL$ ' Вивід знака LF
               --------------------------------------------------------------------------------------------------------
                     unit_count#
                     Тип
                     цілий
                     Умовчання
                     Опис
                     Кількість  модулів  (головна  програма  +  підпрограми)  у  вихідній  програмі.
               Якщо присутня тільки головна програма, дорівнює 1 інакше дорівнює 1 + число
               підпрограм у вихідній програмі.
               --------------------------------------------------------------------------------------------------------
                     proc_no#
                     Тип
                     цілий
                     Умовчання
                     0
                     Опис
                     Дорівнює номеру підпрограми, якій належить аналізована команда вихідної
               програми.  Якщо  аналізована  команда  належить  головній  програмі,  параметр
               приймає значення 0.
                     Приклад
                  ' Вивід інформації, пов'язаної з початком підпрограми.
                  elseif command#=PROCEDURE# then
                  ' Вивід кадру, що містить номер кадру n# за адресою N,
                  ' номер підпрограми за адресою _, обмежник кадру LF :
                    write id1# using "N%d$%d%s", n#, proc_no# , NL$
                  n#=n#+NSTEP#
                  elseif command#=RETURN# then

                                                               73
   69   70   71   72   73   74   75   76   77   78   79