FTN4
      SUBROUTINE ETMSP(IPAR1,IPAR2),92080-1X113 REV.2026  800515
C 
C 
C     NAME:   ETMSP 
C     SOURCE: &ETMSP    92080-18113 
C     BINARY: %ETMSP    ----NONE---    PART OF  $TMSLB  92080-12100 
C 
C     PRMG:   FRANCOIS GAULLIER   HPG 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C      *********************************************
C      * CALL ETMSP(IPAR1,IPAR2)                   *
C      *                                           *
C      *    IPAR1: BUFFER CONTAINING NAME OF THE   *
C      *           APPLICATION TO ABORT.           *
C      *    IPAR2: TYPE OF ABORT: SOFT OR HARD.    *
C      *           - 98 OR <0  --> SOFT STOP,      *
C      *           TIME=5MN IF 98 OR -IPAR2 IF <0  *
C      *           - ANY OTHER VALUE --> HARD STOP *
C      *                                           *
C      * THIS CALL WILL STOP THE TMS APPLICATION   *
C      * IF RUNNING.                               *
C      * IF NOT RUNNING, NOTHING HAPPENS.          *
C      *********************************************
C 
C 
      DIMENSION NAME(3) 
      LOGICAL DORMT 
      DATA NAME/2HL ,2H  ,2H  / 
C 
      CALL MOVCA(IPAR1,1,NAME,2,4)
      IF(IDGET(NAME).EQ.0) RETURN 
      IF(IDGET(IPAR1).EQ.0) RETURN
      J=98
      K=5 
      IF(IPAR2.EQ.98)  GOTO 5 
      J=97
      IF(IPAR2.EQ.97)  GOTO 5 
      K=-IPAR2
      IF(K .GT. 0)  GOTO 5
      J=99
5     CALL EXEC(23,NAME,J,K,0,0,-1) 
10    IF( DORMT(IPAR1) )  RETURN
      CALL EXEC(12,0,1,0,-50) 
      GOTO 10 
      END 
      END$
                                                                                                    