Here's a challenge for all of you: In pure basic, figure out if Ans is a Number or a String.
It is possible, but I havn't figured out how.
If you figure it out, you win a cookie.

I have a solution for everything except the number zero.   I can't figure out how to compleatly do it.
For more info, http://www.unitedti.org/forum/index.php?showtopic=9191

Hmm...

:DelVar AAns-->A
:(A and 1)
is very short, and will give 1 in Ans if input was a number, or 0 if input was a string. I'm just trying to make zero work...

I want to initialize A to something other than 0 before storing Ans to A. But that's obviously impossible, because initializing A changes Ans. >_<

Would seem to work... but still not really what I was looking for.

Assume that A = i before program is run.

:Ans->A
:1 and imag(A

would work, giving 1 for all strings and 0 for all numbers.

Unfortunately, you can't increment a for loop to an imaginary value.

Here's my 30-byte solution that works for any input:

DelVar AFor(B,1,1
Ans->A
Ans->B
A=B

One would probably want to close to have For(B,1,1:End instead if this routine were being used within a larger program.  Also, I was hoping I could get rid of DelVar A and set A and B to different values using just For( by defining B in terms of A, but I'm not sure how to do that in a small way that always works (for positive and negative values of A, etc.)

See the original post.

Genius, just explodes my mind that this can be done through all the little exploits that exist on the calculator.

I think it generally would, but:
- It would make the program be 31 bytes instead of 30
- The program would fail sometimes - for example, if A were a large value like 10^98 (E98) before the program ran

Before this, I never though there was even a remote chance that Basic would do something like type checking.  Its something we have been telling beginers is impossible for a long time.  Now we know differently!