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=0.1 required=5.0 tests=BAYES_05,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6263e92aa8cc0c35
X-Google-Attributes: gid103376,public
From: William & Melissa Thornton <thornton@AVICOM.NET>
Subject: Re: Serious problem: Begin ignored! Please help!
Date: 1997/10/19
Message-ID: <344A1373.95FA957A@avicom.net>#1/1
X-Deja-AN: 282089197
Sender: Ada programming language <INFO-ADA@LISTSERV.NODAK.EDU>
References: <01bcdb4d$2929c7e0$90f11ece@mckee>
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: comp.lang.ada
Date: 1997-10-19T00:00:00+00:00
List-Id: <comp.lang.ada>


This is a multi-part message in MIME format.
--------------01E9ACEF4723125A903D008A
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

You have begin listed twice.  You can't begin more than once. :)

Greg Kelley wrote:
>
> I have been trying for hours to get rid of the following error and keep
> hitting brick walls
> Someone please give me some assistance. I am programming on a DEC machine.
>
> The error is:
>
> BEGIN
> ^
> ada: Error: machine_problem_1.ada, line 39: Ignored reserved-word "begin"
>
> And my program (up to the error is:
>
> WITH Fractions, G_Stack, Text_IO, Integer_Text_IO;
> USE  Fractions, Text_IO, Integer_Text_IO;
>
> PROCEDURE Machine_Problem_1 IS
>
> Expression : String(1..80);
> Expression_Length : integer;
> temp :  String(1..20);
> temp_frac :  fraction_type;
> temp_frac1 :  fraction_type;
> Start :  integer;
> Times : boolean;
> Total : fraction_type;
>
>   PROCEDURE Convert(frac_string   : IN string;
>                     string_length : IN integer;
>                     frac          : OUT fraction_type) IS
>
>     I : integer;
>
>   BEGIN
>     I := 1;
>     LOOP
>     EXIT WHEN Line(I) = '/';             -- Find location of '/'
>       IF I = Length
>         THEN I := 0;
>              EXIT;
>       END IF;
>       I := I + 1;
>     END LOOP;
>     IF I = 0                            -- Create new fraction
>       THEN Frac := (Fraction (Integer'Value(Line(1..Length))));
>       ELSE Frac := (Integer'Value (Line(1..(I-1)))) /
>                              (Integer'Value(Line((I+1)..Length)));
>     END IF;
>   END Convert;
>
> BEGIN       --error line!
>
> I know it's probably something not to difficult and I'm just over looking
> the problem.
>
> I greatly appreciate your time and if you could answer via e-mail I would
> greatly appreciate it.
>
> gkelley@css.tayloru.edu

--
                               /T /I
                              / |/ | .-~/
                          T\ Y  I  |/  /  _
         /T               | \I  |  I  Y.-~/
        I l   /I       T\ |  |  l  |  T  /
     T\ |  \ Y l  /T   | \I  l   \ `  l Y
 __  | \l   \l  \I l __l  l   \   `  _. |
 \ ~-l  `\   `\  \  \\ ~\  \   `. .-~   |
  \   ~-. "-.  `  \  ^._ ^. "-.  /  \   |
.--~-._  ~-  `  _  ~-_.-"-." ._ /._ ." ./
 >--.  ~-.   ._  ~>-"    "\\   7   7   ]
^.___~"--._    ~-{  .-~ .  `\ Y . /    |
 <__ ~"-.  ~       /_/   \   \I  Y   : |
   ^-.__           ~(_/   \   >._:   | l______
       ^--.,___.-~"  /_/   !  `-.~"--l_ /     ~"-.
              (_/ .  ~(   /'     "~"--,Y   -=b-. _)
               (_/ .  \  :           / l      c"~o \
                \ /    `.    .     .^   \_.-~"~--.  )
                 (_/ .   `  /     /       !       )/
                  / / _.   '.   .':      /        '
                  ~(_/ .   /    _  `  .-<_
                    /_/ . ' .-~" `.  / \  \          ,z=.
                    ~( /   '  :   | K   "-.~-.______//
                      "-,.    l   I/ \_    __{--->._(==.
                       //(     \  <    ~"~"     //
                      /' /\     \  \     ,v=.  ((
                    .^. / /\     "  }__ //===-  `
                   / / ' '  "-.,__ {---(==-
                 .^ '       :  T  ~"   ll
                / .  .  . : | :!        \\
               (_/  /   | | j-"          ~^
                 ~-<_(_.^-~"
--------------01E9ACEF4723125A903D008A
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Thornton, William & Melissa
Content-Disposition: attachment; filename="vcard.vcf"

begin:          vcard
fn:             William & Melissa Thornton
n:              Thornton;William & Melissa
adr:            103A Paisley Court;;;Bozeman;Montana;59715-7321;USA
email;internet: thornton@avicom.net
tel;home:       406-586-9166
x-mozilla-cpt:  ;0
x-mozilla-html: FALSE
version:        2.1
end:            vcard


--------------01E9ACEF4723125A903D008A--