Trailing-Edge
-
PDP-10 Archives
-
decuslib20-05
-
decus/20-0151/qpqrys.seq
There are 4 other files named qpqrys.seq in the archive. Click here to see a list.
**MCF-CROSS-REFERENCE
Open mcf-cross-reference $
Rpthead "MCF Cross Reference//by Included file" $
Notitles $ Lmargin 20 $
If Included-file = spaces
Go to nr $
If newgrpvalue of Included-file or X-switch = zero
Print 1,
Print Included-file, 1, "is referenced by",
Set X-switch to 1,
Set X-flag to 1 $
If newpage
Print Included-file, 1, "(continued)" $
If newgrpvalue of MCF-file-name or X-flag = 1
Reset X-flag,
Print 60, Mcf-file-name $
**MCF-REFERENCE
Open mcf-cross-reference $
Rpthead "MCF Cross Reference//by MCF" $
Notitles $ Lmargin 20 $
If Included-file = spaces
Set Included-file to "(none)" $
If newgrpvalue of MCF-file-name or firstime
Print 1,
Print MCF-file-name, 1, "references",
Set X-flag to 1 $
If newpage
Print MCF-file-name, 1, "(continued)" $
If newgrpvalue of Included-file or X-flag = 1
Reset X-flag,
Print 60, Included-file $