Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/coment.tec
There is 1 other file named coment.tec in the archive. Click here to see a list.
!COMENT -- INSERTS AND EDITS COMMENTS IN MACRO PROGRAMS !
!Similar to COM.TEC !
!Special characters: !
! ^A - Exit to top level TECO !
! ^B - Backup a line !
! ^H, rub - Delete previous character !
! cr - Go on to next line !
! SET UP !
[A [B [C [T [D
13I 10I .-2,.XD .-2,.K
OS
! SCAN THE LINE, COUNT CHARACTER POSITIONS, AND PUT IN SEMICOLON !
!LINE! 0L 0UC .UA
1A-13"N 1A-10"N OLOOK' 13I R' OSMPRT
!LOOK! 1A-9"E C QC+8&(-8)UC OLOOK'
1A-59"E .+1UB L2R 0T OCH'
1A-13"N 1A-32"N .+1UA' C %C OLOOK'
QC-31"G I OSMPRT'
!TAB;! 9I QC+8&(-8)UC QC-32"L OTAB;'
!SMPRT! I; .UB 0T
! GET INPUT !
!CH! UT
QT-127"E .-1,.T -D OCH'
QT-8"E -D OCH'
QT-3"L QB-."E QA,.K'
!C3! QD=
QT-1"E OE' -L OLINE'
QT-13"E QB-."E QA,.K'
!CR! L
!S! Z-."E P Z-."E OE'' OLINE'
QT-21"E QA,.K
!CU! ^U QD=
OLINE'
QT-27"E OEDIT'
QTI OCH
! EDIT THE LINE !
!EDIT! QD=
0L T 0UC
!EC! 1A-13"E OEI'
UT
QT-127"E .,.+1T 1A-9"E D OET2' D %C OEC'
QT-3"L OC3'
QT-8"E .UA L2R QA,.T OEI'
QT-13"E OCR'
QT-21"E OCU'
QT-27"E OEDIT'
QT-95"E
!EI! .UA .UB OCH'
QT-9"E
!ET! 1A-9"E C
!ET2! QC+8&(-8)UC OEC'
C 1A-13"E OEI' %C&7"E OEC' OET'
1A-9"E QC+1&7"N QT-32"E :9,1^T C OET2'
%C QTI OEC''
C %C QT-32"N -D QTI' OEC
! CLEAN UP !
!E! ]D ]T ]C ]B ]A