RosettaCodeData/Task/Enforced-immutability/FreeBASIC/enforced-immutability.basic

#define IMMUT1 32767    'constants can be created in the preprocessor
dim as const uinteger IMMUT2 = 2222  'or explicitly declared as constants