Side note = Check this out
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.
' The Main Part of the code
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)
This message has been edited by Mac36 on Dec 15, 2004 6:09 PM