C..   HPSET.FTN    BOHDEN K. CMAYLO    NOV 81
C..
C..   ROUTINE TO SET TABS AND/OR LOG BOTTOM ON HP2621P TERMINAL
C..
	BYTE LOGBOT(6),IRESET(6),IXTABS(10),NUMBS(10),LOCK(5),JTAB
	BYTE NOFUNC(4)
	DATA LOCK/"33,'&','q','1','L'/
	DATA LOGBOT/"33,'&','p','1','3','C'/
	DATA IRESET/"33,'H',"33,'J',"33,'3'/
	DATA NOFUNC/"33,'&','j','@'/
	DATA IXTABS/"33,'&','a','1','r','0','0','C',"33,'1'/
	DATA NUMBS/'0','1','2','3','4','5','6','7','8','9'/
	TYPE 12
12	FORMAT('$ SET HP TABS (1-9 D:8)? ')
	ACCEPT 11,JTAB
	IF(JTAB.EQ.' '.OR.JTAB.EQ.'0') JTAB='8'
	ITAB='N'
	DO 15 I=1,10
	IF(NUMBS(I).EQ.JTAB) ITAB=I-1
15	CONTINUE
1	FORMAT(1X,20A1)
11	FORMAT(A1)
	TYPE 1,NOFUNC
	IF(ITAB.EQ.'N'.OR.ITAB.EQ.'n') GO TO 9
	TYPE 1,IRESET
	TYPE 1,LOCK
	DO 2 INTABX=ITAB,80,ITAB
	INTAB1=INTABX/10
	INTAB2=INTABX-INTAB1*10
	IXTABS(6)=NUMBS(INTAB1+1)
	IXTABS(7)=NUMBS(INTAB2+1)
	TYPE 1,IXTABS
2	CONTINUE
	LOCK(4)=NUMBS(1)
	TYPE 1,LOCK
9	TYPE 13
13	FORMAT('$ LOG BOTTOM (D: Y)? ')
	ACCEPT 11,ILOG
	IF(ILOG.EQ.'N'.OR.ILOG.EQ.'n') GO TO 99
	TYPE 1,LOGBOT
	LOGBOT(5)=NUMBS(2)
	TYPE 1,LOGBOT
99	CALL EXIT
	END