!          FMS Form Description Application Aid 
!                     Version V2.3
 
FORM NAME='MAIN'
    AREA_TO_CLEAR=1:23
    WIDTH=80
    BACKGROUND=CURRENT
    ;


TEXT (3,10) '   '
    REVERSE 
    ;
TEXT (3,14) '   '
    REVERSE 
    ;
TEXT (3,18) '   '
    REVERSE 
    ;
TEXT (3,22) '   '
    REVERSE 
    ;
TEXT (3,26) '   '
    REVERSE 
    ;
TEXT (3,30) '   '
    REVERSE 
    ;
TEXT (3,34) '   '
    REVERSE 
    ;
TEXT (3,49) ' ALL-IN-1 '
    BOLD 
    ;
TEXT (4,10) ' '
    REVERSE 
    ;
TEXT (4,11) 'd'
    BOLD 
    ;
TEXT (4,12) ' '
    REVERSE 
    ;
TEXT (4,14) ' '
    REVERSE 
    ;
TEXT (4,15) 'i'
    BOLD 
    ;
TEXT (4,16) ' '
    REVERSE 
    ;
TEXT (4,18) ' '
    REVERSE 
    ;
TEXT (4,19) 'g'
    BOLD 
    ;
TEXT (4,20) ' '
    REVERSE 
    ;
TEXT (4,22) ' '
    REVERSE 
    ;
TEXT (4,23) 'i'
    BOLD 
    ;
TEXT (4,24) ' '
    REVERSE 
    ;
TEXT (4,26) ' '
    REVERSE 
    ;
TEXT (4,27) 't'
    BOLD 
    ;
TEXT (4,28) ' '
    REVERSE 
    ;
TEXT (4,30) ' '
    REVERSE 
    ;
TEXT (4,31) 'a'
    BOLD 
    ;
TEXT (4,32) ' '
    REVERSE 
    ;
TEXT (4,34) ' '
    REVERSE 
    ;
TEXT (4,35) 'l'
    BOLD 
    ;
TEXT (4,36) ' '
    REVERSE 
    ;
TEXT (5,10) '   '
    REVERSE 
    ;
TEXT (5,14) '   '
    REVERSE 
    ;
TEXT (5,18) '   '
    REVERSE 
    ;
TEXT (5,22) '   '
    REVERSE 
    ;
TEXT (5,26) '   '
    REVERSE 
    ;
TEXT (5,30) '   '
    REVERSE 
    ;
TEXT (5,34) '   '
    REVERSE 
    ;
TEXT (5,42) ' Professional Workstation '
    BOLD 
    ;
TEXT (8,9) ' WP  '
    BOLD 
    ;
TEXT (8,15) 'Word and Document Processing'
    ;
TEXT (9,9) ' EM  '
    BOLD 
    ;
TEXT (9,15) 'Electronic Messaging'
    ;
TEXT (10,9) ' DM  '
    BOLD 
    ;
TEXT (10,15) 'Desk Management'
    ;
TEXT (11,9) ' TM  '
    BOLD 
    ;
TEXT (11,15) 'Time Management'
    ;
TEXT (12,9) ' IM  '
    BOLD 
    ;
TEXT (12,15) 'Information Management'
    ;
TEXT (13,9) ' BA  '
    BOLD 
    ;
TEXT (13,15) 'Business Applications'
    ;
TEXT (14,9) ' COM '
    BOLD 
    ;
TEXT (14,15) 'Communications'
    ;
TEXT (15,9) ' M   '
    BOLD 
    ;
TEXT (15,15) 'More Menu Options'
    ;
TEXT (17,9) ' TR '
    BOLD 
    ;
TEXT (17,15) 'Training'
    ;
TEXT (18,9) ' EX '
    BOLD 
    ;
TEXT (18,15) 'Exit Workstation'
    ;
TEXT (22,10) 'Enter selection and press RETURN                            '
    &' (more...)'
    ;

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='MAIL'  (9,37)
    PICTURE=30'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='MEETIN'  (11,40)
    PICTURE=20'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='CHOICE'  (20,10)
    PICTURE=71'X'
    HELP='Press GOLD H for Help'
    ;

ORDER BEGIN_WITH = 1
    NAME='USER' 
    NAME='TITLE' 
    NAME='DAY' 
    NAME='DATE' 
    NAME='TIME' 
    NAME='MAIL' 
    NAME='MEETIN' 
    NAME='CHOICE' 
    ;

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=3 NAME='TR'
    DATA='.IF OA$HARDCOPY EQ 1 THEN DISPLAY Computer Based Instruction is not' ;
NAMED_DATA INDEX=4 NAME='TR'
    DATA='  available in hardcopy mode ELSE FORM CBIAGS' ;
NAMED_DATA INDEX=5 NAME='M'
    DATA='FORM MAIN2' ;
NAMED_DATA INDEX=6 NAME='.GOLD A'
    DATA='FORM MAIN2' ;
NAMED_DATA INDEX=7 NAME='CHOICE'
    DATA='/HARD=''Options: WP,EM,DM,TM,IM,BA,COM,M,TR,EX''' ;
 
END_OF_FORM NAME='MAIN' ;