Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - 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 $