You are slowing everything down by a huge amount by flipping the screen buffers all the time. Do it like this and it's plenty fast!
percentage = Float(roomcount * 100) / Float(width * height)
If percentage<>lastperc
Cls
Text 0, 0, "Loading " + percentage + "%"
Flip
lastperc = percentage
EndIf