      *MAP CODE 9
      SUBROUTINE NITSRF(SRFNAM,TYPE,DIMOD)
      COMMON /CON/ SINIT,BOUPDT,OUTLEV,DIMENS,HIDSRF,DISPMD,
     1     NWFRMR,IMMED
      LOGICAL SINIT, BOUPDT, NWFRMR(5),IMMED
      INTEGER OUTLEV,DIMENS,HIDSRF,DISPMD

      COMMON/VSP/INITVS,VSINIT,VSSELC,SELSLT,VSTYPE,
     1     VSXCM,VSYCM,VSXNDC,VSYNDC,
     2     VSXCHR,VSYCHR,VSLNSC,VSLNSS,VSLNWC,VSLNWS,
     3     VSFNTC,VSPENC,VSPENS,VSCSC,VSMRKC,VSMRKS,
     4     VSOLVL,VSHILS,VSBATC,VSOTYP,VSPIX,VSCTAB,VSHIDS,
     5     VSPFIL,VSEDGE,VSPIXX,VSPIXY,VSCMOD,VSBGDC,
     6     VSBGDT,VSCINX,VSCNUM,VSCTYP,VSIINX,VSINUM,
     7     VSITYP,VSSCMX,VSSCMY,VSSNDX,VSSNDY,VSLWMN,
     8     VSLWMX,VSCSMN,VSCSMX,VSPMAX,SRFUSE,MODE,VSPPIK
      INTEGER*4 INITVS(5,2),SELSLT,VSTYPE(5),VSLNSC(5),VSLNSS(5),
     1     VSLNWC(5),VSLNWS(5),VSFNTC(5),VSPENC(5),VSPENS(5),
     2     VSCSC(5),VSMRKC(5),VSMRKS(5),VSOLVL(5),VSHILS(5),
     3     VSBATC(5),VSOTYP(5),VSPIX(5),VSCTAB(5),VSHIDS(5),
     4     VSPFIL(5,3),VSEDGE(5),VSPIXX(5),VSPIXY(5),VSCMOD(5),
     5     VSBGDC(5),VSBGDT(5),VSCINX(5),VSCNUM(5),VSCTYP(5),
     6     VSIINX(5),VSINUM(5),VSITYP(5),VSPMAX,SRFUSE(5),
     7     MODE(5),VSPPIK(5)
      REAL VSXCM(5),VSYCM(5),VSXNDC(5),VSYNDC(5),VSXCHR(5),
     1     VSYCHR(5),VSSCMX(5),VSSCMY(5),VSSNDX(5),
     2     VSSNDY(5),VSLWMN(5),VSLWMX(5),VSCSMN(5),VSCSMX(5)
      LOGICAL VSINIT(5),VSSELC(5)
      COMMON/OPC/PMARK3,PMARK2,PLIN3,PLIN2,POLY3,POLY2,TEXT,MOVE,
     1     IMTRAN,HGHLTG,VSIBLE,DTECT,NWFRM,DELETS,DELETA,IMMEDV,
     2     PICCUR,BGNBAT,ENDBAT,CRSEG,CTSEG,CLOSRS,CLOSTS,RENAMS,
     3     INITDD,TERMDD,INTIZE,TRM,SNDC,INQDVC,COLR,BGCOLR,TENSTY,
     4     BGINTY,SNDX,BGINDX,COLNDX,INTNDX,IQCNDX,IQINDX,
     5     LNSTYL,ILNSTL,LNWITH,PENS,IDENSE,CHFONT,CHARSZ,CHARSP,
     6     STRROT,CHARPH,CHARJT,CHAREX,MRKSYM,PICK,ALLATR,POLEDG,
     7     POLINT,PIXCOL,PIXINT,PIXNDX,WRSCOL,WRSINT,WRSNDX,RRSCOL,
     8     RRSINT,RRSNDX,ESCAP,IESCAP,AMODE,OUTUNT
      INTEGER PMARK3,PMARK2,PLIN3,PLIN2,POLY3,POLY2,TEXT,MOVE,
     1     IMTRAN,HGHLTG,VSIBLE,DTECT,NWFRM,DELETS,DELETA,IMMEDV,
     2     PICCUR,BGNBAT,ENDBAT,CRSEG,CTSEG,CLOSRS,CLOSTS,RENAMS,
     3     INITDD,TERMDD,INTIZE,TRM,SNDC,INQDVC,COLR,BGCOLR,TENSTY,
     4     BGINTY,SNDX,BGINDX,COLNDX,INTNDX,IQCNDX,IQINDX,
     5     LNSTYL,ILNSTL,LNWITH,PENS,IDENSE,CHFONT,CHARSZ,CHARSP,
     6     STRROT,CHARPH,CHARJT,CHAREX,MRKSYM,PICK,ALLATR,POLEDG,
     7     POLINT,PIXCOL,PIXINT,PIXNDX,WRSCOL,WRSINT,WRSNDX,RRSCOL,
     8     RRSINT,RRSNDX,ESCAP,IESCAP,AMODE,OUTUNT
      COMMON /PAR/ PARRAY,MAXARY
      INTEGER*4 PARRAY(5000),MAXARY
      REAL      RARRAY(5000)
      EQUIVALENCE (PARRAY,RARRAY)
      INTEGER NAME(3),SRFNAM,TYPE,DIMOD,CMOD
      INTEGER AVAIL,VSMAX,BASIC,NBUFF,BUFFD
      INTEGER ERMSG,I,J,INDX
      REAL C1(7),C2(7),C3(7)
      DATA NAME/2HNI,2HTS,2HRF/
      DATA      VSMAX/99/,BASIC/1/,NBUFF/0/,BUFFD/1/
      DATA C1 /1.,0.,0.,0.,1.,1.,1./
      DATA C2 /0.,1.,0.,1.,1.,0.,1./
      DATA C3 /0.,0.,1.,1.,0.,1.,1./
      IF (SINIT) GO TO 10
          ERMSG = 717
          GO TO 90
 10   CONTINUE
      DO 15 I=1,VSPMAX
          IF (SRFNAM.NE.INITVS(I,1)) GO TO 15
              J = INITVS(I,2)
              IF (.NOT.VSINIT(J)) GO TO 15
                  ERMSG = 705
                  GO TO 90
 15   CONTINUE
      IF (SRFNAM.LE.VSMAX) GO TO 30
          ERMSG = 706
          GO TO 90
 30   CONTINUE
      DO 35 I=1,VSPMAX
          IF (INITVS(I,1).EQ.0) GO TO 40
 35   CONTINUE
      ERMSG = 707
      GO TO 90
   40 CONTINUE
      INITVS(I,1)=SRFNAM
      AVAIL=INITVS(I,2)
      VSINIT(AVAIL)=.TRUE.
      VSSELC(AVAIL)=.FALSE.
      SELSLT=0
      INDX=3
      PARRAY(1) = 6
      PARRAY(2) = INITDD
      PARRAY(3) = 2
      PARRAY(4) = 0
      PARRAY(5) = 1
      PARRAY(6) = SRFNAM
      CALL GSENDS
      PARRAY(1)=7
      PARRAY(2)=INTIZE
      PARRAY(3)=4
      PARRAY(4)=0
      PARRAY(5)=TYPE
      PARRAY(6)=DIMOD
      PARRAY(7)=SRFNAM
      CALL GSENDS

      PARRAY(1)=49
      PARRAY(2)=INQDVC
      PARRAY(3)=31
      PARRAY(4)=14
      PARRAY(5)=SRFNAM
      CALL GSENDS
      VSLNSC(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSLNSS(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSLNWC(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSLNWS(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSFNTC(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSPENC(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSPENS(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSCSC(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSMRKC(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSMRKS(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSOLVL(AVAIL)=PARRAY(INDX)
      VSTYPE(AVAIL)=NBUFF
      IF (VSOLVL(AVAIL).EQ.BASIC) GO TO 50
         VSTYPE(AVAIL)=BUFFD
 50   CONTINUE
      INDX = INDX + 1
      VSHILS(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSBATC(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSOTYP(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSPIX(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSCTAB(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSHIDS(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSPFIL(AVAIL,1)=PARRAY(INDX)
      INDX = INDX + 1
      VSPFIL(AVAIL,2)=PARRAY(INDX)
      INDX = INDX+1
      VSPFIL(AVAIL,3)=PARRAY(INDX)
      INDX = INDX + 1
      VSEDGE(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSPIXX(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSPIXY(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSCMOD(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSBGDC(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSBGDT(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSCINX(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSCNUM(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSCTYP(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSIINX(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSINUM(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSITYP(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      VSPPIK(AVAIL)=PARRAY(INDX)
      INDX = INDX + 1
      SRFUSE(AVAIL)=TYPE
      MODE(AVAIL)=DIMOD
      VSXCM(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSYCM(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSXNDC(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSYNDC(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSXCHR(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSYCHR(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSSCMX(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSSCMY(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSSNDX(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSSNDY(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSLWMN(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSLWMX(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSCSMN(AVAIL)=RARRAY(INDX)
      INDX = INDX + 1
      VSCSMX(AVAIL)=RARRAY(INDX)
      IF (TYPE.EQ.1.AND.DIMOD.EQ.2) THEN
          CALL DCLNDC (SRFNAM,1,7,C1,C2,C3)
      ENDIF
      RETURN
 90   CONTINUE
      CALL GPRINT (1,SRFNAM)
      CALL GPRINT (2,TYPE)
      CALL GPRINT (3,DIMOD)
      CALL GPRINT (4,CMOD)
      CALL GRPTER (NAME,ERMSG)
      RETURN
      END
      SUBROUTINE SELSRF(SRFNAM)
      COMMON/VSP/INITVS,VSINIT,VSSELC,SELSLT,VSTYPE,
     1     VSXCM,VSYCM,VSXNDC,VSYNDC,
     2     VSXCHR,VSYCHR,VSLNSC,VSLNSS,VSLNWC,VSLNWS,
     3     VSFNTC,VSPENC,VSPENS,VSCSC,VSMRKC,VSMRKS,
     4     VSOLVL,VSHILS,VSBATC,VSOTYP,VSPIX,VSCTAB,VSHIDS,
     5     VSPFIL,VSEDGE,VSPIXX,VSPIXY,VSCMOD,VSBGDC,
     6     VSBGDT,VSCINX,VSCNUM,VSCTYP,VSIINX,VSINUM,
     7     VSITYP,VSSCMX,VSSCMY,VSSNDX,VSSNDY,VSLWMN,
     8     VSLWMX,VSCSMN,VSCSMX,VSPMAX,SRFUSE,MODE,VSPPIK
      INTEGER*4 INITVS(5,2),SELSLT,VSTYPE(5),VSLNSC(5),VSLNSS(5),
     1     VSLNWC(5),VSLNWS(5),VSFNTC(5),VSPENC(5),VSPENS(5),
     2     VSCSC(5),VSMRKC(5),VSMRKS(5),VSOLVL(5),VSHILS(5),
     3     VSBATC(5),VSOTYP(5),VSPIX(5),VSCTAB(5),VSHIDS(5),
     4     VSPFIL(5,3),VSEDGE(5),VSPIXX(5),VSPIXY(5),VSCMOD(5),
     5     VSBGDC(5),VSBGDT(5),VSCINX(5),VSCNUM(5),VSCTYP(5),
     6     VSIINX(5),VSINUM(5),VSITYP(5),VSPMAX,SRFUSE(5),
     7     MODE(5),VSPPIK(5)
      REAL VSXCM(5),VSYCM(5),VSXNDC(5),VSYNDC(5),VSXCHR(5),
     1     VSYCHR(5),VSSCMX(5),VSSCMY(5),VSSNDX(5),
     2     VSSNDY(5),VSLWMN(5),VSLWMX(5),VSCSMN(5),VSCSMX(5)
      LOGICAL VSINIT(5),VSSELC(5)
      COMMON /SEG/ VISIB,DETECT,HILITE,IXFORM,SEGTYP,OPSEG,
     1     OPSEGX,OPTSGX,ANGLES
      LOGICAL VISIB, DETECT, HILITE, OPSEGX, OPTSGX
      REAL IXFORM(4,4),ANGLES(3)
      INTEGER SEGTYP, OPSEG
      COMMON /CON/ SINIT,BOUPDT,OUTLEV,DIMENS,HIDSRF,DISPMD,
     1     NWFRMR,IMMED
      LOGICAL SINIT, BOUPDT, NWFRMR(5),IMMED
      INTEGER OUTLEV,DIMENS,HIDSRF,DISPMD
       COMMON/PAR/ PARRAY, MAXARY
       INTEGER*4 PARRAY(5000), MAXARY
      INTEGER NAME(3),SRFNAM,VSMAX
      DATA NAME/2HSE,2HSL,2HRF/
      DATA VSMAX/99/
      IF (SINIT) GOTO 3
        CALL GPRINT(1,SRFNAM)
        CALL GRPTER(NAME,717)
        RETURN
 3    CONTINUE
      IF(SRFNAM.LE.VSMAX) GO TO 5
      CALL GPRINT(1,SRFNAM)
      CALL GRPTER(NAME,710)
      RETURN
 5    CONTINUE
      DO 10 I=1,VSPMAX
          IF (INITVS(I,1).NE.SRFNAM) GO TO 10
              J = INITVS(I,2)
              IF (VSINIT(J)) GO TO 15
 10       CONTINUE
      CALL GPRINT (1,SRFNAM)
      CALL GRPTER (NAME,708)
      RETURN
 15   CONTINUE
 20   CONTINUE
      IF(.NOT.VSSELC(J)) GO TO 25
      CALL GPRINT(1,SRFNAM)
      CALL GRPTER(NAME,709)
      RETURN
 25   CONTINUE
      IF (SELSLT.EQ.0) GO TO 30
          CALL GPRINT (1,SRFNAM)
          CALL GRPTER (NAME,710)
          RETURN
 30   CONTINUE
      IF(.NOT.OPTSGX) GO TO 35
      CALL GPRINT(1,SRFNAM)
      CALL GRPTER(NAME,6)
      RETURN
 35   CONTINUE
      VSSELC(J)=.TRUE.
      SELSLT = J
       PARRAY(1) = 5
        PARRAY(2) = 81
        PARRAY(3) =  1
        PARRAY(4) = 0
        PARRAY(5) =SRFNAM
        CALL GSENDS
      RETURN
      END
      SUBROUTINE DELSRF(SRFNAM)
      COMMON/VSP/INITVS,VSINIT,VSSELC,SELSLT,VSTYPE,
     1     VSXCM,VSYCM,VSXNDC,VSYNDC,
     2     VSXCHR,VSYCHR,VSLNSC,VSLNSS,VSLNWC,VSLNWS,
     3     VSFNTC,VSPENC,VSPENS,VSCSC,VSMRKC,VSMRKS,
     4     VSOLVL,VSHILS,VSBATC,VSOTYP,VSPIX,VSCTAB,VSHIDS,
     5     VSPFIL,VSEDGE,VSPIXX,VSPIXY,VSCMOD,VSBGDC,
     6     VSBGDT,VSCINX,VSCNUM,VSCTYP,VSIINX,VSINUM,
     7     VSITYP,VSSCMX,VSSCMY,VSSNDX,VSSNDY,VSLWMN,
     8     VSLWMX,VSCSMN,VSCSMX,VSPMAX,SRFUSE,MODE,VSPPIK
      INTEGER*4 INITVS(5,2),SELSLT,VSTYPE(5),VSLNSC(5),VSLNSS(5),
     1     VSLNWC(5),VSLNWS(5),VSFNTC(5),VSPENC(5),VSPENS(5),
     2     VSCSC(5),VSMRKC(5),VSMRKS(5),VSOLVL(5),VSHILS(5),
     3     VSBATC(5),VSOTYP(5),VSPIX(5),VSCTAB(5),VSHIDS(5),
     4     VSPFIL(5,3),VSEDGE(5),VSPIXX(5),VSPIXY(5),VSCMOD(5),
     5     VSBGDC(5),VSBGDT(5),VSCINX(5),VSCNUM(5),VSCTYP(5),
     6     VSIINX(5),VSINUM(5),VSITYP(5),VSPMAX,SRFUSE(5),
     7     MODE(5),VSPPIK(5)
      REAL VSXCM(5),VSYCM(5),VSXNDC(5),VSYNDC(5),VSXCHR(5),
     1     VSYCHR(5),VSSCMX(5),VSSCMY(5),VSSNDX(5),
     2     VSSNDY(5),VSLWMN(5),VSLWMX(5),VSCSMN(5),VSCSMX(5)
      LOGICAL VSINIT(5),VSSELC(5)
      COMMON /SEG/ VISIB,DETECT,HILITE,IXFORM,SEGTYP,OPSEG,
     1     OPSEGX,OPTSGX,ANGLES
      LOGICAL VISIB, DETECT, HILITE, OPSEGX, OPTSGX
      REAL IXFORM(4,4),ANGLES(3)
      INTEGER SEGTYP, OPSEG
      COMMON /CON/ SINIT,BOUPDT,OUTLEV,DIMENS,HIDSRF,DISPMD,
     1     NWFRMR,IMMED
      LOGICAL SINIT, BOUPDT, NWFRMR(5),IMMED
      INTEGER OUTLEV,DIMENS,HIDSRF,DISPMD
       COMMON/PAR/ PARRAY, MAXARY
       INTEGER*4 PARRAY(5000), MAXARY
      INTEGER NAME(3),SRFNAM,VSMAX
      DATA NAME/2HDE,2HLS,2HRF/
      DATA VSMAX/99/
      IF (SINIT) GO TO 3
        CALL GPRINT(1,SRFNAM)
        CALL GRPTER(NAME,717)
        RETURN
 3    CONTINUE
      IF(SRFNAM.LE.VSMAX) GO TO 5
      CALL GPRINT(1,SRFNAM)
      CALL GRPTER(NAME,706)
      RETURN
 5    CONTINUE
      IF (INITVS(SELSLT,1).EQ.SRFNAM) GO TO 15
 10       CONTINUE
      CALL GPRINT (1,SRFNAM)
      CALL GRPTER (NAME,711)
      RETURN
 15   CONTINUE
      IF(.NOT.OPTSGX) GO TO 20
      CALL GPRINT(1,SRFNAM)
      CALL GRPTER(NAME,6)
      RETURN
 20   CONTINUE
      VSSELC(SELSLT)=.FALSE.
      SELSLT=0
       PARRAY(1) = 5
        PARRAY(2) = 82
        PARRAY(3) =1
        PARRAY(4) =0
        PARRAY(5) =SRFNAM
        CALL GSENDS
      RETURN
      END
      SUBROUTINE TRMSRF(SRFNAM)
      COMMON/VSP/INITVS,VSINIT,VSSELC,SELSLT,VSTYPE,
     1     VSXCM,VSYCM,VSXNDC,VSYNDC,
     2     VSXCHR,VSYCHR,VSLNSC,VSLNSS,VSLNWC,VSLNWS,
     3     VSFNTC,VSPENC,VSPENS,VSCSC,VSMRKC,VSMRKS,
     4     VSOLVL,VSHILS,VSBATC,VSOTYP,VSPIX,VSCTAB,VSHIDS,
     5     VSPFIL,VSEDGE,VSPIXX,VSPIXY,VSCMOD,VSBGDC,
     6     VSBGDT,VSCINX,VSCNUM,VSCTYP,VSIINX,VSINUM,
     7     VSITYP,VSSCMX,VSSCMY,VSSNDX,VSSNDY,VSLWMN,
     8     VSLWMX,VSCSMN,VSCSMX,VSPMAX,SRFUSE,MODE,VSPPIK
      INTEGER*4 INITVS(5,2),SELSLT,VSTYPE(5),VSLNSC(5),VSLNSS(5),
     1     VSLNWC(5),VSLNWS(5),VSFNTC(5),VSPENC(5),VSPENS(5),
     2     VSCSC(5),VSMRKC(5),VSMRKS(5),VSOLVL(5),VSHILS(5),
     3     VSBATC(5),VSOTYP(5),VSPIX(5),VSCTAB(5),VSHIDS(5),
     4     VSPFIL(5,3),VSEDGE(5),VSPIXX(5),VSPIXY(5),VSCMOD(5),
     5     VSBGDC(5),VSBGDT(5),VSCINX(5),VSCNUM(5),VSCTYP(5),
     6     VSIINX(5),VSINUM(5),VSITYP(5),VSPMAX,SRFUSE(5),
     7     MODE(5),VSPPIK(5)
      REAL VSXCM(5),VSYCM(5),VSXNDC(5),VSYNDC(5),VSXCHR(5),
     1     VSYCHR(5),VSSCMX(5),VSSCMY(5),VSSNDX(5),
     2     VSSNDY(5),VSLWMN(5),VSLWMX(5),VSCSMN(5),VSCSMX(5)
      LOGICAL VSINIT(5),VSSELC(5)
      COMMON /CON/ SINIT,BOUPDT,OUTLEV,DIMENS,HIDSRF,DISPMD,
     1     NWFRMR,IMMED
      LOGICAL SINIT, BOUPDT, NWFRMR(5),IMMED
      INTEGER OUTLEV,DIMENS,HIDSRF,DISPMD
      COMMON/OPC/PMARK3,PMARK2,PLIN3,PLIN2,POLY3,POLY2,TEXT,MOVE,
     1     IMTRAN,HGHLTG,VSIBLE,DTECT,NWFRM,DELETS,DELETA,IMMEDV,
     2     PICCUR,BGNBAT,ENDBAT,CRSEG,CTSEG,CLOSRS,CLOSTS,RENAMS,
     3     INITDD,TERMDD,INTIZE,TRM,SNDC,INQDVC,COLR,BGCOLR,TENSTY,
     4     BGINTY,SNDX,BGINDX,COLNDX,INTNDX,IQCNDX,IQINDX,
     5     LNSTYL,ILNSTL,LNWITH,PENS,IDENSE,CHFONT,CHARSZ,CHARSP,
     6     STRROT,CHARPH,CHARJT,CHAREX,MRKSYM,PICK,ALLATR,POLEDG,
     7     POLINT,PIXCOL,PIXINT,PIXNDX,WRSCOL,WRSINT,WRSNDX,RRSCOL,
     8     RRSINT,RRSNDX,ESCAP,IESCAP,AMODE,OUTUNT
      INTEGER PMARK3,PMARK2,PLIN3,PLIN2,POLY3,POLY2,TEXT,MOVE,
     1     IMTRAN,HGHLTG,VSIBLE,DTECT,NWFRM,DELETS,DELETA,IMMEDV,
     2     PICCUR,BGNBAT,ENDBAT,CRSEG,CTSEG,CLOSRS,CLOSTS,RENAMS,
     3     INITDD,TERMDD,INTIZE,TRM,SNDC,INQDVC,COLR,BGCOLR,TENSTY,
     4     BGINTY,SNDX,BGINDX,COLNDX,INTNDX,IQCNDX,IQINDX,
     5     LNSTYL,ILNSTL,LNWITH,PENS,IDENSE,CHFONT,CHARSZ,CHARSP,
     6     STRROT,CHARPH,CHARJT,CHAREX,MRKSYM,PICK,ALLATR,POLEDG,
     7     POLINT,PIXCOL,PIXINT,PIXNDX,WRSCOL,WRSINT,WRSNDX,RRSCOL,
     8     RRSINT,RRSNDX,ESCAP,IESCAP,AMODE,OUTUNT
      COMMON /PAR/ PARRAY,MAXARY
      INTEGER*4 PARRAY(5000),MAXARY
      INTEGER NAME(3),SRFNAM,VSMAX
      DATA NAME/2HTR,2HMS,2HRF/
      DATA VSMAX/99/
      IF (SINIT) GO TO 3
        CALL GPRINT(1,SRFNAM)
        CALL GRPTER(NAME,717)
        RETURN
 3    CONTINUE
      IF(SRFNAM.LE.VSMAX) GO TO 5
      CALL GPRINT(1,SRFNAM)
      CALL GRPTER(NAME,706)
      RETURN
 5    CONTINUE
      DO 10 I=1,VSPMAX
          IF (INITVS(I,1).NE.SRFNAM) GO TO 10
              J = INITVS(I,2)
              IF (VSINIT(J)) GO TO 15
 10       CONTINUE
      CALL GPRINT (1,SRFNAM)
      CALL GRPTER (NAME,708)
      RETURN
 15   CONTINUE
           CALL GTRMDV(SRFNAM)
      VSSELC(J)=.FALSE.
      PARRAY(1)=5
      PARRAY(2)=TRM
      PARRAY(3)=1
      PARRAY(4)=0
      PARRAY(5)=SRFNAM
      CALL GSENDS
      VSINIT (J) = .FALSE.
      INITVS(J,1) = 0
      RETURN
      END


















**IN -1
