========== HelloWo1.ADB ==========

WITH Gnat.IO ;  USE Gnat.IO;
PROCEDURE   HelloWo1  IS
BEGIN
   Put (   "Hello World..."   );
END;
                                       +---------------------------------------
========== HelloWo5.ADB ==========     ! ========== Chr20_FF.ADB ==========
                                       !
WITH Gnat.IO ;  USE Gnat.IO;           ! WITH Gnat.IO ;  USE Gnat.IO;
PROCEDURE   HelloWo5  IS               !
BEGIN                                  ! PROCEDURE   Chr20_FF  IS
   Put_Line (   "Hello World....."   );! BEGIN
   Put_Line (   "Hello World....."   );!    FOR i in 32..255 LOOP
   Put_Line (   "Hello World....."   );!       Put (   Character'Val(i)   );
   Put_Line (   "Hello World....."   );!    END LOOP;
   Put_Line (   "Hello World....."   );! END;
END;                                   !
                                       ! ========== PrimeNb.ADB ==========
========== HelloWo9.ADB ==========     !
WITH Gnat.IO ;  USE Gnat.IO;           ! WITH Gnat.IO ;  USE Gnat.IO;
PROCEDURE   HelloWo9  IS               !
BEGIN                                  ! PROCEDURE   PrimeNb  IS
   FOR i in 1..9 LOOP                  !    IsPrimeArray : Array(1..1000)
Put_Line (   "Hello World........."  );!                           of Boolean ;
   END LOOP;                           !    j , jMax : Integer ;
END;                                   ! BEGIN
========== Put2x2.ADB ==========       !    Put (   "***** PRIME NUMBERS: "  );
WITH Gnat.IO ;  USE Gnat.IO;           !
PROCEDURE   Put2x2  IS                 !    ----- LOOP 1 , On each number
BEGIN                                  !    FOR i in 1..1000 LOOP
   Put (   2 + 2   );                  !
END;                                   !       ----- Could be a prime number
========== PutCalc.ADB ==========      !       IsPrimeArray(i) := TRUE ;
WITH Text_IO ;  USE Text_IO;           !
PROCEDURE   PutCalc  IS                !       j    := 2 ;
Package Flt_Io is new Float_IO (Float);!       jMax := Integer( i / 2 );
                        USE Flt_Io ;   !
   PI : Constant Float := 3.14159 ;    !       ----- LOOP 2 , Search a divisor
   R : Float ;                         !       WHILE IsPrimeArray(i)
   C , A : Float ;                     !                   and (j <= jMax) LOOP
BEGIN                                  !          ----- "j" can divide "i" ?
   R := 10.0 ;                         !          IF (i mod j) = 0 THEN
                                       !             IsPrimeArray(i) := False ;
   C := 2.0 * PI * R ;                 !          END IF;
   A := PI * R * R ;                   !          j := j + 1 ;
                                       !       END LOOP;
   Put (   "Radius="   );              !
   Put (   R   );   New_Line ;         !       ----- Display only prime numbers
   Put (   "Circumference="   );       !       IF IsPrimeArray(i) = TRUE THEN
   Put (   C   );   New_Line ;         !          Put (   i   );
   Put (   "Area="   );                !          Put (   " "   );
   Put (   A   );   New_Line ;         !       END IF;
END;                                   !    END LOOP;
                                       ! END;
========== PutMsg.ADB ==========       +---------------------------------------
WITH Gnat.IO ;  USE Gnat.IO;
PROCEDURE   PutMsg  IS
   MyMsg : Constant String :=
                "- Nice weather isn't it ?"  &  ASCII.CR & ASCII.LF
              & "- Yes ""nice"" weather."    &  ASCII.CR & ASCII.LF ;
BEGIN
   Put (   MyMsg   );
END;
