Kai_Henningsen@ms.maus.de (Kai Henningsen) (05/01/91)
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