HI=#                                                                            
LO=$                                                                            
VAR=@                                                                           
CMDLINE=?                                                                       
INPUT=+                                                                         
PF1=EXIT                                                                        
PF10=LOGON                                                                      
CLEAR=REFRESH                                                                   
                                                                                
CHAR=2=LOGMODE(D4B32XX3)                                                        
CHAR=3=LOGMODE(D4B32XX3)                                                        
CHAR=4=LOGMODE(D4B32XX3)                                                        
CHAR=5=LOGMODE(D4B32XX3)                                                        
                                                                                
CHAR=A=APPL(BIM09)                                                              
CHAR=B=APPL(CICS09)                                                             
CHAR=C=APPL(GOICCF)                                                             
CHAR=D=APPL(FAQS09)                                                             
CHAR=E=APPL(BIM33)                                                              
CHAR=F=APPL(CICS11)                                                             
CHAR=G=APPL(FAQS33)                                                             
CHAR=H=APPL(BIM34)                                                              
CHAR=I=APPL(CICS33)                                                             
CHAR=J=APPL(FAQS34)                                                             
CHAR=K=APPL(BIM40)                                                              
CHAR=M=APPL(CICS40Z)                                                            
CHAR=N=APPL(FAQS40)                                                             
CHAR=O=APPL(BIM64)                                                              
CHAR=P=APPL(CICS64X)                                                            
CHAR=Q=APPL(FAQS11)                                                             
CHAR=R=APPL(BIM61)                                                              
CHAR=S=APPL(CICS61M)                                                            
CHAR=T=APPL(FAQS08)                                                             
CHAR=U=APPL(BIM66)                                                              
CHAR=V=APPL(CICS66)                                                             
CHAR=W=APPL(FAQS03)                                                             
CHAR=X=APPL(BIM62)                                                              
CHAR=Y=APPL(CICS62C)                                                            
CHAR=Z=APPL(FAQS07)                                                             
                                                                                
CHAR=L=LOGON                                                                    
CHAR=E=EXIT                                                                     
                                                                                
MSGLINE=23                                                                      
TRIES=3                                                                         
                                                                                
IMAGE                                                                           
                            #The KROGER Company$                                
                                                                                
  Luname:@LUNAME                 Telnet Menu            IP Addr:@IPADDR         
                                                                                
  Logmode:     @LOGMODE       $Enter#numeral$for LOGMODE as follows:            
  Application: +APPL             #2$- D4B32XX3  24 x  80  Model 2               
                                 #3$- D4B32XX3  32 x  80  Model 3               
                                 #4$- D4B32XX3  43 x  80  Model 4               
                                 #5$- D4B32XX3  27 x 132  Model 5               
                                                                                
 $Enter#letter$of desired application:                                          
     #A$ BIM09   LP1  #H$ BIM34   LP4  #P$ CICS64X LP6  #W$ FAQS03  LP8         
     #B$ CICS09  LP1  #I$ CICS33  LP4  #Q$ FAQS11  LP6  #X$ BIM62   LP9         
     #C$ GOICCF  LP1  #J$ FAQS34  LP4  #R$ BIM61   LP7  #Y$ CICS62C LP9         
     #D$ FAQS09  LP1  #K$ BIM40   LP5  #S$ CICS61M LP7  #Z$ FAQS07  LP9         
     #E$ BIM33   LP2  #M$ CICS40Z LP5  #T$ FAQS08  LP7                          
     #F$ CICS11  LP2  #N$ FAQS40  LP5  #U$ BIM66   LP8                          
     #G$ FAQS33  LP2  #O$ BIM64   LP6  #V$ CICS66  LP8                          
                                                                                
 $Enter#letter$or#numeral =>?                                                   
                             $                                                  
 $When complete, enter#L$or press#PF10$to LOGON or use full VTAM LOGON command  
                                                                                
                    $Press#PF1$or enter#E$to EXIT