Printing all letters in one input word

[Mitthrawnuruodo]

Its ok. :wink: :rotfl:

[Pyrokid]

ehmm couldnt you just do this:

Code:

CLS
INPUT "Type in a word or phrase",a$
a$ = UCASE$(a$)
c
FOR i = 1 TO LEN(a$)
  Print MID$(a$ , i , 1)
NEXT

that is what he wants isnt it

[Rattrapmax6]

ehmm couldnt you just do this:

Code:

CLS
INPUT "Type in a word or phrase",a$
a$ = UCASE$(a$)
c
FOR i = 1 TO LEN(a$)
  Print MID$(a$ , i , 1)
NEXT

that is what he wants isnt it

He has a checker in his to see if they're only letters, why I don't know, but that is why its so big.. :wink:

[Mitthrawnuruodo]

Umm he just wants to write a string vertically right?

why not:

Code:

DO
CLS
INPUT "Something: ", w$
IF MID$(w$, 1, 1) = "1" THEN EXIT DO
FOR i% = 1 TO LEN(w$)
l$ = UCASE$(MID$(w$, i%, 1) )
IF ASC(l$) >= 65 AND ASC(l$) < 90 THEN PRINT l$
NEXT i%
LOOP

I still don't understand a$(x)

I am quoting myself...I still don't understand that a$(x).

This is what he wants more simpler.

[Rattrapmax6]

:o Yeah, that was unnessisary,. Oh well, heh, yeah your code works just as well... and better really, less lines to prossess.

[Mitthrawnuruodo]

ty

So why did he put it in?