Pick random element: Difference between revisions

==={{header|BASIC256}}===

<lang BASIC256>dim a$ = {"Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"}

for i = 1 to 5

randInt = int(rand * 10)

print a$[randInt]

next i</lang>

==={{header|True BASIC}}===

{{trans|QBasic}}

<lang qbasic>!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</lang>

==={{header|Yabasic}}===

<lang yabasic>dim a$(9)

a$(0)="Zero"

a$(1)="One"

a$(2)="Two"

a$(3)="Three"

a$(4)="Four"

a$(5)="Five"

a$(6)="Six"

a$(7)="Seven"

a$(8)="Eight"

a$(9)="Nine"

for i = 1 to 5

randInt = int(ran(10))

print a$(randInt)

next i</lang>