5 lines
154 B
Text
5 lines
154 B
Text
' Even or odd
|
|
OPTION MEMTYPE int
|
|
SPLIT ARGUMENT$ BY " " TO arg$ SIZE dim
|
|
n = IIF$(dim < 2, 0, VAL(arg$[1]))
|
|
PRINT n, " is ", IIF$(EVEN(n), "even", "odd")
|