SUBROUTINE DPMSTA(TERMINAL,DIFNUM,DIFVER) C Jim Walker 21-NOV-87 for NBS. C Opens the terminal for TYPE statements, with share privilege. C Then returns IERR(5)=0 so main prog will think user typed S to Start. C The RADIX datacollector gives them a chance to load the sample C when it initializes the angle. C IERR(5) = 0 for Start C IERR(5) = -5 for Quit C INCLUDE '[102,2]INP.COM' INCLUDE '[102,2]IOBLK.COM' INCLUDE '[102,2]ERRBLK.COM' INCLUDE '($LNMDEF)' INCLUDE '($PRVDEF)' INCLUDE '($PSLDEF)' C CHARACTER*(*) TERMINAL, DIFVER INTEGER*4 IARRAY(4),PRVBUF(2), ISTAT, SYS$SETPRV, SYS$CRELNM INTEGER*2 DIFNUM IERR(5) = 0 C IF(TERMINAL.EQ.' ') RETURN C C Turn SHARE privilege on. C PRVBUF(1) = PRV$M_SHARE PRVBUF(2) = 0 C ISTAT = SYS$SETPRV( %VAL(1), PRVBUF, , ) D IF(.NOT.ISTAT) CALL LIB$SIGNAL(%VAL(ISTAT)) IF(ISTAT.NE.1) GOTO 9999 C C IDIF =79 OPEN(IDIF,NAME=TERMINAL,STATUS='NEW',ERR=9999) WRITE(IDIF,*) ' RUN STARTING ON ',DIFNUM,'-',DIFVER C C $ Turn SHARE back off. C ISTAT = SYS$SETPRV( %VAL(0), PRVBUF, ,) D IF(.NOT.ISTAT) CALL LIB$SIGNAL(%VAL(ISTAT)) 9999 RETURN D END D PROGRAM TEST D CHARACTER*8 TERMINAL D READ 4,TERMINAL D4 FORMAT(A) D CALL DPMSTA(TERMINAL,99,'X') D TYPE*,' HELLO' END