REAL A(3) DATA A/'AWRU','FVBY','TGKM'/ I=INDEX(A,'UFVB',4,12) WRITE(3,10)I 10 FORMAT(1X,'Index =',I4) I=INDEX('Abfrg','rg',2,5) WRITE(3,10)I I=INDEX('SXCt','x',1,4) WRITE(3,10)I I=INDEX('Helpme','Helpme',6,6) WRITE(3,10)I STOP END