      SUBROUTINE GINDAT
      COMMON /PAR/ PARRAY,MAXARY
      INTEGER*4 PARRAY(5000),MAXARY

      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),
     8     VSXNDC(5),VSYNDC(5),VSXCHR(5),VSYCHR(5)
      REAL VSXCM(5),VSYCM(5),VSSCMX(5),VSSCMY(5),VSSNDX(5),
     2     VSSNDY(5),VSLWMN(5),VSLWMX(5),VSCSMN(5),VSCSMX(5)
      LOGICAL VSINIT(5),VSSELC(5)
      COMMON/ATR/LWIDT,LWMAX,LSTYL,LSMAX,PEN,PENMAX,FONT,FONMAX,
     1     CHSIZ,CHSPC,CHPREC,CHPLN,PIKID,PIKMAX,CHPATH,CHJUST,
     2     MRKR,MRKMAX,CHARUP,CURPOS,BGDNDX,BGDCOL,BGDINT,
     3     LINNDX,LINCOL,LININT,FILNDX,FILCOL,FILINT,TEXNDX,
     4     TEXCOL,TEXINT,NDXMAX,PINTR,PEDGE,COLMOD
      INTEGER LSTYL,LSMAX,PEN,PENMAX,FONT,FONMAX,CHPREC,PIKID,
     1     PIKMAX,CHPATH,CHJUST(2),MRKR,MRKMAX,BGDNDX,LINNDX,
     2     FILNDX,TEXNDX,NDXMAX,PINTR,PEDGE,COLMOD
      REAL LWIDT,LWMAX,CHSIZ(2),CHSPC,CHPLN(3),CHARUP(3),CURPOS(4),
     1     BGDCOL(3),BGDINT,LINCOL(3),LININT,FILCOL(3),FILINT,
     2     TEXCOL(3),TEXINT
      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 /DEL/ ADDRES,LNGT,HOWMNY,DELMAX
      INTEGER HOWMNY,DELMAX
      INTEGER ADDRES(1000),LNGT(1000)
      COMMON /VEW/ NDCSPC, VEWPRT, WIND, VEWREF,
     1  VEWPLN, VEWUP, PJTYP, PJDIR, PJPNT, VEWDIS, FDIS,
     2  BDIS,MXFORM,NDCUSE,FDSET,BDSET,WCLIP,FCLIP,BCLIP,CRDSYS,
     3  CRDSET,VPRTFG,VEWTYP,WRNGVS,VEWSET,PRMUSE,VEWUSE,WORLD3,
     4  VIWUP,VIWPN,PRJDIR
      REAL NDCSPC(3), VEWPRT(3,2), WIND(2,2), VEWREF(4),
     1  VEWPLN(4), VEWUP(4), PJDIR(4), PJPNT(4), VEWDIS, FDIS,
     2  BDIS,MXFORM(4,4),VIWUP(3),VIWPN(3),PRJDIR(3)
      INTEGER PJTYP, CRDSYS
      LOGICAL NDCUSE,FDSET,BDSET,WCLIP,FCLIP,BCLIP,CRDSET,VPRTFG,
     1    VEWTYP,WRNGVS,VEWSET,PRMUSE,VEWUSE,WORLD3
      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 /STB/ FILE,TABLE,FLPNTR,FLEND,STEND,
     1     SGTMAX,MATRIX,XFMMAT,ROTATE,IMAGE,MATPTR
      INTEGER STEND,SGTMAX,MATPTR
      INTEGER*4 FILE(30000),TABLE(5,1000),FLPNTR,FLEND
      REAL MATRIX(4,4),XFMMAT(4,3,1000),ROTATE(3,1000)
      LOGICAL IMAGE
      COMMON /PER/ TYPAR,DEPAR,LSTERR,LSTSEV
      INTEGER TYPAR(6),DEPAR(6),LSTERR,LSTSEV
      COMMON /IAY/ INTARY
      INTEGER*4  INTARY(6,3)
      COMMON /RAY/ REALAR
      REAL  REALAR(6,3)
      COMMON /LAY/ LOGARY
      LOGICAL  LOGARY(6,3)
      COMMON /CAY/ CHARAR
      INTEGER CHARAR(128)
      COMMON/PLY/VRTNDX,VRTCOL,VRTINT,VERMAX,CNTCOL,CNTINT,
     1    CNTNDX,VERCNT
       INTEGER VRTNDX(1500),VERMAX,CNTCOL,CNTINT,CNTNDX,VERCNT
       REAL VRTCOL(1500,3),VRTINT(1500)
      COMMON /PLT/ PCOLMN,PROW,POLARY,PCMAX,PRMAX,XORG,YORG
      INTEGER PCOLMN,PROW,POLARY(100,100),PCMAX,PRMAX
      REAL XORG,YORG
      COMMON/TRX/BONDRY,RXFORM,SING,TXFORM
      REAL BONDRY(3,2),RXFORM(4,4),TXFORM(4,4)
      LOGICAL SING
      COMMON /TXT/ TXPTR,TXCPX,TXCPY,TXCPZ,TXCTM,TXSIZX,TXSIZY,
     1     TXFONT,TXFTAB,TXFDT,TXFRAS,TXFRMX,TXWID,TXHGHT,
     2     TXCBXO,TXCBYO,TXFTXO,TXFTYO,TXCBMW,TXCBMH,
     3     TXSPRW,TXSPRH,TXRATH,TXRATW,TXSPVH,TXSPVW,TXCSET
      INTEGER TXPTR,TXFONT,TXFTAB(2200),TXFDT(3,128),TXFRAS(128),
     1     TXFRMX,TXWID,TXHGHT,
     2     TXCBXO,TXCBYO,TXFTXO,TXFTYO,TXCBMW,TXCBMH,
     3     TXSPRW,TXSPRH,TXRATH,TXRATW,TXSPVH,TXSPVW,TXCSET
      REAL TXCPX,TXCPY,TXCPZ,TXCTM(4,4),TXSIZX,TXSIZY
      COMMON/LNK/X1LINS,Y1LINS,X2LINS,Y2LINS,
     1 DELXLN,CURXLN,LNPNTR,TRVSPT,CURINT,INTSLP,
     2 CURRED,REDSLP,CURGRN,GRNSLP,CURBLU,BLUSLP,
     3 IYSTEP,CURNDX,NDXSLP
      REAL X1LINS(1500),Y1LINS(1500),X2LINS(1500),Y2LINS(1500),
     1 DELXLN(1500),CURXLN(1500),CURINT(1500),INTSLP(1500),
     2 CURRED(1500),REDSLP(1500),CURGRN(1500),GRNSLP(1500),
     3 CURBLU(1500),BLUSLP(1500),IYSTEP,CURNDX(1500),NDXSLP(1500)
      INTEGER LNPNTR,TRVSPT
      COMMON/ACT/ACTLIL,LSTACT,XRASOR,ENDPTR
      INTEGER ACTLIL(1500),LSTACT,ENDPTR
      REAL XRASOR(1500,4)
      COMMON /STD/ VSRF,CLEN1,CLEN2,CLEN3,CLOW1,CLOW2,CLOW3,
     1     CHIGH1,CHIGH2,CHIGH3,INTLOW,INTHI,LENINT
      INTEGER VSRF(5,2),CLEN1(5),CLEN2(5),CLEN3(5),LENINT(5)
      REAL CLOW1(5),CLOW2(5),CLOW3(5),CHIGH1(5),CHIGH2(5),
     1     CHIGH3(5),INTLOW(5),INTHI(5)
      COMMON /SAT/ SSEG,SLSTYL,SLWIDT,SPEN,SPINTR,SPEDGE,
     1    DEFLST,DEFLWT,DEFPEN,DEFMRK,SIMLST,SIMLWT,SIMPEN
      INTEGER*4 SSEG(2),SLSTYL(2),SPEN(2),SPINTR(2),
     1     SPEDGE(2),DEFLST,DEFPEN,DEFMRK,SIMLST,SIMPEN
      REAL SLWIDT(2),DEFLWT,SIMLWT
      COMMON /IST/NWRD,NCHR,NCWD,IARITH
      INTEGER NWRD,NCHR,NCWD,IARITH
      INTEGER BLANK
      DATA BLANK /2H  /
        MAXARY = 40
      VSPMAX = 5
      DO 100 I=1,5
        VSINIT(I) = .FALSE.
        VSSELC(I) = .FALSE.
        NWFRMR(I) = .FALSE.
        INITVS(I,1) = 0
        INITVS(I,2) = I
100   CONTINUE
      SELSLT = 0
       LWIDT=0.
       LSTYL=1
       PEN  =0
       FONT =1
       CHSIZ(1)=.01
       CHSIZ(2)=.01
       CHSPC   =0.0
       CHPREC  =1
       CHPLN(1)=0.0
       CHPLN(2)=0.0
       CHPLN(3)=-1.0
       PIKID   =1
       CHPATH=1
       CHJUST(1)=0
       CHJUST(2)=0
       MRKR     =1
       CHARUP(1)=0.0
       CHARUP(2)=1.0
       CHARUP(3)=0.0
       CURPOS(1)=0.0
       CURPOS(2)=0.0
       CURPOS(3)=0.0
       CURPOS(4)=1.0
      FILNDX = 1
      FILCOL(1) = 1.
      FILCOL(2) = 0.
      FILCOL(3) = 0.
      FILCOL(4) = 2.
      FILINT = .5
      TEXNDX = 1
      TEXCOL(1) = 1.
      TEXCOL(2) = 0.
      TEXCOL(3) = 0.
      TEXCOL(4) = 2.
      TEXINT = .5
      LINNDX = 1
      LINCOL(1) = 1.
      LINCOL(2) = 0.
      LINCOL(3) = 0.
      LINCOL(4) = 2.
      LININT = .5
      BGDNDX = 0
      BGDCOL(4) = 2.
       LWMAX=1
       LSMAX=8
       PENMAX=0
       FONMAX=12
       PIKMAX=10000
       MRKMAX=10
       NDXMAX=2048
       PINTR=1
       PEDGE=1
      VISIB = .TRUE.
      DETECT = .FALSE.
      HILITE = .FALSE.
      OPSEG = 0
       CALL GIDENT (IXFORM,4)
      SEGTYP = 1
      OPSEGX = .FALSE.
      OPTSGX = .FALSE.
      ANGLES(1) = 0
      ANGLES(2) = 0
      ANGLES(3) = 0
      HOWMNY=0
      DELMAX = 1000
      NDCSPC(1)=1.0
      NDCSPC(2)=1.0
      NDCSPC(3)=0.0
      VEWPRT(1,1)=0.0
      VEWPRT(2,1)=0.0
      VEWPRT(3,1)=0.0
      VEWPRT(1,2)=1.0
      VEWPRT(2,2)=1.0
      VEWPRT(3,2)=1.0
      WIND(1,1)=0.0
      WIND(2,1)=0.0
      WIND(1,2)=1.0
      WIND(2,2)=1.0
      VEWREF(1)=0.0
      VEWREF(2)=0.0
      VEWREF(3)=0.0
      VEWREF(4)=1.0
      VEWPLN(1)=0.0
      VEWPLN(2)=0.0
      VEWPLN(3)=1.0
      VEWPLN(4)=1.0
      VEWUP(1)=0.0
      VEWUP(2)=1.0
      VEWUP(3)=0.0
      VEWUP(4)=1.0
      PJDIR(1)=0.0
      PJDIR(2)=0.0
      PJDIR(3)=1.0
      PJDIR(4)=1.0
      VEWDIS=0.0
      CALL GIDENT (MXFORM,4)
      PJTYP = 1
      CRDSYS = 1
      NDCUSE = .FALSE.
      FDSET = .FALSE.
      BDSET = .FALSE.
      WCLIP = .TRUE.
      FCLIP = .FALSE.
      BCLIP = .FALSE.
      CRDSET = .FALSE.
      VPRTFG =.FALSE.
      VEWTYP =.FALSE.
      VEWSET = .TRUE.
      PJPNT(4) = 1.0
      DO 1870 I = 1,3
          VIWUP(I) = 0.0
          VIWPN(I) = 0.0
          PRJDIR(I) = 0.0
 1870 CONTINUE
      SING =.TRUE.
      CALL GIDENT(RXFORM,4)
      CALL GIDENT(TXFORM,4)
      SINIT = .FALSE.
      BOUPDT = .FALSE.
      IMMED=.TRUE.
      OUTLEV=3
      DO 1900 I = 1,5
           NWFRMR(I)= .FALSE.
 1900 CONTINUE
      DISPMD = 2
      WRNGVS =.FALSE.
      VEWSET = .FALSE.
      PRMUSE = .FALSE.
      VEWUSE = .FALSE.
      WORLD3 = .FALSE.
      PMARK3 = 1
      PMARK2 = 2
      PLIN3 = 3
      PLIN2 = 4
      POLY3 = 5
      POLY2 = 6
      TEXT = 7
      MOVE = 8
      IMTRAN = 9
      HGHLTG = 10
      VSIBLE = 11
      DTECT = 12
      NWFRM = 13
      DELETS = 14
      DELETA = 15
      IMMEDV = 16
      PICCUR = 17
      BGNBAT = 18
      ENDBAT = 19
      CRSEG = 20
      CTSEG = 21
      CLOSRS = 22
      CLOSTS = 23
      RENAMS = 24
      INITDD = 25
      TERMDD = 26
      INTIZE = 27
      TRM = 28
      SNDC = 29
      INQDVC = 30
      COLR = 31
      BGCOLR = 32
      TENSTY = 33
      BGINTY = 34
      SNDX = 35
      BGINDX = 36
      COLNDX = 37
      INTNDX = 38
      IQCNDX = 39
      IQINDX = 40
      LNSTYL = 41
      ILNSTL = 42
      LNWITH = 43
      PENS = 44
      IDENSE = 45
      CHFONT = 46
      CHARSZ = 47
      CHARSP = 48
      STRROT = 49
      CHARPH = 50
      CHARJT = 51
      CHAREX = 52
      MRKSYM = 53
      PICK = 54
      ALLATR = 55
      POLEDG = 56
      POLINT = 57
      PIXCOL = 58
      PIXINT = 59
      PIXNDX = 60
      WRSCOL = 61
      WRSINT = 62
      WRSNDX = 63
      RRSCOL = 64
      RRSINT = 65
      RRSNDX = 66
      ESCAP = 67
      IESCAP = 68
      AMODE = 69
      OUTUNT = 70
      FLPNTR = 1
      FLEND = 0
      STEND = 1
      SGTMAX = 1000
      DO 2000 I=1,6
         TYPAR(I) = 0
         DEPAR(I) = 0
 2000  CONTINUE
      DO 2100 I=1,6
         DO 2200 J=1,3
            INTARY(I,J) = 0
            REALAR(I,J) = 0.0
            LOGARY(I,J) = .FALSE.
 2200     CONTINUE
 2100  CONTINUE
      DO 2500 I=1,128
         CHARAR(I) = BLANK
 2500  CONTINUE
       VERCNT = 0
       VERMAX = 1500
       CNTCOL = 0
       CNTINT = 0
       CNTNDX = 0
       PCMAX = 100
       PRMAX = 100
       DEFLST = 1
       DEFLWT = .1
       DEFMRK = 1
       SIMLST = 1
       SIMLWT = .1
      NWRD = 16
      NCHR = 8
      NCWD = 2
      IARITH = 2
      CALL GTXCBL
      RETURN
      END
      SUBROUTINE GDSPCH
      COMMON /PAR/ PARRAY,MAXARY
      INTEGER*4 PARRAY(5000),MAXARY
      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/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)
      INTEGER ERR,VEWSRF
      IF (PARRAY(2).EQ.INITDD)THEN
          IF (PARRAY(6).EQ.99) GO TO 199
          VEWSRF=PARRAY(6)
          GO TO 110
      ENDIF
       IF (PARRAY(2).EQ.71 .OR. PARRAY(2).EQ.72) THEN
         IF (PARRAY(5).EQ.99) GO TO 199
          VEWSRF = PARRAY(5)
       ENDIF
      IF (PARRAY(2).EQ.INTIZE) THEN
          IF (PARRAY(7).EQ.99) GO TO 199
          VEWSRF=PARRAY(7)
          GO TO 110
      ENDIF
      IF (PARRAY(2).EQ.INQDVC) THEN
          IF (PARRAY(5).EQ.99) GO TO 199
          VEWSRF=PARRAY(5)
          GO TO 110
      ENDIF
      IF (PARRAY(2).EQ.TRM) THEN
          IF (PARRAY(5).EQ.99) GO TO 199
          VEWSRF=PARRAY(5)
          GO TO 110
      ENDIF
      IF(PARRAY(2).EQ.MOVE) RETURN
      IF (INITVS(SELSLT,1).EQ.99) GO TO 199
      VEWSRF=INITVS(SELSLT,1)
  110 CALL DRIVER(PARRAY(1),PARRAY(PARRAY(3)+5),VEWSRF,ERR)
      RETURN
  199 CALL DD99 (PARRAY(2),PARRAY(3),PARRAY(PARRAY(3)+5),ERR)
      RETURN
      END
      SUBROUTINE GPKATR (RARRAY)
      REAL RARRAY(5000)
      COMMON/ATR/LWIDT,LWMAX,LSTYL,LSMAX,PEN,PENMAX,FONT,FONMAX,
     1     CHSIZ,CHSPC,CHPREC,CHPLN,PIKID,PIKMAX,CHPATH,CHJUST,
     2     MRKR,MRKMAX,CHARUP,CURPOS,BGDNDX,BGDCOL,BGDINT,
     3     LINNDX,LINCOL,LININT,FILNDX,FILCOL,FILINT,TEXNDX,
     4     TEXCOL,TEXINT,NDXMAX,PINTR,PEDGE,COLMOD
      INTEGER LSTYL,LSMAX,PEN,PENMAX,FONT,FONMAX,CHPREC,PIKID,
     1     PIKMAX,CHPATH,CHJUST(2),MRKR,MRKMAX,BGDNDX,LINNDX,
     2     FILNDX,TEXNDX,NDXMAX,PINTR,PEDGE,COLMOD
      REAL LWIDT,LWMAX,CHSIZ(2),CHSPC,CHPLN(3),CHARUP(3),CURPOS(4),
     1     BGDCOL(3),BGDINT,LINCOL(3),LININT,FILCOL(3),FILINT,
     2     TEXCOL(3),TEXINT
      RARRAY(1) = 15
      RARRAY(2) = LWIDT
      RARRAY(3) = CHSPC
      RARRAY(4) = LINCOL(1)
      RARRAY(5) = LINCOL(2)
      RARRAY(6) = LINCOL(3)
      RARRAY(7) = LININT
      RARRAY(8) = FILCOL(1)
      RARRAY(9) = FILCOL(2)
      RARRAY(10) = FILCOL(3)
      RARRAY(11) = FILINT
      RARRAY(12) = TEXCOL(1)
      RARRAY(13) = TEXCOL(2)
      RARRAY(14) = TEXCOL(3)
      RARRAY(15) = TEXINT
      RETURN
      END
      SUBROUTINE GPKATI(IARRAY)
      INTEGER IARRAY (128)
      COMMON/ATR/LWIDT,LWMAX,LSTYL,LSMAX,PEN,PENMAX,FONT,FONMAX,
     1     CHSIZ,CHSPC,CHPREC,CHPLN,PIKID,PIKMAX,CHPATH,CHJUST,
     2     MRKR,MRKMAX,CHARUP,CURPOS,BGDNDX,BGDCOL,BGDINT,
     3     LINNDX,LINCOL,LININT,FILNDX,FILCOL,FILINT,TEXNDX,
     4     TEXCOL,TEXINT,NDXMAX,PINTR,PEDGE,COLMOD
      INTEGER LSTYL,LSMAX,PEN,PENMAX,FONT,FONMAX,CHPREC,PIKID,
     1     PIKMAX,CHPATH,CHJUST(2),MRKR,MRKMAX,BGDNDX,LINNDX,
     2     FILNDX,TEXNDX,NDXMAX,PINTR,PEDGE,COLMOD
      REAL LWIDT,LWMAX,CHSIZ(2),CHSPC,CHPLN(3),CHARUP(3),CURPOS(4),
     1     BGDCOL(3),BGDINT,LINCOL(3),LININT,FILCOL(3),FILINT,
     2     TEXCOL(3),TEXINT
      IARRAY(1) = 15
      IARRAY(2) = LSTYL
      IARRAY(3) = PEN
      IARRAY(4) = FONT
      IARRAY(5) = CHPATH
      IARRAY(6) = CHJUST(1)
      IARRAY(7) = CHJUST(2)
      IARRAY(8) = PIKID
      IARRAY(9) = MRKR
      IARRAY(10) = LINNDX
      IARRAY(11) = FILNDX
      IARRAY(12) = TEXNDX
      IARRAY(13) = PINTR
      IARRAY(14) = PEDGE
      IARRAY(15)=BGDNDX
      RETURN
      END
**IN -1
