# Room & Dimension

## version 1 by Sebastian Rahn

**Section 1.2 - Changing sector **

To Change sector (Y - a text) and (X - a number) in (map - a room) to (new - a thing):

choose row with Sector Room of map in Table 997;

Change Table_Location to Table Entry;

choose row 1 in Table_Location;

Change Tmp_Width to Width Entry;

choose row X in Table_Location;

If Y is "LE", Change LE Entry to new;

If Y is "A", Change A1 Entry to new;

If Y is "B", Change B2 Entry to new;

If Y is "C", Change C3 Entry to new;

If Y is "D", Change D4 Entry to new;

If Y is "E", Change E5 Entry to new;

If Y is "F", Change F6 Entry to new;

If Y is "G", Change G7 Entry to new;

If Y is "H", Change H8 Entry to new;

If Y is "I", Change I9 Entry to new;

If Y is "J", Change J10 Entry to new;

If Y is "K", Change K11 Entry to new;

If Y is "L", Change L12 Entry to new;

If Y is "M", Change M13 Entry to new;

If Y is "N", Change N14 Entry to new;

If Y is "O", Change O15 Entry to new;

If tmp_Width > 17

begin;

If Y is "P", Change P16 Entry to new;

choose row with Sector Room of map in Table 997;

Change Table_Location to Table 2 Entry;

choose row X in Table_Location;

If Y is "Q", Change Q17 Entry to new;

If Y is "R", Change R18 Entry to new;

If Y is "S", Change S19 Entry to new;

If Y is "T", Change T20 Entry to new;

If Y is "U", Change U21 Entry to new;

If Y is "V", Change V22 Entry to new;

If Y is "W", Change W23 Entry to new;

If Y is "X", Change X24 Entry to new;

If Y is "Y", Change Y25 Entry to new;

If Y is "Z", Change Z26 Entry to new;

end if;

If Y is "RE", Change RE Entry to new.

To Change sector (Y - a number) and (X - a number) in (map - a room) to (new - a thing):

choose row with Sector Room of map in Table 997;

Change Table_Location to Table Entry;

choose row 1 in Table_Location;

Change Tmp_Width to Width Entry;

If Tmp_Width > 5

begin;

If Tmp_Width > 17

begin;

choose row Y in Table 200;

If Tmp_Width is 28, Change Tmp_Picked_Y to Letters28 Entry;

If Tmp_Width is 27, Change Tmp_Picked_Y to Letters27 Entry;

If Tmp_Width is 26, Change Tmp_Picked_Y to Letters26 Entry;

If Tmp_Width is 25, Change Tmp_Picked_Y to Letters25 Entry;

If Tmp_Width is 24, Change Tmp_Picked_Y to Letters24 Entry;

If Tmp_Width is 23, Change Tmp_Picked_Y to Letters23 Entry;

If Tmp_Width is 22, Change Tmp_Picked_Y to Letters22 Entry;

If Tmp_Width is 21, Change Tmp_Picked_Y to Letters21 Entry;

If Tmp_Width is 20, Change Tmp_Picked_Y to Letters20 Entry;

If Tmp_Width is 19, Change Tmp_Picked_Y to Letters19 Entry;

If Tmp_Width is 18, Change Tmp_Picked_Y to Letters18 Entry;

otherwise;

choose row Y in Table 201;

If Tmp_Width is 17, Change Tmp_Picked_Y to Letters17 Entry;

If Tmp_Width is 16, Change Tmp_Picked_Y to Letters16 Entry;

If Tmp_Width is 15, Change Tmp_Picked_Y to Letters15 Entry;

If Tmp_Width is 14, Change Tmp_Picked_Y to Letters14 Entry;

If Tmp_Width is 13, Change Tmp_Picked_Y to Letters13 Entry;

If Tmp_Width is 12, Change Tmp_Picked_Y to Letters12 Entry;

If Tmp_Width is 11, Change Tmp_Picked_Y to Letters11 Entry;

If Tmp_Width is 10, Change Tmp_Picked_Y to Letters10 Entry;

If Tmp_Width is 9, Change Tmp_Picked_Y to Letters9 Entry;

If Tmp_Width is 8, Change Tmp_Picked_Y to Letters8 Entry;

If Tmp_Width is 7, Change Tmp_Picked_Y to Letters7 Entry;

If Tmp_Width is 6, Change Tmp_Picked_Y to Letters6 Entry;

end if;

end if;

If Tmp_Width < 6

begin;

choose row Y in Table 202;

If Tmp_Width is 5, Change Tmp_Picked_Y to Letters5 Entry;

If Tmp_Width is 4, Change Tmp_Picked_Y to Letters4 Entry;

If Tmp_Width is 3, Change Tmp_Picked_Y to Letters3 Entry;

If Tmp_Width is 2, Change Tmp_Picked_Y to Letters2 Entry;

If Tmp_Width is 1, Change Tmp_Picked_Y to Letter Entry;

end if;

choose row X in Table_Location;

If Tmp_Picked_Y is "LE", Change LE Entry to new;

If Tmp_Picked_Y is "A", Change A1 Entry to new;

If Tmp_Picked_Y is "B", Change B2 Entry to new;

If Tmp_Picked_Y is "C", Change C3 Entry to new;

If Tmp_Picked_Y is "D", Change D4 Entry to new;

If Tmp_Picked_Y is "E", Change E5 Entry to new;

If Tmp_Picked_Y is "F", Change F6 Entry to new;

If Tmp_Picked_Y is "G", Change G7 Entry to new;

If Tmp_Picked_Y is "H", Change H8 Entry to new;

If Tmp_Picked_Y is "I", Change I9 Entry to new;

If Tmp_Picked_Y is "J", Change J10 Entry to new;

If Tmp_Picked_Y is "K", Change K11 Entry to new;

If Tmp_Picked_Y is "L", Change L12 Entry to new;

If Tmp_Picked_Y is "M", Change M13 Entry to new;

If Tmp_Picked_Y is "N", Change N14 Entry to new;

If Tmp_Picked_Y is "O", Change O15 Entry to new;

If tmp_Width > 17

begin;

If Tmp_Picked_Y is "P", Change P16 Entry to new;

choose row with Sector Room of map in Table 997;

Change Table_Location to Table 2 Entry;

choose row X in Table_Location;

If Tmp_Picked_Y is "Q", Change Q17 Entry to new;

If Tmp_Picked_Y is "R", Change R18 Entry to new;

If Tmp_Picked_Y is "S", Change S19 Entry to new;

If Tmp_Picked_Y is "T", Change T20 Entry to new;

If Tmp_Picked_Y is "U", Change U21 Entry to new;

If Tmp_Picked_Y is "V", Change V22 Entry to new;

If Tmp_Picked_Y is "W", Change W23 Entry to new;

If Tmp_Picked_Y is "X", Change X24 Entry to new;

If Tmp_Picked_Y is "Y", Change Y25 Entry to new;

If Tmp_Picked_Y is "Z", Change Z26 Entry to new;

end if;

If Tmp_Picked_Y is "RE", Change RE Entry to new.