COMMON ICHAR(7) DO 10 I=1,7 ICHAR(I)=I 10 CONTINUE 1 CALL LITER DO 100 J=1,10 100 CONTINUE GO TO 1 END