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 >
Wrap
Text File
|
1993-10-25
|
678b
|
28 lines
/* ------------------------------------------------ */
/* Final Writer Arexx Macro - DELETE TO END OF LINE */
/* This macro will delete text from the insertion */
/* point to the end of the line that the insertion */
/* point is in. */
/* $VER: TxtDelete_ToEndOfLine 3.0 (22.7.93) */
/* ------------------------------------------------ */
Options Results
/* ------------------------------------------ */
/* Don't do any thing if a range is selected. */
/* ------------------------------------------ */
Status PARAPOS
pos = Result
IF ( WORDS(pos) = 4 ) THEN
EXIT
AltDown
CtrlDown
ShiftDown
Cursor Right
AltUp
CtrlUp
ShiftUp
Cut