Simple example:
' Initialise arrays for first and last names Global first$[5] Global last$[5] ' Set name values first$[0]="Dave" first$[1]="Joe" first$[2]="Bob" first$[3]="John" first$[4]="Harry" last$[0]="Smith" last$[1]="Jones" last$[2]="Murray" last$[3]="Oakes" last$[4]="Edwards" ' Randomise seed so we get different random numbers each time SeedRnd(MilliSecs()) ' Print random first name and random last name Print first[Rand(4)]+" "+last[Rand(4)] WaitKey()