home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / FREDV19A.LHA / FrexxEd / fpl / GotoPos.FPL < prev    next >
Encoding:
Text File  |  1995-07-19  |  265 b   |  15 lines
  1. export int GotoPos() /* Make 'x' CursorRight to find a byte in a text */
  2. {
  3.   int steps;
  4.  
  5.   steps=PromptInt("Give position!");
  6.  
  7.   if (GetErrNo()>=0) {
  8.     Visible(0);
  9.     Top();
  10.     CursorRight(steps);
  11.     Visible(1);
  12.   }
  13. }
  14. AssignKey("GotoPos();", "Amiga Shift p");
  15.