Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-13 - group.for
There are 2 other files named group.for in the archive. Click here to see a list.
      subroutine groupPackage


      parameter ( NF=  7,NI=  1,NR=  1,NC=  6,NT= 48 )
      parameter ( NdimT=  361,NdimC=   93,NdimH=  199 )

      integer Row, Col, StartField, TermKeys(30), LastKey
      logical Next, Last, Exit, Refresh
      character*80 Menu
      integer FieldNumber
      logical ValidField

      character*    4 L1  
      character*    9 D2  
      character*    6 C3  
      character*    3 C4  
      character*   65 C5  
      integer I6  
      character*    6 M7  

      character*1 Text(NdimT)
      character*1 Char(NdimC)
      character*1 Help(NdimH)

      character*7 Formats(NF)

      integer TextTable(5,NT), FldTable(7,NF), IntArray(5,NI)
      integer CharTable(2,NC), HelpTable(4,NF)
      real RealArray(5,NR) 

      data Menu(1:40) /
     1   'Up-Previous Field     Down-Next Field   '/
      data Menu(41:80) /
     1   '  ^Z-End Group Definition    PF1-Abort  '/

 
      data (TextTable(I,  1),I=1,5) /    1,73, 1, 3,1/
      data (Text(I),I=    1,   73) /
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ' /
 
      data (TextTable(I,  2),I=1,5) /   74, 2, 2, 3,1/
      data (Text(I),I=   74,   75) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I,  3),I=1,5) /   76, 2, 2,74,1/
      data (Text(I),I=   76,   77) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I,  4),I=1,5) /   78, 2, 3, 3,1/
      data (Text(I),I=   78,   79) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I,  5),I=1,5) /   80,21, 3,29,0/
      data (Text(I),I=   80,  100) /
     1   'I','n','l','a','n','d',' ','S','t','e','e','l',' ','R','e',
     1   's','e','a','r','c',
     1   'h' /
 
      data (TextTable(I,  6),I=1,5) /  101, 2, 3,74,1/
      data (Text(I),I=  101,  102) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I,  7),I=1,5) /  103, 2, 4, 3,1/
      data (Text(I),I=  103,  104) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I,  8),I=1,5) /  105,29, 4,25,0/
      data (Text(I),I=  105,  133) /
     1   'P','r','o','f','i','l','o','m','e','t','e','r',' ','D','a',
     1   't','a',' ','A','c','q','u','i','s','i','t','i','o',
     1   'n' /
 
      data (TextTable(I,  9),I=1,5) /  134, 2, 4,74,1/
      data (Text(I),I=  134,  135) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 10),I=1,5) /  136, 2, 5, 3,1/
      data (Text(I),I=  136,  137) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 11),I=1,5) /  138, 9, 5,32,0/
      data (Text(I),I=  138,  146) /
     1   'V','e','r','s','i','o','n',' ',
     1   '[' /
 
      data (TextTable(I, 12),I=1,5) /  147, 1, 5,45,0/
      data (Text(I),I=  147,  147) /
     1   ']' /
 
      data (TextTable(I, 13),I=1,5) /  148, 2, 5,74,1/
      data (Text(I),I=  148,  149) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 14),I=1,5) /  150, 2, 6, 3,1/
      data (Text(I),I=  150,  151) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 15),I=1,5) /  152, 2, 6,74,1/
      data (Text(I),I=  152,  153) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 16),I=1,5) /  154, 2, 7, 3,1/
      data (Text(I),I=  154,  155) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 17),I=1,5) /  156, 2, 7,74,1/
      data (Text(I),I=  156,  157) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 18),I=1,5) /  158, 2, 8, 3,1/
      data (Text(I),I=  158,  159) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 19),I=1,5) /  160, 2, 8,74,1/
      data (Text(I),I=  160,  161) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 20),I=1,5) /  162, 2, 9, 3,1/
      data (Text(I),I=  162,  163) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 21),I=1,5) /  164, 5, 9, 7,0/
      data (Text(I),I=  164,  168) /
     1   'D','a','t','e',
     1   ' ' /
 
      data (TextTable(I, 22),I=1,5) /  169, 9, 9,33,0/
      data (Text(I),I=  169,  177) /
     1   'G','r','o','u','p',' ','I','D',
     1   ' ' /
 
      data (TextTable(I, 23),I=1,5) /  178, 9, 9,60,0/
      data (Text(I),I=  178,  186) /
     1   'O','p','e','r','a','t','o','r',
     1   ' ' /
 
      data (TextTable(I, 24),I=1,5) /  187, 2, 9,74,1/
      data (Text(I),I=  187,  188) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 25),I=1,5) /  189, 2,10, 3,1/
      data (Text(I),I=  189,  190) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 26),I=1,5) /  191, 2,10,74,1/
      data (Text(I),I=  191,  192) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 27),I=1,5) /  193, 2,11, 3,1/
      data (Text(I),I=  193,  194) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 28),I=1,5) /  195, 2,11,74,1/
      data (Text(I),I=  195,  196) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 29),I=1,5) /  197, 2,12, 3,1/
      data (Text(I),I=  197,  198) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 30),I=1,5) /  199,20,12, 7,0/
      data (Text(I),I=  199,  218) /
     1   'M','a','t','e','r','i','a','l',' ','D','e','s','c','r','i',
     1   'p','t','i','o',
     1   'n' /
 
      data (TextTable(I, 31),I=1,5) /  219, 2,12,74,1/
      data (Text(I),I=  219,  220) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 32),I=1,5) /  221, 2,13, 3,1/
      data (Text(I),I=  221,  222) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 33),I=1,5) /  223, 2,13,74,1/
      data (Text(I),I=  223,  224) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 34),I=1,5) /  225, 2,14, 3,1/
      data (Text(I),I=  225,  226) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 35),I=1,5) /  227, 2,14,74,1/
      data (Text(I),I=  227,  228) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 36),I=1,5) /  229, 2,15, 3,1/
      data (Text(I),I=  229,  230) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 37),I=1,5) /  231, 2,15,74,1/
      data (Text(I),I=  231,  232) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 38),I=1,5) /  233, 2,16, 3,1/
      data (Text(I),I=  233,  234) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 39),I=1,5) /  235, 2,16,74,1/
      data (Text(I),I=  235,  236) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 40),I=1,5) /  237, 2,17, 3,1/
      data (Text(I),I=  237,  238) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 41),I=1,5) /  239,10,17, 7,0/
      data (Text(I),I=  239,  248) /
     1   'S','c','a','n',' ','R','a','t','e',
     1   ' ' /
 
      data (TextTable(I, 42),I=1,5) /  249,11,17,22,0/
      data (Text(I),I=  249,  259) /
     1   '(','s','c','a','n','s','/','s','e','c',
     1   ')' /
 
      data (TextTable(I, 43),I=1,5) /  260,15,17,42,0/
      data (Text(I),I=  260,  274) /
     1   'S','t','a','g','e',' ','V','e','l','o','c','i','t','y',
     1   ' ' /
 
      data (TextTable(I, 44),I=1,5) /  275, 8,17,64,0/
      data (Text(I),I=  275,  282) /
     1   '(','c','m','/','m','i','n',
     1   ')' /
 
      data (TextTable(I, 45),I=1,5) /  283, 2,17,74,1/
      data (Text(I),I=  283,  284) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 46),I=1,5) /  285, 2,18, 3,1/
      data (Text(I),I=  285,  286) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 47),I=1,5) /  287, 2,18,74,1/
      data (Text(I),I=  287,  288) /
     1   ' ',
     1   ' ' /
 
      data (TextTable(I, 48),I=1,5) /  289,73,19, 3,1/
      data (Text(I),I=  289,  361) /
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
     1   ' ' /
 
      data (FldTable(I,    1),I=1,7) / 4,    1,0, 4, 5,41,0 /
      data (CharTable(I,    1),I=1,2) /     1,0 /
      data (HelpTable(I,    1),I=1,4) /     0,    0,    0,    0 /
      data Formats(    1) / 'A4     '/
 
      data (FldTable(I,    2),I=1,7) / 5,    2,0, 9, 9,12,1 /
      data (CharTable(I,    2),I=1,2) /     5,0 /
      data (HelpTable(I,    2),I=1,4) /     0,    0,    0,    0 /
      data Formats(    2) / 'A9     '/
 
      data (FldTable(I,    3),I=1,7) / 3,    3,1, 6, 9,42,1 /
      data (CharTable(I,    3),I=1,2) /    14,0 /
      data (HelpTable(I,    3),I=1,4) /     1,   36,    0,    0 /
      data (Help(I),I=    1,   36) /
     1   'E','n','t','e','r',' ','a',' ','G','r','o','u','p',' ','I',
     1   'D',' ','a','s',' ','a',' ','l','e','g','a','l',' ','f','i',
     1   'l','e','n','a','m',
     1   'e' /
      data Formats(    3) / 'A6     '/
 
      data (FldTable(I,    4),I=1,7) / 3,    4,0, 3, 9,69,1 /
      data (CharTable(I,    4),I=1,2) /    20,0 /
      data (HelpTable(I,    4),I=1,4) /    37,   23,    0,    0 /
      data (Help(I),I=   37,   59) /
     1   'E','n','t','e','r',' ','o','p','e','r','a','t','o','r',' ',
     1   'i','n','i','t','i','a','l',
     1   's' /
      data Formats(    4) / 'A3     '/
 
      data (FldTable(I,    5),I=1,7) / 3,    5,0,65,13, 7,1 /
      data (CharTable(I,    5),I=1,2) /    23,1 /
      data (HelpTable(I,    5),I=1,4) /     0,    0,    0,    0 /
      data Formats(    5) / 'A65    '/
 
      data (FldTable(I,    6),I=1,7) / 1,    1,1, 4,17,17,1 /
      data (IntArray(I,    1),I=2,5) /
     1              1,        2000,1,          -1 /
      data (HelpTable(I,    6),I=1,4) /    60,   36,    0,    0 /
      data (Help(I),I=   60,   95) /
     1   'E','n','t','e','r',' ','a',' ','s','c','a','n',' ','r','a',
     1   't','e',' ','b','e','t','w','e','e','n',' ','1',' ','a','n',
     1   'd',' ','2','0','0',
     1   '0' /
      data Formats(    6) / 'I4     '/
 
      data (FldTable(I,    7),I=1,7) / 6,    6,1, 6,17,57,1 /
      data (CharTable(I,    6),I=1,2) /    88,1 /
      data (HelpTable(I,    7),I=1,4) /    96,   30,  126,   74 /
      data (Help(I),I=   96,  125) /
     1   'S','e','l','e','c','t',' ','S','t','a','g','e',' ','V','e',
     1   'l','o','c','i','t','y',' ','(','c','m','/','m','i','n',
     1   ')' /
      data (Help(I),I=  126,  199) /
     1   '1',')','|','1','.','0',' ',' ',' ','2',')','|','5','.','0',
     1   ' ',' ',' ','3',')','|','1','0','.','0',' ',' ',' ','4',')',
     1   '|','2','0','.','0',' ',' ',' ','5',')','|','5','0','.','0',
     1   ' ',' ',' ','6',')','|','1','0','0','.','0',' ',' ',' ','7',
     1   ')','|','L','a','u','n','c','h','_','S','t','a','g',
     1   'e' /
      data Formats(    7) / 'A6     '/


      entry groupClear( Row, Col )


      call ClearScrn( Row, Col, 80, 24 )

      return



      entry groupTextDsp( Row, Col )

      call DsplyText( Row, Col,
     1   NT, TextTable, NdimT, Text )

      return


      entry groupDataDsp( Row, Col,
     1   L1  ,D2  ,C3  ,C4  ,C5  ,I6  ,M7
     1   )
 
      IEle = FldTable(2,  1)
      L = FldTable(4,  1)
      call ANtoA1( L1  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  2)
      L = FldTable(4,  2)
      call ANtoA1( D2  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  3)
      L = FldTable(4,  3)
      call ANtoA1( C3  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  4)
      L = FldTable(4,  4)
      call ANtoA1( C4  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  5)
      L = FldTable(4,  5)
      call ANtoA1( C5  , NdimC, Char, CharTable(1,IEle), L )
 
      IntArray(1,FldTable(2,  6)) = I6  
 
      IEle = FldTable(2,  7)
      L = FldTable(4,  7)
      call ANtoA1( M7  , NdimC, Char, CharTable(1,IEle), L )

      call DsplyData( Row, Col,
     1   NF, FldTable,
     1   NI, IntArray, NR, RealArray, NC, CharTable, NdimC, Char,
     1   Formats )

      return


      entry groupValidate( 
     1   L1  ,D2  ,C3  ,C4  ,C5  ,I6  ,M7
     1  , ValidField, FieldNumber )
 
      IEle = FldTable(2,  1)
      L = FldTable(4,  1)
      call ANtoA1( L1  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  2)
      L = FldTable(4,  2)
      call ANtoA1( D2  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  3)
      L = FldTable(4,  3)
      call ANtoA1( C3  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  4)
      L = FldTable(4,  4)
      call ANtoA1( C4  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  5)
      L = FldTable(4,  5)
      call ANtoA1( C5  , NdimC, Char, CharTable(1,IEle), L )
 
      IntArray(1,FldTable(2,  6)) = I6  
 
      IEle = FldTable(2,  7)
      L = FldTable(4,  7)
      call ANtoA1( M7  , NdimC, Char, CharTable(1,IEle), L )

      call VldWholeScreen( NF, FldTable,
     1   NI, IntArray, NR, RealArray, NC, CharTable, NdimC, Char,
     1   'GROUP', ValidField, FieldNumber )

      return


      entry groupEdit( Row, Col, StartField, TermKeys,
     1   L1  ,D2  ,C3  ,C4  ,C5  ,I6  ,M7  ,
     1   Next, Last, Exit, Refresh, LastKey )
 
      IEle = FldTable(2,  1)
      L = FldTable(4,  1)
      call ANtoA1( L1  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  2)
      L = FldTable(4,  2)
      call ANtoA1( D2  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  3)
      L = FldTable(4,  3)
      call ANtoA1( C3  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  4)
      L = FldTable(4,  4)
      call ANtoA1( C4  , NdimC, Char, CharTable(1,IEle), L )
 
      IEle = FldTable(2,  5)
      L = FldTable(4,  5)
      call ANtoA1( C5  , NdimC, Char, CharTable(1,IEle), L )
 
      IntArray(1,FldTable(2,  6)) = I6  
 
      IEle = FldTable(2,  7)
      L = FldTable(4,  7)
      call ANtoA1( M7  , NdimC, Char, CharTable(1,IEle), L )

      call EditScrn( 'GROUP', Row, Col, StartField, Menu,
     1   TermKeys, NF, FldTable,
     1   NI, IntArray, NR, RealArray, NC, CharTable, NdimC, Char,
     1   Formats, HelpTable, NdimH, Help, Next, Last, Exit,
     1   Refresh, LastKey )
 
 
      IEle = FldTable(2,  2)
      L = FldTable(4,  2)
      call A1toAN( NdimC, Char, CharTable(1,IEle), L, D2   )
 
      IEle = FldTable(2,  3)
      L = FldTable(4,  3)
      call A1toAN( NdimC, Char, CharTable(1,IEle), L, C3   )
 
      IEle = FldTable(2,  4)
      L = FldTable(4,  4)
      call A1toAN( NdimC, Char, CharTable(1,IEle), L, C4   )
 
      IEle = FldTable(2,  5)
      L = FldTable(4,  5)
      call A1toAN( NdimC, Char, CharTable(1,IEle), L, C5   )
 
      I6   = IntArray(1,FldTable(2,  6))
 
      IEle = FldTable(2,  7)
      L = FldTable(4,  7)
      call A1toAN( NdimC, Char, CharTable(1,IEle), L, M7   )

      return
      end