SUBROUTINE LEGSTT(WIDTH,SIZE)
        COMMON /PLTCOM/IP1P2(2,2),DMNMX(2,2),PMNMX(2,2),IPAPER(2,2)
        COMMON /PLTCOM/LEGWIN(2,2)
        COMMON /PLTCOM/NTICK(2)
        COMMON/PLTCOM/NPEN,NLINE,ISYM,NCNVER,NSTRT,IPLTOK,LEGPOS
        COMMON /ADRS/IPLTTR
        BYTE M1(28),M2(29)
C
C...    SETUP ROUTINE TO BE CALLED BEFORE CALLING "LEGEND"
C...    WIDTH=EXTRA X-WIDTH RESERVED FOR LEGEND, AS A FRACTION OF
C...    P1-P2X DISTANCE. (TYPICAL VALUE: WIDTH=0.25)
C...    SIZE=RATIO OF CHAR. SIZE TO DEFAULT SIZE
C
C...    GO TO CORNER OF GRAPH AND ADVANCE 1 CHARACTER
        ENCODE(29,100,M1) IP1P2(1,2),IP1P2(2,2)
100     FORMAT('SM;PU;PA',I6,',',I6,';CP1,0;*')
        CALL XMT(M1)              
C...    SET SIZE OF CHARACTERS
        SW=.75*SIZE
        SH=1.5*SIZE
        ENCODE(15,110,M1) SW,SH
110     FORMAT('SR',F5.2,',',F5.2,';*')
        CALL XMT(M1)              
C...    GET POSITION
        CALL REC('OC;*',M2,L)       
        L=L-1
        DECODE(L,120,M2) LEGWIN(1,1),LEGWIN(2,2),IPEN
120     FORMAT(3I9)
        LEGWIN(1,2)=IP1P2(1,2)+WIDTH*(IP1P2(1,2)-IP1P2(1,1))
        LEGWIN(2,1)=IP1P2(2,1)
C...    MAKE CERTAIN LEGWIN DOES NOT GO OFF EDGES OF PAPER(IPAPER)
        DO 130  I=1,2
        LEGWIN(I,1)=MAX0(LEGWIN(I,1),IPAPER(I,1))
130     LEGWIN(I,2)=MIN0(LEGWIN(I,2),IPAPER(I,2))
C...    SET LEGPOS
        CALL REC('CP0,-1;OC;*',M2,L)     
        L=L-1
        DECODE(L,120,M2) IX,LEGPOS,IPEN
C...    RESTORE PLOTTER SETTINGS
        CALL PARAM
        RETURN
        END