Form BROADCAST

    Form Data 
        CURRENT_DATE Character(9)
        CURRENT_TIME Character(8)
    End Data

    Form Record DATE_REC
        CURRENT_DATE Character(9)
        CURRENT_TIME Character(8)
    End Record

    Form Record MESSAGE_RECORD
        MESSAGEPANEL Character(78)
    End Record

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

        Viewport MESSAGE_TEXT_VIEWPORT
            Lines 23 Through 23
            Columns 2 Through 79
            Display Viewport
                %Terminal_Width_Unchanged
        End Viewport

        Viewport MESSAGE_VIEWPORT
            Lines 22 Through 24
            Columns 1 Through 80
            Display Viewport
                %Terminal_Width_Unchanged
        End Viewport

        Viewport DATE_TIME_VIEWPORT
            Lines 18 Through 20
            Columns 50 Through 80
            Display Viewport
                %Terminal_Width_Unchanged
        End Viewport

        Viewport INFORMATION_VIEWPORT
            Lines 1 Through 15
            Columns 1 Through 80
            Display Viewport
                %Terminal_Width_Unchanged
        End Viewport

        Enable Response
            Display
                MESSAGE_PANEL
            Display
                MESSAGE_TEXT_PANEL
        End Response

        Send Response DATE_REC
            Display
                INFORMATION_PANEL
            Display
                DATE_TIME_PANEL
        End Response

        Send Response MESSAGE_RECORD
            Display
                MESSAGE_TEXT_PANEL
        End Response


        Message Panel MESSAGE_TEXT_PANEL
            Viewport MESSAGE_TEXT_VIEWPORT
        End Panel


        Panel MESSAGE_PANEL
            Viewport MESSAGE_VIEWPORT
            Literal Rectangle
                Line 1	Column 1
                Line 3	Column 80
            End Literal

            Literal Text
                Line 1
                Column 3
                Value "Messages"
                Display
                    Reverse
            End Literal

        End Panel


        Panel DATE_TIME_PANEL
            Viewport DATE_TIME_VIEWPORT
            Field CURRENT_DATE
                Line 2
                Column 5
            End Field

            Field CURRENT_TIME
                Line 2
                Column 20
            End Field

            Literal Polyline
                Line 1	Column 1
                Line 1	Column 6
            End Literal

            Literal Text
                Line 1
                Column 7
                Value "DATE"
                Display
                    Reverse
            End Literal

            Literal Polyline
                Line 1	Column 11
                Line 1	Column 21
            End Literal

            Literal Text
                Line 1
                Column 22
                Value "TIME"
                Display
                    Reverse
            End Literal

            Literal Polyline
                Line 1	Column 26
                Line 1	Column 31
                Line 3	Column 31
                Line 3	Column 1
                Line 1	Column 1
            End Literal

            Literal Polyline
                Line 1	Column 16
                Line 3	Column 16
            End Literal

        End Panel


        Panel INFORMATION_PANEL
            Viewport INFORMATION_VIEWPORT
            /* This panel provides a title and explanation of the program */
            Literal Text
                Line 2
                Column 1
                Value "       Broadcast Trapping Example       "
                Display
                    Reverse
                    Underlined
                    Font Size Double High
            End Literal

            Literal Text
                Line 4
                Column 4
                Value "This program demonstrates broadcast message handling "-
                    "in DECForms."
            End Literal

            Literal Text
                Line 5
                Column 4
                Value "Messages are trapped and sent to a mailbox.  An AST "-
                    "routine is activated"
            End Literal

            Literal Text
                Line 6
                Column 4
                Value "by the presence of data in the mailbox.  The broadcast "-
                    "message is"
            End Literal

            Literal Text
                Line 7
                Column 4
                Value "sent to the forms manager via a second session to the "-
                    "form.  The example"
            End Literal

            Literal Text
                Line 8
                Column 4
                Value "here will display the date and time every 30 seconds 3 "-
                    "times.  During"
            End Literal

            Literal Text
                Line 8
                Column 80
                Value " "
            End Literal

            Literal Text
                Line 9
                Column 4
                Value "this time, broadcast messages will be handled.  Also, "-
                    "broadcast messages"
            End Literal

            Literal Text
                Line 10
                Column 4
                Value "will only be handled if broadcast is enabled for the "-
                    "terminal at program"
            End Literal

            Literal Text
                Line 11
                Column 4
                Value "startup."
            End Literal

            Literal Text
                Line 13
                Column 4
                Value "Reply, shutdown, and urgent messages have been "-
                    "reformatted to conserve"
            End Literal

            Literal Text
                Line 14
                Column 4
                Value "space."
            End Literal

            Literal Rectangle
                Line 3	Column 1
                Line 15	Column 80
            End Literal

        End Panel

    End Layout
End Form