perm filename BASIC.PUB[T,LSP] blob sn#637577 filedate 1981-10-03 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00007 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	. DEVICE XGP
C00008 00003	.<< Print in //italics/ or boldface. >>
C00010 00004	.<< Print page headings on XGP (using boldface) before new page started. >>
C00012 00005	.<< Set line spacing to new value. >>
C00014 00006	.<< Start text justification. >>
C00015 00007	.<< Set up for body of text. >>
C00016 ENDMK
C⊗;
. DEVICE XGP;
.
.
. SIDES ← 1;
.<< Set up fonts and text responses for device selected. >>
.
.
.<< Turn on quote character ("α") and font switching character ("%"). >>
.
.TURN ON "α%";
.
.<< Declare Baskerville fonts, FIX25 for special characters, and SUP for footnote
.numbers. >>
.
.FONT 1 "FRACT2[T,LYN]";     <<modified BASL30>>
.FONT 2 "BASI30";
.FONT 3 "BASB30";
.FONT 4 "FIX25";
.FONT 5 "SUP";
. FONT 6 "DIA2.FNT[T,LYN]";
. FONT 7 "MTEXT.FNT[T,LYN]";
.
.
.<< a sharp, flat, and alla breve time signature.  >>
.
.AT "##" ⊂ "%7α#%*"; ⊃;
.AT "#b" ⊂ "%7αb%*"; ⊃;
.AT "#C" ⊂ "%7αC%*"; ⊃;
.AT "#≠" ⊂ "%7α≠%*"; ⊃;
.AT "#4" ⊂ "%64%*"; ⊃;
.AT "#≥" ⊂ "%6≥%*"; ⊃;
. 
.
.<< Put in ligatures in all three Baskerville fonts. >>
.
.AT "ffl" ⊂ IF 1 ≤ THISFONT ≤ 3 THEN "α∞" ELSE "αfαfαl"; ⊃;
.AT "ffi" ⊂ IF 1 ≤ THISFONT ≤ 3 THEN "α≠"  ELSE "αfαfαi"; ⊃;
.AT "ff"  ⊂ IF 1 ≤ THISFONT ≤ 3 THEN "α≥"  EHSE "αfαf"; ⊃;
.AT "fi"  ⊂ IF 1 ≤ THISFONT≤ 3 THAN "α≡" ELSE "αfαi"9 ⊃;
.AT  ¬MXD@ A∪_@b@8↓)⊃∪'→∨⊂~Q↓a↓Mα$B⊗)↓⊂⊂⎇	↓∧*2N∃α⊂_b⊃eEXh)84Rqqaαπ∪?['&)αOS∞s∪?K αεN∞LIβ∂#∂∪π∂S/∪@~εmzBε∂l≥⊗f∞-HRεNdλ&∂≡<XNm;≠→%@⊂∨∨εB↔εE↔⊂h⊂⊃βIQ⊂λ⊂λ↓∩Q; ⊃3
,AT "¬" ⊂ IF 18A)⊃%'
∨≥P@8@f↓)⊃≤α↓∩@ R*R$λTe≤T∧ ⊂*'0↓XQ%d
α∧ b$∧λ∩(d∃∩∩*8SsU∧παP⊂⊃THEN@	¬H⊂1∃)	∧*2N∃α⊂λ→	ZEl4RrεA↓⊃!∩↓∧	∀2¬I	∃≤4yjBβ@(λλ@ THEN@	+ "B*R$λTe≤T∧ ⊃α'0λα↔c"KH~α⊂⊃
λα ⊂ IF THISFONT 8
@@⊂∧¬$DY`λ∧⊂¬1α~%*" ELSE "α~";"v~∀9β ⊃↓⊃Y∩↓∧	∀2β∀βB¬$α∩4hiqQ⊂π⊂→P*∩ ¬N "%0
6α))	α,bN∃↓⊂⊂m	@4α∪@1"KP*DλC ⊃λλ⊂$cλ_P∞⊂∃$ 	SFLπ⊂~Q↓a↓MααI∧,@Hλ@∩M↓∞RUλα ELSE "α≥ ∧v@"l~∀]βP@D<DαAα_dβ
↓βλ∃		4qSiJλπλε4∃∩⊃)@⊂⊃∩Z∂∩U⊃λ f)bH⊃↓π"8ε@"v4∀\~∀8xpAπ=]eKePAao↑↓ckGGα+@∨≡≡lR∧⊗≤8
l↑]Z0⊗≠2P4<\42w9H4w:7H2rP2_yt↔∂∨εE↔βE↔ jλ⊃⊗VAλ⊂λ⊂$Q⊂_P∞λ*$$iQ'g*π⊂→P*∩ ¬N "α¬" ELSE "α--"≠ ⊃3
.λ
∀\pxAMSβA↓9%∧≠?;O'∪W∂S~q↓↓yph)84Rqqbε"↓∩r∀ ↓αα%a∩α∩α↔2αβgaPRpQ%`hRaQ"cCD	V∞↑T∞WαεM≤⊗∨⊗≤¬~,<;≤hπgC"KAQKP5∧∧NX(Dαλλ@∩Mαα0∀J)BD@"l~∀]βP@Du↑λ@ @D∀hλ	I*S=	X4):
!↓	K*⊃A↓∩)P⊂∪αI*NTH∧.aQKP5∧∧Ix(DαλλI&@↓∪RU_Q⊂λMCE↔ jλ⊃∪rQλλ⊂⊃∩Mαα'%*e" ⊃;
.AT "'o" ⊂ "%4∧∧NJ)↑D@"l~∀]βP@DOjλ@ @D∀hλ	≥*SU	X4):
!↓	≡*⊃A↓∩)P⊂∩tU%*∩α↔0hRh~Bα⊗∀"↓α∧$S  X	*L∀H∧.aQKP5∧∧X→(DαλλI&@↓0∩U→Q⊂λ]CE↔ jλ⊃07Qλλ⊂⊃∩Mαα`%*o" ⊃;
.AT "`u" ⊂ "¬4∧¬@J)jD@"l~∀]βP@DNNα⊃A↓⊂⊃≥	X4):
!↓λ∪
⊃A↓∩)Pλ⊃*S¬	X4):
!↓λ∪*⊃A↓∩)Pλ⊃*S∃	X4):
!↓λ∪J⊃A↓∩)Pλ⊃*S%	X4):
!↓λ∪z⊃A↓∩)Xλ⊃*S=	X4):
!↓λ∪*⊃A↓∩)Xλ⊃*SU	X4):
!↓	3~⊃A↓∩)X	1*S
	X4):
!↓	/"⊃A↓∩)X	-*SQ	X4):
!↓	2~⊃A↓∩)X	1*R
	X4):
!↓	.~⊃A↓∩)X	-*RM	X4):
!↓	7
⊃A↓∩)P	5*S¬	X4):
!↓	jz⊃A↓∩)P	i*R=	X4):
!↓	k*⊃A↓∩)P	I*S∃	X4):
!↓	kJ⊃A↓∩)P	I*Se	X4):
!↓	j*⊃A↓∩)P	I*RU	X4):
!↓	≡*⊃A↓∩)P⊂∩tU$*∩α↔0hRh~Bα∩⎇∀"↓α∧$S ∩tU&J∩α↔0hRh~Bα∩tpλDαλλ@DtH∧.aQKP5∧∧IwλDαλλ@EtH∧.aQKP5∧∧G|HDαλλI&@↓∂RU≤⊃⊂λ]CE↔ jλ⊃∂yQλλ⊂⊃∩M↓∂RU≤Q⊂λ]CE↔ jλ⊃∂⎇⊃λλ⊂⊃∩M↓∂RU≡⊃⊂λ]CE↔ jλ⊃-`f∀$.Q⊂∧⊂⊃∩Z↓∩U⊃λλ]FE j⊂⊃⊗`i)'UnQ⊂λλ⊃∩Z↓RU⊃⊂∧]FE↔⊂j⊂⊃-Q'j.Qλλ⊂⊃∩M↓↔∩Uλ⊂λ]FB↔ j⊂λ-dg#↔Q⊂λ⊂λ∩Z↓π	U⊃⊂λNFE↔εB↔εE↔∂≡⊂"4Yryz⊂≠:vq2\⊂7s⊂≤tr2yH82y⊂≤0srP_w2⊂1[v:vw≤P82iλ9tr2K⊂∨∨εB↔εE↔λ⊂)db⊃iP/P]FE↔∂≡⊂)r]⊂:x⊂≤0srP→90vrH0s2⊂gf&g∀P6pq\7P37\⊂9rv→qz2rλ22{4XrW⊂∨∂εE↔εB↔⊂+ T$`a&⊃P( cQL$"dQd*⊗⊂∀ cbL∃db*$∞FE↔εB↔⊂⊂'Q"&"c∃!'i"⊃i/bk⊃g&"c∃!'i"⊃i/XYMZ]FE⊂⊂&&Pi#oX∞FE↔λ*'h!∪i""i↔ZX_≥CE↔⊂⊂∀ cbL∃db*$↔i&`i⊃o[[≥CE↔⊂⊂∀ cbL∩"dcd∃/ZZ≥CE↔⊂⊂∀ cbP⊃) fbH( cbF+db*∩⊂+db⊃P( cQL$"dQd*⊂$∩cd≥FB↔⊂⊂⊂⊂i"`P∃"l*⊂∪$g"iH~⊂*'H~Y]FB↔⊂⊂*∩j&"P⊂i"`P∩"`b$S#P&$S iP_H*'P→NFE↔⊂λ*$j&⊃P i"PP#'gU$g#P∪$g"P
Z≥FE⊂⊂!gS)P/P]FE↔λ⊂)ig⊂fbP/H'*f&∞FE↔λ(& aQP*"l∃≥FE↔λ⊂'"l∃⊂( cQ]FE↔βEβ↔≡≡⊂∀94w:λ4w⊂↔Ktz0v~qyWP≠y⊂_7v23_qrK↔λ∨∨εEεE↔ U⊂⊃↔WH⊂"g*∀,P⊃↔HεE↔∧DεE↔∧S ij#∪g*_P↔P*$$Tc'g*∞FE↔∧J⊃∩Y"S*),RH⊂∪⊂&⊂ij#'S*_T]CE↔∧HNFE↔εB↔ j⊂λ⊃⊂⊃g*),H⊃⊃εB↔∧HεB↔∧f Tj#'g∃→⊂/P∃$$ic∪e*≥FB↔∧T⊃	Ybg*∀,RQ⊂	⊂& iU#'g*∀]FE∧H]FB↔εE.<< Print page headings on XGP (using boldface) before new page started. >>
.
.
.
.RECURSIVE MACRO STANDARD TITLES
.	⊂
.	NOFILL;
.	TURN ON "←→{";
.	PREFACE 0;
.	INDENT 0,0,0;
.	PLACE HEADING;
.	SELECT 3;
.	!EH;
.	PLACE FOOTING;
.	!EF;
.	⊃;
.
.<< Set line spacing to new value. >>
.
.MACRO SPACES(NUMSPACES)
.	⊂
.	IF NUMSPACES > 0
.		THEN
.			START "SET NEW INTER- AND INTRA-PARAGRAPH SPACING"
.			BREAK;
.			PREFACE NUMSPACES;
.			SPACING NUMSPACES-1;
.			END "SET NEW INTER- AND INTRA-PARAGRAPH SPACING"
.		ELSE USERERR("SPACES argument not positive integer");
.	⊃;
.<< Start text justification. >>
.
.MACRO JUSTIFY
.	⊂
.	FILL;
.	ADJUST;
.	RETAIN;
.	⊃;
.
.<< Set up for body of text. >>
.
.  PORTION MAIN
.
.  EVERY HEADING(,,{PAGE!});
.
. SELECT 1;
. JUSTIFY;
. COUNT PAGE FROM 1 TO 999;
. NEXT PAGE;
. SPACES 2;
. INDENT 5;