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