home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d594 / analyrimsrc.lha / AnalyRimSrc / AnaRimSrcDoc.Zoo / selcom.blk < prev    next >
Text File  |  1991-09-30  |  2KB  |  40 lines
  1. C
  2. C   *** SELCOM ***
  3. C
  4.       COMMON /SELCOM/ COL1(20),ITEMW(20),CURPOS(20),NUMCOL(20),
  5.      X                PGRAPH(20),ATYPE(20),LEN(20),
  6.      X                ROWD(20),COLD(20),FP(20),
  7.      X                SINGLE(20),
  8.      X                TITLE(38),MINUS(38),LINE(38),MCPL,LPP,NUMATT
  9.      X                ,UMCPL,ULPP,TRUNC(20),VAR(20)
  10.       LOGICAL VAR,TRUNC
  11.       INTEGER COL1,CURPOS,ATYPE,ROWD,COLD,FP,SINGLE
  12.       INTEGER UMCPL,ULPP
  13.       INTEGER PGRAPH,TITLE
  14. C
  15. C     ARRAYS WITH INFO FOR EACH ATTRIBUTE
  16. C     COL1......FIRST COLUMN IN LINE TO PRINT INTO
  17. C     ITEMW.....NUMBER OF COLUMNS PER ITEM
  18. C     CURPOS....CURRENT POSITION IN ATTRIBUTE (FOR PARAGRAPHING)
  19. C     NUMCOL....NUMBER OF COLUMNS AVAILABLE FOR THIS ATTRIBUTE
  20. C     PGRAPH....PARAGRAPH NUMBER INPUT BY USER OR ZERO
  21. C     TRUNC.....TRUE IFF ROWS ARE TO BE TRUNCATED  AS PARAGRAPHS
  22. C     ATYPE.....ATTRIBUTE TYPE
  23. C     LEN.......ATTRIBUTE LENGTH (WORDS EXCEPT TEXT IS CHARACTERS)
  24. C     ROWD......ROW DIMENSION
  25. C     COLD......COLUMN DIMENSION
  26. C     VAR.......TRUE IFF VARIABLE ATTRIBUTE
  27. C     FP........POINTER TO CELL IF FIXED POTION OF TUPLE
  28. C     SINGLE....CONTAINS ROW/COL OR ENTRY FOR MAT(I,J)/VEC(J) ITEMS
  29. C
  30. C     OTHER STUFF
  31. C     LINE......OUTPUT LINE SPACE (NEEDS TO BE 150 CHARACTERS BIG)
  32. C     TITLE.....TITLE LINE (ALSO 150 CHARS.)
  33. C     MINUS.....LINE WITH THEM FUNNY LITTLE DASHES (ALSO 150 CHARS.)
  34. C     MCPL......MAX COLUMNS PER LINE
  35. C     UMCPL.....USER SPECIFIED MAX COLUMNS PER LINE
  36. C     LPP.......LINES PER PAGE
  37. C     ULPP......USER SPECIFIED LINES PER PAGE
  38. C     NUMATT....NUMBER OF ATTRIBUTES THIS SELECT
  39. C
  40.