Another bug

Side note = Check this out
http://www.w1tp.com/enigma/EnigmaSim.zip

I ran it but was unable to figure out what I was doing.

Anyway, in the following code, I get "subscript out of range" if I enter the same settings as given in the other post, but instead use uppercase letters on inpus.

Suggested fix: Use LCASE$ when getting those letters.

Mac

' The Main Part of the code
DO
  FOR i = 1 TO 10
    IF Rotor(i).Curr = 1 THEN R$ = Letter(Rotor(i).Sett)
    IF Rotor(i).Curr = 2 THEN M$ = Letter(Rotor(i).Sett)
    IF Rotor(i).Curr = 3 THEN L$ = Letter(Rotor(i).Sett)
  NEXT i