ROUTINE (Обьявить локальную подпрограмму)
метка ROUTINE
| метка | Имя подпрограммы. |
ROUTINE объявляет начало местной подпрограммы. Она локальна по отношению к ПРОЦЕДУРЕ или ФУНКЦИИ в которой она описана и должна быть в конце секции CODE ПРОЦЕДУРЫ или ФУНКЦИИ к которой она принадлежит.
ROUTINE вызывается оператором DO, за которым идет метка подпрограммы. Управление Программе после выполнения ROUTINE возвращается оператору после слова DO. ROUTINE заканчивается концом исходного модуля, или началом другой ROUTINE, ПРОЦЕДУРЫ, или ФУНКЦИЙ. Оператор RETURN может также использоваться для завершения кода ROUTINE (подобно RETURN в ПРОЦЕДУРЕ).
Пример:
SomeProc PROCEDURE
CODE
!операторы
DO CheckPage !вызов подрограммы
!еще операторы
CheckPage ROUTINE !начало подпрограммы, и одновремен-
!но - окончание процедуры
IF LineCount > 55 !Если больше 55 строк
PRINT(@FF) ! делаем перевод формата
LineCount = 0 ! сбросить счетчик строк
EXIT ! выход из подпрограммы
. !Конец условия if
См. Также: ,
