/*
    The following SAS program may be used to modify the order of
    the PostScript hardware font names listed on the CHARTYPE
    window of the SAS/GRAPH LJIVPS device driver. The order of
    the font names is incorrect in the LJIVPS driver entry
    provided with maintenance levels TS420 and TS425 of Release
    6.08 of SAS/GRAPH. Note that you MUST have update access to
    the SASHELP library before submitting the following program.
    This application will be unnecessary beginning with maintenance
    level TS430, since the problem will be corrected there.
 */

proc gdevice c=SASHELP.devices nofs;
  modify LJIVPS
  charrec=( 1,89,85,'/Courier',                      'Y',
            2,89,85,'/Courier-Oblique',              'Y',
            3,89,85,'/Courier-Bold',                 'Y',
            4,89,85,'/Courier-BoldOblique',          'Y',
            5,89,85,'/Times-Roman',                  'Y',
            6,89,85,'/Times-Italic',                 'Y',
            7,89,85,'/Times-Bold',                   'Y',
            8,89,85,'/Times-BoldItalic',             'Y',
            9,89,85,'/Helvetica',                    'Y',
           10,89,85,'/Helvetica-Oblique',            'Y',
           11,89,85,'/Helvetica-Bold',               'Y',
           12,89,85,'/Helvetica-BoldOblique',        'Y',
           13,89,85,'/Symbol',                       'Y',
           14,89,85,'/AvantGarde-Book',              'Y',
           15,89,85,'/AvantGarde-Demi',              'Y',
           16,89,85,'/AvantGarde-BookOblique',       'Y',
           17,89,85,'/AvantGarde-DemiOblique',       'Y',
           18,89,85,'/Palatino-Roman',               'Y',
           19,89,85,'/Palatino-Bold',                'Y',
           20,89,85,'/Palatino-Italic',              'Y',
           21,89,85,'/Palatino-BoldItalic',          'Y',
           22,89,85,'/NewCenturySchlbk-Roman',       'Y',
           23,89,85,'/NewCenturySchlbk-Bold',        'Y',
           24,89,85,'/NewCenturySchlbk-Italic',      'Y',
           25,89,85,'/NewCenturySchlbk-BoldItalic',  'Y',
           26,89,85,'/Helvetica-Narrow',             'Y',
           27,89,85,'/Helvetica-Narrow-Bold',        'Y',
           28,89,85,'/Helvetica-Narrow-Oblique',     'Y',
           29,89,85,'/Helvetica-Narrow-BoldOblique', 'Y',
           30,89,85,'/ZapfChancery-MediumItalic',    'Y',
           31,89,85,'/ZapfDingbats',                 'Y',
           32,89,85,'/Bookman-Light',                'Y',
           33,89,85,'/Bookman-Demi',                 'Y',
           34,89,85,'/Bookman-LightItalic',          'Y',
           35,89,85,'/Bookman-DemiItalic',           'Y');
run;
quit;