d 	function jjcmd( string )
È c.		Sets "string" to the command parameters used.
,c.
c.	If the program was RUN rather than defined as a primative, then
ôc. the user will be prompted for the parameters via "CMD>".
XC.
¼c.out.	string	The command prameters used to execute the program.
 c.		Character*(*) string
„c.
èc.uses.	JJCMDCP	To copy the string
LC.
°C. -END.OF.INFO-
C.
x	CHARACTER*(*) string
Ü	INTEGER*4 JJCMDDEF(7)
@	DATA JJCMDDEF(1)/1/
¤c.
41	format( 132a )
lC.
ž	string = ' '
Ð	CALL SYS$CLI( %REF(JJCMDDEF))
4D	  WRITE(6,210) JJCMDDEF
˜D210	  FORMAT(7Z10)
üC.
`		IF( JJCMDDEF(1).LT.0 ) THEN
Ä		  CALL JJCMDCP( JJCMDDEF(3), string )
(
	else
Œ
c...	  type 41,'$_cmd_'
ð
c...	  string = '^Z'
Tc...	  read(5,41,end=9000)string
¸	ENDIF
Âc.
Ì9000	continue
	RETURN
€		end