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