c======================================================================= c Test The Relative Organized Dictionary File c======================================================================= implicit none include 'spell_include' character*40 answer integer*4 i,l,r byte word(word_size) c initilize things c open relative dictionary file open (unit=8,file='COMMON.DICT',access='DIRECT', x form='UNFORMATTED',organization='RELATIVE', x status='OLD',READONLY,recordtype='FIXED') 10 write (*,1000) read (*,1010) l,answer if (l.eq.0) goto 200 decode (l,1020,answer,err=10) r read (unit=8,rec=r,err=20) word l = word(1) write (*,1030) r,l,(word(i),i=2,l+1) goto 10 20 write (*,1040) goto 10 200 close (8) 1000 format (' Enter relative record Number : ',$) 1010 format (q,a) 1020 format (i8) 1030 format (' Word (Nunber,Length,String)',2i8,' ',a) 1040 format (' Error reading dictionary file') end