home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / text / edit / FrexxEdA.lha / FrexxEd / fpl / RepeatFunction.FPL < prev    next >
Text File  |  1995-07-19  |  326b  |  16 lines
  1. export void RepeatFunction()
  2. {
  3.   string func;
  4.   int number;
  5.   CursorActive(0);
  6.   Status(0, "Give keystroke!");
  7.   func=KeyPress();
  8.   if (strlen(func)) {
  9.     number=PromptInt("Repeat function", 0, func);
  10.     Visible(0);
  11.     while (--number>=0)
  12.       ExecuteString(func);
  13.   }
  14. }
  15. AssignKey("RepeatFunction();", "Amiga Control r");
  16.