🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: maus.lang.tpascal
Article #19

Re: f: Tastaturpuffer loeschen

#19
From: Christian Wuerdig
Date: Thu, 16 Jan 1997 00:00
24 lines
1384 bytes

>> while keypressed do readkey;
>>
>> Thats all!!!...
>
> HMGN..nja, fast all: fehlt noch
>
> VAR c: char;
>
> ...
> while keypressed do C:=readkey;
  wenn man den Schalter $X+ gesetzt hat, dann werden die Funktionen wie
  Prozeduren behandelt und das Funktionsergebnis vernachlaessigt, also
  funktioniert ' while keypressed do readkey '

C U Chris

------------------------------------------
 Wer gut verdient, strengt sich nicht an.
 Wer sich anstrengt, verdient nicht gut.
------------------------------------------

## CrossPoint v3.11 ##
Technical Details
Message-ID: <6OxObSEK81B@chris.le-line.east.de>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <6O43ObZlj8B@funker.in-berlin.de> <5b0pot$4ra@narses.hrz.tu-chemnitz.de>

Show Full Headers
Complete Article Headers
X-Google-Language: GERMAN,ASCII-7-bit
X-Google-Thread: 110467,6c5a24f95e037674
X-Google-Attributes: gid110467,public
X-Google-Thread: 110930,6c5a24f95e037674
X-Google-Attributes: gid110930,public
X-Google-Thread: 10263e,6c5a24f95e037674
X-Google-Attributes: gid10263e,public
From: Chris-tpm@le-line.east.de (Christian Wuerdig)
Subject: Re: f: Tastaturpuffer loeschen
Date: 1997/01/16
Message-ID: <6OxObSEK81B@chris.le-line.east.de>
X-Deja-AN: 210447938
references: <6O43ObZlj8B@funker.in-berlin.de> <5b0pot$4ra@narses.hrz.tu-chemnitz.de> 
content-type: text/plain; charset=us-ascii
x-gateway: ZCONNECT fact.rhein-ruhr.de [UNIX/Connect v0.74b4]
mime-version: 1.0
newsgroups: maus.lang.tpascal,z-netz.sprachen.pascal,fido.ger.pascal
x-mailer: CrossPoint v3.11 via [DOS/NCBMail V2.22 REL.:200196]