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-Thread: a07f3367d7,25642dc8f94534f6,start
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news1.google.com!npeer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nntp.club.cc.cmu.edu!feeder.erje.net!eternal-september.org!.POSTED!not-for-mail
From: John Wilkinson <jw@invalid.com>
Newsgroups: comp.lang.ada
Subject: Basic question about select
Date: Wed, 28 Apr 2010 18:16:44 +0000 (UTC)
Organization: A noiseless patient Spider
Message-ID: <Xns9D68C41D38649fdnbgui7uhu5h8hrnuio@188.40.43.213>
Injection-Date: Wed, 28 Apr 2010 18:16:44 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="v1Gv8BR6qdzMmBb/qjrw0Q";
	logging-data="23336"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX18dDRcb1ti+gDuQxA93ko2X"
User-Agent: Xnews/5.04.25
Cancel-Lock: sha1:hOl+FxIrkXrU6AlEM+u3Qy9HuvU=
Xref: g2news2.google.com comp.lang.ada:11236
Date: 2010-04-28T18:16:44+00:00
List-Id: <comp.lang.ada>

select
    	PID.Call;  --an entry call to task PID
    	Status := P;
then abort
    	delay 10.0;
    	Status := Q;
end select;

Is the above valid Ada code? It's been handed to me by someone, I 
don't really know much about Ada, and I'm supposed to understand 
what it does. I can't find any information on "abort" or even 
"then".

If it's valid, what does it do?