SUBROUTINE PSTRT        
        COMMON /PLTCOM/IP1P2(2,2),DMNMX(2,2),PMNMX(2,2),IPAPER(2,2)
        COMMON /PLTCOM/LEGWIN(2,2)
        COMMON /PLTCOM/NTICK(2),KTYPE
        COMMON /PLTCOM/NPEN,NLINE,ISYM,NCNVER,NSTRT,IPLTOK,LEGPOS,ITYPE 
        COMMON /ADRS/IPLTTR
        DIMENSION DATA(2)
        BYTE M1(25)     
C
C       ITYPE=LTYPE
C
        NCNVER=0
        NSTRT=0
        CALL XMT('DF;*')        
C...    LOCATE EDGES OF PAPER (IPAPER)
C...    SET DEFAULT
        CALL XMT('IP125,180,14250,10625;*')
        IF (IBIT(KTYPE,1).EQ.0) GOTO 121        
        WRITE (5,100)
100     FORMAT('$SET P1,P2 TO EDGES OF PLOTTER PAPER AND PRESS RETURN')
        READ (5,110)
110     FORMAT(A1)
 121    CALL P1P2
        DO 120  I=1,2
        DO 120  J=1,2
120     IPAPER(I,J)=IP1P2(I,J)
        WRITE(5,117)ITYPE
117     FORMAT('  ITYPE=',I2)   
        WRITE(5,119)IBIT(ITYPE,6)
119     FORMAT('  IBIT(ITYPE,6)=',I2)
        IF (IBIT(ITYPE,6).EQ.0) GO TO 128
        CALL XMT('SM;PU;LT;*')        
        ENCODE(17,122,M1) IPAPER(1,1),IPAPER(2,1)
122     FORMAT('PA',I6,',',I6,';*')
        CALL XMT(M1)           
        CALL XMT('PD;*')         
        ENCODE(17,122,M1) IPAPER(1,1),IPAPER(2,2)
        CALL XMT(M1)          
        ENCODE(17,122,M1) IPAPER(1,2),IPAPER(2,2)
        CALL XMT(M1)           
        ENCODE(17,122,M1) IPAPER(1,2),IPAPER(2,1)
        CALL XMT(M1)           
        ENCODE(17,122,M1) IPAPER(1,1),IPAPER(2,1)
        CALL XMT(M1)          
        CALL XMT('PU;*')            
C...    SET P1,P2
C...    SET DEFAULT
128     CALL XMT('IP2350,2000,11500,10500;*')
        IF (IBIT(KTYPE,1).EQ.0) GOTO 135          
        WRITE (5,130)
130     FORMAT('$SET P1,P2 TO CORNERS OF AXES AND PRESS RETURN')
        READ (5,110)
 135    CALL P1P2
        RETURN
        END

        SUBROUTINE P1P2
        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
        DIMENSION JP1P2(2,2)
        BYTE CORN(38),M1(29)
C...    P1 AND P2 CAN BE ANY PAIR OF DIAONALLY OPPOSITE POINTS ON
C...    THE PLOTTER
        CALL REC('OP;*',CORN,L)
        DECODE(L,20,CORN)JP1P2
20      FORMAT(4I9)
        TYPE*,L
        TYPE*,JP1P2(1,1),JP1P2(1,2),JP1P2(2,1),JP1P2(2,2)
C...    SHIFT AROUND COORDS SO THAT IP1P2=XLO,YLO,XHI,YI
        DO 30  I=1,2
        IP1P2(I,1)=MIN0(JP1P2(I,1),JP1P2(I,2))
30      IP1P2(I,2)=MAX0(JP1P2(I,1),JP1P2(I,2))
C...    SET PLOTTER WINDOW
        ENCODE(31,40,M1)IP1P2
40      FORMAT('IW',3(I6,','),I6,';*')
        CALL XMT(M1)
        RETURN
        END