ЗАМЕНИТЕ ВСЕ ХХХ НА НУЖНЫЕ ВАМ:ШИФР,НОМЕР БОБИНЫ,НОМЕР ЗОНЫ
ЗАПУСТИТЕ ЗАДАЧУ ПО Ф ЛИСТ.
ЕСЛИ В ФАЙЛЕ БОЛЬШЕ 1200 СТРОК,УВЕЛИЧЬТЕ МЕТРЫ АЦПУ
ШИФР ХХХХХХ ЗСМ^
ЛЕНТ 42(ХХХХ)^
АЦПУ 7^
ЕЕВ1А3
*NАМЕ
*NО LI
*FТN
      SUВRОUТINЕ RDLISТ(IАR,S)
      INТЕGЕR IАR(12)
      DАТА (I1=0)
      IF (I1.NЕ.0) GОТО 1
      РRINТ 2
      I1=1
1     РRINТ 3,IАR
      САLL S(IАR)
      RЕТURN
2     FОRМАТ('*     ВКЛЛИС',/'*     Н 3-74',/'*     УС 2=Ь'
     * ,/'*     ВЫКЛИС')
3     FОRМАТ(' Ь',12А6)
      ЕND
*     ЧТЕНИЕ ФАЙЛА ИЗ ДУБНЫ В КРАБ
*ЕDIТ
*R:42ХХХ
*WО
*U:RDLISТ
*ЕЕ
*ЕND F
