****************************************************************
    ***                                                                  *
    ***  Copyright  - Value Added Software, Inc                          *
    ***               1511 East Harvard Ave                              *
    ***               Salt Lake City, UT  84105                          *
    ***               (801) 581-1154                                     *
    ***                                                                  *
    ***          and   Pete Helgren                                      *
    ***                                                                  *
    ***  Based on some ideas from Booth Martin http://www.martinvt.com   *
    ***  All rights, including copyrights reserved.                      *
    ***  Created: November 2011                                          *
    ***                                                                  *
    **********************************************************************
    *** Original version written:    00/00/00  By: P. Helgren            *
    *** Modifications:                                                   *
    ***       __________________________________________________________ *
    ****************************************************************************
                                            DSPSIZ(24 80 *DS3)
                                            INDARA
                R FMT01
                                            CF03(03 'F3-Exit')
                                            CF06(06 'F6-Punch IN')
                                            CF07(07 'F7-Punch OUT')
                                            WINDOW(5 9 9 55 *NOMSGLIN)
                                            WDWBORDER((*COLOR RED))
                                            WDWTITLE((*TEXT &TITLE))
                                            KEEP
                                            MOUBTN(*ULD ENTER)
                  TITLE         40   P
                  PB2            2Y 0B  7  1PSHBTNFLD((*GUTTER 1))
                                            PSHBTNCHC(1 'F6 Punch >In')
                                            PSHBTNCHC(2 'F7 Punch >Out')
                                            PSHBTNCHC(3 'F3 E>xit')

                                        2 11'Last Punch was:'
                  PUNCHTYPE      3       + 1COLOR(WHT)
                                        3 11'Date:          '
                  DAT            8       + 1COLOR(WHT)
                                        4 11'Day of week:   '
                  DOWEEK         9       + 1COLOR(WHT)
                                        5 11'Current Time:  '
                  PUNCHTIME     10       + 1COLOR(WHT)

                R BLANK
                                            TEXT('Clear Previous screen.')
                                        6  9' '