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