Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

J q:74"L.u0oEND'q:74"E72u:74'.u50l
q5-."N
%Not at the beginning of a line; adding a CRLF.
q5ji
'q:74uz
.-q0"E
%Point is at mark.oEND'
.-q0"L
Switching point and mark..:q0j' 24i24i

q0j <:1s-
-"E0; '-4d>q0j

!LIN!qzu4.-z"EoEND'0l 0a-24"Ec0a-24"E-c2doEND'-c'
0a-13"N(0a-32)*(0a-9)"E<d0a-32"N0; '>0l i     qz-5u4''.u2
!QIN!.u0 q2j <0a-13"E0; '0a-32"E<d0a-32"N0; '>0a-13"E0; 'i -c' c>
e .-q2u8q8-q4u3

q3"L l.u9 .-z"EoLIN' 0a-33"LoLIN'
.u5 -q3<.-z"E0; '0a-13"E.u5' 0a-32"E.u5c<.-z"E0; '0a-32"N0; 'd>-c'c> 
q5-q9"N q5j<.-z"E0; '0a-32"N0; 'd>.-z"N0a-13"Ek''
q9,.x9-1ei g90u9q2joQIN'

0u1q2j-q3u3q8<0a-32"E%1.u:(1+100)'c>q1"EoNXT'
q3<q1wran+1u7 q:(7+100)ji  q1-q7<%7%:(7+100)> >oNXT'

q3"G 0u5 q2+q4j q4<0a-32"E0u7-1:S "Nc.u7'zu9:S "N.-1u9'q7,q9k-1u5i
0; '-c>q5"Eq2+q4-1ji-
-'q2joQIN'

!NXT!loLIN!END!

!*****
Quick/dirty text justifier, written as a joke. Written to  co-exist with
Super-editor as  a  parasite. Note: this  code inserts  2 ^X's into  the
buffer for the  duration  of its run, for    its own purposes.      Text
containing 2 adjacent ^X's will confuse/break its functionality. If JUST
is interrupted, the ^X's will certainly be  left behind in   the buffer,
and other bad things may happen to your text.

Assumes st pnt in 0 and width (or 0 or -1) in :74$
Uses (abuses) 0 (mark),1,2,3,4,5,7,8,9,Z and :101 to :n, n should be less
 than 170. by Scott Mayo, for no good reason...!