d 	subroutine jjpuwait( time )
È C.		WAIT A WHILE
,c.
c. see INFO TEK or USAGE JJPANY for plotting information.
ôc.
Xc. -end.of.info-
¼C.
 	CHARACTER*(*) TIME
„	REAL*8 SYSTIM(2)
èC===
L	CALL SYS$BINTIM( TIME, SYSTIM )
°	CALL SYS$SETIMR( %VAL(2), SYSTIM , , )
	CALL SYS$WAITFR( %VAL(2) )
x	RETURN
Ü		end