% name of textfile:  P5 Four Vertical Pads 
% ....

% =========

% 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 variation on quadpad that does four different pads.

gonzo begin
gutility begin
printerror
nuisance begin

% defines first pad
/hack {save /snaph exch def
310 390 translate
-180 rotate

20 20 10 setgrid
%27 35 showgrid

0 27 30 30 0 0.15 quickboxdraw 
0.15 setlinewidth
0 28 mt 27 r
0.09 setlinewidth
[{0 2 mt 27 r} 2 14] yrpt
11 0 mt 30 u
23 0 mt 30 u
25 0 mt 30 u


/cstretch 0.05 def
/sstretch 0.1 def

/font0 /Helvetica-Bold 1.3 gonzofont
/font1 /Helvetica-Narrow 0.9 gonzofont
/font2 /Helvetica 0.9 gonzofont

/yinc 1.3 def
13.5 34 (|0Hardware Hacker #_____
|2Brian Fenton, Electronics Now
|2transfer to IBM from __________________  ) cc

font1
5.5 28.5 (file) cc
17 28.5 (translate as) cc
24 28.5 (X) cc
26 28.5 (P) cc

/yinc 2 def
font2
1 26.5 (gonzo16a.ptl
hack.tit.
hack.txt.
hack.fig.       .1
hack.fig.       .2
hack.fig.       .3
hack.fig.       .4
hack.fig.       .5
hack.num.
____________ .res.
hack.help
hack.ad.) cl

12 26.5 
(gonzo__________.ptl
hack__________.tit
hack__________.txt
hack__________.fg1
hack__________.fg2
hack__________.fg3
hack__________.fg4
hack__________.fg5
hack__________.num
hack__________.res
hack.hlp
hack__________.ad) cl

snaph restore} def

% defines second pad
/resbin {save /snaph exch def
310 390 translate
-180 rotate

20 20 10 setgrid
%27 35 showgrid

0 27 30 30 0 0.15 quickboxdraw 
0.15 setlinewidth
0 28 mt 27 r
0.09 setlinewidth
[{0 2 mt 27 r} 2 14] yrpt
11 0 mt 30 u
23 0 mt 30 u
25 0 mt 30 u


/cstretch 0.05 def
/sstretch 0.1 def

/font0 /Helvetica-Bold 1.3 gonzofont
/font1 /Helvetica-Narrow 0.9 gonzofont
/font2 /Helvetica 0.9 gonzofont

/yinc 1.3 def
13.5 34 (|0Resource Bin #_____
|2Jack Lemeiux, Nuts & Volts
|2transfer to IBM from __________________  ) cc

font1
5.5 28.5 (file) cc
17 28.5 (translate as) cc
24 28.5 (X) cc
26 28.5 (P) cc

/yinc 2 def
font2
1 26.5 (gonzo15a.ptl
readme__________
resbn__________.gps
resbn__________a.ps
resbn__________b.ps
resbn__________.ad) cl

12 26.5 
(gonzo__________.ptl
readme__________
resbn__________.gps
resbn__________a.ps
resbn__________b.ps
resbn__________.ad) cl

snaph restore} def


% defines third pad
/blat {save /snaph exch def
20 20 10 setgrid
%27 35 showgrid

0 27 30 30 0 0.15 quickboxdraw 
0.15 setlinewidth
0 28 mt 27 r
0.09 setlinewidth
[{0 2 mt 27 r} 2 14] yrpt
11 0 mt 30 u
23 0 mt 30 u
25 0 mt 30 u


/cstretch 0.05 def
/sstretch 0.1 def

/font0 /Helvetica-Bold 1.3 gonzofont
/font1 /Helvetica-Narrow 0.9 gonzofont
/font2 /Helvetica 0.9 gonzofont

/yinc 1.3 def
13.5 34 (|0Blatant Opportunist #_____
|2Bill Gates, Midnight Engineering
|2transfer to IBM from __________________  ) cc

font1
5.5 28.5 (file) cc
17 28.5 (translate as) cc
24 28.5 (X) cc
26 28.5 (P) cc

/yinc 2 def
font2
1 26.5 (gonzo16a.ptl
) cl

12 26.5 
(gonzo__________.ptl
) cl

snaph restore} def

%  defines the fourth pad
/misc {save /snaph exch def
20 20 10 setgrid
% 27 35 showgrid

0 27 30 30 0 0.15 quickboxdraw 
0.15 setlinewidth
0 28 mt 27 r
0.09 setlinewidth
[{0 2 mt 27 r} 2 14] yrpt
11 0 mt 30 u
23 0 mt 30 u
25 0 mt 30 u


/cstretch 0.05 def
/sstretch 0.1 def

/font0 /Helvetica-Bold 1.3 gonzofont
/font1 /Helvetica-Narrow 0.9 gonzofont
/font2 /Helvetica 0.9 gonzofont

/yinc 1.3 def
13.5 34 (|0_____________________________
|2_________________________________________
|2transfer to __________ from __________________  ) cc

font1
5.5 28.5 (file) cc
17 28.5 (translate as) cc
24 28.5 (X) cc
26 28.5 (P) cc

/yinc 2 def
font2
1 26.5 (gonzo16a.ptl
) cl

12 26.5 
(gonzo__________.ptl
) cl

snaph restore} def

% calls and places each pad
gsave 0 0 translate hack grestore
gsave 300 0 translate resbin grestore
gsave 0 390 translate blat grestore
gsave 300 390 translate misc grestore


showpage
% eof