[comp.lang.pascal] Ok, now I've got a real qu

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