1 C -+-+-+-+-+
\ e H A E I S A . F T
\ e -+-+-+-+-+
3 C INSERT 'VALUE' INTO THE INDEX'ED WORD FROM SAMPLE
5 SUBROUTINE ISAM (VALUE,INDEX)
13 WORD=INDEX*CHNLS-CHNLS+1+CHANEL
14 RECNUM=WORD/255+OFFSET
15 IF (RECNUM.EQ.INPREC) GOTO 10
16 C TEST THE WRITE FLAG OF BUFFER, AND IF SO WRITE BUFFER ONTO MASS STORAGE
17 C READ THE NEXT RECORD
18 IF (INPREC.GT.1 .AND. WFLAG) WRITE (UNIT'INPREC) BUFFER
20 READ (UNIT'INPREC) BUFFER
22 CALL WPUT(BUFFER,MOD(WORD,255)+1,INT(VALUE+0.5))
23 WFLAG=.TRUE. @ SOME WORD WRITTEN INTO THE BUFFER