###     Line Number v.3.01  4/5/83   wkc

              ***  лине нумбер мацрофеатуре  ***            

This macro will print a file with lines numbered in the margin
to the left.  Lines are printed as they appear on the screen, so
your printer must be wide enough to print a whole screen line
plus numbering.

Numbering goes up to 4 digits.  The string which separates the
numbers from the text (e.g., ':  ') is a configuration option.

The file must be located on ДИСК: it cannot be in memory.

##
A     "1  "    "Set starting line number              "
B     "3  "    "Page end options:  0 = nothing        "
      ""       "                   1 = bottom title   "
      ""       "                   2 = pagination     "
      ""       "                   3 = both           "
C     "1  "    "Starting page number                  "
D     "0  "    "Set to '1' to linenumber macros       "
E     "54 "    "Number of lines per page              "
I     "1"      "Increment                             "
J     "1"      "Number dot statements?  0=no, 1=yes   "
K     "0"      "Number blank lines?  0=no, 1=yes      "
L     "0"      "Start over on new page?  0=no, 1=yes  "
F     ":  "    "Number termination characters         "
#

:on -1 115
:pr "#1/#13/#13/              LINE NUMBER MACRO#13/#13/"
:on %6-1 6 / 6
:in "Enter Title              " %A
E/S//<.H%A</
B1/J1/B1/D2
L%7
:%7=%I


:pr "#0/#3/#3/#3/#3/#3/#6/"
:in "What is the filename     "%B
ro/%B/
:on $0 /-6 /-6 /

r%5
:on ?-3 / 86 /
:on %D%C / / 90
:on +%J /+18 / /+18
:on ?-46 /+17 / /+17
:mc 1
:%0=?
:on %0-96 /+1 / /
:%0=%0-32
:on %0-67 / /+12 /
:on %0-66 / /+11 /
:on %0-84 / /+10 /








b0/s//       / 
:on -1 /+10
:%2 = %2 + %7
:%E = %2
:sl %E %9
:sf %E %9
:sf %F 4-%9
b0
:on +%K /+1 / /+1
:ON ?-13  / /+1 /
s//%F%E$F/

b0/P1


:ON ?-3  / 62 / 
:%4 = %4+1
:%H = !
:on %G%H /+2 / /+2
:%2 = -%7

b0
:ON %4-%5 20




t/d%5
:%6 = $0
:on %6 / / 72
:%6 = %5-%4-1
:ON %6 / /+1 / 
%6 PL//



E
YT 0 0 %1 3 20 20 %3
PB
:%3 = %3+1
t
:%4=0
:%6 = $0
:on %6 / 86 / 
:on +%L / /+1 / 
:%2 = $A-%7
:on -1 17



L79
YT 0 0 0 0 0 0 0 / / 0
:on -1 329
t/sa/{/Ш/
t/sa/}/Щ/
t/sa/\#/\ё/
t/sa/^/ч/
t/sa/~/Ч/
t/sa/\!/\║/
t/sa/|/Э/
t/sa/`/Ю/
t
Y / / / / / / / / / / 7
:on -1 20

:%7 = %I
:%2 = %2-%7
Y 0
:%0 = %0-1
:%7 = %0 + 6
:on %1-1  / /+1 / 
:on %1-3 /+1 / /+1
:%6 = 1
:%C = "0"
:%G = "#"
:on -1 3



:ss 24 24 1 1 4 4 1 24 3 2 1 1
:%0 = 80
:%2 = $A
:%1 = $B



:%3 = $C
:%D = "$D"
:%5 = $E
:%I = $I
:%J = $J
:%K = $K
:%L = $L
y 0 90 / / 0 / 0 70 2 /
YT 0 0 0 0 0 0 0 / / 0
:on -1 101
####$
b1/d1/t/d2
:in "#0/#1/#13/Do you want to save this Line Number configuration? (Y/N)" %A
:%C = "y"
:on %A%C /+19 / /+19
:in "#13/Under what name (.WPM assumed)? " %A
:%B=%A
:sl %A %1
:sg %A %2
:on %2-46 /+2 / /+2
:pr "#13/Do not specify extension in file name. "
:on -1 /-7
:%1=%1-1
:on %1 / / /-6
:%A=".WPM"
:%A=%B%A
ro/%A
:on $0 / /+4 /
rd
:pr "#13/#13/#13/#13/#7/The file %A already exists."
:in "#13/Do you want to write over it? " %B
:on %B%C /-20 / /-20
wo/%A
w/wd
:pr "#1/"
al