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