Trailing-Edge
-
PDP-10 Archives
-
BB-M836A-BM
-
tools/sed/sedwrd.xct
There are 2 other files named sedwrd.xct in the archive. Click here to see a list.
VT52 WORD PROCESSING EXECUTES:
1JUSN, ^O J: JUSTIFY NOFILL
3TAB4, ^O C: PUT ALL COMMENTS STARTING AFTER COL 16 AT 4TH TAB
4DWRD, ^O D: DELETE PREVIOUS WORD
5XSEN, ^O S: DELETE SENTENCE
6SPTB, ^O T: CONVERT MULTIPLE SPACES TO TABS
/X:1JUSN,^OJ:
^ST($NT^SW$1^IL)^C=
^DW^C(^IF.(^XB)^RT^C+)
^CU^CU^C-
^C.(^LE ^DL^CU)
^100(^RT^LE^FCL79(^XB)^5(^FCG79(^BT))^IL)
/X:4DWRD,^OD:^BT$^TB^DS
/X:5XSEN,^OS:$^DW^X.(^IF^E(^RT^CB)^CR)^CR^DW^S(^CR)^DL
/X:3TAB4,^OC:
^ST($IM^SW$;^SF)
^SF
^FCG16(
^CL^C=
^DW^S(^C+^CL)
^CR
$^CT^DS
^4(^FCL32(^TA))
^CL
^IF^X^S(^CR )
)
^RT
/X:6SPTB,^OT:
^ST($T:8+IM^SW)
^TB
^7(
^IF^E(^XB)
^CL
^IF (
^C=
^DW (^CL^C+)
^CR
^F.E1(^CR^XB)
$^CT^DS
^F.G8(^TA)
^TA)
^CR
^TB)
^RT