SUBROUTINE DIRECT(ACHAN,IP) INTEGER*2 DIRS(2048),ACHAN COMMON DIRS IP=0 L1=1 10 I=IROS8W(256,DIRS(1792),IP+1,ACHAN) IF(I.LT.0)STOP 'BAD READ' IP=IP+1 CALL IC(DIRS(1792),DIRS(L1)) L1=L1+256 IF(DIRS(L1-254).NE.0)GOTO 10 RETURN END