Google
 

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

c---
c  variable declarations

        Integer Row, Col, CurField, TermKeys(30)
        Integer NumberOfFields, LastKey, FieldNumber
        Logical Next, Previous, Exit, Refresh, ValidField

        character* 4    Version
        character* 9    Date
        character* 6    GroupID
        character* 3    Operator
        character*65    Description
        integer         ScanRate
        character* 6    StageVelocity

c---
c Normal termination on F1 key
c immediate termination on F2 key
        data TermKeys/ 1, 141, 1, 142, 26*0 /

c---
c Total number of screen parameters

        NumberOfFields =   7

c---
c Clear the screen region

        call GroupClear( Row, Col )

c---
c Display the Text fields

        call GroupTextDsp( Row, Col )

c---
c Display the Data fields

        call GroupDataDsp( Row, Col
     1, Version, Date, GroupID, Operator, Description, ScanRate
     1, StageVelocity
     1 )


c---
c Edit the Data fields

        call GroupEdit( Row, Col, CurField, TermKeys
     1, Version, Date, GroupID, Operator, Description, ScanRate
     1, StageVelocity
     1, Next, Previous, Exit, Refresh, LastKey )


c---
c Validate the Data fields

        call GroupValidate(
     1  Version, Date, GroupID, Operator, Description, ScanRate
     1, StageVelocity
     1, ValidField, FieldNumber )

[End of File]