Re: ada printing

[rasser@ddf.dk]

This should work from for Win98, DOSbox or not. Use "LPT1" in "Open" 
instead of "PRN" if you like result is the same with only one printer 
port.

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Characters.Latin_1; use Ada.Characters;

procedure Test_Prn is
    Outf : File_Type;
begin
    Open (Outf, Out_File, "PRN");
    Put (Outf, "This is printed on PRN....");
    Put (Outf, Latin_1.LF & Latin_1.CR);
    Close (Outf);
end Test_Prn;