1      SUBROUTINE EXTRST(KOL, FROM, TO, STRING)
2C
3C***  EXTRACT A STRING IN ARRAY KOL AND PUT IN ARRAY STRING.
4C***  EXTRACT FROM-TO.
5C
6      INTEGER FROM,TO,STRING
7C
8      DIMENSION KOL(80),STRING(80)
9C
10      II=0
11      DO 1000 I=FROM,TO
12          II=II+1
13          STRING(II)=KOL(I)
14 1000 CONTINUE
15C
16      RETURN
17      END
18