File RTIN.TE (TECO editor macro file)

Directory of image this file is from
This file as a plain text file

J:S."FZJ@I/.DI/! Force .DI ext
!HXA! name into Q-reg. A
!HKGY!get macro!J2SFILE-4DGA! insert file name
!J2SSTART!0,.K! remove setup
!!START!^AEnter desired extension:!
!!INLOOP!^TI-1A-13"EOENDIN'! ext done
!-1A-127"E!rubout!.-1"NRD.-1,.TRD'OINLOOP'!delete it
!OINLOOP! not special
-DHXA! store ext in Q-reg. A
!HKEnter output device name:!
!!DEVLOOP!^TI-1A-13"EOALLDONE'! device dOne.
!-1A-127"E!rub!.-1"NRD.-1,.TRD'ODEVLOOP' !echo deleted and loop
!ODEVLOOP! leave this in buffer
-DHXG! store device name
!HKERFILE!open input file!EWTECBAT.TM!open batch stream output
!2UF!Set up line ctr!@I/$JOB
/!MORE!A! get input & count lines
!1UB!   line counter
!-L:S."FQEJKOENDPACK'! a valid line has a . (before ext)
!.-QC">QEJKoENDPACK'! delete lines without .'s
!QEJ.,.+6XD! put file name in Q-reg. D
!0L@I/*/GGGD@I/./GA! build "*name.ext"
!@I/</10C! insert "<" then skip name
!@I&/I&! insert /I switch
/!ENDPACK!>J<@FS/ //>J<@FS/#/ />! kill blanks
!^N"EHPWHK0UFOMORE'! work on rest of file
/EGSUB TECBAT.TM/T! close out and start batch file

Feel free to contact me, David Gesswein with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search