Task

Create an enumeration of constants with and without explicit values.




REM Impossible. Can only be faked with arrays of strings.
OPTION BASE 1
DIM SHARED fruitsName$(1 TO 3)
DIM SHARED fruitsVal%( 1 TO 3)
fruitsName$[1] = "apple"
fruitsName$[2] = "banana"
fruitsName$[3] = "cherry"
fruitsVal%[1] = 1
fruitsVal%[2] = 2
fruitsVal%[3] = 3
 
REM OR GLOBAL CONSTANTS
DIM SHARED apple%, banana%, cherry%
apple%  = 1
banana% = 2
cherry% = 3