PROGRAM ENCODE
!	Print a map of character Encoding
	CHARACTER*6 TEXT,lfont*40,OCTNUM*5
	INTEGER IASF(13)
	REAL ARX(4),ARY(4)
	INCLUDE 'GPLOT_SRC:GKALF.INC'	! FONTID, FPREC-->CHRMSG
	DATA IASF/13*1/		! Aspect Source Flags Individually settable

c	WRITE(6,FMT='(''$Font No.:'')')
c	READ(5,FMT='(Q,I4)') NCHAR,INFONT
c	IF(NCHAR .EQ. 0) INFONT = 1
c	WRITE(6,FMT='(''$Precision:'')')
c	READ(5,FMT='(Q,I4)') NCHAR,INPREC
c	IF(NCHAR .EQ. 0) INPREC = 2
c	WRITE(LFONT,FMT='(''Font: '',i4,'', Precision:'',i1,''$'')')
c	1           INFONT,INPREC
	INFONT = 1
	INPREC = 2
	
	CALL GSTART
	CALL PAGE(11.0,8.5)
	FONTID = -6
	FPREC = 2
	CALL AREA2D(9.0,6.5)
	CALL HEADIN('Character Encoding--Font 1$',100,1.5,2)
	CALL HEADIN('Octal-Code:Character$',100,1.0,2)
!	Put the input font and precision in common for CHRMSG use
	CALL GSASF(IASF)
	FPREC = INPREC
	XPOS = 0.0
	YPOS = 0.0
	I0 = 33
	FONTID = 1
	IMAX = 126
1	CONTINUE
	I = I0
	DO WHILE (I .LE. IMAX)
	    WRITE(OCTNUM,FMT='(O3.3,'':'',A)') I,CHAR(I)
	    CALL CHRMSG(XPOS,YPOS,OCTNUM)
C	    CALL CHRMSG('ABUT','ABUT',':')
C	    CALL CHRMSG('ABUT','ABUT',CHAR(I))
	    I = I + 1
	    YPOS = YPOS + 0.3
	    IF(YPOS .GT. 6.0) THEN
	      XPOS = XPOS + 0.85
	      YPOS = 0.0
	    END IF
	END DO
	IF(INFONT .EQ. 1) THEN
	  IF (I .LT. 161) THEN
	    I0 = 161
	    IMAX = 254
	    GOTO 1
	  END IF
	END IF
	YPOS = -0.09
	DO WHILE (YPOS .LE. 6.2)
	  CALL VECTOR(-0.1,YPOS,XPOS+0.85,YPOS,0)
	  YPOS = YPOS + 0.3
	END DO

	call endpl(0)
	CALL GSTOP
	END