Warning, /frameworks/syntax-highlighting/autotests/reference/highlight.pas.ref is written in an unsupported language. File is not indexed.
0001 <Keyword>PROGRAM</Keyword><Normal Text> MKFILE;</Normal Text><br/> 0002 <Normal Text></Normal Text><br/> 0003 <Keyword>USES</Keyword><Normal Text> crt,algebra;</Normal Text><br/> 0004 <Normal Text></Normal Text><br/> 0005 <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/> 0006 <Normal Text> zeichen : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>2</Number><Normal Text>];</Normal Text><br/> 0007 <Normal Text> ozahl : </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/> 0008 <Normal Text> amasse : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>9</Number><Normal Text>];</Normal Text><br/> 0009 <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/> 0010 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0011 <Normal Text></Normal Text><br/> 0012 <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/> 0013 <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/> 0014 <Normal Text> elneg : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>7</Number><Normal Text>];</Normal Text><br/> 0015 <Normal Text> kladung : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>5</Number><Normal Text>]</Normal Text><br/> 0016 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0017 <Normal Text></Normal Text><br/> 0018 <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/> 0019 <Normal Text> sdt : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>8</Number><Normal Text>];</Normal Text><br/> 0020 <Normal Text> dichte : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>15</Number><Normal Text>];</Normal Text><br/> 0021 <Normal Text> volmol : </Normal Text><Type>string</Type><Normal Text> [</Normal Text><Number>13</Number><Normal Text>];</Normal Text><br/> 0022 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0023 <Normal Text></Normal Text><br/> 0024 <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/> 0025 <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/> 0026 <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/> 0027 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0028 <Normal Text></Normal Text><br/> 0029 <Normal Text> s : </Normal Text><Keyword>record</Keyword><Normal Text> n : </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/> 0030 <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/> 0031 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0032 <Normal Text></Normal Text><br/> 0033 <Normal Text> i : </Normal Text><Keyword>record</Keyword><Normal Text> first : </Normal Text><Type>word</Type><Normal Text>;</Normal Text><br/> 0034 <Normal Text> last : </Normal Text><Type>word</Type><Normal Text>;</Normal Text><br/> 0035 <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/> 0036 <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/> 0037 <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/> 0038 <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/> 0039 <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/> 0040 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0041 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0042 <Normal Text></Normal Text><br/> 0043 <Normal Text> cfg = </Normal Text><Keyword>record</Keyword><Normal Text> pse : </Normal Text><Type>string</Type><Normal Text>;</Normal Text><br/> 0044 <Normal Text> bgi : </Normal Text><Type>string</Type><Normal Text>;</Normal Text><br/> 0045 <Normal Text> info : </Normal Text><Type>string</Type><Normal Text>;</Normal Text><br/> 0046 <Normal Text> </Normal Text><Keyword>end</Keyword><Normal Text>;</Normal Text><br/> 0047 <Normal Text></Normal Text><br/> 0048 <Normal Text></Normal Text><br/> 0049 <Keyword>VAR</Keyword><Normal Text> i : dt;</Normal Text><br/> 0050 <Normal Text> h : </Normal Text><Keyword>file</Keyword><Normal Text> </Normal Text><Keyword>of</Keyword><Normal Text> dt;</Normal Text><br/> 0051 <Normal Text></Normal Text><br/> 0052 <Normal Text> t : cfg;</Normal Text><br/> 0053 <Normal Text> u : </Normal Text><Keyword>file</Keyword><Normal Text> </Normal Text><Keyword>of</Keyword><Normal Text> cfg;</Normal Text><br/> 0054 <Normal Text></Normal Text><br/> 0055 <Normal Text> zstr : </Normal Text><Type>string</Type><Normal Text>;</Normal Text><br/> 0056 <Normal Text> ozahl : </Normal Text><Type>byte</Type><Normal Text>;</Normal Text><br/> 0057 <Normal Text></Normal Text><br/> 0058 <Keyword>PROCEDURE</Keyword><Normal Text> MKELEMENT (ozahl:</Normal Text><Type>byte</Type><Normal Text>);</Normal Text><br/> 0059 <Keyword>BEGIN</Keyword><Normal Text> </Normal Text><Keyword>CASE</Keyword><Normal Text> ozahl </Normal Text><Keyword>OF</Keyword><br/> 0060 <Normal Text> </Normal Text><Number>1</Number><Normal Text> : i.e.name:=</Normal Text><String>'Wasserstoff'</String><Normal Text>;</Normal Text><br/> 0061 <Normal Text> </Normal Text><Number>2</Number><Normal Text> : i.e.name:=</Normal Text><String>'Helium'</String><Normal Text>;</Normal Text><br/> 0062 <Normal Text> </Normal Text><Number>3</Number><Normal Text> : i.e.name:=</Normal Text><String>'Lithium'</String><Normal Text>;</Normal Text><br/> 0063 <Normal Text> </Normal Text><Number>4</Number><Normal Text> : i.e.name:=</Normal Text><String>'Beryllium'</String><Normal Text>;</Normal Text><br/> 0064 <Normal Text> </Normal Text><Number>5</Number><Normal Text> : i.e.name:=</Normal Text><String>'Bor'</String><Normal Text>;</Normal Text><br/> 0065 <Normal Text> </Normal Text><Number>6</Number><Normal Text> : i.e.name:=</Normal Text><String>'Kohlenstoff'</String><Normal Text>;</Normal Text><br/> 0066 <Normal Text> </Normal Text><Number>7</Number><Normal Text> : i.e.name:=</Normal Text><String>'Stickstoff'</String><Normal Text>;</Normal Text><br/> 0067 <Normal Text> </Normal Text><Number>8</Number><Normal Text> : i.e.name:=</Normal Text><String>'Sauerstoff'</String><Normal Text>;</Normal Text><br/> 0068 <Normal Text> </Normal Text><Number>9</Number><Normal Text> : i.e.name:=</Normal Text><String>'Fluor'</String><Normal Text>;</Normal Text><br/> 0069 <Normal Text> </Normal Text><Number>10</Number><Normal Text> : i.e.name:=</Normal Text><String>'Neon'</String><Normal Text>;</Normal Text><br/> 0070 <Normal Text> </Normal Text><Number>11</Number><Normal Text> : i.e.name:=</Normal Text><String>'Natrium'</String><Normal Text>;</Normal Text><br/> 0071 <Normal Text> </Normal Text><Number>12</Number><Normal Text> : i.e.name:=</Normal Text><String>'Magnesium'</String><Normal Text>;</Normal Text><br/> 0072 <Normal Text> </Normal Text><Number>13</Number><Normal Text> : i.e.name:=</Normal Text><String>'Aluminium'</String><Normal Text>;</Normal Text><br/> 0073 <Normal Text> </Normal Text><Number>14</Number><Normal Text> : i.e.name:=</Normal Text><String>'Silicium'</String><Normal Text>;</Normal Text><br/> 0074 <Normal Text> </Normal Text><Number>15</Number><Normal Text> : i.e.name:=</Normal Text><String>'Phosphor'</String><Normal Text>;</Normal Text><br/> 0075 <Normal Text> </Normal Text><Number>16</Number><Normal Text> : i.e.name:=</Normal Text><String>'Schwefel'</String><Normal Text>;</Normal Text><br/> 0076 <Normal Text> </Normal Text><Number>17</Number><Normal Text> : i.e.name:=</Normal Text><String>'Chlor'</String><Normal Text>;</Normal Text><br/> 0077 <Normal Text> </Normal Text><Number>18</Number><Normal Text> : i.e.name:=</Normal Text><String>'Argon'</String><Normal Text>;</Normal Text><br/> 0078 <Normal Text> </Normal Text><Number>19</Number><Normal Text> : i.e.name:=</Normal Text><String>'Kalium'</String><Normal Text>;</Normal Text><br/> 0079 <Normal Text> </Normal Text><Number>20</Number><Normal Text> : i.e.name:=</Normal Text><String>'Calzium'</String><Normal Text>;</Normal Text><br/> 0080 <Normal Text> </Normal Text><Number>21</Number><Normal Text> : i.e.name:=</Normal Text><String>'Scandium'</String><Normal Text>;</Normal Text><br/> 0081 <Normal Text> </Normal Text><Number>22</Number><Normal Text> : i.e.name:=</Normal Text><String>'Titan'</String><Normal Text>;</Normal Text><br/> 0082 <Normal Text> </Normal Text><Number>23</Number><Normal Text> : i.e.name:=</Normal Text><String>'Vanadium'</String><Normal Text>;</Normal Text><br/> 0083 <Normal Text> </Normal Text><Number>24</Number><Normal Text> : i.e.name:=</Normal Text><String>'Chrom'</String><Normal Text>;</Normal Text><br/> 0084 <Normal Text> </Normal Text><Number>25</Number><Normal Text> : i.e.name:=</Normal Text><String>'Mangan'</String><Normal Text>;</Normal Text><br/> 0085 <Normal Text> </Normal Text><Number>26</Number><Normal Text> : i.e.name:=</Normal Text><String>'Eisen'</String><Normal Text>;</Normal Text><br/> 0086 <Normal Text> </Normal Text><Number>27</Number><Normal Text> : i.e.name:=</Normal Text><String>'Cobalt'</String><Normal Text>;</Normal Text><br/> 0087 <Normal Text> </Normal Text><Number>28</Number><Normal Text> : i.e.name:=</Normal Text><String>'Nickel'</String><Normal Text>;</Normal Text><br/> 0088 <Normal Text> </Normal Text><Number>29</Number><Normal Text> : i.e.name:=</Normal Text><String>'Kupfer'</String><Normal Text>;</Normal Text><br/> 0089 <Normal Text> </Normal Text><Number>30</Number><Normal Text> : i.e.name:=</Normal Text><String>'Zink'</String><Normal Text>;</Normal Text><br/> 0090 <Normal Text> </Normal Text><Number>31</Number><Normal Text> : i.e.name:=</Normal Text><String>'Gallium'</String><Normal Text>;</Normal Text><br/> 0091 <Normal Text> </Normal Text><Number>32</Number><Normal Text> : i.e.name:=</Normal Text><String>'Germanium'</String><Normal Text>;</Normal Text><br/> 0092 <Normal Text> </Normal Text><Number>33</Number><Normal Text> : i.e.name:=</Normal Text><String>'Arsen'</String><Normal Text>;</Normal Text><br/> 0093 <Normal Text> </Normal Text><Number>34</Number><Normal Text> : i.e.name:=</Normal Text><String>'Selen'</String><Normal Text>;</Normal Text><br/> 0094 <Normal Text> </Normal Text><Number>35</Number><Normal Text> : i.e.name:=</Normal Text><String>'Brom'</String><Normal Text>;</Normal Text><br/> 0095 <Normal Text> </Normal Text><Number>36</Number><Normal Text> : i.e.name:=</Normal Text><String>'Krypton'</String><Normal Text>;</Normal Text><br/> 0096 <Normal Text> </Normal Text><Number>37</Number><Normal Text> : i.e.name:=</Normal Text><String>'Rubidium'</String><Normal Text>;</Normal Text><br/> 0097 <Normal Text> </Normal Text><Number>38</Number><Normal Text> : i.e.name:=</Normal Text><String>'Strontium'</String><Normal Text>;</Normal Text><br/> 0098 <Normal Text> </Normal Text><Number>39</Number><Normal Text> : i.e.name:=</Normal Text><String>'Yttrium'</String><Normal Text>;</Normal Text><br/> 0099 <Normal Text> </Normal Text><Number>40</Number><Normal Text> : i.e.name:=</Normal Text><String>'Zirconium'</String><Normal Text>;</Normal Text><br/> 0100 <Normal Text> </Normal Text><Number>41</Number><Normal Text> : i.e.name:=</Normal Text><String>'Niob'</String><Normal Text>;</Normal Text><br/> 0101 <Normal Text> </Normal Text><Number>42</Number><Normal Text> : i.e.name:=</Normal Text><String>'Molybd�n'</String><Normal Text>;</Normal Text><br/> 0102 <Normal Text> </Normal Text><Number>43</Number><Normal Text> : i.e.name:=</Normal Text><String>'Technetium'</String><Normal Text>;</Normal Text><br/> 0103 <Normal Text> </Normal Text><Number>44</Number><Normal Text> : i.e.name:=</Normal Text><String>'Ruthenium'</String><Normal Text>;</Normal Text><br/> 0104 <Normal Text> </Normal Text><Number>45</Number><Normal Text> : i.e.name:=</Normal Text><String>'Rhodium'</String><Normal Text>;</Normal Text><br/> 0105 <Normal Text> </Normal Text><Number>46</Number><Normal Text> : i.e.name:=</Normal Text><String>'Paladium'</String><Normal Text>;</Normal Text><br/> 0106 <Normal Text> </Normal Text><Number>47</Number><Normal Text> : i.e.name:=</Normal Text><String>'Silber'</String><Normal Text>;</Normal Text><br/> 0107 <Normal Text> </Normal Text><Number>48</Number><Normal Text> : i.e.name:=</Normal Text><String>'Cadmium'</String><Normal Text>;</Normal Text><br/> 0108 <Normal Text> </Normal Text><Number>49</Number><Normal Text> : i.e.name:=</Normal Text><String>'Indium'</String><Normal Text>;</Normal Text><br/> 0109 <Normal Text> </Normal Text><Number>50</Number><Normal Text> : i.e.name:=</Normal Text><String>'Zinn'</String><Normal Text>;</Normal Text><br/> 0110 <Normal Text> </Normal Text><Number>51</Number><Normal Text> : i.e.name:=</Normal Text><String>'Antimon'</String><Normal Text>;</Normal Text><br/> 0111 <Normal Text> </Normal Text><Number>52</Number><Normal Text> : i.e.name:=</Normal Text><String>'Tellur'</String><Normal Text>;</Normal Text><br/> 0112 <Normal Text> </Normal Text><Number>53</Number><Normal Text> : i.e.name:=</Normal Text><String>'Iod'</String><Normal Text>;</Normal Text><br/> 0113 <Normal Text> </Normal Text><Number>54</Number><Normal Text> : i.e.name:=</Normal Text><String>'Xenon'</String><Normal Text>;</Normal Text><br/> 0114 <Normal Text> </Normal Text><Number>55</Number><Normal Text> : i.e.name:=</Normal Text><String>'Caesium'</String><Normal Text>;</Normal Text><br/> 0115 <Normal Text> </Normal Text><Number>56</Number><Normal Text> : i.e.name:=</Normal Text><String>'Barium'</String><Normal Text>;</Normal Text><br/> 0116 <Normal Text> </Normal Text><Number>57</Number><Normal Text> : i.e.name:=</Normal Text><String>'Lanthan'</String><Normal Text>;</Normal Text><br/> 0117 <Normal Text> </Normal Text><Number>58</Number><Normal Text> : i.e.name:=</Normal Text><String>'Cer'</String><Normal Text>;</Normal Text><br/> 0118 <Normal Text> </Normal Text><Number>59</Number><Normal Text> : i.e.name:=</Normal Text><String>'Praseodym'</String><Normal Text>;</Normal Text><br/> 0119 <Normal Text> </Normal Text><Number>60</Number><Normal Text> : i.e.name:=</Normal Text><String>'Neodym'</String><Normal Text>;</Normal Text><br/> 0120 <Normal Text> </Normal Text><Number>61</Number><Normal Text> : i.e.name:=</Normal Text><String>'Promelthium'</String><Normal Text>;</Normal Text><br/> 0121 <Normal Text> </Normal Text><Number>62</Number><Normal Text> : i.e.name:=</Normal Text><String>'Samarium'</String><Normal Text>;</Normal Text><br/> 0122 <Normal Text> </Normal Text><Number>63</Number><Normal Text> : i.e.name:=</Normal Text><String>'Europium'</String><Normal Text>;</Normal Text><br/> 0123 <Normal Text> </Normal Text><Number>64</Number><Normal Text> : i.e.name:=</Normal Text><String>'Gadolinium'</String><Normal Text>;</Normal Text><br/> 0124 <Normal Text> </Normal Text><Number>65</Number><Normal Text> : i.e.name:=</Normal Text><String>'Terbium'</String><Normal Text>;</Normal Text><br/> 0125 <Normal Text> </Normal Text><Number>66</Number><Normal Text> : i.e.name:=</Normal Text><String>'Dysprosium'</String><Normal Text>;</Normal Text><br/> 0126 <Normal Text> </Normal Text><Number>67</Number><Normal Text> : i.e.name:=</Normal Text><String>'Holmiuim'</String><Normal Text>;</Normal Text><br/> 0127 <Normal Text> </Normal Text><Number>68</Number><Normal Text> : i.e.name:=</Normal Text><String>'Erbium'</String><Normal Text>;</Normal Text><br/> 0128 <Normal Text> </Normal Text><Number>69</Number><Normal Text> : i.e.name:=</Normal Text><String>'Thulium'</String><Normal Text>;</Normal Text><br/> 0129 <Normal Text> </Normal Text><Number>70</Number><Normal Text> : i.e.name:=</Normal Text><String>'Ytterbium'</String><Normal Text>;</Normal Text><br/> 0130 <Normal Text> </Normal Text><Number>71</Number><Normal Text> : i.e.name:=</Normal Text><String>'Lutetium'</String><Normal Text>;</Normal Text><br/> 0131 <Normal Text> </Normal Text><Number>72</Number><Normal Text> : i.e.name:=</Normal Text><String>'Hafnium'</String><Normal Text>;</Normal Text><br/> 0132 <Normal Text> </Normal Text><Number>73</Number><Normal Text> : i.e.name:=</Normal Text><String>'Tanal'</String><Normal Text>;</Normal Text><br/> 0133 <Normal Text> </Normal Text><Number>74</Number><Normal Text> : i.e.name:=</Normal Text><String>'Wolfram'</String><Normal Text>;</Normal Text><br/> 0134 <Normal Text> </Normal Text><Number>75</Number><Normal Text> : i.e.name:=</Normal Text><String>'Rhenium'</String><Normal Text>;</Normal Text><br/> 0135 <Normal Text> </Normal Text><Number>76</Number><Normal Text> : i.e.name:=</Normal Text><String>'Osmium'</String><Normal Text>;</Normal Text><br/> 0136 <Normal Text> </Normal Text><Number>77</Number><Normal Text> : i.e.name:=</Normal Text><String>'Iridium'</String><Normal Text>;</Normal Text><br/> 0137 <Normal Text> </Normal Text><Number>78</Number><Normal Text> : i.e.name:=</Normal Text><String>'Platin'</String><Normal Text>;</Normal Text><br/> 0138 <Normal Text> </Normal Text><Number>79</Number><Normal Text> : i.e.name:=</Normal Text><String>'Gold'</String><Normal Text>;</Normal Text><br/> 0139 <Normal Text> </Normal Text><Number>80</Number><Normal Text> : i.e.name:=</Normal Text><String>'Quecksilber'</String><Normal Text>;</Normal Text><br/> 0140 <Normal Text> </Normal Text><Number>81</Number><Normal Text> : i.e.name:=</Normal Text><String>'Thalium'</String><Normal Text>;</Normal Text><br/> 0141 <Normal Text> </Normal Text><Number>82</Number><Normal Text> : i.e.name:=</Normal Text><String>'Blei'</String><Normal Text>;</Normal Text><br/> 0142 <Normal Text> </Normal Text><Number>83</Number><Normal Text> : i.e.name:=</Normal Text><String>'Wissmut'</String><Normal Text>;</Normal Text><br/> 0143 <Normal Text> </Normal Text><Number>84</Number><Normal Text> : i.e.name:=</Normal Text><String>'Polonium'</String><Normal Text>;</Normal Text><br/> 0144 <Normal Text> </Normal Text><Number>85</Number><Normal Text> : i.e.name:=</Normal Text><String>'Astat'</String><Normal Text>;</Normal Text><br/> 0145 <Normal Text> </Normal Text><Number>86</Number><Normal Text> : i.e.name:=</Normal Text><String>'Radon'</String><Normal Text>;</Normal Text><br/> 0146 <Normal Text> </Normal Text><Number>87</Number><Normal Text> : i.e.name:=</Normal Text><String>'Francium'</String><Normal Text>;</Normal Text><br/> 0147 <Normal Text> </Normal Text><Number>88</Number><Normal Text> : i.e.name:=</Normal Text><String>'Radium'</String><Normal Text>;</Normal Text><br/> 0148 <Normal Text> </Normal Text><Number>89</Number><Normal Text> : i.e.name:=</Normal Text><String>'Actinium'</String><Normal Text>;</Normal Text><br/> 0149 <Normal Text> </Normal Text><Number>90</Number><Normal Text> : i.e.name:=</Normal Text><String>'Thorium'</String><Normal Text>;</Normal Text><br/> 0150 <Normal Text> </Normal Text><Number>91</Number><Normal Text> : i.e.name:=</Normal Text><String>'Protactinium'</String><Normal Text>;</Normal Text><br/> 0151 <Normal Text> </Normal Text><Number>92</Number><Normal Text> : i.e.name:=</Normal Text><String>'Uran'</String><Normal Text>;</Normal Text><br/> 0152 <Normal Text> </Normal Text><Number>93</Number><Normal Text> : i.e.name:=</Normal Text><String>'Neptunium'</String><Normal Text>;</Normal Text><br/> 0153 <Normal Text> </Normal Text><Number>94</Number><Normal Text> : i.e.name:=</Normal Text><String>'Plutonium'</String><Normal Text>;</Normal Text><br/> 0154 <Normal Text> </Normal Text><Number>95</Number><Normal Text> : i.e.name:=</Normal Text><String>'Americum'</String><Normal Text>;</Normal Text><br/> 0155 <Normal Text> </Normal Text><Number>96</Number><Normal Text> : i.e.name:=</Normal Text><String>'Curium'</String><Normal Text>;</Normal Text><br/> 0156 <Normal Text> </Normal Text><Number>97</Number><Normal Text> : i.e.name:=</Normal Text><String>'Berkelium'</String><Normal Text>;</Normal Text><br/> 0157 <Normal Text> </Normal Text><Number>98</Number><Normal Text> : i.e.name:=</Normal Text><String>'Californium'</String><Normal Text>;</Normal Text><br/> 0158 <Normal Text> </Normal Text><Number>99</Number><Normal Text> : i.e.name:=</Normal Text><String>'Einsteinium'</String><Normal Text>;</Normal Text><br/> 0159 <Normal Text> </Normal Text><Number>100</Number><Normal Text> : i.e.name:=</Normal Text><String>'Fermium'</String><Normal Text>;</Normal Text><br/> 0160 <Normal Text> </Normal Text><Number>101</Number><Normal Text> : i.e.name:=</Normal Text><String>'Mendelevium'</String><Normal Text>;</Normal Text><br/> 0161 <Normal Text> </Normal Text><Number>102</Number><Normal Text> : i.e.name:=</Normal Text><String>'Nobelium'</String><Normal Text>;</Normal Text><br/> 0162 <Normal Text> </Normal Text><Number>103</Number><Normal Text> : i.e.name:=</Normal Text><String>'Lawrencium'</String><Normal Text>;</Normal Text><br/> 0163 <Normal Text> </Normal Text><Number>104</Number><Normal Text> : i.e.name:=</Normal Text><String>'Rutherfordium'</String><Normal Text>;</Normal Text><br/> 0164 <Normal Text> </Normal Text><Number>105</Number><Normal Text> : i.e.name:=</Normal Text><String>'Dubnium'</String><Normal Text>;</Normal Text><br/> 0165 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0166 <Normal Text></Normal Text><br/> 0167 <Normal Text> </Normal Text><Keyword>CASE</Keyword><Normal Text> ozahl </Normal Text><Keyword>OF</Keyword><br/> 0168 <Normal Text> </Normal Text><Number>1</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'H'</String><Normal Text>;</Normal Text><br/> 0169 <Normal Text> </Normal Text><Number>2</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'He'</String><Normal Text>;</Normal Text><br/> 0170 <Normal Text> </Normal Text><Number>3</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Li'</String><Normal Text>;</Normal Text><br/> 0171 <Normal Text> </Normal Text><Number>4</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Be'</String><Normal Text>;</Normal Text><br/> 0172 <Normal Text> </Normal Text><Number>5</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'B'</String><Normal Text>;</Normal Text><br/> 0173 <Normal Text> </Normal Text><Number>6</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'C'</String><Normal Text>;</Normal Text><br/> 0174 <Normal Text> </Normal Text><Number>7</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'N'</String><Normal Text>;</Normal Text><br/> 0175 <Normal Text> </Normal Text><Number>8</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'O'</String><Normal Text>;</Normal Text><br/> 0176 <Normal Text> </Normal Text><Number>9</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'F'</String><Normal Text>;</Normal Text><br/> 0177 <Normal Text> </Normal Text><Number>10</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ne'</String><Normal Text>;</Normal Text><br/> 0178 <Normal Text> </Normal Text><Number>11</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Na'</String><Normal Text>;</Normal Text><br/> 0179 <Normal Text> </Normal Text><Number>12</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Mg'</String><Normal Text>;</Normal Text><br/> 0180 <Normal Text> </Normal Text><Number>13</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Al'</String><Normal Text>;</Normal Text><br/> 0181 <Normal Text> </Normal Text><Number>14</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Si'</String><Normal Text>;</Normal Text><br/> 0182 <Normal Text> </Normal Text><Number>15</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'P'</String><Normal Text>;</Normal Text><br/> 0183 <Normal Text> </Normal Text><Number>16</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'S'</String><Normal Text>;</Normal Text><br/> 0184 <Normal Text> </Normal Text><Number>17</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Cl'</String><Normal Text>;</Normal Text><br/> 0185 <Normal Text> </Normal Text><Number>18</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ar'</String><Normal Text>;</Normal Text><br/> 0186 <Normal Text> </Normal Text><Number>19</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'K'</String><Normal Text>;</Normal Text><br/> 0187 <Normal Text> </Normal Text><Number>20</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Sa'</String><Normal Text>;</Normal Text><br/> 0188 <Normal Text> </Normal Text><Number>21</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Sc'</String><Normal Text>;</Normal Text><br/> 0189 <Normal Text> </Normal Text><Number>22</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ti'</String><Normal Text>;</Normal Text><br/> 0190 <Normal Text> </Normal Text><Number>23</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'V'</String><Normal Text>;</Normal Text><br/> 0191 <Normal Text> </Normal Text><Number>24</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Cr'</String><Normal Text>;</Normal Text><br/> 0192 <Normal Text> </Normal Text><Number>25</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Mn'</String><Normal Text>;</Normal Text><br/> 0193 <Normal Text> </Normal Text><Number>26</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Fe'</String><Normal Text>;</Normal Text><br/> 0194 <Normal Text> </Normal Text><Number>27</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Co'</String><Normal Text>;</Normal Text><br/> 0195 <Normal Text> </Normal Text><Number>28</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ni'</String><Normal Text>;</Normal Text><br/> 0196 <Normal Text> </Normal Text><Number>29</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Cu'</String><Normal Text>;</Normal Text><br/> 0197 <Normal Text> </Normal Text><Number>30</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Zn'</String><Normal Text>;</Normal Text><br/> 0198 <Normal Text> </Normal Text><Number>31</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ga'</String><Normal Text>;</Normal Text><br/> 0199 <Normal Text> </Normal Text><Number>32</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ge'</String><Normal Text>;</Normal Text><br/> 0200 <Normal Text> </Normal Text><Number>33</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'As'</String><Normal Text>;</Normal Text><br/> 0201 <Normal Text> </Normal Text><Number>34</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Se'</String><Normal Text>;</Normal Text><br/> 0202 <Normal Text> </Normal Text><Number>35</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Br'</String><Normal Text>;</Normal Text><br/> 0203 <Normal Text> </Normal Text><Number>36</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Kr'</String><Normal Text>;</Normal Text><br/> 0204 <Normal Text> </Normal Text><Number>37</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Rb'</String><Normal Text>;</Normal Text><br/> 0205 <Normal Text> </Normal Text><Number>38</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Sr'</String><Normal Text>;</Normal Text><br/> 0206 <Normal Text> </Normal Text><Number>39</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Y'</String><Normal Text>;</Normal Text><br/> 0207 <Normal Text> </Normal Text><Number>40</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Zr'</String><Normal Text>;</Normal Text><br/> 0208 <Normal Text> </Normal Text><Number>41</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Nb'</String><Normal Text>;</Normal Text><br/> 0209 <Normal Text> </Normal Text><Number>42</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Mo'</String><Normal Text>;</Normal Text><br/> 0210 <Normal Text> </Normal Text><Number>43</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Tc'</String><Normal Text>;</Normal Text><br/> 0211 <Normal Text> </Normal Text><Number>44</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ru'</String><Normal Text>;</Normal Text><br/> 0212 <Normal Text> </Normal Text><Number>45</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Rh'</String><Normal Text>;</Normal Text><br/> 0213 <Normal Text> </Normal Text><Number>46</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Pd'</String><Normal Text>;</Normal Text><br/> 0214 <Normal Text> </Normal Text><Number>47</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ag'</String><Normal Text>;</Normal Text><br/> 0215 <Normal Text> </Normal Text><Number>48</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Cd'</String><Normal Text>;</Normal Text><br/> 0216 <Normal Text> </Normal Text><Number>49</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'In'</String><Normal Text>;</Normal Text><br/> 0217 <Normal Text> </Normal Text><Number>50</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Sn'</String><Normal Text>;</Normal Text><br/> 0218 <Normal Text> </Normal Text><Number>51</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Sb'</String><Normal Text>;</Normal Text><br/> 0219 <Normal Text> </Normal Text><Number>52</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Te'</String><Normal Text>;</Normal Text><br/> 0220 <Normal Text> </Normal Text><Number>53</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'I'</String><Normal Text>;</Normal Text><br/> 0221 <Normal Text> </Normal Text><Number>54</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Xe'</String><Normal Text>;</Normal Text><br/> 0222 <Normal Text> </Normal Text><Number>55</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Cs'</String><Normal Text>;</Normal Text><br/> 0223 <Normal Text> </Normal Text><Number>56</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ba'</String><Normal Text>;</Normal Text><br/> 0224 <Normal Text> </Normal Text><Number>57</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'La'</String><Normal Text>;</Normal Text><br/> 0225 <Normal Text> </Normal Text><Number>58</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ce'</String><Normal Text>;</Normal Text><br/> 0226 <Normal Text> </Normal Text><Number>59</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Pr'</String><Normal Text>;</Normal Text><br/> 0227 <Normal Text> </Normal Text><Number>60</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Nd'</String><Normal Text>;</Normal Text><br/> 0228 <Normal Text> </Normal Text><Number>61</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Pm'</String><Normal Text>;</Normal Text><br/> 0229 <Normal Text> </Normal Text><Number>62</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Sm'</String><Normal Text>;</Normal Text><br/> 0230 <Normal Text> </Normal Text><Number>63</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Eu'</String><Normal Text>;</Normal Text><br/> 0231 <Normal Text> </Normal Text><Number>64</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Gd'</String><Normal Text>;</Normal Text><br/> 0232 <Normal Text> </Normal Text><Number>65</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Tb'</String><Normal Text>;</Normal Text><br/> 0233 <Normal Text> </Normal Text><Number>66</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Dy'</String><Normal Text>;</Normal Text><br/> 0234 <Normal Text> </Normal Text><Number>67</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ho'</String><Normal Text>;</Normal Text><br/> 0235 <Normal Text> </Normal Text><Number>68</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Er'</String><Normal Text>;</Normal Text><br/> 0236 <Normal Text> </Normal Text><Number>69</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Tm'</String><Normal Text>;</Normal Text><br/> 0237 <Normal Text> </Normal Text><Number>70</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Yb'</String><Normal Text>;</Normal Text><br/> 0238 <Normal Text> </Normal Text><Number>71</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Lu'</String><Normal Text>;</Normal Text><br/> 0239 <Normal Text> </Normal Text><Number>72</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Hf'</String><Normal Text>;</Normal Text><br/> 0240 <Normal Text> </Normal Text><Number>73</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ta'</String><Normal Text>;</Normal Text><br/> 0241 <Normal Text> </Normal Text><Number>74</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'W'</String><Normal Text>;</Normal Text><br/> 0242 <Normal Text> </Normal Text><Number>75</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Re'</String><Normal Text>;</Normal Text><br/> 0243 <Normal Text> </Normal Text><Number>76</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Os'</String><Normal Text>;</Normal Text><br/> 0244 <Normal Text> </Normal Text><Number>77</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ir'</String><Normal Text>;</Normal Text><br/> 0245 <Normal Text> </Normal Text><Number>78</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Pt'</String><Normal Text>;</Normal Text><br/> 0246 <Normal Text> </Normal Text><Number>79</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Au'</String><Normal Text>;</Normal Text><br/> 0247 <Normal Text> </Normal Text><Number>80</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Hg'</String><Normal Text>;</Normal Text><br/> 0248 <Normal Text> </Normal Text><Number>81</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Tl'</String><Normal Text>;</Normal Text><br/> 0249 <Normal Text> </Normal Text><Number>82</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Pb'</String><Normal Text>;</Normal Text><br/> 0250 <Normal Text> </Normal Text><Number>83</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Bi'</String><Normal Text>;</Normal Text><br/> 0251 <Normal Text> </Normal Text><Number>84</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Po'</String><Normal Text>;</Normal Text><br/> 0252 <Normal Text> </Normal Text><Number>85</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'At'</String><Normal Text>;</Normal Text><br/> 0253 <Normal Text> </Normal Text><Number>86</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Rn'</String><Normal Text>;</Normal Text><br/> 0254 <Normal Text> </Normal Text><Number>87</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Fr'</String><Normal Text>;</Normal Text><br/> 0255 <Normal Text> </Normal Text><Number>88</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ra'</String><Normal Text>;</Normal Text><br/> 0256 <Normal Text> </Normal Text><Number>89</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Ac'</String><Normal Text>;</Normal Text><br/> 0257 <Normal Text> </Normal Text><Number>90</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Th'</String><Normal Text>;</Normal Text><br/> 0258 <Normal Text> </Normal Text><Number>91</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Pa'</String><Normal Text>;</Normal Text><br/> 0259 <Normal Text> </Normal Text><Number>92</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'U'</String><Normal Text>;</Normal Text><br/> 0260 <Normal Text> </Normal Text><Number>93</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Np'</String><Normal Text>;</Normal Text><br/> 0261 <Normal Text> </Normal Text><Number>94</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Pu'</String><Normal Text>;</Normal Text><br/> 0262 <Normal Text> </Normal Text><Number>95</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Am'</String><Normal Text>;</Normal Text><br/> 0263 <Normal Text> </Normal Text><Number>96</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Cm'</String><Normal Text>;</Normal Text><br/> 0264 <Normal Text> </Normal Text><Number>97</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Bk'</String><Normal Text>;</Normal Text><br/> 0265 <Normal Text> </Normal Text><Number>98</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Cf'</String><Normal Text>;</Normal Text><br/> 0266 <Normal Text> </Normal Text><Number>99</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Es'</String><Normal Text>;</Normal Text><br/> 0267 <Normal Text> </Normal Text><Number>100</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Fm'</String><Normal Text>;</Normal Text><br/> 0268 <Normal Text> </Normal Text><Number>101</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Md'</String><Normal Text>;</Normal Text><br/> 0269 <Normal Text> </Normal Text><Number>102</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'No'</String><Normal Text>;</Normal Text><br/> 0270 <Normal Text> </Normal Text><Number>103</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Lr'</String><Normal Text>;</Normal Text><br/> 0271 <Normal Text> </Normal Text><Number>104</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Rf'</String><Normal Text>;</Normal Text><br/> 0272 <Normal Text> </Normal Text><Number>105</Number><Normal Text> : i.e.zeichen:=</Normal Text><String>'Db'</String><Normal Text>;</Normal Text><br/> 0273 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0274 <Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0275 <Normal Text></Normal Text><br/> 0276 <Keyword>PROCEDURE</Keyword><Normal Text> MKBELE (ozahl:</Normal Text><Type>byte</Type><Normal Text>);</Normal Text><br/> 0277 <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/> 0278 <Normal Text></Normal Text><br/> 0279 <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/> 0280 <Normal Text></Normal Text><br/> 0281 <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/> 0282 <Normal Text></Normal Text><br/> 0283 <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/> 0284 <Normal Text></Normal Text><br/> 0285 <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/> 0286 <Normal Text></Normal Text><br/> 0287 <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/> 0288 <Normal Text> i.s.bele[</Normal Text><Number>1</Number><Normal Text>]:=ozahl;</Normal Text><br/> 0289 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0290 <Normal Text></Normal Text><br/> 0291 <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/> 0292 <Normal Text> i.s.bele[</Normal Text><Number>2</Number><Normal Text>]:=ozahl-</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/> 0293 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0294 <Normal Text></Normal Text><br/> 0295 <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/> 0296 <Normal Text> i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=ozahl-</Normal Text><Number>10</Number><Normal Text>;</Normal Text><br/> 0297 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0298 <Normal Text></Normal Text><br/> 0299 <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/> 0300 <Normal Text> i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/> 0301 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/> 0302 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0303 <Normal Text></Normal Text><br/> 0304 <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/> 0305 <Normal Text> i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=ozahl-</Normal Text><Number>12</Number><Normal Text>;</Normal Text><br/> 0306 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/> 0307 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0308 <Normal Text></Normal Text><br/> 0309 <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/> 0310 <Normal Text> i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=</Normal Text><Number>13</Number><Normal Text>;</Normal Text><br/> 0311 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>1</Number><Normal Text>;</Normal Text><br/> 0312 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0313 <Normal Text></Normal Text><br/> 0314 <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/> 0315 <Normal Text> i.s.bele[</Normal Text><Number>3</Number><Normal Text>]:=ozahl-</Normal Text><Number>12</Number><Normal Text>;</Normal Text><br/> 0316 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/> 0317 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0318 <Normal Text></Normal Text><br/> 0319 <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/> 0320 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>28</Number><Normal Text>;</Normal Text><br/> 0321 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0322 <Normal Text></Normal Text><br/> 0323 <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/> 0324 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/> 0325 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>36</Number><Normal Text>;</Normal Text><br/> 0326 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0327 <Normal Text></Normal Text><br/> 0328 <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/> 0329 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>30</Number><Normal Text>;</Normal Text><br/> 0330 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/> 0331 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0332 <Normal Text></Normal Text><br/> 0333 <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/> 0334 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>29</Number><Normal Text>;</Normal Text><br/> 0335 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>1</Number><Normal Text>;</Normal Text><br/> 0336 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0337 <Normal Text></Normal Text><br/> 0338 <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/> 0339 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/> 0340 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0341 <Normal Text></Normal Text><br/> 0342 <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/> 0343 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/> 0344 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>46</Number><Normal Text>;</Normal Text><br/> 0345 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0346 <Normal Text></Normal Text><br/> 0347 <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/> 0348 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/> 0349 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/> 0350 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=ozahl-</Normal Text><Number>54</Number><Normal Text>;</Normal Text><br/> 0351 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0352 <Normal Text></Normal Text><br/> 0353 <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/> 0354 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>39</Number><Normal Text>;</Normal Text><br/> 0355 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>9</Number><Normal Text>;</Normal Text><br/> 0356 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/> 0357 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0358 <Normal Text></Normal Text><br/> 0359 <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/> 0360 <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/> 0361 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=ozahl-</Normal Text><Number>38</Number><Normal Text>;</Normal Text><br/> 0362 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/> 0363 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/> 0364 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0365 <Normal Text></Normal Text><br/> 0366 <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/> 0367 <Normal Text> i.s.bele[</Normal Text><Number>4</Number><Normal Text>]:=</Normal Text><Number>25</Number><Normal Text>;</Normal Text><br/> 0368 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>9</Number><Normal Text>;</Normal Text><br/> 0369 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/> 0370 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0371 <Normal Text></Normal Text><br/> 0372 <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/> 0373 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>62</Number><Normal Text>;</Normal Text><br/> 0374 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>2</Number><Normal Text>;</Normal Text><br/> 0375 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0376 <Normal Text></Normal Text><br/> 0377 <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/> 0378 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>61</Number><Normal Text>;</Normal Text><br/> 0379 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>1</Number><Normal Text>;</Normal Text><br/> 0380 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0381 <Normal Text></Normal Text><br/> 0382 <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/> 0383 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/> 0384 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=ozahl-</Normal Text><Number>78</Number><Normal Text>;</Normal Text><br/> 0385 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0386 <Normal Text></Normal Text><br/> 0387 <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/> 0388 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/> 0389 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/> 0390 <Normal Text> i.s.bele[</Normal Text><Number>7</Number><Normal Text>]:=ozahl-</Normal Text><Number>86</Number><Normal Text>;</Normal Text><br/> 0391 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0392 <Normal Text></Normal Text><br/> 0393 <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/> 0394 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>18</Number><Normal Text>;</Normal Text><br/> 0395 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=ozahl-</Normal Text><Number>80</Number><Normal Text>;</Normal Text><br/> 0396 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0397 <Normal Text></Normal Text><br/> 0398 <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/> 0399 <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/> 0400 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>71</Number><Normal Text>;</Normal Text><br/> 0401 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>9</Number><Normal Text>;</Normal Text><br/> 0402 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0403 <Normal Text></Normal Text><br/> 0404 <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/> 0405 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>70</Number><Normal Text>;</Normal Text><br/> 0406 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/> 0407 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0408 <Normal Text></Normal Text><br/> 0409 <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/> 0410 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=ozahl-</Normal Text><Number>70</Number><Normal Text>;</Normal Text><br/> 0411 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=</Normal Text><Number>8</Number><Normal Text>;</Normal Text><br/> 0412 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0413 <Normal Text></Normal Text><br/> 0414 <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/> 0415 <Normal Text> i.s.bele[</Normal Text><Number>5</Number><Normal Text>]:=</Normal Text><Number>32</Number><Normal Text>;</Normal Text><br/> 0416 <Normal Text> i.s.bele[</Normal Text><Number>6</Number><Normal Text>]:=ozahl-</Normal Text><Number>94</Number><Normal Text>;</Normal Text><br/> 0417 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0418 <Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0419 <Normal Text></Normal Text><br/> 0420 <Keyword>BEGIN</Keyword><Normal Text> Assign (u,</Normal Text><String>'install.cfg'</String><Normal Text>);</Normal Text><br/> 0421 <Normal Text> Reset (u);</Normal Text><br/> 0422 <Normal Text> </Normal Text><ISO/Delphi Extended>Read</ISO/Delphi Extended><Normal Text> (u,t);</Normal Text><br/> 0423 <Normal Text> Close (u);</Normal Text><br/> 0424 <Normal Text></Normal Text><br/> 0425 <Normal Text> clrscr;</Normal Text><br/> 0426 <Normal Text></Normal Text><br/> 0427 <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/> 0428 <Normal Text> </Normal Text><Keyword>BEGIN</Keyword><Normal Text> INTSTR(ozahl,zstr);</Normal Text><br/> 0429 <Normal Text></Normal Text><br/> 0430 <Normal Text> assign (h,t.info + zstr + </Normal Text><String>'.pse'</String><Normal Text>);</Normal Text><br/> 0431 <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/> 0432 <Normal Text> rewrite (h);</Normal Text><br/> 0433 <Normal Text> reset (h);</Normal Text><br/> 0434 <Normal Text></Normal Text><br/> 0435 <Normal Text> i.e.ozahl:=ozahl;</Normal Text><br/> 0436 <Normal Text> MKELEMENT(ozahl);</Normal Text><br/> 0437 <Normal Text> MKBELE(ozahl);</Normal Text><br/> 0438 <Normal Text></Normal Text><br/> 0439 <Normal Text> </Normal Text><ISO/Delphi Extended>write</ISO/Delphi Extended><Normal Text> (h,i);</Normal Text><br/> 0440 <Normal Text> close (h);</Normal Text><br/> 0441 <Normal Text></Normal Text><br/> 0442 <Normal Text> Writeln (</Normal Text><String>'.......Erstellt'</String><Normal Text>);</Normal Text><br/> 0443 <Normal Text> </Normal Text><Keyword>END</Keyword><Normal Text>;</Normal Text><br/> 0444 <Normal Text> readkey;</Normal Text><br/> 0445 <Keyword>END</Keyword><Normal Text>.</Normal Text><br/>