Replacment of Vowels

[ztrumpet]

Make the smallest program you can that asks for a string, replaces all the vowels (A, E, I, O, and U) with an asterisk (*), and displays the finished string (Can be in Ans).
Mine is 103 in the Memory Management Menu with a one character name.

[Graphmastur]

You could do:

[ztrumpet]

Instead of:

input "Str num:",A
":"+Expr(sub("Str0Str1Str2Str3Str4Str5Str6Str7Str8Str9",A-1,1)+":"

I just ment:
Input Str1

I could have been more clear

Cool code though...

edit:
Your code dosn't even work :\
IF InString("AEIOU",sub(ans,A,1))≠0
This would return if the string "AEIOU" was in the string
sub(ans,1,A-1)+"*"+sub(ans,A+1,length(ans))
This dosn't work if a vowel is in the first or last spot

[ticalcnoah]

Already been done http://www.unitedti.org/index.php?showtopic=8551 could be easily modified to meet your challenge.

[ztrumpet]

I thought this was different.
That deals with taking out non-letters and this deals with replacing vowels.

Can anyone do better than 103 bytes? edit: 89

Mine (old solution) is:
spoiler
[whiteout]Input Str1
" ->Str2 /1 space
For(A,1,length(Str1
sub(Str1,A,1
If Ans="A" or Ans="E" or Ans="I" or Ans="O" or Ans="U
Then
Str2+"*
Else
Str2+Ans
End
Ans->Str2
End
sub(Ans,2,length(Str1[/whiteout]
/spoiler

[bfr]

"Can anyone do better than 103 bytes?" I'm guessing others like Weregoose, DarkerLine, many of the frequenters of the TI-BASIC board etc. probably could but don't feel like it :P

[ztrumpet]

[bfr]

"No, it would (I'm 99% sure) evaluate for the string "AEIOU". Since the one letter given by the sub( is one character long and "AEIOU" is 5 characters long it will always be false." I think you're thinking of inString(sub(ans,A,1),"AEIOU"). Note that the syntax is inString(string,substring that is looked for in the string,(optional parameter for where to start) , as you correctly did in your code, so by doing InString("AEIOU",sub(ans,A,1)), it looks to see if the current character is inside a string of vowels, which consequently tests to see if it is a vowel. For example, you can try entering InString("AEIOU","A" on the homescreen, and it'll return 1.

My code (highlight to view):

[ztrumpet]

I got pwned!
That's amazing
I didn't know you could use inString like that (reversed from how I've used it)- You're right
That's cool!
Wow... 74 bytes

edit:
I optimized yours to 73 bytes!

[ztrumpet]

I think 73 bytes is as good as it's going to get.
Great job bfr!

If anyone can beat 73 bytes, feel free to post.

[Weregoose]

To purvey a little trick that DarkerLine had used in another challenge:

Input Str1
For(A,1,length(Str1
sub(Str1,A,1
If inString("AEIOU",Ans
"*
Str1+Ans→Str1
End
sub(Ans,A,A-1

Five bytes less.

[ztrumpet]

No way!

That's awesome!

Again, I wonder if this is unbeatable.