C Collection of code snippets by Arne Vajhøj C posted to INFO-VAX, INFO-TPU, MACRO32 and other (1990-1999) PROGRAM TEST_RECALL INTEGER*4 L(100),N,I CHARACTER*80 S(100) CALL RECALL(S,L,N) DO 100 I=1,N WRITE(*,*) S(I)(1:L(I)) 100 CONTINUE END