COMMON /INPUT/ NCHRS, NAT, NTO, IN(120) COMMON /TEXTS/ DA, DO, DS, A(26), O(26), X(26), Y(26), 1 S(26), ICHRS(26), DC, C(26), TEXT(120,26) LOGICAL*1 IN, DC, C, TEXT