cpkhdr.mss

   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>")