WRIТЕLN(’ <-!-> ВЫХОД В ПУЛЬС <-!->’);
_РRОСЕD ИНФОР; _( WRIТЕLN( ’ 1. ЗАКАЗ < НОМЕРА СЛОЕВ > - ЗАКАЗ СЛОЕВ ДЛЯ СЛО И СТАТ 2. СОСТ [ ДИС,БУФ ] - УСТАНОВКА СОСТОЯНИЯ 3. СЛОЙ < НОМ СЛОЯ > - ПОКАЗ СЛУЖЕБНЫХ СЛОВ 4. СБОР < НОМ СЛОЯ > - МОДИФ ФАЙЛА ОТРЕЗКОВ 5. ВОЗВРАТ - РЕЗ -> ИСХ 6. СТАТИС [< ЧИС ДИСКР >] - ВЫДАЧА СТАТИСТИКИ ПО СЛОЯМ) 7. ЦЕПИ [С,<N1:N2>,Ф<N>] - СТАТИС НОМЕРОВ ЦЕПЕЙ 8. КОРНИ [ПЕЧ] - СОСТАВЛЕНИЕ СПИСКА КОРНЕЙ 9. ВЕРИФИКАЦИЯ - ВЕРИФИКАЦИЯ ТРАССИРОВКИ 10. НАВЕС <N1:N2> - ПОКАЗ НАВЕСНЫХ СВЯЗЕЙ’) _); (*ЕND ИНФОР*)
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
no subject
Date: 2016-11-16 08:16 am (UTC)Действительно, встречаются фрагменты паскалевского кода типа:
Или:
_РRОСЕD ИНФОР; _( WRIТЕLN( ’ 1. ЗАКАЗ < НОМЕРА СЛОЕВ > - ЗАКАЗ СЛОЕВ ДЛЯ СЛО И СТАТ 2. СОСТ [ ДИС,БУФ ] - УСТАНОВКА СОСТОЯНИЯ 3. СЛОЙ < НОМ СЛОЯ > - ПОКАЗ СЛУЖЕБНЫХ СЛОВ 4. СБОР < НОМ СЛОЯ > - МОДИФ ФАЙЛА ОТРЕЗКОВ 5. ВОЗВРАТ - РЕЗ -> ИСХ 6. СТАТИС [< ЧИС ДИСКР >] - ВЫДАЧА СТАТИСТИКИ ПО СЛОЯМ) 7. ЦЕПИ [С,<N1:N2>,Ф<N>] - СТАТИС НОМЕРОВ ЦЕПЕЙ 8. КОРНИ [ПЕЧ] - СОСТАВЛЕНИЕ СПИСКА КОРНЕЙ 9. ВЕРИФИКАЦИЯ - ВЕРИФИКАЦИЯ ТРАССИРОВКИ 10. НАВЕС <N1:N2> - ПОКАЗ НАВЕСНЫХ СВЯЗЕЙ’) _); (*ЕND ИНФОР*)