SUB setendpoints
 Local integer cx,cy,px,py
 cx = MM.HRes/(WIDTH*3)
 cy = MM.VRes/(LENGTH*2.8)
 
 ' Door on right side
 px = (WIDTH * 2 + 1) * cx + 20
 py = RND() * (LENGTH-1) + 1
 py = py * 2
 mid$(m$(py),len(m$(py))) = " "
 py = py * cy
 box px,py,cx,cy,1,rgb(black),rgb(black)
 
 ' Door on left side
 px = cx + 20
 py = RND() * (LENGTH-1) + 1
 py = py * 2
 mid$(m$(py),1) = " "
 py = py * cy
 box px,py,cx,cy,1,rgb(black),rgb(black)
 
END SUB