

c---
c  variable declarations

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

        character* 6    SpecimenID
        character*12    Orientation

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 =   2

c---
c Clear the screen region

        call SpecClear( Row, Col )

c---
c Display the Text fields

        call SpecTextDsp( Row, Col )

c---
c Display the Data fields

        call SpecDataDsp( Row, Col
     1, SpecimenID, Orientation
     1 )


c---
c Edit the Data fields

        call SpecEdit( Row, Col, CurField, TermKeys
     1, SpecimenID, Orientation
     1, Next, Previous, Exit, Refresh, LastKey )


c---
c Validate the Data fields

        call SpecValidate(
     1  SpecimenID, Orientation
     1, ValidField, FieldNumber )

[End of File]
    