Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!snorkelwacker.mit.edu!ira.uka.de!smurf!artcom0!hb.maus.de!ms.maus.de!Kai_Henningsen
From: Kai_Henningsen@ms.maus.de (Kai Henningsen)
Newsgroups: comp.lang.pascal
Subject: Re: Ok, now I've got a real qu
Message-ID: <14555@ms.maus.de>
Date: 1 May 91 15:06:00 GMT
Distribution: world,comp
Organization: Maus Mailbox Netz - UUCP-Gateway Bremen
Lines: 13


phaethon%kontu.utu.fi @ SUB schrieb am 27.04.1991, 08:44

ph>> key:=readkey; repeat until upcase(key) in ['ABHW'];
ph>>
ph>Try instead:
ph>Repeat Until UpCase(ReadKey) In ['A','B','H','W'];

Or:

    repeat until Pos(UpCase(ReadKey), 'ABHW')>0;

MfG Kai