home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB130 / sedsup05.arc / RNL05AC.LSR < prev    next >
Text File  |  1988-08-08  |  6KB  |  95 lines
  1. ;       **********
  2. ;               Adapting To The Hewlett-Packard LaserJet With The 92286J Math Elite Font Cartridge
  3. ;                                    Part A:  Formatting The First 20 Pages
  4. ;
  5. ;In the following line of commands, screen updating is turned off.  Then the cursor goes to the beginning of the file.
  6. ;Ruler 0 is loaded.  The default direction is set to forward.  Line mode is chosen for cutting or pasting, insert mode is
  7. ;chosen, and tab expansion mode is selected.  All tab characters are expanded from the beginning to the end of the file.
  8. ;       ----------
  9. :UOFF@BB0:GR:A0:SETB0:SETR1:SETT:RTAB@EB
  10. ;       **********
  11. ;Next, the cursor goes to the beginning of the file, and any control-Zs (end-of-file markers for text files) are eliminated.
  12. ;This ensures that if, as is likely, the file ends with a control-Z, it will not effectively prevent adding anything at the end of
  13. ;the file while this command file runs.  The cursor ends at the top of the document.
  14. ;       ----------
  15. @BB:RMSUB^E((:SUB\\\)0(:NS))(@BB)
  16. ;       **********
  17. ;Ruler 2 is chosen.  A line is opened and a set of printer codes is inserted to set the top and left margins to zero, the right
  18. ;margin to 96, the horizontal pitch to 12 characters per inch, and the text length to 66 lines.  Then a new line is opened, the
  19. ;cursor moves down one line, and a form feed is inserted.  The form feed   insures that the printer's buffer is cleared of any
  20. ;previous printing job and that the printer codes take effect before the first page appears.
  21. ;       ----------
  22. 2:GR:OL:I\&l0E &a0L &a96M (s12H&l66F\:OL+@V:I\ \
  23. ;       **********
  24. ;The cursor goes to the end of the document.  Fifty-one lines are inserted so that the last page is complete.  Next, the cursor
  25. ;goes to the beginning of the document.  All trailing spaces are removed from the ends of lines anywhere in the document.  The
  26. ;cursor goes to the end of the first line, and goes down one line.  Then six new lines are opened and the cursor moves down six
  27. ;lines.
  28. ;       ----------
  29. +@EB51:OL@BB:STRP@EB+@EL+@V6(:OL+@V)
  30. ;       **********
  31. ;The next line sets SEDT's internal counter to 1.  This is done to count pages in the file.
  32. ;       ----------
  33. +1:CNS
  34. ;       **********
  35. ;The next line formats the document with fifty-two lines of main text per page, inserts three lines of the bottom margin, and
  36. ;inserts a top margin of seven lines.  The page number is inserted into the bottom margin as a footer and is centered.  Since
  37. ;SEDT's internal counter is used to provide the page number, the counter is incremented after the page number is inserted.  A form
  38. ;feed ends each page.  The name of the newsletter is inserted into the top margin as a header and is centered.  If there are no
  39. ;more than 20 pages, then the cursor ends this section at the bottom of the document.  If there are more than 20 pages, then the
  40. ;remainder of the document is deleted.
  41. ;       ----------
  42. ^E(20(+52@EL3(:OL+@V):I\Page \:CNP:CNI:CL:OL+@V:I\ \3(:OL+@V):I\VARUG Newsletter\:CL3(:OL+@V)))(@EB)
  43. ;       **********
  44. ;Ruler 0 is chosen, and the cursor moves to the beginning of the text.
  45. ;       ----------
  46. 0:GR@BB
  47. ;       **********
  48. ;Every '' is replaced by a space.
  49. ;       ----------
  50. ^E((:SUB\\ \)0(:NS))(@BB)
  51. ;       **********
  52. ;The screen code #6 for double-width characters is replaced by the printer code (s10H for ten characters per inch, the most
  53. ;expanded pitch available with the font cartridge used.  At the end of the line affected, the code (s12H for twelve
  54. ;characters per inch is inserted.
  55. ;       ----------
  56. ^E(100000(+@F\#6\3(:D+@C)-@EL:I\(s10H\+@EL:I\(s12H\))(@BB)
  57. ;       **********
  58. ;The next two lines handle subscripts by moving the cursor down a half-line, converting the pitch to 16.6 characters
  59. ;per inch, then bringing the cursor back up a half-line, and returning to twelve characters per inch.  In the original
  60. ;text,   begins every subscript, and A ends the subscript.  On the printer, &a+.5R causes a one-half forward line feed,
  61. ;while (s16.6H converts to 16.6 characters per inch.  The printer code &a-.5R moves the cursor up a half-line, while (s12H
  62. ;restores the twelve character per inch pitch.
  63. ;       ----------
  64. ^E((:SUB\ \&a+.5R(s16.6H\)0(:NS))(@BB)
  65. ^E((:SUB\A\&a-.5R(s12H\)0(:NS))(@BB)
  66. ;       **********
  67. ;The next two lines produce superscripts much as the preceding lines got subscripts.  In the text, M begins a superscript,
  68. ;while D ends it.
  69. ;       ----------
  70. ^E((:SUB\M\&a-.5R(s16.6H\)0(:NS))(@BB)
  71. ^E((:SUB\D\&a+.5R(s12H\)0(:NS))(@BB)
  72. ;       **********
  73. ;The screen code  for underlining is converted into the corresponding printer code &dD.
  74. ;       ----------
  75. ^E((:SUB\\&dD\)0(:NS))(@BB)
  76. ;       **********
  77. ;The screen code  for bold type is converted into a corresponding printer code (s5B.
  78. ;       ----------
  79. ^E((:SUB\\(s5B\)0(:NS))(@BB)
  80. ;       **********
  81. ;The screen code  for inverse video is converted into the printer code (s1S for italics.
  82. ;       ----------
  83. ^E((:SUB\\(s1S\)0(:NS))(@BB)
  84. ;       **********
  85. ;The screen code  for normal video is converted into the printer codes &d@(s0B(s0S for medium dark print, no underlining,
  86. ;and upright type.  The cursor ends at the bottom of the text.
  87. ;       ----------
  88. ^E((:SUB\\&d@(s0B(s0S\)0(:NS))(@EB)
  89. ;       **********
  90. ;The cursor searches back to the last form feed, which marks the end of the last page.  The cursor then moves down one line.  All
  91. ;remaining lines are deleted.  The cursor finally goes to the beginning of the text.  Screen updating is turned on again, and the
  92. ;screen is refreshed.
  93. ;       ----------
  94. -@F\ \@V:D+@EB@BB:RF
  95. ;