DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFileVerbose
    Names: »plakat«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »plakat« 

TextFileVerbose

RC8000-Ada-System (Preliminary version)  81.06.21 08.17 User: Jan Bardino

with REFERENCE_MANUAL_FOR_THE_Ada_PROGRAMMING_LANGUAGE;

procedure Ada_LANGUAGE_OVERWIEW is

  use REFERENCE_MANUAL_FOR_THE_Ada_PROGRAMMING_LANGUAGE;

WHERE : constant ROOM_IDENTIFICATION := GUEST_CANTEEN;

TIME_OF_LECTURE : constant CALENDAR . TIME :=
   ( YEAR => 1981,  MONTH => 6, DAY => 26,
     SECOND => 9.30 * ( 60 * 60 )  );

AUDIENCE_DISSATISFACTION  :  exception;

procedure SECTION_1 is separate;  -- a brief historical overview

procedure SECTION_2 is separate;  -- description of types and variables

procedure SECTION_3 is 
  STEP : INTEGER;
begin
  for STEP in 1..NUMBER_OF_CONTROL_STRUCTURES  loop
    DESCRIBE_STRUCTURE ( STEP ) ;
  end loop;
end ;

procedure SECTION_4 is separate;  -- description of the Ada program structure
                                  -- and the parallelism of Ada

procedure SECTION_5 is separate;  -- an example of the synchronization mechanisms

begin                             -- main program
  delay  TIME_OF_LECTURE - CALENDAR . CLOCK ();

  SECTION_1;   SECTION_2;   SECTION_3;  SECTION_4;

  delay  15.0 * 60;

  SECTION_5;

exception
  when  AUDIENCE_DISSATISFACTION  =>
    --  ??????????;
    raise  ERROR;   -- Ada standard action in case of errors

end Ada_LANGUAGE_OVERVIEW;

***************  end of RC8000 Ada session  ***************
«eof»