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