###     Two Column Print  v.3.01  1/6/84 - SG

              *** тво цолумн принтинг мацрофеатуре ***              

TCPRNT allows you to print a file in two-column format.  For
best results, you should use a precision printer with a
wheel or thimble which will print 12 characters per inch or
smaller.

Before printing begins, you may modify the configuration table
to fit your application.  You may specify both the size and
style of your type face, and the length and size of the columns
as they will appear on the page.

An option also allows you to have different margins on the
first page and on subsequent odd and even pages.

##
A       "33"            "Column width (In 10ths of an inch)      "
B       "03"            "Space between columns (In 10ths)        "
C       "10"            "Left indent for odd pages               "
D       "06"            "Left indent for even pages              "
F       "9 "            "Char. size for column text              "
R       "15"            "Character size for title                "
G       "1 "            "Proportional print (1 = Yes,0 = Fixed)  "
H       "7 "            "LF Size                                 "
J       "64"            "Number of lines/page                    "
Q       "0 "            "Page top options (0 = none, 1 = title)  "
K       "0 "            "Page end options (2 = number,3 = both)  "
L       "0 "            "Page eject (0=Single Sheet,2=Form Feed) "
N       "23"            "Title/Page format for odd pages         "
O       "20"            "Title/Page format for even pages        "
P       "0 "            "Preset 1st page formatting (1=Yes,0=No) "
S       "0"             "1=Santec, 0=All other printers          "
#
:oe 170
:on -1 185            VARIABLE INTIALIZATION
h0/pr
r$J+$J
:%0 = $P
:%1 = $J
:on %0 / /+6 /
:%1 = %1-4
p4/s//^/t/d




:on -1 213
:%6 = 0
:on ?-13 19 / 19
d1
:on -1 16
j1
:%6 = %6+1
:on ?-3 / 26
j1
:on ?-3 / 26
:on %6 - %1 19 26

t
%6j1
:%B = %1-%6
:on ?-13 33 / 33
d1
:ON -1 /-3

ys
:%4 = $2
:%5 = $3
:%5 = %5-1
pt
:pr "#1/#13/#13/%6 lines yet to print on this page."
t/f%3
:mc%2
y 11 / / / 0 0 / $A $H
yt / / / / / / / $C $D
p1
:%2 = $2
:%3 = $3-1
ys
t/f%5
:mc%4
y 11 / / / 0 1 / $A $H
yt / / / / / / / %8 %9
p1
:%4 = $2
:%5 = $3
:%5 = %5-1
:%6 = %6-1
ys
:on %6 / / 38








:%3=$3
s//</
t/d%3
:pr "#1/"
:%2=0
:%3=0
:%4=0
:%5=0


:%1 = $J















































:on ?-3 129 / 129
:%6 = %B
y 1 / / / 0 1
%6 pl//
y 11













YT / / / / / / / $C $D
PB







:on +%H / 160 /
e
u
h0
:%H="0"




t
:on ?- 3 / 175 /

:on $0 165 165 /
e/r$J+$J-$3
:on -1 220




:on $0 175 175 /
rd





YT 0 0 0 0 0 0 0 10 10
Y 1 90 110 0 0 1 0 65 2 2 0 0 35 5
YS
Y 1 90 110 0 0 1 0 65 2 2 0 0 35 5
h0
t/d5000
:on -1 1000



:ss 43
:in "#1/#13/#13/Starting Page Number: "%6
:on $K-1 / 193 /
:on $K-3 / 193 /
:on $Q-1 / 193 /
:on $Q-3 203 / 203
:in "#13/Enter Title: " %A
:sg %A %1
:on %1-13 / 200 /
:sp %C %1
:on %1-92 194 / 194
:sp %C %1
:on -1 194
:sp %A %1
:sg %C %1
:on %1 200 / 200
Y 11 / 110 $L 0 1 1 $A+$A+$B $H $R 0 0 25 5
YT $Q 2 $K 2 $N $O %6 $C $D
e/s//.H%A</
b1/j1/d1
:%8=$B
:%9=$B
:on $S / 3 /
:%8=$A+$C+$B
:%9=$A+$D+$B
:on -1 3
Y 11 / 110 $L 0 1 1 $A $H $F 0 $G 25 5
YS
Y 11 / 110 $L 0 0 1 $A $H $F 0 $G 25 5
t/s//</



:%H="0"
b1
s/<./?/
:on ?-3 235 / 235
t
s//</
s/*<.E/?/
:on ?-3 260 / 260
t
d1
:on ?-13 / 229 /
fy
:on -1 15


:%6=?
:on %6-96 238 / /
:%6=%6-32
:on %6-66 / 250 /
:on %6-72 / 270 /
:on %6-83 / 250 /
:on %6-84 / 250 /
:on %6-89 / 280 /
:on -1 222






b0
:pr "#0/#6/Improper Dot Command - Press RETURN to delete "
:cp
:in
d1
:cp
:on -1 221



b0
d1
h0
h1000
t
:%H="1"
:on -1 15



b0
s//.Y \/ \/ \/ \/ \/ \/ \/ $A+$A+$B</
f1
s//.Y \/ \/ \/ \/ \/ \/ \/ $A</
:on -1 221





:mc 2
:%6=?
:on %6-96 284 / /
:%6=%6-32
:on %6-83 / 240 /
:on %6-84 / 300 /
:%6=6
:%D=!
:on ?-32 / 287 /
:%6=%6-1
:on %6 / / 287
:on ?-48 293 / /
s/?/\//
f1
s//.Y 11 \/ \/ \/ 0 \/ \/ $A $H</
:on -1 221




b0
sl/  / /
:on ?-13 301 / 301
b0
:%6=8
:%D=!
:%6=%6-1
:on %6 / / 305
:%6=3
:%E=!
:%6=%6-1
:on %6 / / 309
b0
d1
s//.Y \/ \/ \/ \/ \/ \/ \%D \/ \/ \%E \/</
:on -1 221