Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/piwg/z000213.ada

Text File | 1988-05-03 | 17.0 KB | 505 lines

with text_io; use text_io; -- 1
with text_io; use text_io; -- 2
with text_io; use text_io; -- 3
with text_io; use text_io; -- 4
with text_io; use text_io; -- 5
with text_io; use text_io; -- 6
with text_io; use text_io; -- 7
with text_io; use text_io; -- 8
with text_io; use text_io; -- 9
with text_io; use text_io; -- 10
with text_io; use text_io; -- 11
with text_io; use text_io; -- 12
with text_io; use text_io; -- 13
with text_io; use text_io; -- 14
with text_io; use text_io; -- 15
with text_io; use text_io; -- 16
with text_io; use text_io; -- 17
with text_io; use text_io; -- 18
with text_io; use text_io; -- 19
with text_io; use text_io; -- 20
with text_io; use text_io; -- 21
with text_io; use text_io; -- 22
with text_io; use text_io; -- 23
with text_io; use text_io; -- 24
with text_io; use text_io; -- 25
with text_io; use text_io; -- 26
with text_io; use text_io; -- 27
with text_io; use text_io; -- 28
with text_io; use text_io; -- 29
with text_io; use text_io; -- 30
with text_io; use text_io; -- 31
with text_io; use text_io; -- 32
with text_io; use text_io; -- 33
with text_io; use text_io; -- 34
with text_io; use text_io; -- 35
with text_io; use text_io; -- 36
with text_io; use text_io; -- 37
with text_io; use text_io; -- 38
with text_io; use text_io; -- 39
with text_io; use text_io; -- 40
with text_io; use text_io; -- 41
with text_io; use text_io; -- 42
with text_io; use text_io; -- 43
with text_io; use text_io; -- 44
with text_io; use text_io; -- 45
with text_io; use text_io; -- 46
with text_io; use text_io; -- 47
with text_io; use text_io; -- 48
with text_io; use text_io; -- 49
with text_io; use text_io; -- 50
with text_io; use text_io; -- 51
with text_io; use text_io; -- 52
with text_io; use text_io; -- 53
with text_io; use text_io; -- 54
with text_io; use text_io; -- 55
with text_io; use text_io; -- 56
with text_io; use text_io; -- 57
with text_io; use text_io; -- 58
with text_io; use text_io; -- 59
with text_io; use text_io; -- 60
with text_io; use text_io; -- 61
with text_io; use text_io; -- 62
with text_io; use text_io; -- 63
with text_io; use text_io; -- 64
with text_io; use text_io; -- 65
with text_io; use text_io; -- 66
with text_io; use text_io; -- 67
with text_io; use text_io; -- 68
with text_io; use text_io; -- 69
with text_io; use text_io; -- 70
with text_io; use text_io; -- 71
with text_io; use text_io; -- 72
with text_io; use text_io; -- 73
with text_io; use text_io; -- 74
with text_io; use text_io; -- 75
with text_io; use text_io; -- 76
with text_io; use text_io; -- 77
with text_io; use text_io; -- 78
with text_io; use text_io; -- 79
with text_io; use text_io; -- 80
with text_io; use text_io; -- 81
with text_io; use text_io; -- 82
with text_io; use text_io; -- 83
with text_io; use text_io; -- 84
with text_io; use text_io; -- 85
with text_io; use text_io; -- 86
with text_io; use text_io; -- 87
with text_io; use text_io; -- 88
with text_io; use text_io; -- 89
with text_io; use text_io; -- 90
with text_io; use text_io; -- 91
with text_io; use text_io; -- 92
with text_io; use text_io; -- 93
with text_io; use text_io; -- 94
with text_io; use text_io; -- 95
with text_io; use text_io; -- 96
with text_io; use text_io; -- 97
with text_io; use text_io; -- 98
with text_io; use text_io; -- 99
with text_io; use text_io; -- 100
with text_io; use text_io; -- 101
with text_io; use text_io; -- 102
with text_io; use text_io; -- 103
with text_io; use text_io; -- 104
with text_io; use text_io; -- 105
with text_io; use text_io; -- 106
with text_io; use text_io; -- 107
with text_io; use text_io; -- 108
with text_io; use text_io; -- 109
with text_io; use text_io; -- 110
with text_io; use text_io; -- 111
with text_io; use text_io; -- 112
with text_io; use text_io; -- 113
with text_io; use text_io; -- 114
with text_io; use text_io; -- 115
with text_io; use text_io; -- 116
with text_io; use text_io; -- 117
with text_io; use text_io; -- 118
with text_io; use text_io; -- 119
with text_io; use text_io; -- 120
with text_io; use text_io; -- 121
with text_io; use text_io; -- 122
with text_io; use text_io; -- 123
with text_io; use text_io; -- 124
with text_io; use text_io; -- 125
with text_io; use text_io; -- 126
with text_io; use text_io; -- 127
with text_io; use text_io; -- 128
with text_io; use text_io; -- 129
with text_io; use text_io; -- 130
with text_io; use text_io; -- 131
with text_io; use text_io; -- 132
with text_io; use text_io; -- 133
with text_io; use text_io; -- 134
with text_io; use text_io; -- 135
with text_io; use text_io; -- 136
with text_io; use text_io; -- 137
with text_io; use text_io; -- 138
with text_io; use text_io; -- 139
with text_io; use text_io; -- 140
with text_io; use text_io; -- 141
with text_io; use text_io; -- 142
with text_io; use text_io; -- 143
with text_io; use text_io; -- 144
with text_io; use text_io; -- 145
with text_io; use text_io; -- 146
with text_io; use text_io; -- 147
with text_io; use text_io; -- 148
with text_io; use text_io; -- 149
with text_io; use text_io; -- 150
with text_io; use text_io; -- 151
with text_io; use text_io; -- 152
with text_io; use text_io; -- 153
with text_io; use text_io; -- 154
with text_io; use text_io; -- 155
with text_io; use text_io; -- 156
with text_io; use text_io; -- 157
with text_io; use text_io; -- 158
with text_io; use text_io; -- 159
with text_io; use text_io; -- 160
with text_io; use text_io; -- 161
with text_io; use text_io; -- 162
with text_io; use text_io; -- 163
with text_io; use text_io; -- 164
with text_io; use text_io; -- 165
with text_io; use text_io; -- 166
with text_io; use text_io; -- 167
with text_io; use text_io; -- 168
with text_io; use text_io; -- 169
with text_io; use text_io; -- 170
with text_io; use text_io; -- 171
with text_io; use text_io; -- 172
with text_io; use text_io; -- 173
with text_io; use text_io; -- 174
with text_io; use text_io; -- 175
with text_io; use text_io; -- 176
with text_io; use text_io; -- 177
with text_io; use text_io; -- 178
with text_io; use text_io; -- 179
with text_io; use text_io; -- 180
with text_io; use text_io; -- 181
with text_io; use text_io; -- 182
with text_io; use text_io; -- 183
with text_io; use text_io; -- 184
with text_io; use text_io; -- 185
with text_io; use text_io; -- 186
with text_io; use text_io; -- 187
with text_io; use text_io; -- 188
with text_io; use text_io; -- 189
with text_io; use text_io; -- 190
with text_io; use text_io; -- 191
with text_io; use text_io; -- 192
with text_io; use text_io; -- 193
with text_io; use text_io; -- 194
with text_io; use text_io; -- 195
with text_io; use text_io; -- 196
with text_io; use text_io; -- 197
with text_io; use text_io; -- 198
with text_io; use text_io; -- 199
with text_io; use text_io; -- 200
with text_io; use text_io; -- 201
with text_io; use text_io; -- 202
with text_io; use text_io; -- 203
with text_io; use text_io; -- 204
with text_io; use text_io; -- 205
with text_io; use text_io; -- 206
with text_io; use text_io; -- 207
with text_io; use text_io; -- 208
with text_io; use text_io; -- 209
with text_io; use text_io; -- 210
with text_io; use text_io; -- 211
with text_io; use text_io; -- 212
with text_io; use text_io; -- 213
with text_io; use text_io; -- 214
with text_io; use text_io; -- 215
with text_io; use text_io; -- 216
with text_io; use text_io; -- 217
with text_io; use text_io; -- 218
with text_io; use text_io; -- 219
with text_io; use text_io; -- 220
with text_io; use text_io; -- 221
with text_io; use text_io; -- 222
with text_io; use text_io; -- 223
with text_io; use text_io; -- 224
with text_io; use text_io; -- 225
with text_io; use text_io; -- 226
with text_io; use text_io; -- 227
with text_io; use text_io; -- 228
with text_io; use text_io; -- 229
with text_io; use text_io; -- 230
with text_io; use text_io; -- 231
with text_io; use text_io; -- 232
with text_io; use text_io; -- 233
with text_io; use text_io; -- 234
with text_io; use text_io; -- 235
with text_io; use text_io; -- 236
with text_io; use text_io; -- 237
with text_io; use text_io; -- 238
with text_io; use text_io; -- 239
with text_io; use text_io; -- 240
with text_io; use text_io; -- 241
with text_io; use text_io; -- 242
with text_io; use text_io; -- 243
with text_io; use text_io; -- 244
with text_io; use text_io; -- 245
with text_io; use text_io; -- 246
with text_io; use text_io; -- 247
with text_io; use text_io; -- 248
with text_io; use text_io; -- 249
with text_io; use text_io; -- 250
with text_io; use text_io; -- 251
with text_io; use text_io; -- 252
with text_io; use text_io; -- 253
with text_io; use text_io; -- 254
with text_io; use text_io; -- 255
with text_io; use text_io; -- 256
with text_io; use text_io; -- 257
with text_io; use text_io; -- 258
with text_io; use text_io; -- 259
with text_io; use text_io; -- 260
with text_io; use text_io; -- 261
with text_io; use text_io; -- 262
with text_io; use text_io; -- 263
with text_io; use text_io; -- 264
with text_io; use text_io; -- 265
with text_io; use text_io; -- 266
with text_io; use text_io; -- 267
with text_io; use text_io; -- 268
with text_io; use text_io; -- 269
with text_io; use text_io; -- 270
with text_io; use text_io; -- 271
with text_io; use text_io; -- 272
with text_io; use text_io; -- 273
with text_io; use text_io; -- 274
with text_io; use text_io; -- 275
with text_io; use text_io; -- 276
with text_io; use text_io; -- 277
with text_io; use text_io; -- 278
with text_io; use text_io; -- 279
with text_io; use text_io; -- 280
with text_io; use text_io; -- 281
with text_io; use text_io; -- 282
with text_io; use text_io; -- 283
with text_io; use text_io; -- 284
with text_io; use text_io; -- 285
with text_io; use text_io; -- 286
with text_io; use text_io; -- 287
with text_io; use text_io; -- 288
with text_io; use text_io; -- 289
with text_io; use text_io; -- 290
with text_io; use text_io; -- 291
with text_io; use text_io; -- 292
with text_io; use text_io; -- 293
with text_io; use text_io; -- 294
with text_io; use text_io; -- 295
with text_io; use text_io; -- 296
with text_io; use text_io; -- 297
with text_io; use text_io; -- 298
with text_io; use text_io; -- 299
with text_io; use text_io; -- 300
with text_io; use text_io; -- 301
with text_io; use text_io; -- 302
with text_io; use text_io; -- 303
with text_io; use text_io; -- 304
with text_io; use text_io; -- 305
with text_io; use text_io; -- 306
with text_io; use text_io; -- 307
with text_io; use text_io; -- 308
with text_io; use text_io; -- 309
with text_io; use text_io; -- 310
with text_io; use text_io; -- 311
with text_io; use text_io; -- 312
with text_io; use text_io; -- 313
with text_io; use text_io; -- 314
with text_io; use text_io; -- 315
with text_io; use text_io; -- 316
with text_io; use text_io; -- 317
with text_io; use text_io; -- 318
with text_io; use text_io; -- 319
with text_io; use text_io; -- 320
with text_io; use text_io; -- 321
with text_io; use text_io; -- 322
with text_io; use text_io; -- 323
with text_io; use text_io; -- 324
with text_io; use text_io; -- 325
with text_io; use text_io; -- 326
with text_io; use text_io; -- 327
with text_io; use text_io; -- 328
with text_io; use text_io; -- 329
with text_io; use text_io; -- 330
with text_io; use text_io; -- 331
with text_io; use text_io; -- 332
with text_io; use text_io; -- 333
with text_io; use text_io; -- 334
with text_io; use text_io; -- 335
with text_io; use text_io; -- 336
with text_io; use text_io; -- 337
with text_io; use text_io; -- 338
with text_io; use text_io; -- 339
with text_io; use text_io; -- 340
with text_io; use text_io; -- 341
with text_io; use text_io; -- 342
with text_io; use text_io; -- 343
with text_io; use text_io; -- 344
with text_io; use text_io; -- 345
with text_io; use text_io; -- 346
with text_io; use text_io; -- 347
with text_io; use text_io; -- 348
with text_io; use text_io; -- 349
with text_io; use text_io; -- 350
with text_io; use text_io; -- 351
with text_io; use text_io; -- 352
with text_io; use text_io; -- 353
with text_io; use text_io; -- 354
with text_io; use text_io; -- 355
with text_io; use text_io; -- 356
with text_io; use text_io; -- 357
with text_io; use text_io; -- 358
with text_io; use text_io; -- 359
with text_io; use text_io; -- 360
with text_io; use text_io; -- 361
with text_io; use text_io; -- 362
with text_io; use text_io; -- 363
with text_io; use text_io; -- 364
with text_io; use text_io; -- 365
with text_io; use text_io; -- 366
with text_io; use text_io; -- 367
with text_io; use text_io; -- 368
with text_io; use text_io; -- 369
with text_io; use text_io; -- 370
with text_io; use text_io; -- 371
with text_io; use text_io; -- 372
with text_io; use text_io; -- 373
with text_io; use text_io; -- 374
with text_io; use text_io; -- 375
with text_io; use text_io; -- 376
with text_io; use text_io; -- 377
with text_io; use text_io; -- 378
with text_io; use text_io; -- 379
with text_io; use text_io; -- 380
with text_io; use text_io; -- 381
with text_io; use text_io; -- 382
with text_io; use text_io; -- 383
with text_io; use text_io; -- 384
with text_io; use text_io; -- 385
with text_io; use text_io; -- 386
with text_io; use text_io; -- 387
with text_io; use text_io; -- 388
with text_io; use text_io; -- 389
with text_io; use text_io; -- 390
with text_io; use text_io; -- 391
with text_io; use text_io; -- 392
with text_io; use text_io; -- 393
with text_io; use text_io; -- 394
with text_io; use text_io; -- 395
with text_io; use text_io; -- 396
with text_io; use text_io; -- 397
with text_io; use text_io; -- 398
with text_io; use text_io; -- 399
with text_io; use text_io; -- 400
with text_io; use text_io; -- 401
with text_io; use text_io; -- 402
with text_io; use text_io; -- 403
with text_io; use text_io; -- 404
with text_io; use text_io; -- 405
with text_io; use text_io; -- 406
with text_io; use text_io; -- 407
with text_io; use text_io; -- 408
with text_io; use text_io; -- 409
with text_io; use text_io; -- 410
with text_io; use text_io; -- 411
with text_io; use text_io; -- 412
with text_io; use text_io; -- 413
with text_io; use text_io; -- 414
with text_io; use text_io; -- 415
with text_io; use text_io; -- 416
with text_io; use text_io; -- 417
with text_io; use text_io; -- 418
with text_io; use text_io; -- 419
with text_io; use text_io; -- 420
with text_io; use text_io; -- 421
with text_io; use text_io; -- 422
with text_io; use text_io; -- 423
with text_io; use text_io; -- 424
with text_io; use text_io; -- 425
with text_io; use text_io; -- 426
with text_io; use text_io; -- 427
with text_io; use text_io; -- 428
with text_io; use text_io; -- 429
with text_io; use text_io; -- 430
with text_io; use text_io; -- 431
with text_io; use text_io; -- 432
with text_io; use text_io; -- 433
with text_io; use text_io; -- 434
with text_io; use text_io; -- 435
with text_io; use text_io; -- 436
with text_io; use text_io; -- 437
with text_io; use text_io; -- 438
with text_io; use text_io; -- 439
with text_io; use text_io; -- 440
with text_io; use text_io; -- 441
with text_io; use text_io; -- 442
with text_io; use text_io; -- 443
with text_io; use text_io; -- 444
with text_io; use text_io; -- 445
with text_io; use text_io; -- 446
with text_io; use text_io; -- 447
with text_io; use text_io; -- 448
with text_io; use text_io; -- 449
with text_io; use text_io; -- 450
with text_io; use text_io; -- 451
with text_io; use text_io; -- 452
with text_io; use text_io; -- 453
with text_io; use text_io; -- 454
with text_io; use text_io; -- 455
with text_io; use text_io; -- 456
with text_io; use text_io; -- 457
with text_io; use text_io; -- 458
with text_io; use text_io; -- 459
with text_io; use text_io; -- 460
with text_io; use text_io; -- 461
with text_io; use text_io; -- 462
with text_io; use text_io; -- 463
with text_io; use text_io; -- 464
with text_io; use text_io; -- 465
with text_io; use text_io; -- 466
with text_io; use text_io; -- 467
with text_io; use text_io; -- 468
with text_io; use text_io; -- 469
with text_io; use text_io; -- 470
with text_io; use text_io; -- 471
with text_io; use text_io; -- 472
with text_io; use text_io; -- 473
with text_io; use text_io; -- 474
with text_io; use text_io; -- 475
with text_io; use text_io; -- 476
with text_io; use text_io; -- 477
with text_io; use text_io; -- 478
with text_io; use text_io; -- 479
with text_io; use text_io; -- 480
with text_io; use text_io; -- 481
with text_io; use text_io; -- 482
with text_io; use text_io; -- 483
with text_io; use text_io; -- 484
with text_io; use text_io; -- 485
with text_io; use text_io; -- 486
with text_io; use text_io; -- 487
with text_io; use text_io; -- 488
with text_io; use text_io; -- 489
with text_io; use text_io; -- 490
with text_io; use text_io; -- 491
with text_io; use text_io; -- 492
with text_io; use text_io; -- 493
with text_io; use text_io; -- 494
with text_io; use text_io; -- 495
with text_io; use text_io; -- 496
with text_io; use text_io; -- 497
with text_io; use text_io; -- 498
with text_io; use text_io; -- 499
with text_io; use text_io; -- 500
procedure z000213 is
    begin
    null;
    end z000213;