% name of textfile: P3 CardsNow Business Card (DL/Synergetics Feb 91 v1.0)

% =========

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

% Make sure the following line agrees with your gonzo.ps location
% Use DOUBLE SLASHES anytime you want a single slash in a PS string.

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

% ==========



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 

% manual                   % remove comment for manual feed card stock

%  /setrepeatparams is a working tool that extracts the selected repeat
%  values from an entry in stepnrptparams.

/setrepeatparams {cvn stepnrptparams exch get aload pop /landscape1 exch
def /ticktrue exch def /ticklen exch def /vertstart exch
def /horstart exch def /incvert exch def /inchoriz exch
def /numvert exch def /numhoriz exch def} def

%  /onetick optionally draws a single tick or crop mark, while /drawticks
%  puts one at each corner of each form

/onetick { 0 ticklen 2 div rmoveto 0 ticklen neg rlineto ticklen 2 div
neg dup neg rmoveto ticklen 0 rlineto 0 setlinewidth stroke} def

/drawticks {gsave ticktrue {0 0 moveto onetick inchoriz 0 moveto
onetick 0 incvert moveto onetick inchoriz incvert moveto onetick}
if grestore}def

% default variables used by stepnrpt

/srexitproc {} def     % default short exit - don't do it.
/numpages 1 def        % default number of sheets to print
/startnum 0 def        % initial ticket number  
/runnum startnum def   % running pointer advances one per repeat
/repeatproc {} def     % artwork to get repeated default
/customdata false def  % autopaginate custom data?

%  /srfile gets used for custom entries. Each entry can be a string or a
%  proc, but ONLY ONE ENTRY is allowed per final repeat.

/srfile [(You) (forgot) (to) (define) (srfile!)] def  % default srfile

% /calcpages is an optional routine that decides how many pages are
% needed ONLY when you are using a custom srfile. This allows early
% exits when or if you run out of data.

/calcpages {dup cvn stepnrptparams exch get dup 0 get exch 1 get mul
cvi srfile length exch div ceiling cvi /numpages exch def} def

%  This is the main stepandrepeat tool...

/stepandrepeat { save /srsnap exch def mark exch /quickexit false def
customdata {calcpages} if setrepeatparams numpages {gsave landscape1
{-90 rotate -792 0 translate} if
horstart vertstart translate gsave numhoriz {gsave numvert {drawticks
save /rptsave1 exch def repeatproc rptsave1
restore /runnum runnum 1 add def 0 incvert translate 
srexitproc} repeat quickexit {exit} if grestore inchoriz 0 translate}
repeat quickexit {exit} if grestore 
showpage
grestore} repeat quickexit
{showpage} if cleartomark srsnap restore} def




stepnrptparams begin
/cardsnow      [2 5 252 143.5 50 34 20 false false] def %  cards now form 
end


/showthegrid true def       % Do we want to see the layout grid?
                            % true = yes; false = no

/repeatproc {

0 0 10 setgrid              % get on the usual

showthegrid 
{25 14 showgrid} if         % and maybe show the CARD-SIZED grid 

/yinc 1 def                 % set the vertical line spacing                
/cstretch 0.03 def          % stretch spaces between characters slightly
/sstretch 0.1 def           % stretch spaces between words slightly

/font1 /Bookman-LightItalic 0.9 gonzofont   % define a normal font
/font2 /Bookman-DemiItalic 0.9 gonzofont    % define a bold font


1 setlinecap                % round path ends
bestgray                    % nice looking gray

1 5 mt 23 pr                % draw a line to the right
[.45 0 .3 0.9] superstroke  % and show it two-tone


1 8
(|2Yodar Kritch|1
123 Main Street
Thatcher, AZ 85552) cl

1 3
(|1(602) 428-4073) cl

} def


(cardsnow) stepandrepeat
% eof