<Keyword>PROGRAM</Keyword><Normal Text> MKFILE;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Keyword>USES</Keyword><Normal Text>    crt,algebra;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Keyword>TYPE</Keyword><Normal Text>    dt = </Normal Text><Keyword>record</Keyword><Normal Text> e : </Normal Text><Keyword>record</Keyword><Normal Text> name     : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>15</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               zeichen  : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>2</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               ozahl    : </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                               amasse   : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>9</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               ent      : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..4</Number><Normal Text>]  </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>70</Number><Normal Text>]</Normal Text><br/>
<Normal Text>                        </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    c : </Normal Text><Keyword>record</Keyword><Normal Text> txt      : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..10</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>40</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               radien   : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..2</Number><Normal Text>]  </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>6</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               elneg    : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>7</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               kladung  : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>5</Number><Normal Text>]</Normal Text><br/>
<Normal Text>                        </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    p : </Normal Text><Keyword>record</Keyword><Normal Text> smt      : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>8</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               sdt      : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>8</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               dichte   : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>15</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               volmol   : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>13</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                        </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    u : </Normal Text><Keyword>record</Keyword><Normal Text> bio      : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..13</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>30</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               hauf     : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..4</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>30</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                               geo      : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..6</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>30</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                        </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    s : </Normal Text><Keyword>record</Keyword><Normal Text> n        : </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                               bele     : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..7</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                        </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    i : </Normal Text><Keyword>record</Keyword><Normal Text> first    : </Normal Text><Type>word</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                               last     : </Normal Text><Type>word</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                               c1       : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..100</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                               c2       : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..100</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                               c3       : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..100</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                               c4       : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..100</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                               hzeit    : </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..100</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Keyword>array</Keyword><Normal Text> [</Normal Text><Number>1..2</Number><Normal Text>] </Normal Text><Keyword>of</Keyword><Normal Text> </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>7</Number><Normal Text>];</Normal Text><br/>
<Normal Text>                        </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>        cfg = </Normal Text><Keyword>record</Keyword><Normal Text> pse  : </Normal Text><Type>string</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                     bgi  : </Normal Text><Type>string</Type><Normal Text>;</Normal Text><br/>
<Normal Text>                     info : </Normal Text><Type>string</Type><Normal Text>;</Normal Text><br/>
<Normal Text>              </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text></Normal Text><br/>
<Keyword>VAR</Keyword><Normal Text>     i     : dt;</Normal Text><br/>
<Normal Text>        h     : </Normal Text><Keyword>file</Keyword><Normal Text> </Normal Text><Keyword>of</Keyword><Normal Text> dt;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>        t     : cfg;</Normal Text><br/>
<Normal Text>        u     : </Normal Text><Keyword>file</Keyword><Normal Text> </Normal Text><Keyword>of</Keyword><Normal Text> cfg;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>        zstr  : </Normal Text><Type>string</Type><Normal Text>;</Normal Text><br/>
<Normal Text>        ozahl : </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Keyword>PROCEDURE</Keyword><Normal Text> MKELEMENT (ozahl:</Normal Text><Type>byte</Type><Normal Text>);</Normal Text><br/>
<Keyword>BEGIN</Keyword><Normal Text>     </Normal Text><Keyword>CASE</Keyword><Normal Text> ozahl </Normal Text><Keyword>OF</Keyword><br/>
<Normal Text>             </Normal Text><Number>1</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Wasserstoff'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>2</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Helium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>3</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Lithium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>4</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Beryllium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>5</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Bor'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>6</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Kohlenstoff'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>7</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Stickstoff'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>8</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Sauerstoff'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>9</Number><Normal Text>    : i.e.name:=</Normal Text><String>'Fluor'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>10</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Neon'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>11</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Natrium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>12</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Magnesium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>13</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Aluminium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>14</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Silicium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>15</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Phosphor'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>16</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Schwefel'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>17</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Chlor'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>18</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Argon'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>19</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Kalium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>20</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Calzium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>21</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Scandium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>22</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Titan'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>23</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Vanadium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>24</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Chrom'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>25</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Mangan'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>26</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Eisen'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>27</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Cobalt'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>28</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Nickel'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>29</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Kupfer'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>30</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Zink'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>31</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Gallium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>32</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Germanium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>33</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Arsen'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>34</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Selen'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>35</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Brom'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>36</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Krypton'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>37</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Rubidium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>38</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Strontium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>39</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Yttrium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>40</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Zirconium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>41</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Niob'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>42</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Molybd�n'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>43</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Technetium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>44</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Ruthenium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>45</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Rhodium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>46</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Paladium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>47</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Silber'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>48</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Cadmium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>49</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Indium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>50</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Zinn'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>51</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Antimon'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>52</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Tellur'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>53</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Iod'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>54</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Xenon'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>55</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Caesium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>56</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Barium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>57</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Lanthan'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>58</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Cer'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>59</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Praseodym'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>60</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Neodym'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>61</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Promelthium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>62</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Samarium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>63</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Europium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>64</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Gadolinium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>65</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Terbium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>66</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Dysprosium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>67</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Holmiuim'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>68</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Erbium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>69</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Thulium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>70</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Ytterbium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>71</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Lutetium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>72</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Hafnium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>73</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Tanal'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>74</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Wolfram'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>75</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Rhenium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>76</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Osmium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>77</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Iridium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>78</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Platin'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>79</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Gold'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>80</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Quecksilber'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>81</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Thalium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>82</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Blei'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>83</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Wissmut'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>84</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Polonium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>85</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Astat'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>86</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Radon'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>87</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Francium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>88</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Radium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>89</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Actinium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>90</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Thorium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>91</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Protactinium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>92</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Uran'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>93</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Neptunium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>94</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Plutonium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>95</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Americum'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>96</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Curium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>97</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Berkelium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>98</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Californium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>99</Number><Normal Text>   : i.e.name:=</Normal Text><String>'Einsteinium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>100</Number><Normal Text>  : i.e.name:=</Normal Text><String>'Fermium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>101</Number><Normal Text>  : i.e.name:=</Normal Text><String>'Mendelevium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>102</Number><Normal Text>  : i.e.name:=</Normal Text><String>'Nobelium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>103</Number><Normal Text>  : i.e.name:=</Normal Text><String>'Lawrencium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>104</Number><Normal Text>  : i.e.name:=</Normal Text><String>'Rutherfordium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>105</Number><Normal Text>  : i.e.name:=</Normal Text><String>'Dubnium'</String><Normal Text>;</Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>CASE</Keyword><Normal Text> ozahl </Normal Text><Keyword>OF</Keyword><br/>
<Normal Text>             </Normal Text><Number>1</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'H'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>2</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'He'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>3</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'Li'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>4</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'Be'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>5</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'B'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>6</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'C'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>7</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'N'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>8</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'O'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>9</Number><Normal Text>    : i.e.zeichen:=</Normal Text><String>'F'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>10</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ne'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>11</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Na'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>12</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Mg'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>13</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Al'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>14</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Si'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>15</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'P'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>16</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'S'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>17</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Cl'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>18</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ar'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>19</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'K'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>20</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Sa'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>21</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Sc'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>22</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ti'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>23</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'V'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>24</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Cr'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>25</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Mn'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>26</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Fe'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>27</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Co'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>28</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ni'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>29</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Cu'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>30</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Zn'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>31</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ga'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>32</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ge'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>33</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'As'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>34</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Se'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>35</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Br'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>36</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Kr'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>37</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Rb'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>38</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Sr'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>39</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Y'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>40</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Zr'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>41</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Nb'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>42</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Mo'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>43</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Tc'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>44</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ru'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>45</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Rh'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>46</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Pd'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>47</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ag'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>48</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Cd'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>49</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'In'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>50</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Sn'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>51</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Sb'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>52</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Te'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>53</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'I'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>54</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Xe'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>55</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Cs'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>56</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ba'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>57</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'La'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>58</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ce'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>59</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Pr'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>60</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Nd'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>61</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Pm'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>62</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Sm'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>63</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Eu'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>64</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Gd'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>65</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Tb'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>66</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Dy'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>67</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ho'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>68</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Er'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>69</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Tm'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>70</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Yb'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>71</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Lu'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>72</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Hf'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>73</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ta'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>74</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'W'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>75</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Re'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>76</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Os'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>77</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ir'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>78</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Pt'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>79</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Au'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>80</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Hg'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>81</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Tl'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>82</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Pb'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>83</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Bi'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>84</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Po'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>85</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'At'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>86</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Rn'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>87</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Fr'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>88</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ra'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>89</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Ac'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>90</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Th'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>91</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Pa'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>92</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'U'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>93</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Np'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>94</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Pu'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>95</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Am'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>96</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Cm'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>97</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Bk'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>98</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Cf'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>99</Number><Normal Text>   : i.e.zeichen:=</Normal Text><String>'Es'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>100</Number><Normal Text>  : i.e.zeichen:=</Normal Text><String>'Fm'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>101</Number><Normal Text>  : i.e.zeichen:=</Normal Text><String>'Md'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>102</Number><Normal Text>  : i.e.zeichen:=</Normal Text><String>'No'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>103</Number><Normal Text>  : i.e.zeichen:=</Normal Text><String>'Lr'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>104</Number><Normal Text>  : i.e.zeichen:=</Normal Text><String>'Rf'</String><Normal Text>;</Normal Text><br/>
<Normal Text>             </Normal Text><Number>105</Number><Normal Text>  : i.e.zeichen:=</Normal Text><String>'Db'</String><Normal Text>;</Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Keyword>PROCEDURE</Keyword><Normal Text> MKBELE (ozahl:</Normal Text><Type>byte</Type><Normal Text>);</Normal Text><br/>
<Keyword>BEGIN</Keyword><Normal Text>     </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>2</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> i.s.bele[</Normal Text><Number>1</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>9</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> i.s.bele[</Normal Text><Number>2</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>28</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>69</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>32</Number><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>87</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> i.s.bele[</Normal Text><Number>7</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>0</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>3</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>1</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                i.s.bele[</Normal Text><Number>1</Number><Normal Text>]:=ozahl;</Normal Text><br/>
<Normal Text>                                          </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>2</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>11</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                 i.s.bele[</Normal Text><Number>2</Number><Normal Text>]:=ozahl-</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                           </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>10</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>19</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>3</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=ozahl-</Normal Text><Number>10</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>18</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>21</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>4</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>20</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>24</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>4</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=ozahl-</Normal Text><Number>12</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl=</Normal Text><Number>24</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>4</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                   i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=</Normal Text><Number>13</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                   i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>1</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                             </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>24</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>29</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>4</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=ozahl-</Normal Text><Number>12</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>28</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>37</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>4</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>28</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>36</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>39</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>5</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>36</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>38</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>41</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>5</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>30</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>40</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>46</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>5</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>29</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>1</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl=</Normal Text><Number>46</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>4</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                   i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                             </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>46</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>55</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>5</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>46</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>54</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>57</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>6</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=ozahl-</Normal Text><Number>54</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl=</Normal Text><Number>57</Number><Normal Text>) </Normal Text><Keyword>or</Keyword><Normal Text> (ozahl=</Normal Text><Number>64</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>6</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                 i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>39</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                 i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>9</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                 i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                           </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> ((ozahl></Normal Text><Number>57</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>64</Number><Normal Text>)) </Normal Text><Keyword>or</Keyword><Normal Text> ((ozahl></Normal Text><Number>64</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>71</Number><Normal Text>))</Normal Text><br/>
<Normal Text>                                          </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>6</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                     i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>38</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                     i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                     i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                               </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl=</Normal Text><Number>64</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>6</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                   i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>25</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                   i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>9</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                   i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                             </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>70</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>78</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>6</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>62</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>77</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>80</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>6</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>61</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>1</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>79</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>87</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>6</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=ozahl-</Normal Text><Number>78</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>86</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>89</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>7</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>7</Number><Normal Text>]:=ozahl-</Normal Text><Number>86</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>88</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>91</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>7</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=ozahl-</Normal Text><Number>80</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> ((ozahl></Normal Text><Number>90</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>94</Number><Normal Text>)) </Normal Text><Keyword>or</Keyword><Normal Text> (ozahl=</Normal Text><Number>96</Number><Normal Text>)</Normal Text><br/>
<Normal Text>                                       </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>7</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>71</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>9</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>93</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>96</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>7</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>70</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                  i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                            </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>96</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>103</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>7</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                   i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>70</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                   i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                             </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>         </Normal Text><Keyword>IF</Keyword><Normal Text> (ozahl></Normal Text><Number>102</Number><Normal Text>) </Normal Text><Keyword>and</Keyword><Normal Text> (ozahl<</Normal Text><Number>106</Number><Normal Text>) </Normal Text><Keyword>THEN</Keyword><Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> i.s.n:=</Normal Text><Number>7</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                   i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>32</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                                   i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=ozahl-</Normal Text><Number>94</Number><Normal Text>;</Normal Text><br/>
<Normal Text>                                             </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Keyword>BEGIN</Keyword><Normal Text>     Assign (u,</Normal Text><String>'install.cfg'</String><Normal Text>);</Normal Text><br/>
<Normal Text>          Reset (u);</Normal Text><br/>
<Normal Text>          </Normal Text><ISO/Delphi Extended>Read</ISO/Delphi Extended><Normal Text> (u,t);</Normal Text><br/>
<Normal Text>          Close (u);</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          clrscr;</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>          </Normal Text><Keyword>FOR</Keyword><Normal Text> ozahl:=</Normal Text><Number>1</Number><Normal Text> </Normal Text><Keyword>TO</Keyword><Normal Text> </Normal Text><Number>105</Number><Normal Text> </Normal Text><Keyword>DO</Keyword><br/>
<Normal Text>              </Normal Text><Keyword>BEGIN</Keyword><Normal Text> INTSTR(ozahl,zstr);</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    assign (h,t.info + zstr + </Normal Text><String>'.pse'</String><Normal Text>);</Normal Text><br/>
<Normal Text>                    </Normal Text><ISO/Delphi Extended>write</ISO/Delphi Extended><Normal Text> (t.info + zstr + </Normal Text><String>'.pse'</String><Normal Text>);</Normal Text><br/>
<Normal Text>                    rewrite (h);</Normal Text><br/>
<Normal Text>                    reset (h);</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    i.e.ozahl:=ozahl;</Normal Text><br/>
<Normal Text>                    MKELEMENT(ozahl);</Normal Text><br/>
<Normal Text>                    MKBELE(ozahl);</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    </Normal Text><ISO/Delphi Extended>write</ISO/Delphi Extended><Normal Text> (h,i);</Normal Text><br/>
<Normal Text>                    close (h);</Normal Text><br/>
<Normal Text></Normal Text><br/>
<Normal Text>                    Writeln (</Normal Text><String>'.......Erstellt'</String><Normal Text>);</Normal Text><br/>
<Normal Text>              </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/>
<Normal Text>              readkey;</Normal Text><br/>
<Keyword>END</Keyword><Normal Text>.</Normal Text><br/>
