C -+-+-+-+-+  H A E I S A . F T  -+-+-+-+-+ C C INSERT 'VALUE' INTO THE INDEX'ED WORD FROM SAMPLE C SUBROUTINE ISAM (VALUE,INDEX) REAL VALUE INTEGER INDEX C INCLUDE HAEBUF.FI C INTEGER RECNUM,WORD C WORD=INDEX*CHNLS-CHNLS+1+CHANEL RECNUM=WORD/255+OFFSET IF (RECNUM.EQ.INPREC) GOTO 10 C TEST THE WRITE FLAG OF BUFFER, AND IF SO WRITE BUFFER ONTO MASS STORAGE C READ THE NEXT RECORD IF (INPREC.GT.1 .AND. WFLAG) WRITE (UNIT'INPREC) BUFFER INPREC=RECNUM READ (UNIT'INPREC) BUFFER 10 CONTINUE CALL WPUT(BUFFER,MOD(WORD,255)+1,INT(VALUE+0.5)) WFLAG=.TRUE. @ SOME WORD WRITTEN INTO THE BUFFER RETURN END