/*
    The following SAS program may be used to create a driver
    (HP3SILGL) which will support legal-size paper on the HP
    LaserJet IIISi printer.  It is assumed that the new driver
    entry will be stored in the SASHELP.DEVICES catalog. If you
    do not have update access to this catalog, create the driver
    entry in your own catalog, GDEVICE0.DEVICES. You may do this
    by uncommenting the LIBNAME statement below and changing
    SASHELP to GDEVICE0 on the PROC GDEVICE statement.

    NOTE: THIS CODE IS FOR USE WITH RELEASE 6.08 AND ABOVE OF
          SAS/GRAPH SOFTWARE ON ALL PLATFORMS.
 */

*libname gdevice0 'your.sas.library';
proc gdevice c=SASHELP.devices nofs;
  copy hplj3si from=sashelp.devices newname=hp3silgl;
  modify hp3silgl
  des='HP LaserJet Series IIISi-PCL-legal size'
  ymax=14.000 IN  vsize=13.000 IN  vorigin=0.500 IN
  ypixels=4200    prows=84

  gprolog='1b252d313233343558'x     /* Start of PJL      */
          '40504a4c20'x             /* '@PJL '           */
          '454e54455220'x           /* 'ENTER'           */
          '4c414e47554147453d'x     /* 'LANGUAGE='       */
          '50434c0a'x               /* 'PCL'<LF>         */
          '1b266c3341'x             /* legal page size   */

  charrec=( 1, 84, 85,'\e(8U\e(sp10h12vb3T',            'N',
            2,118,141,'\e(8U\e(sp16.67h8.5vsbT',        'N',
            3,100,102,'\e(8U\e(sp12h10vsb3T',           'N',
            4,100,102,'\e(8U\e(sp12h10vs3b3T',          'N',
            5,100,102,'\e(8U\e(sp12h10v1sb3T',          'N',
            6, 84, 85,'\e(8U\e(sp10h12vs3b3T',          'N',
            7, 84, 85,'\e(8U\e(sp10h12v1sb3T',          'N',
           16,118,141,'\e(0N\e(sp16.67h8.5vsbT',        'N',
           17,100,102,'\e(0N\e(sp12h10vsb3T',           'N',
           18,100,102,'\e(0N\e(sp12h10vs3b3T',          'N',
           19,100,102,'\e(0N\e(sp12h10v1sb3T',          'N',
           20, 84, 85,'\e(0N\e(sp10h12vsb3T',           'N',
           21, 84, 85,'\e(0N\e(sp10h12vs3b3T',          'N',
           22, 84, 85,'\e(0N\e(sp10h12v1sb3T',          'N',
           23,118,141,'\e(10U\e(sp16.67h8.5vsbT',       'N',
           24,100,102,'\e(10U\e(sp12h10vsb3T',          'N',
           25,100,102,'\e(10U\e(sp12h10vs3b3T',         'N',
           26,100,102,'\e(10U\e(sp12h10v1sb3T',         'N',
           27, 84, 85,'\e(10U\e(sp10h12vsb3T',          'N',
           28, 84, 85,'\e(10U\e(sp10h12vs3b3T',         'N',
           29, 84, 85,'\e(10U\e(sp10h12v1sb3T',         'N',
           30,118,141,'\e(11U\e(sp16.67h8.5vsbT',       'N',
           31,100,102,'\e(11U\e(sp12h10vsb3T',          'N',
           32,100,102,'\e(11U\e(sp12h10vs3b3T',         'N',
           33,100,102,'\e(11U\e(sp12h10v1sb3T',         'N',
           34, 84, 85,'\e(11U\e(sp10h12vsb3T',          'N',
           35, 84, 85,'\e(11U\e(sp10h12vs3b3T',         'N',
           36, 84, 85,'\e(11U\e(sp10h12v1sb3T',         'N',
           37,118,141,'\e(12U\e(sp16.67h8.5vsbT',       'N',
           38,100,102,'\e(12U\e(sp12h10vsb3T',          'N',
           39,100,102,'\e(12U\e(sp12h10vs3b3T',         'N',
           40,100,102,'\e(12U\e(sp12h10v1sb3T',         'N',
           41, 84, 85,'\e(12U\e(sp10h12vsb3T',          'N',
           42, 84, 85,'\e(12U\e(sp10h12vs3b3T',         'N',
           43, 84, 85,'\e(12U\e(sp10h12v1sb3T',         'N',
           44,118,141,'\e(1U\e(sp16.67h8.5vsbT',        'N',
           45,100,102,'\e(1U\e(sp12h10vsb3T',           'N',
           46,100,102,'\e(1U\e(sp12h10vs3b3T',          'N',
           47,100,102,'\e(1U\e(sp12h10v1sb3T',          'N',
           48, 84, 85,'\e(1U\e(sp10h12vsb3T',           'N',
           49, 84, 85,'\e(1U\e(sp10h12vs3b3T',          'N',
           50, 84, 85,'\e(1U\e(sp10h12v1sb3T',          'N');
run;
quit;