home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / turbotext / rexx / nextparagraph.ttx < prev    next >
Text File  |  1995-07-10  |  289b  |  21 lines
  1.  
  2. /** $VER: NextParagraph.ttx 2.0 (27.8.93)
  3.  **
  4.  ** Move the cursor to the start of the next paragraph
  5.  **/
  6.  
  7.  
  8. OPTIONS RESULTS
  9.  
  10.  
  11.   GetPrefs FindBackward
  12.   back = RESULT
  13.   SetPrefs FindBackward OFF
  14.  
  15.   Find '0A'X||'0A'X
  16.   IF rc = 0 THEN DO
  17.     MoveNextWord
  18.   END
  19.  
  20.   SetPrefs FindBackward back
  21.