SUBROUTINE OTHER (BLK)
C
C	ROBERT WATSON
C	CISCO, INC.
C	(918)665-2110
C	4135 S. 100TH E. AVE.
C	TULSA OK 74145
C
C	THIS PROGRAM HAS BEEN DONATED TO THE PUBLIC DOMAIN
C	AND IS NOT TO BE COPYRIGHTED.
C
	INTEGER*2	BLK(256),	Q,		PCDUM(2),
	1		HIPC,		LOPC,		IDUM
	INTEGER*4	PC,		IBEG
	BYTE		LOC(6),		MAC(6),		RAD(3),
	1		ANS,		TODO,		Z,
	2		BDUM(2)
	EQUIVALENCE	(PC,PCDUM(1)),		(PCDUM(1),LOPC),
	1		(PCDUM(2),HIPC),	(BDUM(1),IDUM)
	DATA		Z	/.TRUE./
300	WRITE  (5,400)
400	FORMAT (/,' ENTER OCTAL ADDRESS OR RETURN TO CHANGE MODES ',$)
	READ   (5,500,ERR=300,END=2000) Q, IBEG
500	FORMAT (Q,O6)
	IF (Q .LE. 0) GO TO 1900
	IF ((IBEG.AND.1) .EQ. 0) GO TO 700
	WRITE  (5,600) 7
600	FORMAT (/,' ADDRESS MUST BE EVEN',A1)
	GO TO 300
700	CALL INIT (BLK, ISUB, IBEG, IREC, PC)
	PC = IBEG
800	WRITE  (5,900)
900	FORMAT (/,' VIEW IN ASCII, OCTAL WORD, OR RAD50',
	1	' (A, O, OR R)? ',$)
	READ   (5,1000,END=2000) ANS
1000	FORMAT (A1)
	IF (ANS.NE.'A' .AND. ANS.NE.'O' .AND. ANS.NE.'R') GO TO 800
1100	WRITE  (5,1200)
1200	FORMAT (/,' RETURN TO VIEW NEXT WORD',/,
	1	' ENTER ''N'' TO GO TO NEW LOCATION',/,
	2	' ENTER ''V'' TO VIEW IN NEW FORMAT',/,
	3	' ENTER ''X'' TO CHANGE MODES',/)
1250	CALL OCTL (LOPC, LOC, Z)
	CALL OCTL (BLK(ISUB), MAC, Z)
	IF (ANS .NE. 'O') GO TO 1260
	WRITE  (5,1255) LOC, MAC
1255	FORMAT (X,6A1,2X,6A1,7X,$)
	GO TO 1600
1260	IF (ANS .EQ. 'R') GO TO 1400
	IDUM = BLK(ISUB)
	IF (BDUM(1).LT."40 .OR. BDUM(1).GT."176) BDUM(1) = '?'
	IF (BDUM(2).LT."40 .OR. BDUM(2).GT."176) BDUM(2) = '?'
	WRITE  (5,1300) LOC, MAC, BDUM
1300	FORMAT (X,6A1,2X,6A1,2X,2A1,3X,$)
	GO TO 1600
1400	CALL R50ASC (3, BLK(ISUB), RAD)
	WRITE  (5,1500) LOC, MAC, RAD
1500	FORMAT (X,6A1,2X,6A1,2X,3A1,2X,$)
1600	READ   (5,1700,END=2000) Q, TODO
1700	FORMAT (Q,A1)
	IF (Q .LE. 0) GO TO 1800
	IF (TODO.NE.'N' .AND. TODO.NE.'V' .AND. TODO.NE.'X') GO TO 1100
	IF (TODO .EQ. 'N') GO TO 300
	IF (TODO .EQ. 'V') GO TO 800
	IF (TODO .EQ. 'X') GO TO 1900
1800	PC = PC + 2
	ISUB = ISUB + 1
	IF (ISUB .LE. 256) GO TO 1250
	IREC = IREC + 1
	CALL FILL (BLK, IREC, ISUB, PC)
	GO TO 1250
1900	RETURN
2000	STOP
	END