17 lines
362 B
Plaintext
17 lines
362 B
Plaintext
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
|