
******************************
SYS$SYSDEVICE:[GPLOT.SRC]DEFCONID.FOR;31

        CALL LIB$SET_LOGICAL('PLOTFILE', TRIMFILE(1:LNAME))
      istat = LIB$SYS_TRNLOG('GKS$VERSION',LVER,GKSVER)

******************************
SYS$SYSDEVICE:[GPLOT.SRC]GMENU.FOR;137

      ISTATUS = LIB$GETDVI(DVI$_TT_DECCRT2,,'SYS$COMMAND',IFCRT2,,)
      CALL LIB$SYS_TRNLOG('GKS$VERSION',LVER,GKVER)

******************************
SYS$SYSDEVICE:[GPLOT.SRC]GSTOP.FOR;140

        CALL LIB$SPAWN('$CLS')

******************************
SYS$SYSDEVICE:[GPLOT.SRC]VMSLIB.FOR;5

      call lib$set_logical(name,value)
      call lib$delete_logical(name)
      call lib$sys_trnlog(name,lval,value)
      call lib$spawn(command)
      IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
      IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
      IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
      IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
      IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
      IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
