% name of textfile: P14 notice or motto (DL/Synergetics Feb 91 v1.0)
% ....


% =========

% This file requires the previous download of gonzo.psl
% available from https://www.tinaja.com/pssamp1.shtml

% Make sure the following line agrees with your own gonzo.psl location

(C:/Users/don/Desktop/gonzo/gonzo.psl) run  % use internal gonzo

% ==========


% A simple notice or motto having an unusual top and bottom border.

gutility begin             % turn on the gonzo utilities
nuisance begin             % turn on the nuisance commands
printerror                 % turn on the printing error trapper  

gonzo begin                % turn on the gonzo justification 

landscape                  % this one sideways

/showfullgrid false def    % show entire page grid?

20 20 10 setgrid           % get on a grid

showfullgrid {76 57 showgrid} if               % and maybe show it
 

/font1 /Bookman-Demi [5.5 0 0 7 0 0] gonzofont   % fairly compressed font

/yinc 10 def
38 36.5 (|1You may touch
the dust \274 but please
don't write in it!) cc

% a \274 is a three dot ... ellipsis

% The fancy border just consists of some repeated graphic elements ...

/topborder {

save /snapp exch def

/decoleftup {
black
0 0 mt 3 0 rlineto 0 3 rlineto -3 0 rlineto closepath fill

white 
0.5 setlinewidth 1 setlinecap 1 setlinejoin
1 1 mt 1 u 2 r stroke
} def


/decorightup {
black
0 0 mt 3 0 rlineto 0 3 rlineto -3 0 rlineto closepath fill

white 
0.5 setlinewidth 1 setlinecap 1 setlinejoin
2 1 mt 1 u 2 l stroke
} def

/decomidup {
black
0 0 mt 4 0 rlineto 0 3 rlineto -4 0 rlineto closepath fill

white 
0.5 setlinewidth 1 setlinecap 1 setlinejoin
2.5 1 mt 1 u 1.5 r stroke
1.5 1 mt 1 u 1.5 l stroke
} def

gsave 36 51 translate decomidup grestore 



0 51 translate 
[{0 0 decoleftup} 3.6 10] xrpt
40.5 0 translate 
[{0 0 decorightup} 3.6 10] xrpt

snapp restore 
} def

topborder


/bottomborder {
save /snapd exch def

/decoleftdn {
black
0 0 mt 3 0 rlineto 0 3 rlineto -3 0 rlineto closepath fill

white 
0.5 setlinewidth 1 setlinecap 1 setlinejoin
1 2 mt 1 d 2 r stroke
} def






/decorightdn {
black
0 0 mt 3 0 rlineto 0 3 rlineto -3 0 rlineto closepath fill

white 
0.5 setlinewidth 1 setlinecap 1 setlinejoin
2 2 mt 1 d 2 l stroke
} def

/decomiddn {
black
0 0 mt 4 0 rlineto 0 3 rlineto -4 0 rlineto closepath fill

white 
0.5 setlinewidth 1 setlinecap 1 setlinejoin
1.5 2 mt 1 d 2 l stroke
2.5 2 mt 1 d 2 r stroke
} def

gsave 36 3 translate decomiddn grestore 
 
0 3 translate 
[{0 0 decoleftdn} 3.6 10] xrpt
40.5 0 translate 
[{0 0 decorightdn} 3.6 10] xrpt


snapd restore } def

bottomborder


showpage 

% eof