R18 Text Interface Fix

MD

Top of "MENU.INIT" in "MD", 3 lines, 47 characters.                             
*--: P                                                                          
001: C                                                                          
002: /home/username/BP/_MENU.INIT                                                
003: UT.OBJ/_MENU.INIT                                                          
Bottom.                                                                         
*--: 


ST.SUBROUTINES MENU.INIT

ED XMM MENU.INIT                                                                
Top of "MENU.INIT" in "XMM", 2,472 lines, 94,752 characters.                    
*---: 95                                                                        
0095: * 12/14/95 rgh: doesn't seem to need this (MIO.COMMON insert)             
*---: P                                                                         
0096: * 01/25/94 alex - Initial test for valid startup menu.                    
0097: * 06/24/92 ct7 - Changes for Procedure vs Process Security                
0098: *          Restructured Nested IFs into CASE statement                    
0099: *                                                                         
0100: *IF NOT(THIN.GUI) AND SN.STARTUP.PROCESS NE "EX" THEN                     
0101: *CALL S.SESSION.CONFIRMATION                                              
0102: *END                                                
0103: *----------------------------------------------------------------         
0104: *----- Initialize                                                         
0105: *----------------------------------------------------------------         
0106: $INSERT I_NEWTHIN_COMMON FROM UT.INSERTS                                  
0107: CRNT.PROCESS = ""                                                         
0108: INITIALIZED = 0                                                           
0109: TOTAL.CNT = 0                                                             
0110: X.MNEMONIC = ""                                                           
0111: X.PROCESS = ""                                                            
0112: LOADED.FLAG = 0                                                           
0113: SELECTED.FLAG = 1                                                         
0114: X.ID = ""                                                                 
0115: X.ITEMDATA = ""                                                           
0116: X.NAME = ""                                                               
0117: SELCHANG.FLAG = 0                                                         
*---:  

Hosted by www.Geocities.ws

1