home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / finalwriter / finalwriterv5.03h.dms / finalwriterv5.03h.adf / FWMacros.lha / TxtDelete_ToEndOfLine < prev    next >
Text File  |  1993-10-25  |  678b  |  28 lines
  1. /* ------------------------------------------------ */
  2. /* Final Writer Arexx Macro - DELETE TO END OF LINE */
  3. /* This macro will delete text from the insertion   */
  4. /* point to the end of the line that the insertion  */
  5. /* point is in.                                     */
  6. /* $VER: TxtDelete_ToEndOfLine 3.0 (22.7.93)        */
  7. /* ------------------------------------------------ */
  8. Options Results
  9.  
  10. /* ------------------------------------------ */
  11. /* Don't do any thing if a range is selected. */
  12. /* ------------------------------------------ */
  13. Status PARAPOS
  14. pos = Result
  15. IF    ( WORDS(pos) = 4 ) THEN
  16.     EXIT
  17.  
  18. AltDown
  19. CtrlDown
  20. ShiftDown
  21. Cursor Right
  22. AltUp
  23. CtrlUp
  24. ShiftUp
  25.  
  26. Cut
  27.  
  28.