C C AUTHOR: C R. STODOLA C THE INSTITUTE FOR CANCER RESEARCH C 7701 BURHOLME AVE. C PHILADELPHIA, PA. 19111 C C ******************************************************* C * * C * THIS SOFTWARE WAS DEVELOPED WITH SUPPORT * C * FROM THE NATIONAL INSTITUTES OF HEALTH: * C * NIH CA06927 * C * NIH CA22780 * C * * C * DIRECT INQUIRIES TO: * C * COMPUTER CENTER * C * THE INSTITUTE FOR CANCER RESEARCH * C * 7701 BURHOLME AVENUE * C * PHILADELPHIA, PENNSYLVANIA 19111 * C * * C * NO WARRANTY OR REPRESENTATION, EXPRESS OR * C * IMPLIED, IS MADE WITH RESPECT TO THE * C * CORRECTNESS, COMPLETENESS, OR USEFULNESS * C * OF THIS SOFTWARE, NOR THAT USE OF THIS * C * SOFTWARE MIGHT NOT INFRINGE PRIVATELY * C * OWNED RIGHTS. * C * * C * NO LIABILITY IS ASSUMED WITH RESPECT TO * C * THE USE OF, OR FOR DAMAGES RESULTING FROM * C * THE USE OF THIS SOFTWARE * C * * C ******************************************************* C * * C * THIS SOFTWARE WAS DESIGNED FOR USE ON A * C * PDP-11/70 OPERATING UNDER IAS V2.0 USING * C * THE FORTRAN-IV PLUS COMPILER. * C * * C ******************************************************* INTEGER TN(3) INTEGER SBF(5) DATA SBF/5*0/ DATA TASK/6R..UMON/ TYPE 10 10 FORMAT(/'$TASK NAME? ') ACCEPT 20,TN 20 FORMAT(6A2) CALL IRAD50(6,TN,SBF(2)) TYPE 30 30 FORMAT(/'$TERMINAL DEVICE NAME? ') ACCEPT 20,SBF(4) TYPE 40 40 FORMAT(/'$TERMINAL DEVICE UNIT NUMBER (2 DIGIT OCTAL)? ') ACCEPT 50,SBF(5) 50 FORMAT(O2) TYPE 60 60 FORMAT(/'$DURATION BETWEEN SAMPLES (IN TICKS)? ') ACCEPT *,SBF(1) CALL VSNDRR(TASK,,SBF,,5,,,IDS) IF(IDS.GT.0)GO TO 80 TYPE 70,IDS 70 FORMAT('0**** FAILED TO SEND TO UMON. DSW='I6) 80 END