# Room & Dimension

## version 1 by Sebastian Rahn

Section 1.5 - Calculate coordinates

Every thing has a number called X-Axis.
Every thing has a text called Y-Axis.

Tmp_Height is a number that varies.

To calculate coordinates:
Choose row with Sector Room of the location of Compass in Table 997;
Change Table_Location to Table Entry;
Choose row 1 in Table_Location;
Change Tmp_Width to Width Entry;
Change Tmp to Height Entry;
Change Tmp_Height to Height Entry;
repeat with X running from 1 to Tmp
begin;
If tmp_Width > 17
begin;
Choose row with Sector Room of the location of Compass in Table 997;
Change Table_Location to Table Entry;
end if;
choose row X in Table_Location;
If Compass is LE Entry
begin;
Change Y-Axis of Compass to "LE";
Change X-Axis of Compass to Number Entry;
end if;
If Tmp_Width > 2
begin;
If Compass is A1 Entry
begin;
Change Y-Axis of Compass to "A";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 3
begin;
If Compass is B2 Entry
begin;
Change Y-Axis of Compass to "B";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 4
begin;
If Compass is C3 Entry
begin;
Change Y-Axis of Compass to "C";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 5
begin;
If Compass is D4 Entry
begin;
Change Y-Axis of Compass to "D";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 6
begin;
If Compass is E5 Entry
begin;
Change Y-Axis of Compass to "E";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 7
begin;
If Compass is F6 Entry
begin;
Change Y-Axis of Compass to "F";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 8
begin;
If Compass is G7 Entry
begin;
Change Y-Axis of Compass to "G";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 9
begin;
If Compass is H8 Entry
begin;
Change Y-Axis of Compass to "H";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 10
begin;
If Compass is I9 Entry
begin;
Change Y-Axis of Compass to "I";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 11
begin;
If Compass is J10 Entry
begin;
Change Y-Axis of Compass to "J";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 12
begin;
If Compass is K11 Entry
begin;
Change Y-Axis of Compass to "K";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 13
begin;
If Compass is L12 Entry
begin;
Change Y-Axis of Compass to "L";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 14
begin;
If Compass is M13 Entry
begin;
Change Y-Axis of Compass to "M";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 15
begin;
If Compass is N14 Entry
begin;
Change Y-Axis of Compass to "N";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 16
begin;
If Compass is O15 Entry
begin;
Change Y-Axis of Compass to "O";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 17
begin;
If Compass is P16 Entry
begin;
Change Y-Axis of Compass to "P";
Change X-Axis of Compass to Number Entry;
end if;
Choose row with Sector Room of the location of Compass in Table 997;
Change Table_Location to Table 2 Entry;
Choose row X in Table_Location;
end if;
If Tmp_Width > 18
begin;
If Compass is Q17 Entry
begin;
Change Y-Axis of Compass to "Q";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 19
begin;
If Compass is R18 Entry
begin;
Change Y-Axis of Compass to "R";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 20
begin;
If Compass is S19 Entry
begin;
Change Y-Axis of Compass to "S";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 21
begin;
If Compass is T20 Entry
begin;
Change Y-Axis of Compass to "T";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 22
begin;
If Compass is U21 Entry
begin;
Change Y-Axis of Compass to "U";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 23
begin;
If Compass is V22 Entry
begin;
Change Y-Axis of Compass to "V";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 24
begin;
If Compass is W23 Entry
begin;
Change Y-Axis of Compass to "W";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 25
begin;
If Compass is X24 Entry
begin;
Change Y-Axis of Compass to "X";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 26
begin;
If Compass is Y25 Entry
begin;
Change Y-Axis of Compass to "Y";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 27
begin;
If Compass is Z26 Entry
begin;
Change Y-Axis of Compass to "Z";
Change X-Axis of Compass to Number Entry;
end if;
end if;
If Tmp_Width > 1
begin;
If Compass is RE Entry
begin;
Change Y-Axis of Compass to "RE";
Change X-Axis of Compass to Number Entry;
end if;
end if;
end repeat.