View source for Yurttas/PL/IL/Ada-95/F/05/00/E/io list enumerate 00.adb

<syntaxhighlight lang="ada" line start="1" enclose="div">--
-- Copyright(C) 1998
-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
--
-- Permission to use, copy, modify, and distribute this
-- software and its documentation for EDUCATIONAL purposes
-- and without fee is hereby granted provided that this
-- copyright notice appears in all copies.
--
 
-- date   : January 1, 1998.
-- author : Salih Yurttas.

-- purpose : Input/Output of a list of enumerates;
--           input and output files are text files which are
--           named interactively.

-- io_list_enumerate_00.adb


with List_Enumerate_P;
use List_Enumerate_P;

with IO_List_Enumerate_P;
use IO_List_Enumerate_P;

procedure IO_List_Enumerate_00 is

  Max_Size : constant Integer := 16;

  K : Integer;
  L : List_Enumerate(1..Max_Size);

begin

  Get_List_Enumerate(K,
                     L);

  Put_List_Enumerate(K,
                     L,
                     "enumerate list:");

end IO_List_Enumerate_00;
</syntaxhighlight>