Re: Help with an errant 'IF' statement please.

[Austin Obyrne <austin.obyrne@hotmail.com>]

On Saturday, November 29, 2014 4:53:48 PM UTC, Dennis Lee Bieber wrote:
> On Sat, 29 Nov 2014 07:05:09 -0800 (PST), Austin Obyrne
> <austin.obyrne@hotmail.com> declaimed the following:
> 
> 
> >LOOP
> >  EXIT WHEN NextChar = Sentinel;
> >
> 	What is the definition of "NextChar", since I don't see it changing
> inside this loop...
>  
> -- 
> 	Wulfraed                 Dennis Lee Bieber         AF6VN
>     wlfraed@ix.netcom.com    HTTP://wlfraed.home.netcom.com/

This is the relevant source code at the very start of the program in question,

  Total := Total+1;
  Ada.Text_IO.Get(Item => NextChar);
  Image(Total):= NextChar;
 
'NextChar' is the variable name given to each character being read in from the keyboard.

This program is giving so much trouble that I don't think it is worth continuing
any further with it as an *interactive email tool - alternatively, an email message that is prepared in an editor is just as convenient and is far more robust for reading in and encrypting just as I would with say any batch file.

*I have made an experimental change to an algorithm that worked very well before the change but all this has inexplicably come along with the change.

I have never felt comfortable with this interactive process even when it worked 
well and will stop using it altogether now - it isn't cost effective to persevere with it any further especially when it is suspect.  An encrypted message travels as an attachment to an unsecured covering email(for the present)
- there is no advantage in encrypting it in interactive mode compared with preparing it in an editor like say 'Notepad' - all my instincts say I am doing something wrong.

Sorry for taking so long in coming back and thanks for your help - Austin.