Types

Your code indicates a lack of understanding of types. That's okay, cause they're weird.

Try this:

Type bob
   Field hi
End Type

count=0
Dim BobArr.bob(20) ; makes an array of 20 "bob" things

For i = 1 To 20
  BobArr(i) = New bob ; initalizes all the "bob" things
Next

Repeat
   a=Input("Number from 1 to 20: ")
   BobArr(a)\hi = Rnd(8,79) ; puts random number in "bob" number a
   count=count+1
Until count=3

While 1
   access=Input("What would you like to access? Enter 0 to exit. ")
   If access = 0 Then Exit
   Print BobArr(Access)\hi
Wend

End

This code will crash if you enter a number below 0 or above 20. If you have further questions about the example above, lemme know.