1 2 3 4 5 6 | word1$ = ""INPUT "Type a string"; word1$FOR i = 1 TO Len(word1$) IF UCASE$(MID$(word1$, i, 1)) = "A" THEN MID$(word1$, i, 1) = "O"NEXTPRINT word1$ |
1 2 3 4 5 6 | word1$ = ""INPUT "Type a string"; word1$FOR i = 1 TO Len(word1$) IF UCASE$(MID$(word1$, i, 1)) = "A" THEN MID$(word1$, i, 1) = "O"NEXTPRINT word1$ |