6 lines
161 B
Text
6 lines
161 B
Text
10 FOR n=-3 TO 4: GO SUB 30: NEXT n
|
|
20 STOP
|
|
30 LET odd=FN m(n,2)
|
|
40 PRINT n;" is ";("Even" AND odd=0)+("Odd" AND odd=1)
|
|
50 RETURN
|
|
60 DEF FN m(a,b)=a-INT (a/b)*b
|