Re: Random function - PASCAL - Article 611 - go-pugleaf

Article View: comp.lang.pascal.borland

Article #611

Back to comp.lang.pascal.borland Previous Next

Re: Random function - PASCAL

#611

From: Jud McCranie
Date: Wed, 08 Dec 1999 00:00

23 lines
1388 bytes

Robert Rossmair <Robert.Rossmair@t-online.de> wrote:


>I consider the following to be neater than neatest :)
>
>const
>  SystemDown = False;
>
>  ...
>
>  repeat
>    DoSomething;
>  until SystemDown;

Or how about

constant EndOfTime = false;

repeat
until EndOfTime;


Jud McCranie

Technical Details

Message-ID: <m8ss4s8l4c31h1hclgrhb3gevicls5scua@4ax.com>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References:

<384c42e3.0@news1.mweb.co.za> <384C4D84.1F625BA7@gmx.at> <kmko4ssvc7sr3k908b2dekf0v9lds0cfp4@4ax.com> <384C5638.D278469F@gmx.at> <acuo4s8gc4lgbud1t3dehbaeq5oq8fl5nu@4ax.com> <384DC718.F5C9C609@t-online.de>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10261c,22f85d6fecf732ec
X-Google-Attributes: gid10261c,public
X-Google-Thread: fd1d1,22f85d6fecf732ec
X-Google-Attributes: gidfd1d1,public
X-Google-Thread: 102601,22f85d6fecf732ec
X-Google-Attributes: gid102601,public
X-Google-Thread: 111659,22f85d6fecf732ec
X-Google-Attributes: gid111659,public
From: Jud McCranie <jud.mccranie@mindspring.com>
Subject: Re: Random function - PASCAL
Date: 1999/12/08
Message-ID: <m8ss4s8l4c31h1hclgrhb3gevicls5scua@4ax.com>
X-Deja-AN: 558158540
Content-Transfer-Encoding: 7bit
References: <384c42e3.0@news1.mweb.co.za> <384C4D84.1F625BA7@gmx.at> <kmko4ssvc7sr3k908b2dekf0v9lds0cfp4@4ax.com> <384C5638.D278469F@gmx.at> <acuo4s8gc4lgbud1t3dehbaeq5oq8fl5nu@4ax.com> <384DC718.F5C9C609@t-online.de>
Organization: MindSpring Enterprises
X-Server-Date: 8 Dec 1999 14:55:27 GMT
Content-Type: text/plain; charset=us-ascii
Mime-Version: 1.0
Reply-To: jud.mccranie@mindspring.com
Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.misc,ctdl.lang.pascal,de.comp.lang.pascal

Reply to Parent Message