]>
Commit | Line | Data |
---|---|---|
c25f6a44 L |
1 | @Comment(-*-SCRIBE-*-) |
2 | @Comment(SCRIBE Text Formatter Input for the CP/M-80 Kermit User Guide) | |
3 | ||
4 | @Make<Manual> | |
5 | @device(postscript) | |
6 | @Comment(Use /draft:F on command line to produce .LPT file w/cc in column 1) | |
7 | ||
8 | @case(device,postscript="@LibraryFile<Mathematics10>") | |
9 | ||
10 | @String<Ellips="..."> | |
11 | ||
12 | @Style<Spacing 1, Spread 1, Indent 0, HyphenBreak Off, SingleSided> | |
13 | ||
14 | @case<device,file="@style(justification off,hyphenation off)", | |
15 | else="@Style(Justification On, Hyphenation On, WidestBlank 1.4)"> | |
16 | ||
17 | @Use<Hyphendic="kuser.hyp"> | |
18 | @Modify<IndexEnv,Boxed, | |
19 | Columns 2,ColumnMargin 0.5inch,LineWidth 2.2inch,ColumnWidth 2.7inch> | |
20 | ||
21 | @Comment(Set desired spacing around various environments) | |
22 | ||
23 | @Modify<Quotation,Indentation 0, Above 1, Below 1, Spacing 1> | |
24 | @Modify<Example, Above 1, Below 1, Blanklines Hinge> | |
25 | @Modify<Verbatim, Leftmargin 0> | |
26 | @Modify<Itemize, Above 1, Below 1, Spacing 1, Spread 1> | |
27 | @Modify<Enumerate, Above 1, Below 1, Spacing 1, Spread 1> | |
28 | @Modify<Description, Above 1, Below 1, Spacing 1> | |
29 | @Define<MD,Use Display> | |
30 | @Define<Q,FaceCode R> | |
31 | @Define<QQ,FaceCode R,AfterEntry=["],BeforeExit=["]> | |
32 | @Define<SubH,Use Display,FaceCode R,Above 1.6,Below 1> | |
33 | @Define<SubU,Use UX,FaceCode R,Above 1.6,Below 1,need 6> | |
34 | @define<xx,use b> | |
35 | @define<yy,use i> | |
36 | ||
37 | @Comment(Printing Device Dependencies) | |
38 | ||
39 | @Case{Device, | |
40 | LPT="@use(Auxfile='CPMLP.AUX') | |
41 | @Case[Draft,F=`@Style(CarriageControl=FORTRAN)'] | |
42 | @Style(linewidth 79) | |
43 | @Define<SubH,Use Display,FaceCode B,Above 1.6,Below 1>", | |
44 | Printronix="@use(AuxFile='CPMPX.AUX') | |
45 | @Case[Draft,F=`@Style(CarriageControl=FORTRAN)'] | |
46 | @Style(LineWidth 74, PaperLength 11 inches,BottomMargin 5 spacings)", | |
47 | PagedFile="@use(AuxFile='CPMPF.AUX') | |
48 | @Style(LineWidth 79, PaperLength 10.8 inches) | |
49 | @Style(TopMargin 3 spacings,BottomMargin 6 Spacings) | |
50 | @Modify(Example,Leftmargin +2)", | |
51 | Diablo="@Use(Auxfile='CPMDIA.AUX') | |
52 | @TypeWheel(Titan 10) | |
53 | @Define<SubH,Use Display,FaceCode B,Above 1.6,Below 1>", | |
54 | Postscript="@Use(Auxfile='CPMPS.AUX') | |
55 | @Style<Doublesided> | |
56 | @Style<Fontscale 10> | |
57 | @Define<MD,Use Mathdisplay> | |
58 | @String<Ellips='@Math(@Ldots)'> | |
59 | @Define<xx,use b,Size 12> | |
60 | @Define<yy,use i,Size 10> | |
61 | @Define<Q,FaceCode T> | |
62 | @Define(QQ,FaceCode T,AfterEntry=[@r<``>],BeforeExit=[@r<''>]) | |
63 | @Define<SubH,Use Display,FaceCode B,Above 1.6,Below 1> | |
64 | @Modify<Quotation,Size +0> | |
65 | @Modify<Itemize,Spread 0.8>", | |
66 | Imprint10="@Use(AuxFile='CPMIMP.AUX') | |
67 | @Define<Q,FaceCode U> | |
68 | @Define(QQ,FaceCode U,AfterEntry=[@r<``>],BeforeExit=[@r<''>]) | |
69 | @Define<SubH,Use Display,FaceCode B,Above 1.6,Below 1> | |
70 | @define<xx,use b,font bodyfont> | |
71 | @define<yy,use i,font bodyfont> | |
72 | @Modify<Insert,Spacing 1> | |
73 | @Modify<Verbatim,FaceCode U> | |
74 | @Modify<Example,FaceCode U,spacing 1.2> | |
75 | @Modify<Itemize,Spread 0.8> | |
76 | @Style<FontFamily SmallRoman12,Spacing 1.6,SingleSided>", | |
77 | Imagen300="@Use(AuxFile='CPMIM3.AUX') | |
78 | @Define<Q,FaceCode U> | |
79 | @Define(QQ,FaceCode U,AfterEntry=[@r<``>],BeforeExit=[@r<''>]) | |
80 | @Define<SubH,Use Display,FaceCode B,Above 1.6,Below 1> | |
81 | @define<xx,use b,font bodyfont> | |
82 | @define<yy,use i,font bodyfont> | |
83 | @Modify<Insert,Spacing 1> | |
84 | @Modify<Verbatim,FaceCode U> | |
85 | @Modify<Example,FaceCode U,spacing 1.2> | |
86 | @Modify<Itemize,Spread 0.8> | |
87 | @Style<FontFamily SmallRoman12,Spacing 1.6,SingleSided>", | |
88 | X9700="@Use<AuxFile='CKX9.AUX'> | |
89 | @Style<FontFamily Univers10, DoubleSided, Spacing 0.9, Spread 0.8> | |
90 | @Style<Scriptpush No> | |
91 | @define<xx,use b,font bodyfont> | |
92 | @define<yy,use i,font bodyfont> | |
93 | @Define<Q,FaceCode U> | |
94 | @Define(QQ,FaceCode U,AfterEntry=[@r<``>],BeforeExit=[@r<''>]) | |
95 | @Define<SubH,Use Display,FaceCode B,Above 1.6,Below 1> | |
96 | @Modify<Description,Spacing 0.8,Spread 0.75> | |
97 | @Modify<Quotation,Spacing 0.8,Spread 0.75> | |
98 | @Modify<Enumerate,Spacing 0.8,Spread 0.75> | |
99 | @Modify(Verbatim,Spacing 0.8,Spread 0.75,FaceCode U) | |
100 | @Modify<Example,FaceCode U, Spacing 1.1> | |
101 | @Modify[Itemize, Numbered <\ 4 @,- >, Spacing 0.8, Spread 0.5]" | |
102 | } | |
103 | @Comment(Set spacing and paging requirements for chapter & section headings) | |
104 | ||
105 | @Modify(Hdx,Above 2,Below 1,Need 8) | |
106 | @Modify(Hd0,Above 2,Below 1,Need 8) | |
107 | @Modify(Hd2,Above 2,Below 1,Need 8) | |
108 | @Modify(Hd3,Above 2,Below 1,Need 8) | |
109 | @Modify(Hd4,Above 2,Below 1,Need 8) | |
110 | @Modify<Heading, Above 2, Need 8> | |
111 | @Modify<Subheading, Above 1.5, Need 6> | |
112 | ||
113 | @Pageheading<> | |
114 | @Begin(TitlePage,Initialize "@BlankSpace(2.4inches)",sink 0) | |
115 | @MajorHeading(CP/M-80 KERMIT VERSION 4.11 USER GUIDE) | |
116 | ||
117 | ||
118 | C. Gianone | |
119 | ||
120 | Columbia University Center for Computing Activities | |
121 | New York, New York 10027 | |
122 | ||
123 | ||
124 | @i<April 23, 1991> | |
125 | ||
126 | ||
127 | ||
128 | Copyright (C) 1981,1991 | |
129 | Trustees of Columbia University in the City of New York | |
130 | ||
131 | @i<Permission is granted to any individual or institution to use, copy, | |
132 | or redistribute this document so long as it is not sold for profit, and | |
133 | provided this copyright notice is retained.> | |
134 | @case[device, x9700="@blankpage(1)"] | |
135 | @end<titlepage> | |
136 | @PageHeading(Odd,Immediate, | |
137 | Left="@xx<@Value[SectionNumber]. @Value[SectionTitle]>", | |
138 | Right="@yy<Page @ref(page)>", | |
139 | Line="@bar()@blankspace(2)") | |
140 | @PageHeading(Even, | |
141 | Left="@yy<Page @ref(page)>", | |
142 | Right="@xx<Kermit User Guide: @Title(Chapter) @Value[SectionNumber]>", | |
143 | Line="@bar()@blankspace(2)") | |
144 | @set(page=1) | |
145 | @Include<cpkerm.mss> | |
146 | @PageHeading(Odd,Immediate, | |
147 | Left="@xx<CP/M-80 Kermit>", | |
148 | Right="@yy<Page @ref(page)>", | |
149 | Line="@bar()@blankspace(2)") | |
150 | @PageHeading(Even, | |
151 | Left="@yy<Page @ref(page)>", | |
152 | Right="@xx<Kermit User Guide>", | |
153 | Line="@bar()@blankspace(2)") | |
154 | @Case(Device,x9700="@Comment<Begin Duplex Kludge> | |
155 | @SendEnd(#Index `@begin<Transparent,PageBreak UntilOdd>@end<Transparent>') | |
156 | @Comment<End Duplex Kludge>") |