A*%%TS  SD  19980821  150908  WESTONA     REL-V3R7M0  5716-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A          R SFL                       SFL
     A*%%TS  SD  19980811  150120  WESTONA     REL-V3R7M0  5716-PW1
     A            LINE          70A  O  3  5
     A          R SFLCTL                    SFLCTL(SFL)
     A*%%TS  SD  19980817  162929  WESTONA     REL-V3R7M0  5716-PW1
     A                                      CF03(03 'Exit')
     A                                      CF06(06 'Add Display')
     A                                      CF09(09 'Change Name')
     A                                      CF12(04 'Add Message')
     A  80                                  INVITE
     A                                      OVERLAY
     A  80                                  SFLDSP
     A  80                                  SFLDSPCTL
     A  81                                  SFLCLR
     A                                      SFLSIZ(0020)
     A                                      SFLPAG(0020)
     A                                  1 32'Multi User Talker'
     A                                      DSPATR(HI)
     A            DUMMY          1A  I  1  8CHECK(ER)
     A          R SFLFOT
     A*%%TS  SD  19980821  150908  WESTONA     REL-V3R7M0  5716-PW1
     A                                 23 17'F6=Add Display'
     A                                      COLOR(BLU)
     A                                 23 37'F9=Change Name'
     A                                      COLOR(BLU)
     A                                 23  7'F3=Exit'
     A                                      COLOR(BLU)
     A                                 23 58'F12=Send Message'
     A                                      COLOR(BLU)
     A          R WIND1
     A*%%TS  SD  19980821  150432  WESTONA     REL-V3R7M0  5716-PW1
     A                                      CF12(12 'Cancel')
     A                                      INVITE
     A                                      WINDOW(7 2 5 70 *NOMSGLIN)
     A                                  1 20'Multi User Talker - Add Message.'
     A                                      DSPATR(HI)
     A            INPUT         70A  I  3  1CHECK(LC)
     A                                      DSPATR(PC)
     A                                  5 58'F12=Opps!'
     A                                      COLOR(BLU)
     A                                  5  3'Enter=Send it'
     A                                      COLOR(BLU)
     A          R WIND2
     A*%%TS  SD  19980821  150231  WESTONA     REL-V3R7M0  5716-PW1
     A                                      CF12(12 'Cancel')
     A  80                                  INVITE
     A                                      WINDOW(5 30 5 20 *NOMSGLIN)
     A                                  1  6'Add Display'
     A                                      DSPATR(HI)
     A                                  3  1'Display:'
     A            DEVICE        10A  I  3 10
     A                                  4 10'F12=Cancel'
     A                                      COLOR(BLU)
     A  55                              5  1'Invalid Display!'
     A                                      DSPATR(HI)
     A          R WIND3
     A*%%TS  SD  19980821  150231  WESTONA     REL-V3R7M0  5716-PW1
     A                                      CF12(12 'Cancel')
     A  80                                  INVITE
     A                                      WINDOW(5 30 5 20 *NOMSGLIN)
     A                                  3  1'New Name:'
     A                                  5 10'F12=Cancel'
     A                                      COLOR(BLU)
     A                                  1  6'Change Name'
     A                                      DSPATR(HI)
     A            NEWNAM        10A  B  3 11CHECK(LC)