15 lines
290 B
Text
15 lines
290 B
Text
PROGRAM NUMERIC
|
|
|
|
PROCEDURE IS_NUMERIC(S$->ANS%)
|
|
LOCAL T1,T1$
|
|
T1=VAL(S$)
|
|
T1$=STR$(T1)
|
|
ANS%=(T1$=S$) OR T1$=" "+S$
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
PRINT(CHR$(12);)
|
|
INPUT("Enter a string",S$)
|
|
IS_NUMERIC(S$->ANS%)
|
|
IF ANS% THEN PRINT("is num") ELSE PRINT("not num")
|
|
END PROGRAM
|