Google
 

Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/macros/decide.tec
There is 1 other file named decide.tec in the archive. Click here to see a list.

[a[b[c[d[e[f[g[t[1[2[3[4          .u1               0u2               esu3              0es
0u4
0ua 0ub 0uc 0ud 0ue 0uf 0ug 0ut



i!get!
uc            
qc-33"e         q1-."e                              
              ogotit'        
r1a-18"n          c                 

ogotit'        d'             
qc-177"e        q1-."n                              r                 
1a-13"l
1a-9"g
q2-1u2''                              1a-13"e            q2"e                                  

q1,.t              d                  oget'           
.ut                -sl         
               .,qtt              qtj                d                  oget'           
d                  '           oget'           
qc-10"e          q1-."n             r                  
!Is this an end of line!
1a-13"l
1a-9"g
q2-1u2''           1a-13"e            q2"e               
               q1,.t              d                  oget'             
.ut                  -sl           
                 .,qtt                qtj                  d                    oget'             
d'                   oget'             
qc-15"l
qc-11"g
%2''                 
qc-25"e            
                 q2"e                 q1,.k                oget'             
0k                   oget'             
qci               oget              
!gotit!


q1,.xg
q1,.k

S or N search?      
!srchtyp!
uc           
             
qc-140"g     qc-40uc'   
qc-H"e     Type S to search only on this page, N to search over pages

osrchtyp'   
qc-N"e     1ue          ofirstrg'   
qc-S"n    S or N?   osrchtyp'  


!firstrg!

First string (end with an altmode): 
mg                
q1-."e            % Null string illegal
                ofirstrg'        
q1,.xa            q1,.k             
Replacement string: 
[2                0u2               
mg                                  
q1,.xb            q1,.k             
[2]4[2                              

Commands are E, G, N, Y, <blank>, <CR>, <LF>, I, /, or \.
Type H for help.



!again!

qe"e              :sa"e                                                       ofinish'            osearch'            
:na"e                                ofinish'           

!search!
i|                  -q2tt                                    -d                   

!input!
uc                 qc-140"g            qc-40uc'           
qc-E"e              xit
                    ofinish'             
qc-N"e              o  [Rejected]
                    oagain'              
qc-Y"e              es                !yes![Accepted]

-fsab                                 
qf"n                  -q4tt'                oagain'              
qc-15"e                                 oyes'                
qc-12"e             oyes'                
qc- "e              oyes'                
qc-G"e              o
                    -fsab           qf"n                  -q4tt'                
qe"e                                        <fsab;                                qf"n                                        -q4tt'                >ofinish'            
<fnab;                                qf"n                                        -q4tt'                >ofinish'            
qc-H"e              elp

Commands:

Exit	Don't perform this substitution, halt the search, and
	return to command mode.
Go	Do this substitution, continue searching, but suppress further
	decide mode stopping.
Help	Type this text.
No	Don't perform this substitution, but continue searching.
Yes, blank, CR, or LF	Perform this substitution and continue searching.
I       Delete the string found and allow you to insert a replacement.
/       Print the line(s) after the replacement is made.
\       Do not print the line(s) after the replacement is made
        (default).



!shostrng!
i|                   -q2tt                 -d                    oinput'              
qc-/"e              1uf                                                               
                    oshostrng'           
qc-\"e              0uf                                           
                      oshostrng'             
qc-I"e                [2                                                                      nsert
New string (end with an altmode): 
-fsa            .u1                   mg                  ]2                  qf"n                -q4tt'              oagain'            
What?

oinput             
!finish!             q3es                 ]4]3]2]1]t]g]f]e]d]c]b]a