Form "forms_demo_tm_form"

    Form Data 
        current_time Datetime(23)
    End Data

    Form Data 
        One Character(1)
        Two Character(1)
    End Data

    Form Record time_rec
        current_time TM
    End Record

    Layout VT_LAYOUT
        Device
            Terminal
                Type %VT100
        End Device
        Size 24 Lines by 80 Columns

        Send Response time_rec
            Activate
                Field One on P1
        End Response

        Panel P1

/* 
   We want to return from the form for any key pressed.

   The way to do this is to trap everything
   with the BUILTIN, USER, and UNDEFINED function responses
   and then use two concealed fields with AUTOSKIP to catch the data keys.

*/
            Function Response BUILTIN FUNCTION
                Return
            End Response

            Function Response USER FUNCTION
                Return
            End Response

            Function Response UNDEFINED FUNCTION
                Return
            End Response

            Literal Text
                Line 7
                Column 7
                Value "Current time: "
                Display
                    Font Size Double High
            End Literal

            Field current_time
                Line 7
                Column 37
                Display
                    Font Size Double High
            End Field

            Field One
                Line 24
                Column 79
                Exit Response
                    Return
                End Response

                Autoskip
                Concealed
            End Field

            Field Two
                Line 24
                Column 80
            End Field

            Literal Text
                Line 10
                Column 20
                Value "Press any key except F1-F5 to continue"
            End Literal

        End Panel

    End Layout
End Form