home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / ibm370.tar.gz / ibm370.tar / ikmhdr.mss < prev    next >
Text File  |  1993-10-21  |  6KB  |  173 lines

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