% name of textfile: P17 Ripoff notice (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

% ==========


% Does a notice for a supermarket bulletin board with "ripoff"
% phone numbers to take home.

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 

/showthegrid false def             % show the layout grid?
30 20 10 setgrid                   % get on a layout grid
showthegrid {56 75 showgrid} if    % and maybe look at it

/cstretch 0.02 def                 % slight character stretch
/sstretch 0.02 def                 % and set some fonts

% pick some fonts ...

/font1 /Helvetica-Bold 4 gonzofont
/font2 /Helvetica-Bold 2.5 gonzofont

% put down a fancy border box

0 20 55 55 2 roundbox                       % define the box
[1.5 0  1.2 1  0.7 0] superinsidestroke     % triple stroke it

% note that message is INSIDE the box grid

/yinc 3 def                         % vertical spacing
/cen 27.5 def                       % trick to remember centering

font1
cen 44 (TIRED OF DORM LIFE?) cc     % heading

font2                               % main message
cen 37 (Non-Smoking
Roommate Wanted
|h
Share an apartment with
a working WMNU student 
Three miles from campus

|1$250  PER  MONTH|2
|h
(utilities, cable included)
Available January 1
call Cindy 797-4244) cc
grestore                       % get out of box for rest of sheet

line1
0 18 [3 2] 1.5 setdash mt 58 r   % a dashed cross line

% We have to modify the step and repeat dictionary for the ripoff entry...

/stepnrptparams 10 dict def

/ripoff { save /snaptik exch def

stepnrptparams begin
/12tabs [ 11 1 5 0 1.5 3 10 false false] def
end

/repeatproc {
gsave
-90 rotate -18 0 translate 
line1
3 3.5 [2 1] 0 setdash  mt 21 r

/font3 /Helvetica-Bold 1.5 gonzofont
/yinc 2 def 
4.5 1.5  (|3Share an apartment
Cindy 779-4424) cl
grestore} def 

(12tabs) stepandrepeat 
snaptik
restore} def 

ripoff          % make the tearoff tabs

% showpage      % no showpage when step and repeating


% eof