Randomizing strings

[Crazier]

I can't seem to get this program to work I am not too familiar with randomizing with strings. I have done it several times with numbers. How can I make this work.

Dim Answers$ (1 to 8)
RANDOMIZE -TIMER

CLS

OPEN "reply.txt" FOR OUTPUT AS #1
WRITE #1 Yes
WRITE #1 seldom
WRITE #1 maybe
WRITE #1 never
WRITE #1 always
WRITE #1 sometimes
WRITE #1 no
WRITE #1 not anytime soon

CLOSE #1

OPEN "reply.txt" FOR OUTPUT AS #1

count = 0
DO WHILE NOT EOF(1)
count = count + 1
Answers$ = INT(RND * count) + 1
LOOP
CLOSE #1
END
I'd appreciate any suggestions.
Thanks

 

[qbasicking]

thsi question is not very clear, but I think that I can help you.
first look up the DIM statement
then look at this example.

DIM card$(52) 'a standard deck of cards
'here you would represent each card with the LET statement
'**********this draws a random card****************
x = INT(RND *52)+1
newcard = card$(x)

 

[Crazier]

Do you know how to do it with strings. I need responses to pop up at random instead of numberic values.
Thanks for your help

 

[qbasicking]

I guess you didnt understand my post.
say that card$(1) = "Ace of Spades"
card$(2) = "Two of Spades"
card$(3) = "Three of Spades"...you get the point.
get a random number by using the random generator that you had and then place that number after the string:
card$(random number here) it will give you a random preset string.

If you want a random string of letters then you can use the ASCII scan code.

 

[Crazier]

Oh right. Thank you so much and please excuse my ignorance. thanks again.