I was a bit frustrated trying to find input that would work, not being an Enigma expert. Please supply a sample set of goodies to enter. That is, please supply responses to all those prompts.
I finally got it to run but may have broke something because whenever I entered a letter to be encoded, the same result came out. AAAA should encode to VMEW or something, I would think.
Anyway, I was frustrated by all the prompting for the letters and substituted the stuff below, removing the SLEEP at the bottom.
' 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)
PRINT "In the 'Windows:'"
PRINT L$; " "; M$; " "; R$
PRINT "Enter the letter to be encoded"
PRINT "(Press ESC when finished)"
DO: INP$ = INKEY$: LOOP WHILE INP$ = ""
IF INP$ = CHR$(27) THEN EXIT DO
INP$ = UCASE$(INP$)
FINP$ = INP$