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