Google
 

Trailing-Edge - PDP-10 Archives - bb-j710b-bm_tops20_v41_tools - 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)^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