     A                                      DSPSIZ(24 80 *DS3)                  
     A                                      PRINT(*LIBL/QSYSPRT)                
     A          R FSTMNU                                                        
     A                                      CA03(03 'Exit')                     
     A                                  1  2'FSTMNUCMD'                         
     A                                      COLOR(BLU)                          
     A                                  1 32'Fast Menu Command'                 
     A                                      DSPATR(HI)                          
     A                                  1 64'System:'                           
     A            SYSNAM         8        +1                                    
     A            HEADG         50A  O  2 16DSPATR(HI)                          
     A                                  2 72DATE                                
     A                                      EDTCDE(Y)                           
     A                                  3  2'Select one of the following:'      
     A                                      COLOR(BLU)                          
     A                                  3 72TIME                                
     A                                      EDTWRD('  :  :  ')                  
     A* LEFT SIDE                                                               
     A                                  5  7'1.'                                
     A            OPT01         30A  O  5 10                                    
     A                                  6  7'2.'                                
     A            OPT02         30A  O  6 10                                    
     A                                  7  7'3.'                                
     A            OPT03         30A  O  7 10                                    
     A                                  8  7'4.'                                
     A            OPT04         30A  O  8 10                                    
     A                                  9  7'5.'                                
     A            OPT05         30A  O  9 10                                    
     A                                 10  7'6.'                                
     A            OPT06         30A  O 10 10                                    
     A                                 11  7'7.'                                
     A            OPT07         30A  O 11 10                                    
     A                                 12  7'8.'                                
     A            OPT08         30A  O 12 10                                    
     A                                 13  7'9.'                                
     A            OPT09         30A  O 13 10                                    
     A                                 14  6'10.'                               
     A            OPT10         30A  O 14 10                                    
     A* RIGHT SIDE                                                              
     A                                  5 42'11.'                               
     A            OPT11         30A  O  5 46                                    
     A                                  6 42'12.'                               
     A            OPT12         30A  O  6 46                                    
     A                                  7 42'13.'                               
     A            OPT13         30A  O  7 46                                    
     A                                  8 42'14.'                               
     A            OPT14         30A  O  8 46                                    
     A                                  9 42'15.'                               
     A            OPT15         30A  O  9 46                                    
     A                                 10 42'16.'                               
     A            OPT16         30A  O 10 46                                    
     A                                 11 42'17.'                               
     A            OPT17         30A  O 11 46                                    
     A                                 12 42'18.'                               
     A            OPT18         30A  O 12 46                                    
     A                                 13 42'19.'                               
     A            OPT19         30A  O 13 46                                    
     A                                 14 42'20.'                               
     A            OPT20         30A  O 14 46                                    
     A                                 19  2'Selection'                         
     A                                 20  2'===>'                              
     A            SELECT         2Y 0B    +1EDTCDE(Z)                           
     A                                 23  2'F3=Exit'                           
     A  71                             24  2'Specified menu option +            
     A                                      not correct'                        
     A                                      DSPATR(HI)                          
