sync on
sync rate 60
 
randomize 1000
 
dim lots_of_names$(1000)
create_random_system_names()
y = 0
 
repeat
 
	for i = 1 to 1000
 
		text 0, y, lots_of_names$(i)
		y = y + 16
 
	next i
 
	sync
 
until spacekey() > 0
 
 
 
Rem PJY - function to create random names for the systems
 
FUNCTION create_random_system_names()
 
	dim vowels(4) AS string
	vowels(0) = "A"
	vowels(1) = "E"
	vowels(2) = "I"
	vowels(3) = "O"
	vowels(4) = "U"
 
	dim consonants(20) AS string
	consonants(0) = "B"
	consonants(1) = "C"
	consonants(2) = "D"
	consonants(3) = "F"
	consonants(4) = "G"
	consonants(5) = "H"
	consonants(6) = "J"
	consonants(7) = "K"
	consonants(8) = "L"
	consonants(9) = "M"
	consonants(10) = "N"
	consonants(11) = "P"
	consonants(12) = "Q"
	consonants(13) = "R"
	consonants(14) = "S"
	consonants(15) = "T"
	consonants(16) = "V"
	consonants(17) = "W"
	consonants(18) = "X"
	consonants(19) = "Y"
	consonants(20) = "Z"
 
	randomize 1000
 
	total_letters = 10
 
	for i = 1 to 100
 
		repeat
 
			word_length = rnd(total_letters)
 
		until word_length > 3
 
		for j = 1 to word_length
 
			chance = rnd(99)
			if j = 1
 
				if chance =< 19
 
					name$ = vowels(rnd(4))
					last = 0
 
				else
 
					name$ = consonants(rnd(20))
					last = 1
 
				endif
 
			endif
 
			if last = 1
 
				name$ = name$ + vowels(rnd(4))
				last = 0
 
			else
 
				name$ = name$ + consonants(rnd(20))
				last = 1
 
			endif
 
			Rem PJY - break loop if the name is too long
			name_length = len(name$)
			if name_length => word_length
 
				j = word_length + 10
 
			endif			
 
		next j
 
		lots_of_names$(i) = name$
 
	next i
 
ENDFUNCTION