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 / RNL05C.EPS < prev    next >
Text File  |  1988-11-27  |  5KB  |  90 lines
  1. ;       **********
  2. ;                                                  Adapting To Epson Printers
  3. ;
  4. ;In the following line of commands, screen updating is turned off.  Then the cursor goes to the beginning of the file.
  5. ;Ruler 0 is loaded.  The default direction is set to forward.  Line mode is chosen for cutting or pasting, insert mode is
  6. ;chosen, and tab expansion mode is selected.  All tab characters are expanded from the beginning to the end of the file.
  7. ;       ----------
  8. :UOFF@BB0:GR:A0:SETB0:SETR1:SETT:RTAB@EB
  9. ;       **********
  10. ;Next, any control-Zs (end-of-file markers for text files) are eliminated.  This ensures that if, as is likely, the file ends
  11. ;with a control-Z, it will not effectively prevent adding anything at the end of the file while this command file runs.  The
  12. ;cursor ends at the top of the document.
  13. ;       ----------
  14. @BB:RMSUB^E((:SUB\\\)0(:NS))(@BB)
  15. ;       **********
  16. ;Ruler 2 is chosen.  A line is opened and a printer code is inserted to set the print mode to near letter quality.  Then a new
  17. ;line is opened and the cursor moves down one line.
  18. ;       ----------
  19. 2:GR:OL:I\x1\:OL+@V
  20. ;       **********
  21. ;The cursor goes to the end of the document.  Fifty-one lines are inserted so that the last page is complete.  Next, the cursor
  22. ;goes to the beginning of the document.  All trailing blanks are stripped from the ends of lines anywhere in the document.  The
  23. ;cursor goes to the end of the first line, and goes down one line.  Then four new lines are inserted and the cursor moves down
  24. ;four lines.
  25. ;       ----------
  26. +@EB51:OL@BB:STRP@EB+@EL+@V4(:OL+@V)
  27. ;       **********
  28. ;The next line sets SEDT's internal counter to 1.  This is done to count pages in the file.
  29. ;       ----------
  30. +1:CNS
  31. ;       **********
  32. ;The next line formats the document with fifty-two lines of main text per page, inserts three lines of the bottom margin, and
  33. ;inserts a top margin of seven lines.  The page number is inserted into the bottom margin as a footer and is centered.  Since
  34. ;SEDT's internal counter is used to provide the page number, the counter is incremented after the page number is inserted.  A form
  35. ;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
  36. ;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
  37. ;remainder of the document is deleted.
  38. ;       ----------
  39. ^E(20(+52@EL3(:OL+@V):I\Page \:CNP:CNI:CL:OL+@V:I\ \3(:OL+@V):I\VARUG Newsletter\:CL3(:OL+@V)))(@EB)
  40. ;       **********
  41. ;Ruler 0 is chosen, and the cursor moves to the beginning of the text.
  42. ;       ----------
  43. 0:GR@BB
  44. ;       **********
  45. ;Every '' is replaced by a space.
  46. ;       ----------
  47. ^E((:SUB\\ \)0(:NS))(@BB)
  48. ;       **********
  49. ;The screen code #6 for double-width characters is replaced by the corresponding printer code W1.  At the end of the line
  50. ;affected, the code W0 for undoing double width is inserted.
  51. ;       ----------
  52. ^E(100000(+@F\#6\3(:D+@C)-@EL:I\W1\+@EL:I\W0\))(@BB)
  53. ;       **********
  54. ;The next two lines handle subscripts.  In the original text,   begins every subscript, and A ends the subscript.  On the
  55. ;printer, S1 turns subscript mode on, while T turns it off.
  56. ;       ----------
  57. ^E((:SUB\ \S1\)0(:NS))(@BB)
  58. ^E((:SUB\A\T\)0(:NS))(@BB)
  59. ;       **********
  60. ;The next two lines produce superscripts much as the preceding lines got subscripts.  In the text, M begins a superscript,
  61. ;while D ends it.
  62. ;       ----------
  63. ^E((:SUB\M\S0\)0(:NS))(@BB)
  64. ^E((:SUB\D\T\)0(:NS))(@BB)
  65. ;       **********
  66. ;The screen code  for underlining is converted into the corresponding printer code -1.
  67. ;       ----------
  68. ^E((:SUB\\-1\)0(:NS))(@BB)
  69. ;       **********
  70. ;The screen code  for bold type is converted into the corresponding printer code E.
  71. ;       ----------
  72. ^E((:SUB\\E\)0(:NS))(@BB)
  73. ;       **********
  74. ;The screen code  for inverse video is turned into the printer code for italics.
  75. ;       ----------
  76. ^E((:SUB\\\)0(:NS))(@BB)
  77. ;       **********
  78. ;The screen code  that turns off bold print, underlining, and inverse video is converted into the printer codes
  79. ;F-0 that turn off emphasized print, underlining, and italics.  The cursor ends at the bottom of the text.
  80. ;       ----------
  81. ^E((:SUB\\F-0\)0(:NS))(@EB)
  82. ;       **********
  83. ;The cursor searches back to the last form feed, which marks the end of the twentieth page.  The cursor then moves down one line.
  84. ;All remaining lines are deleted.  The codes for draft quality pica type are inserted at the end of the document.  A carriage
  85. ;return without a line feed is also inserted.  The cursor finally goes to the beginning of the text.  The printer code M for
  86. ;elite pitch (4.7 characters per centimeter) is inserted.  This code was not inserted earlier to avoid having it taken as the
  87. ;beginning of a superscript.  Finally, the screen is refreshed.
  88. ;       ----------
  89. -@F\ \+@V:D+@EB:I\Px0\@BB:I\M\:RF
  90. ;