RosettaCodeData/Task/Determine-if-a-string-is-numeric/Commodore-BASIC/determine-if-a-string-is-numeric.basic

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
Initial data commit 2023-07-01 11:58:00 -04:00			`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`