Determine if a string is numeric: Difference between revisions
Added Commodore BASIC.
(Added Commodore BASIC.) |
|||
Line 862:
1010 R=T1$=S$ OR T1$=" "+S$
1099 RETURN</lang>
==={{header|Commodore BASIC}}===
<lang commodorebasic>5 print chr$(147);chr$(14)
10 input "Enter a string";s$:gosub 1000:print
20 if r then print "You entered a number.":goto 99
30 print "That is not a number."
99 end
1000 t1=val(s$):t1$=str$(t1)
1010 r=t1$=s$ or t1$=" "+s$
1099 return</lang>
{{out}}
<pre>Enter a string? 15893
You entered a number.
ready.
run
Enter a string? Llamas
That is not a number.
ready.
█</pre>
=={{header|Batch File}}==
|