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,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,875dac3b4fe0ebc4
X-Google-Attributes: gid103376,public
From: "Gavin Bowra" <bowmac@iinet.net.au>
Subject: Re: File I\O
Date: 2000/04/26
Message-ID: <39063da7$0$30515@echo-01.iinet.net.au>#1/1
X-Deja-AN: 615703871
References: <3905a5b7$0$28047@echo-01.iinet.net.au>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
X-Trace: news.iinet.net.au 956710311 30515 jihels@203.59.80.238
X-MSMail-Priority: Normal
Newsgroups: comp.lang.ada
Date: 2000-04-26T00:00:00+00:00
List-Id: <comp.lang.ada>

Hi,
    Text file required....but saved to A:\.

procedure create (file: in out  File_type
                             mode: in     File_mode := out_file;
                             name: in      String        :=  "   ";
                             form:  in      String        :=  "   ");


Last night I was trying to get this to work, if you could maybe point out
ifthis will work.

      Procedure File_Buy  is
      Sponsors : File_Type;

      Begin --File_Buy

      New_Line(2);
      Put("                Please enter the file name");


      Create(In_Sponsors, Out_File, "A:\Sponsors.dat");

      Close (Sponsors);

      End File_Buy;

Gavin Bowra <bowmac@iinet.net.au> wrote in message
news:3905a5b7$0$28047@echo-01.iinet.net.au...
> Hi
>    I need a bit of a pointer on File I\Os Basically I have to create and
> read a file. My problem is that I can't get a handle on how it is done, I
> have the LRM and Rendezvous with Ada 95 but I can't follow the explanation
> or example ( I must be thick or something ;-) ) If there is anybody out
> there who can explain this to an IDIOT so he can understand would be
greatly
> appreciated.
>
> David
>
> --
> When all else fails, read the instructions
>
>