d 	subroutine jjpopn( idev, gmin )
È C.		OPEN THE PLOT FILE
,c.
c.	This is the routine that prompts for the device to be used
ôc. for plotting, and thus is called either by HARD at the end of
Xc. a plot, or at the start of the plotting sequence.
¼c.
 c. see INFO TEK or USAGE JJPANY for information about plotting.
„c.
èc. -end.of.info-
LC.
°	COMMON /JJPCOMM/ IPLTYP,PLMIN,IPLDEB,IPLCHN !!COMM
C.
x	CHARACTER*80 INPNAM
Ü	CHARACTER*5 DEVDEF(6)
@	DATA DEVDEF/'CRT','TTY','LP','4006','4014','HP'/
¤	CHARACTER*10 DEVFIL(6)
	DATA DEVFIL/'SYS$OUTPUT','SYS$OUTPUT','SYS$OUTPUT','SYS$OUTPUT'
l	1  ,'SYS$OUTPUT','SYS$OUTPUT'/
Ð	CHARACTER*10 DEVICE
4	LOGICAL*1 CRTFIL(10), ENDPRO(4)
˜	DATA ENDPRO/' ','?','^',8/
ü	DATA ISOPEN/0/
`	91	FORMAT(132A)
Ä	C===
(
100	CONTINUE
Œ
	if( ipltyp.le.0 ) then
ð
150	  continue
T	  WRITE(6,91) ' Devices= ',DEVDEF
¸	  WRITE(6,91) ' Enter the device name to SET or CHANGE,'
	  WRITE(6,91) '    YES or ^Z to stop,  after the ?_ prompt'
€	  WRITE(6,91) '$',ENDPRO
ä	  IPLTYP = 1
H	ELSE
¬	  WRITE(6,91) '$',ENDPRO
	ENDIF
t	READ(5,91,END=810) INPNAM
ØC.
<	IPLDEB = 0
 	IF( INPNAM(1:1).EQ.'*' ) THEN
	  IPLDEB = 1
h	  INPNAM = INPNAM(2:)
Ì	ELSE IF( INPNAM(1:1).EQ.'=' ) THEN
0	  IPLDEB = 2
”	  INPNAM = INPNAM(2:)
ø	ENDIF
\C.
À	IF( INPNAM.EQ.' ' ) GOTO 900
$	CALL JJUPP( INPNAM )
ˆ	IF( INPNAM(1:1).EQ.'Y' ) GOTO 810
ìC.
P	DO 220 IPLTYP=1,6
´	  IF( INPNAM.EQ.DEVDEF(IPLTYP) ) THEN
	    GOTO 900
|	  ENDIF
à220	CONTINUE
DC.
¨300	CONTINUE
	if( inpnam.ne.'?' ) write(6,*)'***bad device***'
p	GOTO 150
ÔC.
8810	CONTINUE
œ	CALL EXIT(1)
 C.
d900	CONTINUE
È	DEVICE = DEVFIL(IPLTYP)
,	DO 910 II=1,10
	  IF(DEVICE(II:II).NE.' ' ) NCCHA =II
ô	  CRTFIL(II) = ICHAR( DEVICE(II:II) )
X910	CONTINUE
¼C.
 	IF( ISOPEN.EQ.0 ) THEN
„	  ISOPEN = 1
è	  CALL ASSCRT( IPLCHN, 10, CRTFIL )
L	ENDIF
°C...	WRITE(6,*) IPLTYP, IPLCHN, DEVDEF(IPLTYP), DEVICE
	IDEV = IPLTYP
xC.
Ü	RETURN
@		end