Dim number_of_characters = 256 as Int 'Originally as Boolean (ahahah, thx Informatix)
Dim Collision(256, 256) as Boolean
For host = 0 to (number_of_characters - 1)
For guest = host + 1 to (number_of_characters - 1)
Collision(host, guest) = CheckCollision(host, guest)
Collision(guest, host) = Collision(host, guest)
Next
Next
'Number of Collision Checks: 32640