Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!think.com!snorkelwacker.mit.edu!bloom-beacon!eru!hagbard!sunic!news.funet.fi!polaris.utu.fi!kontu.utu.fi!phaethon
From: phaethon@kontu.utu.fi (Timo Eronen, Space Research Laboratory, University of Turku, Finland.)
Newsgroups: comp.lang.pascal
Subject: Re: Ok, now I've got a real question
Message-ID: <1991Apr27.104437.38279@kontu.utu.fi>
Date: 27 Apr 91 10:44:36 GMT
References: <1991Apr26.002739.14842@javelin.sim.es.com>
Lines: 8

In article <1991Apr26.002739.14842@javelin.sim.es.com>, tpehrson@javelin.sim.es.com (Tim Clinkenpeel) writes:
> 
> key:=readkey; repeat until upcase(key) in ['ABHW'];
> 
Try instead:
Repeat Until UpCase(ReadKey) In ['A','B','H','W'];

tke, phaethon@utu.fi