C
C
C BLOCK DATA 'QGFONT'
C ===================
C
C TEXT FONT DEFINITION
C
      BLOCK DATA QGFONT
      CHARACTER*95 CHLIST
      COMMON /QQCHAR/ CHLIST
      COMMON /QQFONT/ IFONT(32,95)
      SAVE /QQFONT/,/QQCHAR/
C====== space !"#$%&'()*+,-./
      DATA CHLIST(1:16)/' !"#$%&''()*+,-./'/
      DATA (IFONT(J,1),J=1,32)/100,31*0/
      DATA (IFONT(J,2),J=1,32)/6,1,6,2,-6,5,6,15,100,23*0/
      DATA (IFONT(J,3),J=1,32)/4,11,5,14,4,15,-7,11,8,14,7,15,100,19*0/
      DATA (IFONT(J,4),J=1,32)/4,3,4,14,-7,3,7,14,-2,7,9,7,-2,10,9,10,
     +100,15*0/
      DATA (IFONT(J,5),J=1,32)/5,1,5,15,-1,4,3,2,7,2,9,4,9,6,7,8,3,8,1,
     +10,1,12,3,14,7,14,9,12,100,3*0/
      DATA (IFONT(J,6),J=1,32)/2,1,9,15,-2,11,4,11,4,14,2,14,2,11,-7,2,
     +9,2,9,5,7,5,7,2,100,7*0/
      DATA (IFONT(J,7),J=1,32)/9,1,4,12,4,14,5,15,7,15,8,14,8,12,4,8,2,
     +5,2,3,3,1,6,1,9,4,100,5*0/
      DATA (IFONT(J,8),J=1,32)/5,15,6,14,5,11,100,25*0/
      DATA (IFONT(J,9),J=1,32)/7,15,5,13,4,9,4,6,5,3,7,1,100,19*0/
      DATA (IFONT(J,10),J=1,32)/4,15,6,13,7,9,7,6,6,3,4,1,100,19*0/
      DATA (IFONT(J,11),J=1,32)/6,2,6,14,-9,3,2,13,-10,8,1,8,-9,13,2,3,
     +100,15*0/
      DATA (IFONT(J,12),J=1,32)/6,2,6,10,-10,6,2,6,100,23*0/
      DATA (IFONT(J,13),J=1,32)/6,2,6,1,5,1,5,2,6,2,7,0,4,-2,100,17*0/
      DATA (IFONT(J,14),J=1,32)/2,6,10,6,100,27*0/
      DATA (IFONT(J,15),J=1,32)/5,1,6,1,6,2,5,2,5,1,100,21*0/
      DATA (IFONT(J,16),J=1,32)/3,1,7,15,100,27*0/
C====== 0123456789
      DATA CHLIST(17:26) /'0123456789'/
      DATA ((IFONT(J,I),J=1,32),I=17,26)/
     * 2,1,9,15,-2,3,2,13,4,15,7,15,9,13,9,3,7,1,4,1,2,3,100,9*0,
     * 4,12,6,15,6,1,-3,1,9,1,100,21*0,
     * 3,9,2,11,2,13,4,15,8,15,10,12,9,9,7,6,2,1,9,1,100,11*0,
     * 2,15,10,15,7,10,10,8,10,3,7,1,4,1,2,3,100,15*0,
     * 8,15,2,4,10,4,-7,1,7,7,100,21*0,
     * 10,15,2,15,2,8,4,10,7,10,10,7,10,3,7,1,4,1,2,3,100,11*0,
     * 9,15,3,9,2,6,2,3,5,1,8,1,10,4,10,7,8,9,3,9,100,11*0,
     * 2,15,9,15,2,1,-3,8,9,8,100,21*0,
     * 4,8,2,10,2,13,4,15,8,15,10,13,10,9,8,8,4,8,2,6,2,3,4,1,
     +           8,1,10,3,10,6,8,8,
     * 2,1,8,7,9,10,9,13,6,15,3,15,1,12,1,9,3,7,8,7,100,11*0/
C====== :;<=>?@
      DATA CHLIST(27:33) /':;<=>?@'/
      DATA ((IFONT(J,I),J=1,32),I=27,33)/
     * 4,1,4,2,5,2,5,1,4,1,-4,8,4,9,5,9,5,8,4,8,100,11*0,
     * 6,2,6,1,5,1,5,2,6,2,7,0,4,-2,-5,8,5,9,6,9,6,8,5,8,100,7*0,
     * 10,1,1,6,10,10,100,25*0,
     * 1,4,10,4,-1,8,10,8,100,23*0,
     * 1,1,10,6,1,10,100,25*0,
     * 2,11,2,13,3,15,6,15,8,14,9,12,8,9,5,7,5,4,-5,2,5,1,100,9*0,
     * 10,2,7,1,3,1,1,3,1,7,3,10,8,10,10,7,10,4,7,3,7,8,4,8,
     +            3,6,3,5,4,3,7,3/
C====== ABCDEFGHIJKLM
      DATA CHLIST(34:46) /'ABCDEFGHIJKLM'/
      DATA ((IFONT(J,I),J=1,32),I=34,46)/
     * 1,1,1,12,4,15,8,15,10,12,10,1,-1,7,10,7,100,15*0,
     * 1,1,1,15,7,15,9,13,9,10,7,8,1,8,-7,8,9,6,9,3,7,1,1,1,100,7*0,
     * 9,3,7,1,3,1,1,4,1,12,3,15,7,15,9,13,100,15*0,
     * 1,1,1,15,7,15,9,14,10,12,10,4,9,2,7,1,1,1,100,13*0,
     * 10,1,1,1,1,15,10,15,-1,8,7,8,100,19*0,
     * 1,1,1,15,10,15,-1,8,7,8,100,21*0,
     * 10,13,8,15,3,15,1,13,1,3,3,1,8,1,10,3,10,6,6,6,100,11*0,
     * 1,1,1,15,-9,1,9,15,-1,8,9,8,100,19*0,
     * 5,1,5,15,-3,15,7,15,-3,1,7,1,100,19*0,
     * 6,15,6,3,4,1,2,1,1,3,-3,15,9,15,100,17*0,
     * 1,1,1,15,-1,9,9,15,-1,9,9,1,100,19*0,
     * 1,15,1,1,9,1,100,25*0,
     * 1,1,1,15,5,9,9,15,9,1,100,21*0/
C====== NOPQRSTUVWXYZ
      DATA CHLIST(47:59) /'NOPQRSTUVWXYZ'/
      DATA ((IFONT(J,I),J=1,32),I=47,59)/
     * 1,1,1,15,9,1,9,15,100,23*0, 
     * 8,1,3,1,1,4,1,12,3,15,8,15,10,12,10,4,8,1,100,13*0,
     * 1,1,1,15,7,15,9,13,9,9,7,7,1,7,100,17*0,
     * 8,1,3,1,1,4,1,12,3,15,8,15,10,12,10,4,8,1,-6,5,10,1,100,9*0,
     * 1,1,1,15,7,15,9,13,9,9,7,7,1,7,-1,7,10,1,100,13*0,
     * 1,3,3,1,8,1,10,3,10,6,8,8,3,8,1,10,1,13,3,15,8,15,10,13,100,7*0,
     * 5,1,5,15,-1,15,9,15,100,23*0,
     * 1,15,1,4,2,2,4,1,6,1,8,2,9,4,9,15,100,15*0,
     * 1,15,5,1,9,15,100,25*0,
     * 1,15,2,1,5,7,8,1,9,15,100,21*0,
     * 1,1,9,15,-1,15,9,1,100,23*0,
     * 1,15,5,9,5,1,-5,9,9,15,100,21*0,
     * 1,15,9,15,1,1,9,1,100,23*0/
C====== [\]^_`
      DATA CHLIST(60:65) /'[\]^_`'/
      DATA ((IFONT(J,I),J=1,32),I=60,65)/
     * 8,15,4,15,4,1,8,1,100,23*0,
     * 1,15,10,1,100,27*0,
     * 3,15,6,15,6,1,3,1,100,23*0,
     * 3,12,5,15,7,12,100,25*0,
     * 1,-1,10,-1,100,27*0,
     * 5,15,5,14,6,14,6,15,5,15,3,13,6,11,100,17*0/
C===== abcdefghijklm
      DATA CHLIST(66:78) /'abcdefghijklm'/
      DATA ((IFONT(J,I),J=1,32),I=66,78)/
     * 1,8,3,10,8,10,10,8,10,1,2,1,1,2,1,4,2,5,10,5,100,11*0,
     * 1,15,1,1,8,1,10,3,10,8,8,10,3,10,1,8,100,15*0,
     * 10,9,8,10,4,10,1,8,1,3,4,1,8,1,10,2,100,15*0,
     * 10,15,10,1,3,1,1,3,1,8,3,10,8,10,10,8,100,15*0,
     * 1,6,10,6,10,8,8,10,3,10,1,8,1,3,3,1,8,1,10,3,100,11*0,
     * 4,1,4,13,5,15,8,15,10,13,-2,7,6,7,100,17*0,
     * 10,1,3,1,1,3,1,8,3,10,10,10,10,-2,8,-4,3,-4,1,-2,100,11*0,
     * 1,15,1,1,-1,8,3,10,8,10,10,8,10,1,100,17*0,
     * 3,10,5,10,5,1,-3,1,8,1,-5,13,5,14,100,17*0,
     * 4,10,6,10,6,-1,5,-3,3,-4,1,-3,-6,13,6,14,100,15*0,
     * 1,1,1,15,-1,6,9,12,-4,8,9,1,100,19*0,
     * 5,15,6,15,6,1,-3,1,9,1,100,21*0,
     * 1,1,1,10,-1,8,3,10,4,10,5,8,5,1,-5,8,7,10,8,10,9,8,9,1,100,7*0/
C====== nopqrstuvwxyz
      DATA CHLIST(79:91) /'nopqrstuvwxyz'/
      DATA ((IFONT(J,I),J=1,32),I=79,91)/
     * 1,10,1,1,-1,8,3,10,8,10,9,7,9,1,100,17*0,
     * 1,3,1,8,3,10,8,10,10,8,10,3,8,1,3,1,1,3,100,13*0,
     * 1,-4,1,10,7,10,9,8,9,3,7,1,1,1,100,17*0,
     * 9,1,3,1,1,3,1,8,3,10,9,10,9,-4,100,17*0,
     * 1,1,1,10,-1,7,3,10,8,10,10,8,10,6,100,17*0,
     * 1,2,3,1,8,1,10,2,10,4,8,5,3,5,1,7,1,8,3,10,8,10,10,9,100,7*0,
     * 5,15,5,3,7,1,9,1,10,3,-3,11,7,11,100,17*0,
     * 1,10,1,3,3,1,7,1,9,3,-9,1,9,10,100,17*0,
     * 1,10,5,1,9,10,100,25*0,
     * 1,10,4,1,6,5,8,1,10,10,100,21*0,
     * 1,1,10,10,-1,10,10,1,100,23*0,
     * 1,10,1,3,3,1,7,1,9,3,-9,10,9,-2,6,-4,3,-4,1,-2,100,11*0,
     * 1,10,10,10,1,1,10,1,100,23*0/
C====== {|}~
      DATA CHLIST(92:95) /'{|}~'/
      DATA ((IFONT(J,I),J=1,32),I=92,95)/
     * 7,1,5,2,4,4,5,7,4,8,5,9,4,12,5,14,7,15,-2,8,4,8,100,9*0,
     * 6,1,6,15,100,27*0,
     * 4,1,6,2,7,4,6,7,7,8,6,9,7,12,6,14,4,15,-7,8,9,8,100,9*0,
     * 1,12,2,14,4,14,7,12,9,12,10,14,100,19*0/
      END
