Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/clerk.tec
There is 1 other file named clerk.tec in the archive. Click here to see a list.
!BEG!
3EOHK 1ET HXz13I 10I HXf!BEGA!0U233U9Qf= Insert the text: Qf=!GET!U1!BEG1!Q1-127"E ."N R T D'OGET'Q1-8"E ."N R D I 8I 2R T 2D' OGET'Q1-21"E Qf= 0L K OGET'Q1-7"E U5 Q5-32"E Qf= 0T OGET'
Q5-7"E OBEG'
Q1I Q5U1 OBEG1'Q1-18"E U1 Q1I OGET'Q1-Q9"N Q1IOGET'Q9-13"E'13U9Q2-1"E OLL'Q2-2"E OUU'Q2-3"E OOUT'ZJ ."E OEND' HXA HK!AGAIN!Qf= Lower bound: J 1U2 HK OGET!LL!J \\UL HKQL"E OBEGA'Qf= Upper bound: J 2U2 HK OGET!UU!Qf=
J \\UU HKQLU1 Q1-QU"G OAGAIN'GZ!LOOP!.UP GA QPJ
<S%%%; -3D Q1\\>!NOGOOD!
%1-QU"G HXZ OAGAIN'ZJ OLOOP
!END!Qf= File name: 3U2 HK 13U9 OGET!OUT!J IEW ZJ @I//
HXB MB HK GZ EX