COMFPAN 
COMMON
C$      LIST(S=0) 
C 
C       COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
C 
        IMPLICIT INTEGER (A-Z)
C-----------------------
C       MAXIMUM VALUES
C 
        PARAMETER (MARA=16,MATR=64,MBOX=8,MROW=64,MFUN=48)
        PARAMETER (MFIE=511,MCON=255,MVAR=255,MCOR=32,MTAB=8) 
        PARAMETER (MCOL=160,MIBX=255) 
        PARAMETER (MVAL=4000) 
C-----------------------
C       ASCII CHARACTERS
C 
        PARAMETER (ZLT=Z"3C", ZGT=Z"3E", ZOB=Z"5B", ZCB=Z"5D")
        PARAMETER (ZEQ=Z"3D", ZLB=Z"7B", ZRB=Z"7D", ZQO=Z"22")
        PARAMETER (Z0=Z"30",  Z9=Z"39",  ZSP=Z"20", ZPD=Z"2E")
        PARAMETER (ZAA=Z"41", ZZZ=Z"5A", ZA=Z"61",  ZZ=Z"7A") 
        PARAMETER (ZPL=Z"2B", ZMI=Z"2D", ZVB=Z"7C", ZUL=Z"5F")
        PARAMETER (ZEE=Z"45", ZE =Z"65", ZAP=Z"27") 
C-----------------------
C       STUFF 
C 
        CHARACTER*7 PNAME 
        CHARACTER*265 LINE
        CHARACTER*160 BLANK 
        INTEGER IMAG(MCOL+1,MROW), NROW, NCOL 
        INTEGER VERS, MSGL, MSGX, MSGY, CLDC
        LOGICAL FATAL, INDEF, ENDFILE, ABEND, DEFLOGA 
C       ------
        COMMON /PANCHR/ PNAME, LINE,  BLANK 
        COMMON /PANINT/ IMAG, NROW, NCOL, VERS, MSGL, MSGX, MSGY, CLDC
        COMMON /PANLOG/ FATAL, INDEF, ENDFILE, ABEND, DEFLOGA 
C-----------------------
C       ATTRIBUTES
C 
        CHARACTER*1 ATRLP(MATR), ATRUL(MATR), ATRAI(MATR), ATRIV(MATR), 
     A              ATRBL(MATR) 
        INTEGER NATR, ATTP(MATR), ATSC(MATR), ATBI(MATR), ATLW(MATR), 
     A                ATCS(MATR), ATCE(MATR), ATIO(MATR)
        INTEGER SPCH(128) 
C       ------
        COMMON /PANCHR/ ATRLP, ATRUL, ATRAI, ATRIV, 
     A                  ATRBL 
        COMMON /PANINT/ NATR, ATTP, ATSC, ATBI, ATLW, 
     A                  ATCS, ATCE, ATIO, 
     B                  SPCH
C-----------------------
C       BOXES 
C 
        INTEGER NBOX, BOXW(8) 
        INTEGER IBOX, BOXC(256), BOXX(256), BOXY(256), BOXN(256)
        INTEGER       BOXA(256) 
        INTEGER CORS, CORI(32), CORJ(32), CORX(32), CORT(32)
        INTEGER CORO(16)
C       ------
        COMMON /PANINT/ NBOX, BOXW, BOXB, BOXE, 
     A                  IBOX, BOXC, BOXX, BOXY, BOXN, BOXA, 
     B                  CORS, CORI, CORJ, CORX, CORT, CORO
C-----------------------
C       CONSTANTS 
C 
        INTEGER NCON, CONI(256), CONF(256)
C       ------
        COMMON /PANINT/ NCON, CONI, CONF
C-----------------------
C       FIELDS
C 
        INTEGER NFIE, FIEX(512), FIEY(512), FIEL(512), FIET(512), 
     A                FIEV(512), FIEO(512), FIEA(512) 
C       ------
        COMMON /PANINT/ NFIE, FIEX, FIEY, FIEL, FIET, 
     A                  FIEV, FIEO, FIEA
C-----------------------
C       FUNCTIONS 
C 
        PARAMETER (FAN=1,FAA=3) 
        INTEGER NFUN, FUNA(MFUN), FUNG(MFUN), FUNK(MFUN)
C       ------
        COMMON /PANINT/ NFUN, FUNA, FUNG, FUNK
C-----------------------
C       PANEL ATTRIBUTES
C 
        INTEGER BLKA, ERBW, ERAR, WRIB
C       ------
        COMMON /PANINT/ BLKA, ERBW, ERAR, WRIB
C-----------------------
C       SYMBOLS 
C 
        CHARACTER*1 SYMTP 
        CHARACTER*160 STRGD 
        INTEGER SI,   SJ
        INTEGER SL, STRG(MCOL), SINT, SIGN
        REAL SREALV 
C       ------
        COMMON /PANCHR/ SYMTP, STRGD
        COMMON /PANINT/ SI,   SJ, 
     A                  SL,   STRG, SINT, SIGN
        COMMON /PANREA/ SREALV
C-----------------------
C       TABLES
C 
        CHARACTER*7 TABNM(8)
        INTEGER NTAB, TABF(8), TABL(8), TABD(8), TABR(8)
C       ------
        COMMON /PANCHR/ TABNM 
        COMMON /PANINT/ NTAB, TABF, TABL, TABD, TABR
C-----------------------
C       VARIABLES 
C 
        PARAMETER (VTC=1,VTN=2,VTR=3) 
        PARAMETER (VME=4,VMF=2,VMK=1) 
        PARAMETER (VPX=1,VPA=2,VP9=3,VPN=4,VPC=5,VPE=6) 
        PARAMETER (VPY=7,VPM=8,VPD=9) 
        PARAMETER (VTMATCH=1, VTRANGE=2)
        CHARACTER*7 VARNM(256)
        CHARACTER*4 TYPES(3)
        INTEGER NVAR, VAIO(256), VARL(256), VARV(256), VTAB(256)
        INTEGER       VART(256), VARM(256), VARP(256), VAVT(256)
        INTEGER       VARH(256), VARD(256), VARA(256), VARF(256)
        INTEGER       VARR(256), VARC(256)
        INTEGER NVAF
        INTEGER VDCO
        INTEGER NVAL, VVAL(4000)
        REAL    VREALV(4000)
C       ------
        COMMON /PANCHR/ VARNM, TYPES
        COMMON /PANINT/ NVAR, VAIO, VARL, VARV, VTAB, 
     A                  VART, VARM, VARP, VAVT, 
     B                  VARH, VARD, VARA, VARF, 
     C                  VARR, VARC, NVAF, VDCO, 
     D                  NVAL, VVAL
        COMMON /PANLOG/ VARUSD, VARAR 
        EQUIVALENCE (VVAL,VREALV) 
C-----------------------
C       TYPES OF INTERNAL FUNCTIONS 
C 
        LOGICAL UPSYMEQ, SYMEQ, ISA, ISN, ISAN
        LOGICAL ISCOR, ISLINH, ISLINV, ISLCH, ISLCV 
        LOGICAL ZEQNEXT 
        INTEGER X612TA, CLEN
C$      LIST(S=1,A=0) 
