15 lines
290 B
Plaintext
15 lines
290 B
Plaintext
10 INPUT "Enter a string: ",A$
|
|
20 GOSUB 50
|
|
30 PRINT B$
|
|
40 END
|
|
50 FOR I=1 TO LEN(A$)
|
|
60 N=ASC(MID$(A$,I,1))
|
|
70 E=255
|
|
80 IF N>64 AND N<91 THEN E=90 ' uppercase
|
|
90 IF N>96 AND N<123 THEN E=122 ' lowercase
|
|
100 IF E<255 THEN N=N+13
|
|
110 IF N>E THEN N=N-26
|
|
120 B$=B$+CHR$(N)
|
|
130 NEXT
|
|
140 RETURN
|