













































      INTEGER          BLACK, RED, GREEN, YELLOW, BLUE, MAGENT, CYAN, 
     +                 WHITE, LGRAY, MGRAY, DGRAY
      PARAMETER        (BLACK=0)
      PARAMETER        (RED=1)
      PARAMETER        (GREEN=2)
      PARAMETER        (YELLOW=3)
      PARAMETER        (BLUE=4)
      PARAMETER        (MAGENT=5)
      PARAMETER        (CYAN=6)
      PARAMETER        (WHITE=7)
      PARAMETER        (LGRAY=8)
      PARAMETER        (MGRAY=9)
      PARAMETER        (DGRAY=10)

      INTEGER          MAXIOB, MAXCMD, LENTPT
      PARAMETER        (MAXIOB=6000)
      PARAMETER        (MAXCMD=2000)
      PARAMETER        (LENTPT=160)
      INTEGER          BPLANE(1000),  
     +                 IOBJ(MAXIOB), IRICC(40),IRSTAT(100), IRICC2, 
     +                 MENIRI, IRRCNT, PLOTNR, INDPCK2, MCOL(3,100),
     +                 PACKCOL(100), DIAL_MAP(8), IQ7352, IQ7353, 
     +                 IQ7354, IQ7357, IQ7358, IQ7359, IQ7360,
     +                 IQ7361, IQ7362, IQ7363, IQ7364, IQ7365,
     +                 IQ7366, IQ7367, IQ7303, IQ7304
      LOGICAL          IRROCK, IXROCK, IRSTER, M1DONE(4), 
     +                 BUTTONS(36), IRISFLAGS(1500), FBRTAT, USE300,
     +                 SKIPUPD
      REAL             ROCKANGLE, ROCKSPEED, ROCKDYNOW, ASPECT,
     +                 WORKMAT(4,4), PCMAT(3,3),
     +                 DX, DY, DZ, TX, TY, TZ, SLABIR, SCVAL, TORS1,
     +                 TORS2, TORS3, TORS4, CENTRX, CENTRY, CENTRZ,
     +                 SAVM1234(26,4), X_MNOW, Y_MNOW, X_FOV, Y_FOV,  
     +                 PICKMATL(4,4), PICKMATR(4,4),
     +                 X_MLOW, X_MHGH, Y_MLOW, P1XYZ(3), P2XYZ(3),
     +                 P3XYZ(3), P4XYZ(3), Y_MHGH, ACONVC(3),
     +                 DIAL_FAC(8)
      CHARACTER*1      POPTXT(MAXCMD)
      CHARACTER*2      PADCHR
      CHARACTER*4      AQ7359, AQ7365
      CHARACTER*6      IRIMENU(36)
      CHARACTER*22     TOPTXT
      CHARACTER*20     COMTEXT(MAXCMD), KEYB_COM
      CHARACTER*80     TPTXLN2, DEMOTX(10), COMLST(MAXCMD)
      CHARACTER*(LENTPT) TPTXLN
      EQUIVALENCE      (AQ7359,IQ7359)
      EQUIVALENCE      (AQ7365,IQ7365)



      COMMON      /WIFC03/
     +             ACONVC, IQ7303



      COMMON      /WIFC04/
     +             USE300, SKIPUPD, IQ7304



      COMMON      /WIFC05/
     +             MCOL,   PACKCOL



      COMMON      /WIFC06/
     +             P1XYZ,  P2XYZ,  P3XYZ,  P4XYZ
 

      COMMON      /OBJECTS1/ 
     +             DX,     DY,     DZ,     TX,     TY,     TZ,     
     +             IQ7352, SLABIR, SCVAL,  IQ7353, 
     +             TORS1,  TORS2,  TORS3,  TORS4,  IQ7367, 
     +             CENTRX, CENTRY, CENTRZ, IQ7354, X_MNOW, Y_MNOW, 
     +             PICKMATR,ROCKANGLE, ROCKSPEED, PICKMATL, 
     +             IQ7357, ROCKDYNOW, IQ7358, WORKMAT,
     +             SAVM1234,ASPECT,X_FOV, Y_FOV,  X_MLOW, 
     +             X_MHGH, Y_MLOW, Y_MHGH, DIAL_FAC
 

      COMMON      /OBJECTS2/
     +             TPTXLN, AQ7359, KEYB_COM,
     +             COMLST, DEMOTX, POPTXT, COMTEXT, TPTXLN2, 
     +             IRIMENU,TOPTXT, PADCHR, AQ7365


      COMMON      /OBJECTS3/
     +             IOBJ,   IRICC,  IRRCNT,  IRICC2, 
     +             PLOTNR, MENIRI, IRSTAT,  BPLANE, 
     +             INDPCK2,DIAL_MAP
 

      COMMON      /OBJECTS4/
     +             IXROCK, IRROCK, IQ7360, IRSTER, IQ7361, M1DONE,
     +             IQ7362, BUTTONS, IQ7363, IRISFLAGS, IQ7366, 
     +             FBRTAT, IQ7364


      COMMON      /OBJECTS5/
     +             PCMAT
