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.

'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]
 

This seems to be a non-working program. Modify perhaps to:-
'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]