13 lines
198 B
Text
13 lines
198 B
Text
!setup
|
|
DIM foo(10)
|
|
FOR n = LBOUND(foo) TO UBOUND(foo)
|
|
LET foo(n) = INT(RND*99999)
|
|
NEXT n
|
|
RANDOMIZE
|
|
|
|
!random selection
|
|
LET x = INT(RND*((UBOUND(foo)-LBOUND(foo))+1))
|
|
|
|
!output
|
|
PRINT x, foo(x)
|
|
END
|