CHARACTER C
      CALL GWOPEN(ID,0)
      CALL GWINDOW(IR,-2.0,-1.0,17.0, 18.0)
      DO x = 0.0, 16.0, 1.0
         CALL GWLINE(IR,0.0,x,16.0,x)
         CALL GWLINE(IR,x,0.0,x,16.0)
      ENDDO
      CALL GWSETTXT(IR,1.0, 0.0, 7, -1, -1, 'Arial')
      DO i = 0, 15
         IF(i .LE. 9) THEN
            C = CHAR(ICHAR('0')+i)
         ELSE
            C = CHAR(ICHAR('A')+i-10)
         ENDIF
         CALL GWPUTTXT(IR,- 0.1, 15.6 - i, C)
      ENDDO
      CALL GWSETTXT(IR, -1.0, -1.0, 6, -1, -1, ' ')
      DO i = 0, 15
         IF(i .LE. 9) THEN
            C = CHAR(ICHAR('0')+i)
         ELSE
            C = CHAR(ICHAR('A')+i-10)
         ENDIF
         CALL GWPUTTXT(IR, i + 0.5, 16.1, C)
      ENDDO
      CALL GWSETSYM(IR, 1.0, 0.0, -1, -1, -1, '*')
      DO ic = 33, 255
         x = ic/16 + 0.5
         y = 15.5 - mod(ic,16)
         CALL GWPUTSYM(IR,x, y, ic)
      ENDDO
      CALL GWQUIT(IR)
      END