ETU6HKY5XG5L4XDJ9L.,ZXNHKYHXSHKMS
!                   Bibliography System
                         DCIEM
This program has been revised so that it only accomplishes
 searches of files. 
A knowledge of TECO should not be necessary to use it.

              DIRECTORY
  q0 is reset for the ET flag in un
  u1 is search restriction
  q2 is line number (for search comparison.)
  q3 is number of successful searches
  q4 is garbage dump.
  q5 is TT flag for us.
  q6 is reset for the ET flag.
  q8 is counter for keyboard input.
  q9 is input from keyboard
  qa is strip number flag
  ua is search term
  ud is the date macro. NOTE: this is rt one RSXDATE.TEC should be put
				be put in for RSX
  ug strips numbers
  qh also tt flag in us.
  un is keyboard input macro
  uq is ewfile command
  ur is erfile command
  us is general search macro
!

!Number Stripping Macro!J<S
DD;-2D>
J<S
D;-1D>
J<:S$;FR>
!Date Macro!0U2U7(Q7&37)UD(Q7&1740)/40UE(Q7&176000)/2000U4 QD+72UD.U3
I/JANUARY/FEBRUARY/MARCH/APRIL/MAY/JUNE/JULY/AUGUST/
ISEPTEMBER/OCTOBER/NOVEMBER/DECEMBER/
Q3JQ4<S/>.U4S/Q4,.-1X4Q3J87DG4I QE\I, 19QD\
!Keyboard Input Macro!
ETU0 !START! 1u8 0UQ Q0#8ETU9
 (Q9-10)"EOSTART'
 (Q9-13)"EU4 1U5 OEND'
 (Q9-27)"E 1U7 1U5 OEND'
G8Q9I-1A !GETC! u9!ERR!
 (Q9-13)"EU4(Q8-1)"E1U5'OEND'
 (q9-127)"EQ8"G (ET&2)-1"G-1D-1%8Q0#1ET8328
                      Q0#40ET <*(-1);> Q0#8ET OGETC'
                        
\
2%Q 
                       <-1A2%Q-D-1%8u3(126-Q3);>
                        
\
 40ET <*(-1);> Q0#8ET
                        Q3u9OERR'
                        Q0#1ET

Q0ETOGETC'
 (Q9-27)"E 1U7 OEND'
 (Q9-21)"EQ8RET#1ETQQ%8
         Q8<8>Q8<-28*(ET&2)+88>Q8<8>
         ET&2"E10'0U80UQKOGETC'
Q9I-1A%8 (Q8-55)"G 
-S FRET#1ET(Z-.)<8-28*(ET&2)+888>


G8(Z-.)U8V40ET<*(-1);>Q0#8ET
ZJ'OGETC!END!Q0ET

Q6#1ET

                     ---SEARCH.TEC---
                        (revised!)

    This program allows you to search files created by ENTER.TEC
and direct the output to a different file of the same form or to
your terminal.

  Are you writing from a scope terminal? (y/n and don't hit the
                                          carriage return!)

(&1)*2%6Q6ET


                             0U58 Q6#1ET HKIER

INPUT DEV:FILENAME?        
 MN27IHXRHK

OUTPUT DEV:FILENAME [Default is your terminal]  
 MN27IJ::STT:"S1U5'HXQHK
I:EBGQ@I\"SY<J::S$&(^_);P>

You are adding to an existing file.
OFF'EW\GQ@I\!FF!\27IHXQHK
Q5UHQ5"EMQ'

Do you want the numbers removed? (y/n,and don't hit the
                                  carriage return!) 
 &1UA


Type a number to restrict the search to a particular category.
          1.-TITLE         7.-DATE
          2.-AUTHOR        8.-AD#
          3.-AUTHOR'S ADX  9.-FLAG
          4.-REPORT #      10.-KEYWORDS
          5.-SPONSOR       11.-HIGH-G REF. #
          6.-SPONSOR'S #   12.-JOURNAL OR BOOK.
Otherwise just a <CR>. 
         RESTRICTION:   
MN
J\U1HK


(Use a question mark for undefined characters.)

       SEARCH TERM:    
MN-1ED
J<:S  ;FR >j!  replace double spaces with single
!<:s ;fr19i>! replace spaces with ^S
!J<:S|;FR19I>
j<:S?;FR>! replace ? with ^X
!HXAHKMR0U3

***SEARCH BEGUN***

!TAG!"LOEND'<_QA;OHERE>"LOEND'
!HERE!
Q1"E qa"nmg'qH"NHT



'QH"EPW'HK%3OTAG'
0L(\-Q1)"E qa"nmg'QH"NHT



'QH"EPW'HK%3'LOTAG
!END!I

Q3\I ITEMS FOUND 
  FOR SEARCH TERM GAI
Q1"UI  NO RESTRICTIONS
'Q1"NI  RESTRICTED TO LINE Q1\I
'I  ON FILE GRRDI
  DATE: MD-L:SERFRZJI
QH"EPWEF'0EDQ6ETHTEWNL:ERNL:EX