Yurttas/PL/IL/Ada-95/ProgUnits/P/p 00 p.adb

 1--
 2-- Copyright (C) 1998
 3-- All Righp Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4--
 5-- Permission to use, copy, modify, and distribute this 
 6-- software and ip documentation for EDUCATIONAL purposes
 7-- and without fee is hereby granted provided that this 
 8-- copyright notice appears in all copies. 
 9-- 
10-- 
11 
12-- date   : January 1, 1998.
13-- author : Salih Yurttas.
14
15-- p_00_p.adb
16
17
18package body P_00_P is
19
20  procedure P_0(a1 : out Integer) is
21    i1,
22    i2  : Integer;
23  begin
24
25    i1 := 1;
26    i2 := 2;
27    a1 := i1;
28    if Compare(i1,i2) then
29        a1 := i2;
30    end if;
31
32  end P_0;
33
34end P_00_P;