8 lines
233 B
Text
8 lines
233 B
Text
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
|