11 lines
184 B
Text
11 lines
184 B
Text
PROGRAM "Even/Odd"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
FOR i = 1 TO 10
|
|
IF (i MOD 2) THEN PRINT i;" is odd" ELSE PRINT i;" is even"
|
|
NEXT i
|
|
END FUNCTION
|
|
|
|
END PROGRAM
|