1--
2-- Copyright(C) 1998
3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
4--
5-- Permission to use, copy, modify, and distribute this
6-- software and its documentation for EDUCATIONAL purposes
7-- and without fee is hereby granted provided that this
8-- copyright notice appears in all copies.
9--
10
11-- date : January 1, 1998.
12-- author : Salih Yurttas.
13
14-- purpose : Error handling by exceptions.
15
16-- error_handling_22.adb
17
18
19with Ada.Text_IO;
20use Ada.Text_IO;
21
22with Error_Handling_02_P;
23use Error_Handling_02_P;
24
25procedure Error_Handling_22 is
26
27begin
28
29 PA;
30 Put_Line("A -");
31
32 PB;
33 Put_Line("B -");
34
35 PC;
36 Put_Line("Last.");
37
38end Error_Handling_22;