🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.borland
Article #616

Re: Random function - PASCAL

#616
From: Hermann Kraus
Date: Fri, 10 Dec 1999 00:00
22 lines
1434 bytes

Arno Fleck schrieb:

> Hi !
>
> > const
> >   SystemDown = False;
> >
> >   ...
> >
> >   repeat
> >     DoSomething;
> >   until SystemDown;
>
> And here's another possibility: ;-)
> WHILE True DO DoSomething;
>

But how to stop then programm?

Hermann
Technical Details
Message-ID: <385107DE.9C386932@be-ne.de>
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> <384E9F78.E9E9946@gmx.de>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fd1d1,22f85d6fecf732ec
X-Google-Attributes: gidfd1d1,public
X-Google-Thread: 10261c,22f85d6fecf732ec
X-Google-Attributes: gid10261c,public
X-Google-Thread: 111659,22f85d6fecf732ec
X-Google-Attributes: gid111659,public
X-Google-Thread: 102601,22f85d6fecf732ec
X-Google-Attributes: gid102601,public
From: Hermann Kraus <hnkraus@be-ne.de>
Subject: Re: Random function - PASCAL
Date: 1999/12/10
Message-ID: <385107DE.9C386932@be-ne.de>
X-Deja-AN: 558994129
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> <384E9F78.E9E9946@gmx.de>
X-Accept-Language: de,en
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: news@augsburg.net
X-Trace: news.augsburg.net 944834656 8822 195.222.114.207 (10 Dec 1999 14:04:16 GMT)
Mime-Version: 1.0
NNTP-Posting-Date: 10 Dec 1999 14:04:16 GMT
Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.misc,ctdl.lang.pascal,de.comp.lang.pascal