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

!COM - Add comments to MACRO programs!

!To execute this macro, run TECO and type "EICOM$$".  The macro		!
!requests a file name, and then edits that file.  Each line is typed	!
!leaving the cursor after the last character.  You can then add any	!
!comments or text terminated by a carriage return, at which point COM	!
!will go on to the next line, etc.  When the file is complete, COM will	!
!perform an EX command and return to monitor mode.			!
!Special characters:							!
!	Line Feed	- Retype this line				!
!	Escape or ^Z	- Go to main TECO command level at once.	!
!			  (You can pickup where you left off by	typing	!
!			   EICOM again.)				!
!	^U		- Delete this entire line and go on to the next	!
!	^H or rubout	- Delete the previous character			!

[*]X
Q1-9876543"N HK 

FILE: 

!LOOP! ^TU1
(Q1-127)"E .-1,.T -D OLOOP'
(Q1-8)"E -D OLOOP'
Q1I
(Q1-10)"N OLOOP'





@I:: J IEB HXY HK MY'
!START! :N<15>"S
        R
!REP0!  0T
!REP1!  ^TUC
        (QC-127)"E(.-1,.)T-DOREP1'
        (QC-8)"E -D OREP1'
        (QC-21)"E0KK
***

      OSTART'
        (QC-13)"E ^TUC OEND'
        (QC-10)"E 

 :^o15,1^T OREP0'
        (QC-26)"E OOUT'
        (QC-27)"E



      OOUT'
        QCI
        OREP1
!END!   L OSTART
        '        !End of conditional begun at START!
        EX       !Close file and exit from TECO!

!OUT!  9876543U1 !Return to top-level TECO!