Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/conten.tec
There is 1 other file named conten.tec in the archive. Click here to see a list.
[1 [2 [3 [L [S [M [T [P [N [F [X EOUX 3EO
"?" for help
!ST!HK I:ER
File:
.U3
!NXCHR!UT
QT-10"E .-Q3"N -D' ONXCHR'
QT-63"E
Type the filespec of the (MACRO) program for which you want the table
of contents. Default ext. is .MAC. End with <CR>. OST'
QT-177"E .-1,.T :-D ONXCHR'
QT-25"E ^U OST'
QT-15"N QTI ONXCHR'
I J :S."F Z-1J I.MAC'
HXT MT"FNot Found. OST'
!ST2!HK I;Table of Contents for NAME:
.U3
!NXC!UT
QT-10"E .-Q3"N -D' ONXC'
QT-63"E
Type the name to be included in the "Table of Contents for <name>" head-
ing, which is included in the table (probably the program name).
end with <CR>.
OST2'
QT-177"E.-1,.T:-DONXC'
QT-25"E
OST2'
QT-15"NQTIONXC'
.U1 (66-.)/2U2 BJ C Q2<i > Q1+Q2J I
;
;
; Section Page
;
!FIRST!-1UN FIRST?
UT QT- Z"G QT-40UT'
QT-15"E NUT'
QT- N"N QT- Y"N
Type "Y" if you want to include the first SUBTTL in the table, "N" if
not (e.g. if it's the author's name). No <CR>.
OFIRST
'
%N
'
[Wait]
1UP HXC EY
!RESTART!
"E A "EORESTART''
!NEWPG!0UF :SSUBTTL"F ONXTPG'
QN"L %N ONEWPG'
!AGAIN!C
1A-15"N
1A-12"N
1A-11"N
1A-40"N
0,.K L .,ZK
J:S -- "S
<1A-40"N 0;' D>
5R
<1A-40"N 0;' D R>
5C
QM"G HXF
XL 4R .,ZK 13I 10I
ZUT GS
Z-(2*QT)"E QTJ I:B, QT\ IS
(Z-.-36)"G (z-.-36)D'
ZJ I
QTJ .,ZXT
MT"S OSAME'
'
HK GF J
:S -- "F OOPS...'
'
0UM XL 4R K 13I 10I
-XS HK I;
0UT QN-8"G%TQN-98"G%TQN-998"G%TQN-9998"G%T''''
4-QT<I > %N\ I. GS J GC HXC
!SAME! HK I;
0UT QN-9"G%TQN-99"G%TQN-999"G%TQN-9999"G%T''''
9-QT<I > QN\ I. %M\
0UT QM-9"G%TQM-99"G%TQM-999"G%T'''
3-QT<I > OCONT
'
0UM
XL HK I;
0UT QN-8"G%TQN-98"G%TQN-998"G%TQN-9998"G%T''''
4-QT<I > %N\ I.
!CONT!GL -2D J :S "S R K'
ZJ
Z-60"G 60J .,ZK '
I Z/2*2-Z"N I.'
62-Z/2<I .>
0UT QP-9"G%TQP-99"G%TQP-999"G%T''' 3-QT<I > QP\ 13I 10I
1UF J GC HXC '
'
QF"E OAGAIN'
'
'
!NXTPG!"E EY
!GETFF! "E A "EOGETFF'' %P
ONEWPG
'1et [Contents are in Q-reg C]
0et HK EF
QXEO ]X ]F ]N ]P ]T ]M ]S ]2 ]1 ]L