SUBROUTINE TXTWIN(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
         BYTE BUF(28)
C
C
C........SET CHARACTER SIZE
         SW=.75*SIZE
         SH=1.5*SIZE
         ENCODE (15,40,BUF) SW,SH
   40    FORMAT ('SR',F5.2,',',F5.2,';*')
         CALL XMT(BUF)
         WRITE (5,10)
         WRITE (5,65)
   10    FORMAT (1X,'POSITION PEN TO LOWER LEFT CORNER OF TEXT WINDOW')
         READ (5,20)
   20    FORMAT (A1)
C........GET PEN POSITION
         CALL REC ('OA;*',BUF,L)
         DECODE (L,50,BUF) LEGWIN(1,1),LEGWIN(1,2),IPEN
         WRITE (5,60)
   60    FORMAT (1X,'POSITION PEN TO UPPER RIGHT CORNER OF TEXT WINDOW')
         WRITE (5,65)
   65    FORMAT (1X,'AND PRESS RETURN')
         READ (5,20)
         CALL REC ('OA;*',BUF,L)
         DECODE (L,50,BUF) LEGWIN(2,1),LEGWIN(2,2),IPEN
   50    FORMAT (3I9)
         ENCODE (17,55,BUF) LEGWIN(1,1),LEGWIN(2,2)
   55    FORMAT ('PA',I6,',',I6,';*')
         CALL XMT (BUF)
D        TYPE*,'LEGWIN(1,1)=',LEGWIN(1,1)
D        TYPE*,'LEGWIN(1,2)=',LEGWIN(1,2)
D        TYPE*,'LEGWIN(2,1)=',LEGWIN(2,1)
D        TYPE*,'LEGWIN(2,2)=',LEGWIN(2,2)
C........SET LEGEND POSITION
         CALL REC('CP0,-1;OA;*',BUF,L)
         DECODE (L,50,BUF) IX,LEGPOS,IPEN
D        TYPE*,'LEGPOS=',LEGPOS
         RETURN
         END