C DETTRM C C MICHAEL BOORSTEIN C C MARCH 14,1978 C C C C THIS PROGRAM DETACHES THE DEVICE IN DEV C C DEV = 2 LETTER NAME FOR DEVICE IE. 'LP', OR 'TI' C C UNIT = THE UNIT NUMBER OF THE DEVICE C C LUN = THE LUN OF THE DEVICE C SUBROUTINE DETTRM IMPLICIT INTEGER(A-Z) LOGICAL*1 ISB(4) DATA QIODAT,IOSUC,IEPRI/"2000,1,-16/ DATA ATTEFN/1/ DATA DEV,UNIT,LUN/'TI',0,5/ 10 CALL QIO(QIODAT,LUN,ATTEFN,,,,IDS) IF(IDS.EQ.IOSUC)GOTO 20 CALL WFSNE GOTO 10 20 CALL WAITFR(ATTEFN) RETURN END