@Comment[ Copyright (C) 1979 Brian K. Reid; all rights reserved]

@Marker(Device,CRT)
@Comment{

Device definition for paged files to be viewed on CRT screens.  Use
device FILE for unpaged documents.  No overstriking, underlining,
or any other text effects will be generated.

}
@Declare(GenericDevice="CRT",FinalName="#.DOC",
	 DeviceTitle="CRT Display")
@Declare(Driver LPT,Hunits inch,Hraster 10,Vunits inch,Vraster 6)
@Declare(Backspace available,BareCR available)
@Declare(PaperLength 24,Paperwidth 79,ScriptPush=Yes)
@Declare(LeftMargin 0,TopMargin 1,BottomMargin 1,LineWidth 79)
@DefineFont(CharDef,R=<ascii "CRT">,Y=<ascii "YLPT">)
@DefineFont(UserFont)
@Define(C,Capitalized,TabExport)
@Define(R,Underline off,Capitalized off,Overstruck 0,TabExport)
@Define(Plus,Script +1,TabExport)
@Define(Minus,Script -1,TabExport)
@Define(W,Spaces NoBreak,TabExport)
@Define(Y,FaceCode Y)
@Equate(T=R,I=R,U=R,UN=R,UX=R,B=R,P=R,V=C)
@Equate(G=noop,Z=noop,A=noop)
@Define(F0,TabExport)@Define(F1,TabExport)@Define(F2,TabExport)
@Define(F3,TabExport)@Define(F4,TabExport)@Define(F5,TabExport)
@Define(F6,TabExport)@Define(F7,TabExport)@Define(F8,TabExport)
@Define(F9,TabExport)
@Counter(Page,Numbered <@1>,Referenced <@1>,Init 1)
@Define(Hdg,Fixed 0,Nofill,LeftMargin 0,RightMargin 0,Spread 0,
	Spacing 1,
	UnNumbered,Underline off,Indent 0,Initialize "@TabClear()")
@Define(Ftg=Hdg,Fixed 24)
@Define(Text,Fill,Justification,Spaces compact,Break)
@Define(Multiple,Indent 0,SpecialCase OpenBefore)
@Define(Transparent)
@Define(Group,Group,Break)
@Define(Float,Float,Break)
@Define(Bspace,Break,Above 0,Below 0,Group,Nofill,LeftMargin 0,RightMargin 0)
@Define(Bpage,Floatpage,Break,Continue)
@Define(Pspace,Break,Above 0,Below 0,Group,Nofill,LeftMargin 0,RightMargin 0)
@Define(Verbatim,Break,Continue,Nofill,Spaces Kept,BlankLines kept,Spacing 1)
@Define(Format,Break,Continue,Nofill,Spaces Kept,
	BlankLines kept,Spacing 1,Justification off)
@Define(Insert,Break,Continue,Above 1,Below 1,LeftMargin +4,RightMargin +4,
	spacing 1,BlankLines kept)
@Define(Center,Break,Continue,Above 1,Below 1,Spacing 1,
	LeftMargin 0,RightMargin 0,
	Centered,BlankLines kept,Initialize "@TabClear()")
@Define(Flushright=Center,Centered)
@Define(Flushleft=Format,LeftMargin 0)
@Define(Heading,Use Center,Continue off,Use B,Use C,TabExport False)
@Equate(MajorHeading=Heading)
@Define(SubHeading,Use Insert,Indent 0,LeftMargin 0,Continue off,Use UX,TabExport False)
@Define(Display,Use Insert,Nofill,Use R,Group,Blanklines Kept,Spaces Kept,TabExport False)
@Define(Example,Use Insert,Nofill,Spaces Kept,Group,Blanklines Kept)
@Define(OutputExample=Verbatim,LeftMargin 2)
@Equate(InputExample=OutputExample)
@Define(ProgramExample=Example)

@Define(Itemize,Break,Continue,Fill,LeftMargin +5,Indent -5,RightMargin 5,
	numbered <- @,* >,NumberLocation lfr,BlankLines break,Spacing 1,Above 1,
	below 1,Spread 1)
@Define(Enumerate,Use Itemize,Leftmargin +6,Indent -6,
	Numbered <@1. @,@a. @,@i. >)
@Define(Description,Break,Above 1,Below 1,Fill,LeftMargin +16,Indent -999,Spaces tab,Spacing 1)
@Define(Quotation,Use Insert,Fill,Use R,BlankLines break,TabExport False,Spaces Compact)
@Define(Verse,Use Insert,Fill,Spaces Kept,Justification off,Crbreak,Use R,
	indent -3,Spread 0,LeftMargin +8,TabExport False)
@TextForm(Bar="@begin(format)@tabclear()@&-@end(format)")
@Define(Fnenv,Use Text,Above 1,Foot,Use R,LeftMargin 0,Indent 2,Spread 1,
	UnNumbered,Spacing 1,Break off,TabExport False)
@Define(FootSepEnv,Break,SaveBox <FootSep>,Nofill,LeftMargin 0,Above 0,Below 1)
@Equate(Enumeration=Enumerate,Itemization=Itemize)