FTN4,L INTEGER FUNCTION IFDVR(LU),92070-1X320 REV.2040 800723 C************************************************************** C* * C* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980. ALL RIGHTS * C* RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * C* REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE * C* WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD * C* COMPANY. * C* * C************************************************************** C* C* NAME: IFDVR C* SOURCE: 92070-18320 (&IFDVR for L-series) C* RELOC: PART OF 92070-12013 (%IFDVL merged into $DKLIB) C* PGMR: KKB C* C C RETURN 1, INDICATING HP-IB DRIVER (AS OPPOSED TO 13037) C IFDVR = 1 RETURN END