UPWARD
case UPWARD:
put_door(&rooms[room1], UPWARD, &row1, &col1);
dir = UPWARD;
put_door(&rooms[room2], UPWARD, &row2, &col2);
case UPWARD:
*row = ((dir == UPWARD) ? rm->top_row : rm->bottom_row);
DOWN : UPWARD;
DOWN : UPWARD;
dirs[0] = UPWARD;
case UPWARD:
*d = UPWARD;
d = UPWARD/2;
return(UPWARD);