/*
    The following SAS program may be used to create a driver
    which will support legal size paper using the Printer Control
    Language (PCL) emulation mode on an HP LaserJet 3 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 TS407 AND ABOVE
          OF SAS/GRAPH SOFTWARE.
 */

*libname gdevice0 'your.library.name';
proc gdevice c=SASHELP.devices nofs;
  copy hpljs3 from=sashelp.devices newname=hp3legal;
  modify hp3legal des='HP LaserJet III - PCL - Legal Size'
    ymax   =14.000
    ypixels=4200
    vsize  =13.000
    prows  =84
    gprolog='1B45'x       /* reset */
            '1B266C3341'x /* legal 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;