8 lines
223 B
Text
8 lines
223 B
Text
' Pick random element
|
|
OPTION BASE 1
|
|
DECLARE words$[6]
|
|
FOR i = 1 TO 6 : READ words$[i] : NEXT
|
|
DATA "Alpha", "Beta", "Gamma", "Delta", "Epsilon", "Zeta"
|
|
|
|
element = RANDOM(6) + 1
|
|
PRINT "Chose ", element, ": ", words$[element]
|