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.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,83435feeacc9244
X-Google-Attributes: gid103376,public
From: johnherro@aol.com (John Herro)
Subject: Re: A simple question about Ada
Date: 1996/11/05
Message-ID: <55o0vn$ncr@newsbf02.news.aol.com>#1/1
X-Deja-AN: 194672203
sender: root@newsbf02.news.aol.com
references: <55l1q1$qnk@artemis.ibernet.es>
organization: America Online, Inc. (1-800-827-6364)
newsgroups: comp.lang.ada
Date: 1996-11-05T00:00:00+00:00
List-Id: <comp.lang.ada>


perico@tinet.fut.es (Perico de los Palotes) writes:
> Anybody can tell me how can I write something
> to printer?  Just like "put" writes to screen.

On an IBM PC, I just use Ada.Text_IO to Create "PRN" in Out_File mode, as
if "PRN" were a file.  Then I just Put or Put_Line to that "file."  For
example,

with Ada.Text_IO; use Ada.Text_IO;
procedure Write_Hello is
   F : File_Type;
begin
   Create(F, Out_File, "PRN");
   Put_Line(F, "Hello");
   Close(F);
end Write_Hello;

Unfortunately, the procedure for writing to the printer will vary for
other platforms.

- John Herro
Software Innovations Technology
http://members.aol.com/AdaTutor
ftp://members.aol.com/AdaTutor