From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a5c0357e6c1b5db1
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2000-08-21 20:28:40 PST
Path: 
 supernews.google.com!sn-xit-02!supernews.com!nntp-relay.ihug.net!ihug.co.nz!feeder.via.net!newshub2.rdc1.sfba.home.com!news.home.com!news1.frmt1.sfba.home.com.POSTED!not-for-mail
From: tmoran@bix.com
Newsgroups: comp.lang.ada
Subject: Re: Displaying Unsigned Integer
References: <39A1D710.C7E09632@erols.com>
X-Newsreader: Tom's custom newsreader
Message-ID: <Crmo5.122744$i5.1801927@news1.frmt1.sfba.home.com>
Date: Tue, 22 Aug 2000 03:28:34 GMT
NNTP-Posting-Host: 24.20.190.201
X-Complaints-To: abuse@home.net
X-Trace: news1.frmt1.sfba.home.com 966914914 24.20.190.201 (Mon,
 21 Aug 2000 20:28:34 PDT)
NNTP-Posting-Date: Mon, 21 Aug 2000 20:28:34 PDT
Organization: @Home Network
Xref: supernews.google.com comp.lang.ada:263
Date: 2000-08-22T03:28:34+00:00
List-Id: <comp.lang.ada>

>How do I print an unsigned integer in octal to the screen?
Like this:
with Ada.Text_IO;
procedure Test is
  type Unsigned_16 is mod 2**16;
  package Unsigned_16_IO is new Ada.Text_IO.modular_io(Unsigned_16);
  x : Unsigned_16 := 4097;
begin
  Unsigned_16_IO.Put(x, base=>8);  -- puts "8#10001#" on stdout
end Test;