Warning, file /frameworks/syntax-highlighting/autotests/html/highlight.pas.html was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
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>