FTN 
      SUBROUTINE HALT,92069-16001 REV.1912 790202 
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WIOTH OUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18011
C     RELOC:     92069-16001
C 
C 
C****************************************************************:
C 
C 
C 
C HALT CLOSES THE INPUT AND OUTPUT FILES, OR RELEASES THE 
C LOCK ON THE OUTPUT DEVICE 
C 
C 
C 
C 
      LOGICAL IFTTY 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$  AUGUST 10,1978 $$$
      INTEGER ERROR,P,PLEN,CARD,LOG,COL 
      INTEGER ELECT,ITEM,LENTH,TYPE 
      INTEGER IDCB,LDCB,LIST,INPUT,PRTLM,CHECK,LST
      INTEGER IBASE 
      INTEGER SETERR
      INTEGER TRUE,FALSE,SEMI,COMMA 
      INTEGER L,CHAR
      INTEGER SETNO 
      INTEGER QTFLAG
C 
      COMMON ERROR,P(40),PLEN,CARD(256),LOG,COL 
      COMMON ELECT(129),ITEM(129),LENTH(129),TYPE(129)
      COMMON IDCB(144),LDCB(144),LIST,INPUT,PRTLM,CHECK,LST 
      COMMON IBASE(10)
      COMMON SETERR 
      COMMON L,CHAR 
      COMMON SETNO
      COMMON QTFLAG 
      COMMON/CONST/TRUE,FALSE,SEMI,COMMA
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$  OCTOBER 16,1978 $$
      EXTERNAL IFTTY
C 
      IF(INPUT .NE. -1) GOTO 10 
      CALL ECLOS(IDCB,IERR) 
10    IF(LIST .EQ. -1) GOTO 20
C 
C WRITE EOF TO OUTPUT DEVICE
C 
      IF(IFTTY(LIST)  .OR.  IFTTY(INPUT) ) GOTO 30
      CALL EXEC(3,LIST + 100B)
      CALL LURQ(140000B,IDUMY,IDUMY)
      GOTO 30 
15    GOTO 30 
20    CONTINUE
      CALL ECLOS(LDCB)
30    CONTINUE
      STOP
      END 
                                                                                                                                                                                                  