|  | @@ -1670,7 +1670,7 @@ var
 | 
	
		
			
				|  |  |    MyScan:byte;
 | 
	
		
			
				|  |  |    MyChar : char;
 | 
	
		
			
				|  |  |    MyKey: TEnhancedKeyEvent;
 | 
	
		
			
				|  |  | -  EscUsed,AltPrefixUsed,CtrlPrefixUsed,ShiftPrefixUsed,IsAlt,Again : boolean;
 | 
	
		
			
				|  |  | +  EscUsed,AltPrefixUsed,CtrlPrefixUsed,ShiftPrefixUsed,Again : boolean;
 | 
	
		
			
				|  |  |    SState: TEnhancedShiftState;
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  begin {main}
 | 
	
	
		
			
				|  | @@ -1694,8 +1694,6 @@ begin {main}
 | 
	
		
			
				|  |  |    AltPrefixUsed:=false;
 | 
	
		
			
				|  |  |    ShiftPrefixUsed:=false;
 | 
	
		
			
				|  |  |    EscUsed:=false;
 | 
	
		
			
				|  |  | -  if IsAlt then
 | 
	
		
			
				|  |  | -    Include(SState, essAlt);
 | 
	
		
			
				|  |  |    repeat
 | 
	
		
			
				|  |  |      again:=false;
 | 
	
		
			
				|  |  |      if Mychar=#0 then
 | 
	
	
		
			
				|  | @@ -1839,8 +1837,6 @@ begin {main}
 | 
	
		
			
				|  |  |          MyKey:=ReadKey;
 | 
	
		
			
				|  |  |          MyChar:=MyKey.AsciiChar;
 | 
	
		
			
				|  |  |          MyScan:=ord(MyChar);
 | 
	
		
			
				|  |  | -        if IsAlt then
 | 
	
		
			
				|  |  | -          Include(SState,essAlt);
 | 
	
		
			
				|  |  |        end;
 | 
	
		
			
				|  |  |      until not Again;
 | 
	
		
			
				|  |  |    if (MyChar<>#0) or (MyScan<>0) or (SState<>[]) then
 |