/* With Release 6.10 of the SAS System, the charrec (or font) names 
   on the CHARTYPE window of the HPLJ4SI driver are incorrect. The
   following PROC GDEVICE line-mode program will modify the driver
   with the correct font names.                                   */

PROC GDEVICE C=SASHELP.DEVICES NOFS;
  MOD HPLJ4SI
  CHARREC=( 1,66, 85,'\e(8U\e(sp10h12vb3T',     'N',
            2,94,141,'\e(8U\e(sp16.67h8.5vsbT', 'N',
            3,80,102,'\e(8U\e(sp12h10vsb3T',    'N',
            4,80,102,'\e(8U\e(sp12h10vs3b3T',   'N',
            5,80,102,'\e(8U\e(sp12h10v1sb3T',   'N',
            6,66, 85,'\e(8U\e(sp10h12vs3b3T',   'N',
            7,66, 85,'\e(8U\e(sp10h12v1sb3T',   'N',
           16,94,141,'\e(0N\e(sp16.67h8.5vsbT', 'N',
           17,80,102,'\e(0N\e(sp12h10vsb3T',    'N',
           18,80,102,'\e(0N\e(sp12h10vs3b3T',   'N',
           19,80,102,'\e(0N\e(sp12h10v1sb3T',   'N',
           20,66, 85,'\e(0N\e(sp10h12vsb3T',    'N',
           21,66, 85,'\e(0N\e(sp10h12vs3b3T',   'N',
           22,66, 85,'\e(0N\e(sp10h12v1sb3T',   'N',
           23,94,141,'\e(10U\e(sp16.67h8.5vsbT','N',
           24,80,102,'\e(10U\e(sp12h10vsb3T',   'N',
           25,80,102,'\e(10U\e(sp12h10vs3b3T',  'N',
           26,80,102,'\e(10U\e(sp12h10v1sb3T',  'N',
           27,66, 85,'\e(10U\e(sp10h12vsb3T',   'N',
           28,66, 85,'\e(10U\e(sp10h12vs3b3T',  'N',
           29,66, 85,'\e(10U\e(sp10h12v1sb3T',  'N',
           30,94,141,'\e(11U\e(sp16.67h8.5vsbT','N',
           31,80,102,'\e(11U\e(sp12h10vsb3T',   'N',
           32,80,102,'\e(11U\e(sp12h10vs3b3T',  'N',
           33,80,102,'\e(11U\e(sp12h10v1sb3T',  'N',
           34,66, 85,'\e(11U\e(sp10h12vsb3T',   'N',
           35,66, 85,'\e(11U\e(sp10h12vs3b3T',  'N',
           36,66, 85,'\e(11U\e(sp10h12v1sb3T',  'N',
           37,94,141,'\e(12U\e(sp16.67h8.5vsbT','N',
           38,80,102,'\e(12U\e(sp12h10vsb3T',   'N',
           39,80,102,'\e(12U\e(sp12h10vs3b3T',  'N',
           40,80,102,'\e(12U\e(sp12h10v1sb3T',  'N',
           41,66, 85,'\e(12U\e(sp10h12vsb3T',   'N',
           42,66, 85,'\e(12U\e(sp10h12vs3b3T',  'N',
           43,66, 85,'\e(12U\e(sp10h12v1sb3T',  'N',
           44,94,141,'\e(1U\e(sp16.67h8.5vsbT', 'N',
           45,80,102,'\e(1U\e(sp12h10vsb3T',    'N',
           46,80,102,'\e(1U\e(sp12h10vs3b3T',   'N',
           47,80,102,'\e(1U\e(sp12h10v1sb3T',   'N',
           48,66, 85,'\e(1U\e(sp10h12vsb3T',    'N',
           49,66, 85,'\e(1U\e(sp10h12vs3b3T',   'N',
           50,66, 85,'\e(1U\e(sp10h12v1sb3T',   'N',
            8, 0,  0,' ',' ',
            9, 0,  0,' ',' ',
           10, 0,  0,' ',' ',
           11, 0,  0,' ',' ',
           12, 0,  0,' ',' ',
           13, 0,  0,' ',' ',
           14, 0,  0,' ',' ',
           15, 0,  0,' ',' ')
;
RUN;
QUIT;