Random+Talker

Random talker is a simple program that takes user input into an 1d array, then randomly chooses text from the array and prints it to the screen. The more you talk to it the more its vocabulary will grow.

code 'By orange2

print"Im Random Talker!" print"Keep talking to me" print"and i'll get smarter!" input"click accept ";dummy dim words$(200)                                'initalize the array to have 200 variables [main]                                         'the [main] label CLS                                            'clear the screen of all text input"input:";text$                            'gets user input and puts it in text$ words$(counter)=text$                          'saves text$ to where the counter is on the array counter=counter+1                              'add one to the counter print"output:";words$(int(rnd(1)*counter))     'Chooses some text randomly from the array goto [main]                                    'go back to the [main]

code

This seems to be a non-working program. Modify perhaps to:- code 'By orange2, much mofified

print "I'm Random Talker! Keep talking to me and I'll get smarter!"

dim words$( 200)                                     'initalize the array to have 200 locations counter =1

[main]                                               'the [main] label print input "input:- "; text$                            'gets user input and puts it in text$ words$( counter) =text$                            'saves text$ to where the counter is on the array

for j =0 to 39 print words$( 1 +int( counter *rnd(1)));          'Chooses 40 words randomly from the array html " " next j

counter         =counter +1                        'add one to the counter goto [main]                                          'go back to the [main] code