13 lines
229 B
Text
13 lines
229 B
Text
'setup
|
|
DIM foo(10) AS LONG
|
|
DIM n AS LONG, x AS LONG
|
|
FOR n = LBOUND(foo) TO UBOUND(foo)
|
|
foo(n) = INT(RND*99999)
|
|
NEXT
|
|
RANDOMIZE TIMER
|
|
|
|
'random selection
|
|
x = INT(RND * ((UBOUND(foo) - LBOUND(foo)) + 1))
|
|
|
|
'output
|
|
PRINT x, foo(x)
|