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,8f1d55ea4f471c1
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-03-16 19:34:05 PST
Path: 
 bga.com!news.sprintlink.net!cs.utexas.edu!uwm.edu!msunews!harbinger.cc.monash.edu.au!aggedor.rmit.EDU.AU!goanna.cs.rmit.edu.au!macdale.cs.rmit.edu.au!dale
From: Dale Stanbrough <dale@rmit.edu.au>
Newsgroups: comp.lang.ada
Subject: Re: Print
Date: 16 Mar 1995 05:49:24 GMT
Organization: RMIT, Melbourne, Australia
Distribution: world
Message-ID: <3k8jh4$c21@goanna.cs.rmit.edu.au>
References: <3k8g1e$8ri@goanna.cs.rmit.edu.au>
NNTP-Posting-Host: macdale.cs.rmit.edu.au
X-UserAgent: Version 1.1.3
X-XXMessage-ID: <AB8E1CDEBD01CB21@macdale.cs.rmit.edu.au>
X-XXDate: Thu, 16 Mar 95 16:50:38 GMT
Date: 1995-03-16T05:49:24+00:00
List-Id: <comp.lang.ada>

Subject: Print
From: Scott Malcolm Smedley, s9406160@yallara.cs.rmit.edu.au
Date: 16 Mar 1995 04:49:50 GMT
In article <3k8g1e$8ri@goanna.cs.rmit.edu.au> Scott Malcolm Smedley,
s9406160@yallara.cs.rmit.edu.au writes:
>How can I "print" an array of integers/characters/strings etc
>in ADA?? I mean "print" as in Printer.
>
>For example, let's say I had an array(1..10) of integers.
>How could I print each integer one underneath the other on
>a printer?
>
>I'm not 2 sure whether it matters or not, but I am using ADA on
>a DOS machine, not UNIX.
>
>Thanks 4 any help U can give...
>
>Scott
>
>s9406160@yallara.cs.rmit.edu.au


The Meridian Ada compiler manual has the following information...

-----start-quote--------------------------
Special file names
Note that there are special file names that refer to
non-disk devices

CON - the console
AUX - serial port1
...
LPT1 - parallel port 1
PRN - same as LPT1
...

To open one of the special file names for output, use
create with mode out_file as in the following example.

with text_io;	use text_io;
procedure printer_demo is
	f:file_type;
	printer:constant string := "PRN";
begin
	create(file => f, name => printer);
	put_line(f, "this is a test");
	new_page(f);
	close(f);
end printer_demo;
-------------------------------------------

Your mileage may vary depending upon what networks you are
attached to.