SUBROUTINE ATTACH(LUN,ERR) C C Routine to ATTACH/DETACH LUN (usually TI:) C ERR = 1 on successful return C DIMENSION ISB(2) INTEGER ERR C C Attach the device here C CALL WTQIO("001400,LUN,1,,ISB) GO TO 5 C C Detach the device here C ENTRY DETACH CALL WTQIO("002000,LUN,1,,ISB) C C And that is all ther is to it! C 5 ERR = ISB(1) RETURN END