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