perm filename REF2.PUB[L70,TES] blob sn#048915 filedate 1973-06-12 generic text, type T, neo UTF8
00100	.PORTION REFERENCES
00200	.IF XCRIBL THEN
00300	.START
00400	.AT "≤" ⊂"%9"⊃;
00500	.AT "≥" ⊂"%*"⊃;
00600	.TURN ON "%" ;
00700	.END
00800	.ELSE
00900	.START
01000	.AT "≤" ⊂"↓_"⊃ ;
01100	.AT "≥" ⊂"_↓"⊃ ;
01200	.TURN ON "↓_" ;
01300	.END ;
01400	.TURN ON "#/", "λ" FOR "{"
01500	.ONCE CENTER
01600	≤REFERENCES≥
01700	.SKIP 2
01800	.INDENT 0,5
01900	.PREFACE 0
02100	.MACRO BOOK(TAG, AUTHOR, TITLE, DESCRIPTION) ⊂
02200	.IF ALLREFS OR TAG THEN
02300	.BEGIN GROUP SELECT 2 ;
02400	.TAG: NEXT REFERENCE ;
02500	λREFERENCE}%*#AUTHOR, ≤TITLE≥, DESCRIPTION
02600	.END ⊃
02700	.
02800	.MACRO ARTICLE(TAG, AUTHOR, TITLE, DESCRIPTION) ⊂
02900	.IF ALLREFS OR TAG THEN
03000	.BEGIN GROUP SELECT 2 ;
03100	.TAG: NEXT REFERENCE ;
03200	λREFERENCE}%*#AUTHOR, "TITLE", DESCRIPTION
03300	.END ⊃
03400	.
03500	.REQUIRE "REFS.PUB" SOURCE_FILE