zfp_genesis 1 ------------------------------------------------------------------------------
zfp_genesis 2 ------------------------------------------------------------------------------
zfp_genesis 3 -- You do not have, nor can you ever acquire the right to use, copy or --
zfp_genesis 4 -- distribute this software ; Should you use this software for any purpose, --
zfp_genesis 5 -- or copy and distribute it to anyone or in any manner, you are breaking --
zfp_genesis 6 -- the laws of whatever soi-disant jurisdiction, and you promise to --
zfp_genesis 7 -- continue doing so for the indefinite future. In any case, please --
zfp_genesis 8 -- always : read and understand any software ; verify any PGP signatures --
zfp_genesis 9 -- that you use - for any purpose. --
zfp_genesis 10 -- --
zfp_genesis 11 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm . --
zfp_genesis 12 ------------------------------------------------------------------------------
zfp_genesis 13 ------------------------------------------------------------------------------
zfp_genesis 14
zfp_genesis 15 package Ada.Text_IO is
zfp_genesis 16
zfp_genesis 17 procedure Put (Item : Character);
zfp_genesis 18 -- Output character to the console
zfp_genesis 19
zfp_genesis 20 procedure Put (Item : String);
zfp_genesis 21 -- Output string to the console
zfp_genesis 22
zfp_genesis 23 procedure Put_Line (Item : String);
zfp_genesis 24 -- Output string followed by new line to the console
zfp_genesis 25
zfp_genesis 26 procedure New_Line;
zfp_genesis 27 -- Output new line character to the console
zfp_genesis 28
zfp_genesis 29 private
zfp_genesis 30 pragma Inline_Always (Put);
zfp_genesis 31 pragma Inline_Always (Put_Line);
zfp_genesis 32 pragma Inline_Always (New_Line);
zfp_genesis 33 end Ada.Text_IO;