!          FMS Form Description Application Aid 
!                     Version V2.2
! 
FORM NAME='MAIN'
    AREA_TO_CLEAR=1:23
    WIDTH=80
    BACKGROUND=CURRENT
    ;
!
! TEXT commands start here to describe the MAIN menu
!
TEXT (7,9) ' DA  '
    BOLD 
    ;
TEXT (7,15) 'Database Applications'
    ;
TEXT (9,9) ' EM  '
    BOLD 
    ;
TEXT (9,15) 'Electronic Messaging'
    ;
TEXT (10,9) ' EX  '
    BOLD 
    ;
TEXT (10,15) 'Exit Workstation'
    ;
!
! there would normally be many other selections here
!
TEXT (22,10) 'Enter selection and press RETURN'
    ;
!
ATTRIBUTE_DEFAULTS FIELD
    CLEAR_CHARACTER=' '
    NOAUTOTAB BLANK_FILL NOBLINKING NOBOLD NOREVERSE
    NOUNDERLINE NODISPLAY_ONLY ECHO NOFIXED_DECIMAL
    LEFT_JUSTIFIED NOSUPERVISOR_ONLY NOSUPPRESS NOUPPERCASE
    ;
!
FIELD NAME='USER'  (1,1)
    PICTURE=32'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='TITLE'  (1,34)
    PICTURE=30'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='DAY'  (1,66)
    PICTURE=3'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='DATE'  (1,70)
    PICTURE=11'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='TIME'  (2,73)
    PICTURE=8'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='CHOICE'  (20,10)
    PICTURE=71'X'
    HELP='Press GOLD H for Help'
    ;
FIELD NAME='MAIL'  (9,37)
    PICTURE=30'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='MEETIN'  (15,40)
    PICTURE=20'X'
    DISPLAY_ONLY 
    ;
!
ORDER BEGIN_WITH = 1
    NAME='USER' 
    NAME='TITLE' 
    NAME='DAY' 
    NAME='DATE' 
    NAME='TIME' 
    NAME='CHOICE' 
    NAME='MAIL' 
    NAME='MEETIN' 
    ;
!
! The following named data defines the various commands.  Most have
!  been deleted here.
!
NAMED_DATA INDEX=1 NAME='.TYPE'
    DATA='MENU /USER=USER/TITLE=TITLE/MAIL=MAIL/CHOICE=CHOICE/DATE=DATE/MORE=''MAIN2''' ;
NAMED_DATA INDEX=2 NAME='.TYPE'
    DATA='/CLEAR/GET=DAY,OA$DAY;MEETIN,OA$MEETING_COUNT_DISPLAY/HARD="Main Menu"' ;
NAMED_DATA INDEX=6 NAME='.GOLD A'
    DATA='FORM MAIN2' ;
NAMED_DATA INDEX=7 NAME='CHOICE'
    DATA='/HARD=''Options: WP,EM,DC,TM,IM,US,SS,TR,EX,PW,COR,FC''' ;
!
! Note the inclusion here of the command to go to the DATABASE menu
!
NAMED_DATA INDEX=11 NAME='DA'
    DATA='FORM DATABASE' ;
! 
END_OF_FORM NAME='MAIN' ;