home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Texteditors / FFRED10.LHA / fpl / GotoPos.FPL < prev    next >
Encoding:
Text File  |  1994-09-22  |  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.