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