#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN() AS LONG
  DIM i AS LONG
  FOR i = 1 TO 10
    IF i MOD 2 = 0 THEN
      PRINT i; " is even"
    ELSE
      PRINT i; " is odd"
    END IF
  NEXT
  FUNCTION = 0
END FUNCTION
