with Instrument;
use Instrument;

procedure Intdb2 is
    --COMPA CONTAINS THE MINIMAL PROCEDURE FRAMEWORK SURROUNDING 500 SEPARAT
    --    ADA DECLARATION STATEMENTS, EACH ON A SEPARATE PHYSICAL LINE,
    --    YIELDING 503 STATEMENTS AND 505 LINES.

    A0 : Integer;
    A1 : Integer;
    A2 : Integer;
    A3 : Integer;
    A4 : Integer;
    A5 : Integer;
    A6 : Integer;
    A7 : Integer;
    A8 : Integer;
    A9 : Integer;
    A10 : Integer;
    A11 : Integer;
    A12 : Integer;
    A13 : Integer;
    A14 : Integer;
    A15 : Integer;
    A16 : Integer;
    A17 : Integer;
    A18 : Integer;
    A19 : Integer;
    A20 : Integer;
    A21 : Integer;
    A22 : Integer;
    A23 : Integer;
    A24 : Integer;
    A25 : Integer;
    A26 : Integer;
    A27 : Integer;
    A28 : Integer;
    A29 : Integer;
    A30 : Integer;
    A31 : Integer;
    A32 : Integer;
    A33 : Integer;
    A34 : Integer;
    A35 : Integer;
    A36 : Integer;
    A37 : Integer;
    A38 : Integer;
    A39 : Integer;
    A40 : Integer;
    A41 : Integer;
    A42 : Integer;
    A43 : Integer;
    A44 : Integer;
    A45 : Integer;
    A46 : Integer;
    A47 : Integer;
    A48 : Integer;
    A49 : Integer;
    A50 : Integer;
    A51 : Integer;
    A52 : Integer;
    A53 : Integer;
    A54 : Integer;
    A55 : Integer;
    A56 : Integer;
    A57 : Integer;
    A58 : Integer;
    A59 : Integer;
    A60 : Integer;
    A61 : Integer;
    A62 : Integer;
    A63 : Integer;
    A64 : Integer;
    A65 : Integer;
    A66 : Integer;
    A67 : Integer;
    A68 : Integer;
    A69 : Integer;
    A70 : Integer;
    A71 : Integer;
    A72 : Integer;
    A73 : Integer;
    A74 : Integer;
    A75 : Integer;
    A76 : Integer;
    A77 : Integer;
    A78 : Integer;
    A79 : Integer;
    A80 : Integer;
    A81 : Integer;
    A82 : Integer;
    A83 : Integer;
    A84 : Integer;
    A85 : Integer;
    A86 : Integer;
    A87 : Integer;
    A88 : Integer;
    A89 : Integer;
    A90 : Integer;
    A91 : Integer;
    A92 : Integer;
    A93 : Integer;
    A94 : Integer;
    A95 : Integer;
    A96 : Integer;
    A97 : Integer;
    A98 : Integer;
    A99 : Integer;
    A100 : Integer;
    A101 : Integer;
    A102 : Integer;
    A103 : Integer;
    A104 : Integer;
    A105 : Integer;
    A106 : Integer;
    A107 : Integer;
    A108 : Integer;
    A109 : Integer;
    A110 : Integer;
    A111 : Integer;
    A112 : Integer;
    A113 : Integer;
    A114 : Integer;
    A115 : Integer;
    A116 : Integer;
    A117 : Integer;
    A118 : Integer;
    A119 : Integer;
    A120 : Integer;
    A121 : Integer;
    A122 : Integer;
    A123 : Integer;
    A124 : Integer;
    A125 : Integer;
    A126 : Integer;
    A127 : Integer;
    A128 : Integer;
    A129 : Integer;
    A130 : Integer;
    A131 : Integer;
    A132 : Integer;
    A133 : Integer;
    A134 : Integer;
    A135 : Integer;
    A136 : Integer;
    A137 : Integer;
    A138 : Integer;
    A139 : Integer;
    A140 : Integer;
    A141 : Integer;
    A142 : Integer;
    A143 : Integer;
    A144 : Integer;
    A145 : Integer;
    A146 : Integer;
    A147 : Integer;
    A148 : Integer;
    A149 : Integer;
    A150 : Integer;
    A151 : Integer;
    A152 : Integer;
    A153 : Integer;
    A154 : Integer;
    A155 : Integer;
    A156 : Integer;
    A157 : Integer;
    A158 : Integer;
    A159 : Integer;
    A160 : Integer;
    A161 : Integer;
    A162 : Integer;
    A163 : Integer;
    A164 : Integer;
    A165 : Integer;
    A166 : Integer;
    A167 : Integer;
    A168 : Integer;
    A169 : Integer;
    A170 : Integer;
    A171 : Integer;
    A172 : Integer;
    A173 : Integer;
    A174 : Integer;
    A175 : Integer;
    A176 : Integer;
    A177 : Integer;
    A178 : Integer;
    A179 : Integer;
    A180 : Integer;
    A181 : Integer;
    A182 : Integer;
    A183 : Integer;
    A184 : Integer;
    A185 : Integer;
    A186 : Integer;
    A187 : Integer;
    A188 : Integer;
    A189 : Integer;
    A190 : Integer;
    A191 : Integer;
    A192 : Integer;
    A193 : Integer;
    A194 : Integer;
    A195 : Integer;
    A196 : Integer;
    A197 : Integer;
    A198 : Integer;
    A199 : Integer;
    A200 : Integer;
    A201 : Integer;
    A202 : Integer;
    A203 : Integer;
    A204 : Integer;
    A205 : Integer;
    A206 : Integer;
    A207 : Integer;
    A208 : Integer;
    A209 : Integer;
    A210 : Integer;
    A211 : Integer;
    A212 : Integer;
    A213 : Integer;
    A214 : Integer;
    A215 : Integer;
    A216 : Integer;
    A217 : Integer;
    A218 : Integer;
    A219 : Integer;
    A220 : Integer;
    A221 : Integer;
    A222 : Integer;
    A223 : Integer;
    A224 : Integer;
    A225 : Integer;
    A226 : Integer;
    A227 : Integer;
    A228 : Integer;
    A229 : Integer;
    A230 : Integer;
    A231 : Integer;
    A232 : Integer;
    A233 : Integer;
    A234 : Integer;
    A235 : Integer;
    A236 : Integer;
    A237 : Integer;
    A238 : Integer;
    A239 : Integer;
    A240 : Integer;
    A241 : Integer;
    A242 : Integer;
    A243 : Integer;
    A244 : Integer;
    A245 : Integer;
    A246 : Integer;
    A247 : Integer;
    A248 : Integer;
    A249 : Integer;
    A250 : Integer;
    A251 : Integer;
    A252 : Integer;
    A253 : Integer;
    A254 : Integer;
    A255 : Integer;
    A256 : Integer;
    A257 : Integer;
    A258 : Integer;
    A259 : Integer;
    A260 : Integer;
    A261 : Integer;
    A262 : Integer;
    A263 : Integer;
    A264 : Integer;
    A265 : Integer;
    A266 : Integer;
    A267 : Integer;
    A268 : Integer;
    A269 : Integer;
    A270 : Integer;
    A271 : Integer;
    A272 : Integer;
    A273 : Integer;
    A274 : Integer;
    A275 : Integer;
    A276 : Integer;
    A277 : Integer;
    A278 : Integer;
    A279 : Integer;
    A280 : Integer;
    A281 : Integer;
    A282 : Integer;
    A283 : Integer;
    A284 : Integer;
    A285 : Integer;
    A286 : Integer;
    A287 : Integer;
    A288 : Integer;
    A289 : Integer;
    A290 : Integer;
    A291 : Integer;
    A292 : Integer;
    A293 : Integer;
    A294 : Integer;
    A295 : Integer;
    A296 : Integer;
    A297 : Integer;
    A298 : Integer;
    A299 : Integer;
    A300 : Integer;
    A301 : Integer;
    A302 : Integer;
    A303 : Integer;
    A304 : Integer;
    A305 : Integer;
    A306 : Integer;
    A307 : Integer;
    A308 : Integer;
    A309 : Integer;
    A310 : Integer;
    A311 : Integer;
    A312 : Integer;
    A313 : Integer;
    A314 : Integer;
    A315 : Integer;
    A316 : Integer;
    A317 : Integer;
    A318 : Integer;
    A319 : Integer;
    A320 : Integer;
    A321 : Integer;
    A322 : Integer;
    A323 : Integer;
    A324 : Integer;
    A325 : Integer;
    A326 : Integer;
    A327 : Integer;
    A328 : Integer;
    A329 : Integer;
    A330 : Integer;
    A331 : Integer;
    A332 : Integer;
    A333 : Integer;
    A334 : Integer;
    A335 : Integer;
    A336 : Integer;
    A337 : Integer;
    A338 : Integer;
    A339 : Integer;
    A340 : Integer;
    A341 : Integer;
    A342 : Integer;
    A343 : Integer;
    A344 : Integer;
    A345 : Integer;
    A346 : Integer;
    A347 : Integer;
    A348 : Integer;
    A349 : Integer;
    A350 : Integer;
    A351 : Integer;
    A352 : Integer;
    A353 : Integer;
    A354 : Integer;
    A355 : Integer;
    A356 : Integer;
    A357 : Integer;
    A358 : Integer;
    A359 : Integer;
    A360 : Integer;
    A361 : Integer;
    A362 : Integer;
    A363 : Integer;
    A364 : Integer;
    A365 : Integer;
    A366 : Integer;
    A367 : Integer;
    A368 : Integer;
    A369 : Integer;
    A370 : Integer;
    A371 : Integer;
    A372 : Integer;
    A373 : Integer;
    A374 : Integer;
    A375 : Integer;
    A376 : Integer;
    A377 : Integer;
    A378 : Integer;
    A379 : Integer;
    A380 : Integer;
    A381 : Integer;
    A382 : Integer;
    A383 : Integer;
    A384 : Integer;
    A385 : Integer;
    A386 : Integer;
    A387 : Integer;
    A388 : Integer;
    A389 : Integer;
    A390 : Integer;
    A391 : Integer;
    A392 : Integer;
    A393 : Integer;
    A394 : Integer;
    A395 : Integer;
    A396 : Integer;
    A424 : Integer;
    A425 : Integer;
    A426 : Integer;
    A427 : Integer;
    A428 : Integer;
    A429 : Integer;
    A430 : Integer;
    A431 : Integer;
    A432 : Integer;
    A433 : Integer;
    A434 : Integer;
    A435 : Integer;
    A436 : Integer;
    A437 : Integer;
    A438 : Integer;
    A439 : Integer;
    A440 : Integer;
    A441 : Integer;
    A442 : Integer;
    A443 : Integer;
    A444 : Integer;
    A445 : Integer;
    A446 : Integer;
    A447 : Integer;
    A448 : Integer;
    A449 : Integer;
    A450 : Integer;
    A451 : Integer;
    A452 : Integer;
    A453 : Integer;
    A454 : Integer;
    A455 : Integer;
    A456 : Integer;
    A457 : Integer;
    A458 : Integer;
    A459 : Integer;
    A460 : Integer;
    A461 : Integer;
    A462 : Integer;
    A463 : Integer;
    A464 : Integer;
    A465 : Integer;
    A466 : Integer;
    A467 : Integer;
    A468 : Integer;
    A469 : Integer;
    A470 : Integer;
    A471 : Integer;
    A472 : Integer;
    A473 : Integer;
    A474 : Integer;
    A475 : Integer;
    A476 : Integer;
    A477 : Integer;
    A478 : Integer;
    A479 : Integer;
    A480 : Integer;
    A481 : Integer;
    A482 : Integer;
    A483 : Integer;
    A484 : Integer;
    A485 : Integer;
    A486 : Integer;
    A487 : Integer;
    A488 : Integer;
    A489 : Integer;
    A490 : Integer;
    A491 : Integer;
    A492 : Integer;
    A493 : Integer;
    A494 : Integer;
    A495 : Integer;
    A496 : Integer;
    A497 : Integer;
    A498 : Integer;
    A499 : Integer;

begin
    Start ("INTDB2", " 500 DECLARATION STATEMENTS FOR INTEGER");
    A499 := 0;
    Stop;
end Intdb2;