home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / MENUDOS.ZIP / ASK.PAS next >
Pascal/Delphi Source File  |  1997-03-22  |  158b  |  12 lines
  1. uses crt,dos;
  2. var parametr:string;
  3. ch:char;
  4. i:byte;
  5. begin
  6. parametr:=paramstr(1);
  7. repeat
  8. ch:=readkey;
  9. i:=pos(ch,parametr);
  10. until i<>0;
  11. halt(i);
  12. end.