%!

% Name of file: Tech Musings 135 pulse radar, brain parity, feynmann, binding

% IMPORTANT NOTE: The file gonzo.ps is required to run 
% this program. 

/havegonzoinstalled true def   % Is gonzo20 on system?

havegonzoinstalled 
  {(C:\\windows\\desktop\\gonzo\\gonzo.ps) run}  % use internal gonzo
  {(A:\\gonzo.ps) run}                          % use external gonzo
                    ifelse

% GONZO20A Guru Gonzo PostScript power tools (Interim release)
% Includes gonzo justification and layout utilities.

% Copyright c 1990,1996 by Don Lancaster and Synergetics, Box 809,
% Thatcher Arizona, 5552 (520) 428-4073  don@tinaja.com  support
% via http://www.tinaja.com  All commercial rights and all electronic
% media rights **FULLY** reserved. Reposting is expressly forbidden.



% statusdict begin
% statusdict /setduplexmode known {true setduplexmode} if  end

% systemdict /setstrokeadjust known {true setstrokeadjust} if





/mastergray {0.92} def  % sets overall light grade shade

%%%%%%%%%%%%%%%%%

% Here's some needed routines not yet in GUTILITY.PTL or GONZO13A.PTL

%...............

% roundbox draws a box path with rounded corners and locks you to the
%  lower lefthand box corner using this format ...
%           -xpos- -ypos- -yheight- -cornerrad- roundbox

/roundbox {gsave /rad exch def /bt exch def /br exch def /bb exch
def /bl exch def bl bb translate rad mark br 2 div 0 0 0 0 bt br
bt br 0 br 2 div 0] roundpath} def

% vrule gives a fixed vertical rule, inputting xpos ystart yend linewidth

/vrule {gsave newpath setlinewidth 2 index 4 2 roll moveto exch lineto 
0 setgray stroke grestore} def

% hrule gives a fixed horizontal rule, inputting ypos xstart xend linewidth

/hrule {gsave newpath setlinewidth 1 index 4 2 roll moveto lineto 
0 setgray stroke grestore} def

% mergestr is a tool useful for page numbers; evenutally it will go 
% into the nuisance dictionary

/mergestr {2 copy length exch length add string dup dup 4 3 roll
4 index length exch putinterval 3 1 roll exch 0 exch putinterval} def


% this is a repeat of the GONZO13B callout width proc ...

gonzo begin

/endtheline {/curwide txtwide roomleft sub def justx cvx exec
oktoprint {printline} if} bind def

/cw {save /snapc1 exch def /oktoadvance false def /oktoprint false def
/linestring linestring2 def /justx (justL) def 3 1 roll /ypos exch
def /xpos exch def stringgonzo curwide snapc1 restore} def 

end

%%%%% Module to insert eight pdf menu options ....

% Place after |x but before last showpage

% work out an HTML like PDF response

/button {  makeurlx   % make box shaped url

gsave   blue   %  settint 

xpos ypos 0.9 sub translate

0.1 dup scale
0 0  mt 28 pu 28 pr 28 pd closepath
0.85 setgray fill
0 0 mt 0 28 pu 4 -4 rlineto 20 pd 20 pr 4 -4 rlineto closepath
0.6 setgray fill
0 28 mt 28 pr 28 pd -4 4 rlineto 20 pu 20 pl closepath
0.75 setgray fill

8 8 mt 12 pu 13 -6 rlineto closepath
0.33 setgray fill
grestore

xpos ypos mt

} def




%%%%%%%%%%% links menu directory %%%%%%%%%%%%

% This code locks pdfmark commands out of a PostScript printer.

/pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse

% /surl "start url" marks the beginning of a text sequence to be urled. 
% It also paints the text blue...

/surl {mark /blue cvx 0.33 /setgray cvx     % change text to blue
       /currentpoint cvx                    % remember box start
       /urly /exch cvx /store cvx
       /urlx /exch cvx /store cvx
         ] cvx                              % complete deferred command

       printlist exch 3 index exch put      % stuff into gonzo printlist
       exch 1 add exch                      % increment gonzo list count
} def

% /eurl "end url" unmarks the end of a text sequence and sets up
% the pdfmark needed to define the Acrobat web link. 

/eurl {mark                               % start deferred proc      
       exch                               % position url string
       /black cvx 0  /setgray cvx         % turn blue marker off     
       /makeurl cvx                       % defer call of url builder
        ] cvx                             % complete deferred proc

        printlist exch 3 index exch       % stuff into gonzo printlist
        put exch 1 add exch               % increment gonzo list count      
        } def

% /makeurl generates the pdfmark, receiving a {(urlstring) makeurl}.
% Note that it is not called until formatted printlist time...

/urlover 0.2 def                    % fraction of hot area over bounds

/makeurl { /cururlname exch store          % save the url string
            mark                           % start pdfmark

currentfont /ScaleMatrix get 3 get /fsize exch store  % guess height

  /Rect  [ urlx fsize urlover mul sub      % set box left x
           urly fsize urlover mul sub      % set box left y
           currentpoint
           exch fsize urlover mul add exch
           fsize add
           ]
           /Border [ 0 0 0]   % [0 0 0 ] = none; [0 0 2] = debug 
           /Color [ .7 0 0 ]
           /Action <</Subtype /URI /URI cururlname>>
           /Subtype /Link
           /ANN                            % annotation type
           pdfmark                        % call pdf operators    
} def

% /makeurlx generates the box specific pdfmark, receiving 
% a {(urlstring) makeurl}.
% Note that it is not called until formatted printlist time...


/makeurlx { /cururlnamex exch store        % save the url string
            mark                           % start pdfmark

  /Rect  [ xpos                            % set box left x
           ypos 0.9 sub                    % set box left y
           xpos 2.8 add                    % box right x
           ypos 0.9 sub 2.8 add            % box right y
           ]
           /Border [ 0 0 0]   % [0 0 0 ] = none; [0 0 2] = debug 
           /Color [ .7 0 0 ]
           /Action <</Subtype /URI /URI cururlnamex>>
           /Subtype /Link
           /ANN                            % annotation type
           pdfmark                        % call pdf operators    
} def




% text link specific data

/syncat01 {(http://www.tinaja.com/glib/syncat01.pdf) eurl} def
/ismm01 {(http://www.tinaja.com/ismm01.html) eurl} def
/amlink01 {(http://www.tinaja.com/amlink01.html) eurl} def
/tinaja01 {(http://www.tinaja.com/tinaja01.html) eurl} def
/info01 {(http://www.tinaja.com/info01.html) eurl} def
/barg01 {(http://www.tinaja.com/barg01.html) eurl} def
/advt01 {(http://www.tinaja.com/advt01.html) eurl} def
/maildon {(mailto:don@.tinaja.com) eurl} def

% button link specific data

/syncat01x {(http://www.tinaja.com/glib/syncat01.pdf) button} def
/ismm01x   {(http://www.tinaja.com/ismm01.html) button} def
/amlink01x {(http://www.tinaja.com/amlink01.html) button} def
/tinaja01x {(http://www.tinaja.com/tinaja01.html) button} def
/info01x   {(http://www.tinaja.com/info01.html) button} def
/barg01x   {(http://www.tinaja.com/barg01.html) button} def
/advt01x   {(http://www.tinaja.com/advt01.html) button} def
/maildonx  {(mailto:don@.tinaja.com) button} def

% %%%%%%%%%%%%%%%% end links directory %%%%%%%%%%%%%%%%%%%%%%%%%%%%


/menu8 {gsave translate save /dosnap exch def

/ybot -9999 def
/ylimit -9999 def

font3
font0

 0 0 10 setgrid
% 50 50 showgrid



/cstretch 0.015 def
/sstretch 0.015 def
/font0 /Revue 1.2 gonzofont
/font1 /StoneSans-Bold 1.3 gonzofont

/font3 /Helvetica-Bold 3 gonzofont

/kern 0.1 def

0 0 50 22.5  1 roundbox  % clip

gsave aqua     0.33 setgray fill

% gsave
% 0 27 mt 3 pu 50 pr 3 pd closepath 0.33 setgray fill
% grestore
% 0.33 setgray stroke

white font3  /cstretch 0.1 def
25 20.5 (|0PLEASE |j|jCLICK |j|jHERE |j|jTO\274 ) cc
/cstretch 0.015 def

0.5 2.2 49 17.3 0.8 roundbox
0.75 setgray  fill

% /yinc 3.5 def

black font1
2.3 13.5    (|/syncat01x |1        Get a Synergetics |/surl catalog|/syncat01 ) cl
2.3 10    (|/ismm01x |1        Start your |/surl tech venture|/ismm01 ) cl
2.3 6.5     (|/advt01x |1        Sponsor a display |/surl banner|/advt01 ) cl
2.3 3     (|/info01x |1        Find |/surl research|/info01  solutions) cl

25 13.5   (|/maildonx |1        Send Don Lancaster |/surl email|/maildon ) cl
25 10 (|/barg01x |1        Pick up surplus |/surl bargains|/barg01 ) cl
25 6.5   (|/tinaja01x |1        Find out what a |/surl tinaja|/tinaja01  is) cl
25 3  (|/amlink01x |1        View recommended |/surl books|/amlink01 ) cl

grestore  dosnap restore} def


% 57 348 menu8 

%%%%%%%%%%%% end pdfmenu8 %%%%%%%%%%%%



gonzo begin

% This is the core keystone code routine. It works by taking an average
% of the first two and last two string lengths to determine the keystone
% slope, increment, and starting width. It then checks the length of 
% each line and extends the starting width as needed so everything fits.

/keyproc {/kadj exch def /msg exch def /yy1 exch def /xx1 exch def
mark {msg (\n) search {exch pop exch /msg exch def dup length 0 le
{pop} if}{dup length 0 le {pop} if exit} ifelse} loop ] /karray
exch def 0 0 karray 0 get cw 0 0 karray 1 get cw add 2 div dup
0 0 karray dup length 1 sub get cw 0 0 karray dup length 2 sub get
cw add 2 div sub neg karray length 1 sub div dup /kinc exch def
2 div sub /kstart exch def /txtwide 10000 def 0 0 1 karray length
1 sub {/kpn exch def 0 0 karray kpn get cw kstart kinc kpn mul add
sub 2 copy lt {exch} if pop} for kstart add  1.01 mul dup /kstart
exch def /txtwide exch def /justifylastline true def 0 1 karray
length 1 sub { /posn exch def yy1 xx1 kstart kadj exch posn karray
exch get cf /txtwide txtwide kinc add def /xx1 xx1 kinc kadj def
/yy1 yy1 yinc sub def} for} def

% these are the three keystone routines. Use xpos ypos true (msg strings)
% cck, etc. true for keystone; false for ordinary justify.

/cck {save /keysnap exch def exch {{2 div sub} keyproc} {cc} ifelse
keysnap restore} def     % callout centered keystone

/clk {save /keysnap exch def exch {{pop} keyproc} {cl} ifelse
keysnap restore} def     % callout left keystone 

/crk {save /keysnap exch def exch {{sub} keyproc} {cr} ifelse
keysnap restore} def     % callout right keystone

end  % close gonzo dictionary


%%%%%% doembeddedproc executes |/name installdoembeddedproc links it

/doembeddedproc {mark 50 {stringmode {getstringchar}{currentfile
read} ifelse not {exit} if dup dup dup 32 eq exch 13 eq or exch 10
eq or {pop exit} if} repeat counttomark dup string /pstr1 exch def
1 sub -1 0 {pstr1 3 1 roll exch put} for pstr1 exch pop cvx exec} def

/installdoembeddedproc {gonzo begin commands (/) 0
                        get {doembeddedproc} put end} def

installdoembeddedproc

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%% your gonzo code goes here. The usual way of starting it is with

%%  gonzo begin
%%  ps.util.1 begin
%%  printerror
%%  nuisance begin

%% Additional use details appear in the POSTSCRIPT BEGINNER STUFF
%% package from SYNERGETICS.

%%%%%%%%%%%%%%%%%% COLORIZER MOD %%%%%%%%%%%%%


%%%%%%%%%%%%%%%%

%  COLORIZING BLACK AND WHITE POSTSCRIPT MODULE
%  =====================================

/tintmat [

 {dup 0.11 ge {0.11 sub 0.89 div dup 1 setrgbcolor}            % 0 blue
 {0.11 div 0 exch 0 exch setrgbcolor} ifelse}    
 
{dup 0.3 ge {0.3 sub 0.7 div 1 exch dup setrgbcolor}          % 1 red
 {0.3 div 0 0 setrgbcolor} ifelse}

{dup 0.59 ge {0.59 sub 0.41 div dup 1 exch setrgbcolor}       % 2 green
 {0.59 div 0 exch 0 setrgbcolor} ifelse} 
 
 {dup 0.7 ge {0.7 sub 0.3 div 1 1 setrgbcolor}                 % 3 turquoise
 {0.7 div 0 exch dup setrgbcolor} ifelse} 
 
 {dup 0.41 ge {0.41 sub 0.59 div 1 exch 1 setrgbcolor}         % 4 magenta
 {0.41 div dup 0 exch setrgbcolor} ifelse} 
  
 {dup 0.89 ge {0.89 sub 0.11 div 1 exch 1 exch setrgbcolor}    % 5 yellow
 {0.89 div dup 0 setrgbcolor} ifelse} 

{dup 0.842 ge {dup .7 mul .59 sub .11 div 1 exch setrgbcolor}  % 6 lime
{0.89 div dup 1.1233 div exch 1.1233 mul 0 setrgbcolor} ifelse} 

 {dup 0.731 ge {1 exch dup .41 mul .30 sub .11 div setrgbcolor} % 7 beige
{0.856 div dup 1.155 mul exch 1.55 div 0 setrgbcolor} ifelse}  

 ] def

 /tint 7 def
 /setgray {tintmat tint get cvx exec} bind def



%%%%%%%%%%%%%%%



%%%%%%%%%%%%%% COMPACT  VERSION OF  COLORIZER II %%%%%%%%%%%%%%%%%%%%%%

/settint {dup /currenttint exch store 5.999 mul dup floor cvi /&cbar
          exch store dup floor sub /&cwt exch store [
{/setgray [ /dup cvx 0.3 &cwt 0.59 mul add /ge cvx
 [1 /exch cvx &cwt 0.59 mul 0.30 add /sub cvx 1 &cwt sub
 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul cvx
 &cwt /add cvx /exch cvx ] cvx [ &cwt 0.59 mul 0.3 add /div
 cvx /dup cvx &cwt /mul cvx 0] cvx /ifelse cvx /setrgbcolor
 cvx] cvx /def cvx}
{/setgray [/dup cvx 0.59 1 &cwt sub 0.3 mul add /ge cvx
 [1 &cwt sub 0.3 mul 0.59 add /sub cvx &cwt 0.3 mul 0.11 add
 /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx /exch cvx
 1 /exch cvx] cvx [1 &cwt sub 0.3 mul 0.59 add /div cvx /dup
 cvx 1 &cwt sub /mul cvx /exch cvx 0] cvx /ifelse cvx
 /setrgbcolor cvx] cvx /def cvx}
{/setgray [/dup cvx 0.59 &cwt 0.11 mul add /ge cvx [&cwt
 0.11 mul 0.59 add /sub cvx 1 &cwt sub 0.11 mul 0.30 add
 /div cvx /dup cvx 1 &cwt sub /mul cvx &cwt /add cvx 1 /exch
 cvx] cvx [0 /exch cvx &cwt 0.11 mul 0.59 add /div cvx /dup cvx
 &cwt /mul cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx
 /def cvx}
{/setgray [/dup cvx 0.59 1 &cwt sub mul 0.11 add /ge cvx [1 &cwt
 sub 0.59 mul 0.11 add /sub cvx &cwt 0.59 mul 0.30 add /div cvx
 /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx 1] cvx [0 /exch cvx
 1 &cwt sub 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul
 cvx /exch cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx
/def cvx}
{/setgray [/dup cvx 0.11 &cwt 0.30 mul add /ge cvx[&cwt 0.30 mul
 0.11 add /sub cvx 1 &cwt sub 0.30 mul 0.59 add /div cvx /dup
 cvx 1 &cwt sub /mul cvx &cwt /add cvx /exch cvx 1] cvx [ &cwt
 0.30 mul 0.11 add /div cvx /dup cvx &cwt /mul cvx /exch cvx 0
 /exch cvx ] cvx /ifelse cvx /setrgbcolor cvx ] cvx /def cvx}
{/setgray [ /dup cvx 0.30 1 &cwt sub 0.11 mul add /ge cvx[ 1
 /exch cvx 1 &cwt sub 0.11 mul 0.30 add /sub cvx &cwt 0.11 mul
 0.59 add /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx
 ] cvx [ 1 &cwt sub 0.11 mul 0.30 add /div cvx /dup cvx
 1 &cwt sub /mul cvx 0 /exch cvx] cvx /ifelse cvx /setrgbcolor
 cvx ] cvx /def cvx}

] &cbar get exec exec} bind def

/beige  {0.10 settint} def      % examples of convenience operators
/aqua   {0.52 settint} def
/blue   {0.67 settint} def
/lime  {0.44 settint} def
/red {0 settint} def
/green {0.33 settint} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% aqua   % normal for blat






%!    

% 	X E
% 	Z



% MUSE.116.Y



gonzo begin
ps.util.1 begin
printerror
nuisance begin

longjob


statusdict begin
% statusdict /setduplexmode known {true setduplexmode} if
end
systemdict /setstrokeadjust known {true setstrokeadjust} if


/mastergray {0.96} def  % sets overall light grade shade

%%%%%%%%%%%%%%%%%

% Here's some needed routines not yet in GUTILITY.PTL or GONZO13A.PTL

%...............

% roundbox draws a box path with rounded corners and locks you to the
%  lower lefthand box corner using this format ...
%           -xpos- -ypos- -yheight- -cornerrad- roundbox

/roundbox {gsave /rad exch def /bt exch def /br exch def /bb exch
def /bl exch def bl bb translate rad mark br 2 div 0 0 0 0 bt br
bt br 0 br 2 div 0] roundpath} def

% vrule gives a fixed vertical rule, inputting xpos ystart yend linewidth

/vrule {gsave newpath setlinewidth 2 index 4 2 roll moveto exch lineto 
0 setgray stroke grestore} def

% hrule gives a fixed horizontal rule, inputting ypos xstart xend linewidth

/hrule {gsave newpath setlinewidth 1 index 4 2 roll moveto lineto 
0 setgray stroke grestore} def

% mergestr is a tool useful for page numbers; evenutally it will go 
% into the nuisance dictionary

/mergestr {2 copy length exch length add string dup dup 4 3 roll
4 index length exch putinterval 3 1 roll exch 0 exch putinterval} def


% this is a repeat of the GONZO13B callout width proc ...

gonzo begin

/endtheline {/curwide txtwide roomleft sub def justx cvx exec
oktoprint {printline} if} bind def

/cw {save /snapc1 exch def /oktoadvance false def /oktoprint false def
/linestring linestring2 def /justx (justL) def 3 1 roll /ypos exch
def /xpos exch def stringgonzo curwide snapc1 restore} def 

end


gonzo begin

% This is the core keystone code routine. It works by taking an average
% of the first two and last two string lengths to determine the keystone
% slope, increment, and starting width. It then checks the length of 
% each line and extends the starting width as needed so everything fits.

/keyproc {/kadj exch def /msg exch def /yy1 exch def /xx1 exch def
mark {msg (\n) search {exch pop exch /msg exch def dup length 0 le
{pop} if}{dup length 0 le {pop} if exit} ifelse} loop ] /karray
exch def 0 0 karray 0 get cw 0 0 karray 1 get cw add 2 div dup
0 0 karray dup length 1 sub get cw 0 0 karray dup length 2 sub get
cw add 2 div sub neg karray length 1 sub div dup /kinc exch def
2 div sub /kstart exch def /txtwide 10000 def 0 0 1 karray length
1 sub {/kpn exch def 0 0 karray kpn get cw kstart kinc kpn mul add
sub 2 copy lt {exch} if pop} for kstart add  1.01 mul dup /kstart
exch def /txtwide exch def /justifylastline true def 0 1 karray
length 1 sub { /posn exch def yy1 xx1 kstart kadj exch posn karray
exch get cf /txtwide txtwide kinc add def /xx1 xx1 kinc kadj def
/yy1 yy1 yinc sub def} for} def

% these are the three keystone routines. Use xpos ypos true (msg strings)
% cck, etc. true for keystone; false for ordinary justify.

/cck {save /keysnap exch def exch {{2 div sub} keyproc} {cc} ifelse
keysnap restore} def     % callout centered keystone

/clk {save /keysnap exch def exch {{pop} keyproc} {cl} ifelse
keysnap restore} def     % callout left keystone 

/crk {save /keysnap exch def exch {{sub} keyproc} {cr} ifelse
keysnap restore} def     % callout right keystone

end  % close gonzo dictionary


%%%%%% doembeddedproc executes |/name installdoembeddedproc links it

/doembeddedproc {mark 50 {stringmode {getstringchar}{currentfile
read} ifelse not {exit} if dup dup dup 32 eq exch 13 eq or exch 10
eq or {pop exit} if} repeat counttomark dup string /pstr1 exch def
1 sub -1 0 {pstr1 3 1 roll exch put} for pstr1 exch pop cvx exec} def

/installdoembeddedproc {gonzo begin commands (/) 0
                        get {doembeddedproc} put end} def

installdoembeddedproc

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% HACK III TEMPLATE 

% This default gonzo page making template is a useful starting point for
% creating your own custom templates. It allows multiple page documents
% with full picture insertions and total text control.

% Note that any template MUST have an internal proc named templatestartup
% and that your template MUST NOT call gonzofont before run time.

300 dict /muse3 exch def 

muse3 begin

/templatefonts {    % Remember: all fonts MUST defer till run time!

/font0  /Times-Bold [54 0 0 54.1 0 -32] gonzofont
/font1  /Times-Roman [9.75 0 0 9.75 0 0] gonzofont
/font2  /Times-Italic [9.75 0 0 9.75 0 0] gonzofont
/font3  /Times-Bold [9.75 0 0 9.77 0 -6] gonzofont
/font4  /Times-Roman [9 0 0 9 0 0] gonzofont
/font5  /Times-Italic [9 0 0 9 0 0] gonzofont
/font6  /Times-Bold [9 0 0 9 0 0] gonzofont
/font7  /Helvetica [9 0 0 9 0 0] gonzofont
/font8  /Helvetica [8 0 0 8 0 0] gonzofont
/font9  /Helvetica-Bold [9 0 0 9.1 0 4] gonzofont
/font-  /ZapfDingbats [9 0 0 9 0 0] gonzofont
/font=  /Symbol [9 0 0 9.1 0 -0.5] gonzofont
} def


% normallisting is used by the GURU figures for long text ...

/normallisting {
/txtwide bw 10 sub def
/ybot -99999 def
/font0 /Helvetica-Bold 12 gonzofont
/font1 /Helvetica 8.5 gonzofont
/font2 /Helvetica-Oblique 8.5 gonzofont
/font3 /Helvetica-Bold 8.5 gonzofont
/font4 /Courier 8.5 gonzofont
/ypos bt 20 sub def /xpos bl 20 add def /yinc 10 def /pmnorm 60 def
/amacro {(Lhy) stringmacro} def /bmacro {(1py) stringmacro} def
/cmacro {(3z) stringmacro} def} def

% denselisting is used by GURU figures for tighter text

/denselisting{/bc br bl sub 2 div bl add def /txtwide bw 10 sub def
/ybot -99999 def
/font0 /Helvetica-Bold 10 gonzofont 
/font1 /Helvetica 7 gonzofont
/font2 /Helvetica-Oblique 7 gonzofont
/font3 /Helvetica-Bold 7 gonzofont
/font4 /Courier 7 gonzofont
/ypos bt 10 sub def /xpos bl 6 add def /yinc 8 def /amacro {(hy) stringmacro}
def /emacro {/yparendadj yinc 2 div def} def} def


% values used by gonzo justify ...

/cstretch  0.1 def                % minimum character kerning
/sstretch -0.2 def                % minimum space kerning
/dropcount 4 def                  % number of lines drop cap drops
/lastlinestretch 0.06 def         % open last paragraph line slightly
/pm 10 def                        % use paragraph indents  
/yinc 10.5 def                      % line spacing
/ypara 0 def                      % extra interparagraph spacing           
/pagenum 1 def

% These macros handle an initial drop cap and low center subheads ...

/amacro {(zyL0)  stringmacro /ypos
 ypos ypara add def} def             % start drop cap
/bmacro {(iFy1) stringmacro /ypos
 ypos ypara add def} def             % finish drop cap
/cmacro {staytint1 (znyC3) stringmacro /ypos
 ypos ypara 2 mul add def} def       % centered title
/dmacro {black (pF1)  stringmacro /ypos
 ypos ypara 2 mul add def} def       % normal text after centered title

% reference values for internal doc control that become calculated
% array values. Note that it is best to work in fixed yinc heights
% to prevent alignment problems under figures. Note that it is nearly
% always best to AVOID FIXED VALUES IN DOCMATRIX.

/txw 155 def                  % width of normal text columns
/cmb 60 def                   % column bottom position

/cmt cmb 60 yinc mul add def   % page is 60 normal text lines high

/cml 60 def                   % first column left margin
/cms 170 def                  % spacing of normal columns             
/cm# 3 def                    % number of normal columns

/cm1 cml def                  % c1 starts at left margin
/cm2 cml cms add def          % c2 in middle
/cm3 cml cms 2 mul add def    % c3 to right

/cmw cms txw sub def          % white space between columns                 

/hdw cms 2 mul txw add def    % normal header/footer width
/hdc cm1 hdw 2 div add def    % normal header/footer center
/hdr cm1 hdw add def          % normal header/footer right
/hdl cm1 def                  % normal header left 
/fdp 14 def                   % amount of footer drop below cml

/bh1 yinc 6 mul def           % 8 vlines reserved for title & blurb

/stdfigrad 0.1 def              % radius of standard figure box 


/1colwide txw def               % width of single column figure
/2colwide txw cms add def       % width of double column figure
/3colwide txw cms 2 mul add def % width of triple column figure

/f1h yinc 21 mul def          % height of figure one
/f2h yinc 21 mul def          % height of figure two 
/f3h yinc 46 mul def          % height of figure three 
/f4h yinc 53 mul def          % height of figure four
/f5h yinc 25 mul def          % height of figure five
/f6h yinc 35 mul def          % height of figure six
/s1h yinc 25 mul def          % height of custom sidebar
/s2h yinc 44 mul def          % height of n/n sidebar

/a1h yinc 66 mul def          % height of synergetics ad

/h1h yinc 14 mul def          % height of optional help box


/tfa {yinc 1.5 mul add} def   % upper figure position adjust

% warning: second true must stay that way; must use blank namek

/fig1 {cm2 cmb 3 sub  2colwide f1h true   % 2 sub adjust for gray top
       true /f1name /figure1 stdmusefig} def % link 

/fig2 {cm1 cmt f2h sub yinc add 3 add 2colwide f2h
      true true /f2name /figure2 stdmusefig} def % link   

/fig3 {cm2 cmt f3h sub yinc add 3 add  2colwide f3h true
       true /f3name /figure3 graymusefig} def % link 

/fig4 {cm1 cmt f4h sub yinc add 3 add 2colwide f4h true
       true /f4name /figure4 graymusefig} def % link 

/fig5 {cm1 cmt f5h sub yinc add 3 add  1colwide f5h
       true true /f5name /figure5 graymusefig} def % link 

/fig6 {cm2 cmb 3 sub yinc add 4 add  2colwide f6h
       true true /f5name /figure6 stdmusefig} def % link 


/ad1 {cm3 cmb 1colwide f5h
       false true /ad1name /ad1copy stdmusefig} def % link 



/side1 {cm1 cmt s1h sub yinc add
3colwide s1h true true /s1name /sidebar1 grayfig2} def % link 


/side1 {cm1 cmt s1h sub yinc add  % special for url
2colwide s1h true true /s1name /sidebar1 grayfig2} def % link

/side2 {cm1 cmt s2h sub yinc add
2colwide s2h true true /s2name /sidebar2 grayfig2} def % link 

/help {cm2    %   cmt 16 yinc mul sub 
                  cmb 4 sub 
       1colwide h1h true false /helpname
       /hackhelp graymusefig} def


% this is a "standard" figure border for HACK3. It has rounded edges,
% a bottom single line title, and links to the actual figure art...

 /narrowfig 0 def   % narrowing option

/stdmusefig {

/jsave justx 4 get def
save /stdsnap exch def 

grayfig {0 3 translate} if  % shift


/colcheck {} def
/figproc exch def cvx 
/figname exch def
/showtitle exch def
/showborder exch def
/figheight exch def
  narrowfig sub /figwidth exch def 


-10 add translate 

/linestring linestring2 def

/pmrun 0 def

/txtwide figwidth 2 sub def
/font1 /Helvetica 9 gonzofont
/yinc 10 def
/oktoprint false def
/oktoadvance true def
/xpos 0 def
/ypos 0 def
figname stringgonzo
/titadjust ypos neg def

/oktoprint true def

/bw figwidth def 
/bt figheight def
/bl 0 def
/bb 0 def
/bc figwidth 2 div def
/xpos 20 def
/ypos bt 20 sub def

showtitle {0 narrowfig 2 div add titadjust figname cf} if
showtitle not {/titadjust 0 def} if % no suppression if no title
showborder {1   
                 narrowfig 2 div add

titadjust 12 add figwidth 2 sub figheight 
titadjust sub 10 sub stdfigrad roundbox 0.5 setlinewidth 

grayfig {gsave 

% LaserWriterG {0.90}{0.95}ifelse setgray 
grayshade setgray


fill grestore [2.5 0 1.5 1] superstroke }
{stroke} ifelse} if

/linestring linestring2 def  % needed to run interference
/cstretch 0.01 def /sstretch 0.01 def
/pmrun 0 def /colcheck {} def 

3 1 roll translate dup scale % adjust figure position

mark
figproc cvx exec
cleartomark
stdsnap restore
justx 4 jsave  put
} def

/grayfig false def  % show stdmusefig with gray background default
/graymusefig {/grayfig true def stdmusefig /grayfig false def} def

%%%%
% has a title box

/grayfig2rad 0.01 def
/showboxgrays true def

/grayfig2 {
 /jsave justx 4 get def
save /stdsnap exch def /colcheck {} def /figproc exch
def cvx /figname exch
def /showtitle exch def /showborder exch def /figheight exch
def /figwidth exch def 
 translate 
showborder {1 2
figwidth 2 sub figheight 5 sub grayfig2rad roundbox
0.4 figheight 28 sub moveto figwidth 1.8 sub 0 rlineto
gsave showboxgrays {mastergray setgray}{1 setgray} ifelse fill grestore
gsave newpath  0 figheight 5 sub moveto figwidth 1.8 sub 0 rlineto 0 -23
rlineto figwidth 1.8 sub neg 0 rlineto closepath

   grayshade dup 1 ne {0.15 sub   pop 0.33} if setgray

 fill grestore

 [2 0 1 1] superstroke 


} if
/font7 /Helvetica-Bold 9  1 add  gonzofont
showtitle {black   white
  % 0.25 setgray

figwidth 2 div figheight 20 sub  0.5 sub  font7 figname  cc black} if 
/bw figwidth def  /bt figheight def /bl 0 def /bb 0 def
/bc figwidth 2 div def /xpos 20 def /ypos bt 20 sub def
/cstretch 0 def /sstretch 0 def /lastlinestretch 0 def
/pmrun 0 def /ypara 0 def
/linestring linestring2 def
3 1 roll translate dup dup /csf exch def scale
mark
figproc 
cvx exec
cleartomark
stdsnap restore
justx 4 jsave  put
} def
%%%

% Here is the master document control matrix. It is manual in this example
% Note that the result of internal calcs are ORDINARY NUMBERS. Note also
% that you make room for figures by adding or subtracting only where and
% as needed.

/docmatrix [

[ { } { } {/narrowfig 0 store } ]      % initial document files

[
[{titleblock}  % xpos ypos scale name
{rightfooter} 
{/narrowfig 0 store 0 0 0.9 fig1}    
]                                  % page one figures and control

[ cm1 cmt bh1 sub cmb {txw}]         % column1  xpos ypos ylimit txtwide
[ cm2 cmt bh1 sub cmb f1h add {txw} ]         % column2
[ cm3 cmt bh1 sub cmb f1h add {txw} ]          % column3 
]

 [
 [{leftfooter}
  {leftheader}
 {/narrowfig 0 store}
  {0 0 0.9 fig2} % 
 {/narrowfig 0 store} 
  % {0 0  0.9 fig3} 
{0 -6 1 help}  % temp help box
  ]                                   % page two figures and control

    [ cm1 cmt f2h sub cmb {txw}]  % column1  xpos ypos ylimit txtwide
    [ cm2 cmt f2h sub cmb h1h add {txw}]  % column2  xpos ypos ylimit txtwide
  [ cm3 cmt  cmb  {txw} ]         % column3  xpos ypos ylimit txtwide  
 ]

[
[
{rightfooter}
{rightheader}
  % {/narrowfig 80 store}
  {0 0 0.9 fig3}
 {/narrowfig 0 store} 
  %  { 0 0  0.9 fig4}
% {/narrowfig 0 store} 
% {12 -20 0.9 fig5}
]                                   % page three figures and control
 [ cm1 cmt cmb {txw}]          % column1  ship
 [ cm2 cmt f3h sub cmb {txw}]   % 
 [ cm3 cmt f3h sub cmb {txw} ]    % 
]

[
[{leftfooter}
{leftheader}

{ 0 0  0.9 fig4}
% {/namestretch 2.0 def}
% {15 0 0.85 side1}
% {0 -6 1 help}  % temp help box
]                                   % page four figures and control

% [ cm1 cmt s1h sub cmb {txw}]  % special yinc no caption
[ cm1 cmt f4h sub cmb {txw}] % for two wide url only
% [ cm2 cmt f4h sub cmb h1h add {txw}]
[ cm2 cmt f4h sub cmb {txw}]
[ cm3 cmt cmb {txw}]          
]


[
[{rightfooter}
{rightheader}
{0 31 21 add 1 ad1}
{/namestretch 3.8 def}
{15 0 0.85 side2}

]                                   % page five figures and control

[ cm1 cmt s2h sub cmb txw]  % column1  xpos ypos ylimit txtwide
[ cm2 cmt s2h sub cmb txw]  % column2  xpos ypos ylimit txtwide
% [ cm3 cmt cmb txw]          % column3  xpos ypos ylimit txtwide  
]



/adj {26 yinc mul add } def


[
[{leftfooter}
{leftheader}
% {-5 -35  1 fig4} 
% {/namestretch 0.4 def}
% {14 0 0.85 side2}

% {18 -24  0.9 fig4}    

% {4 -17 0.9 fig5}

% {/namestretch 2.0 def}
{15 0 0.85 side1}

]                                   % page six figures and control

[ cm1 cmt s1h sub cmb adj txw]              % column1  xpos ypos ylimit txtwide
[ cm2 cmt s1h sub cmb adj txw]
[ cm3 cmt cmb txw]
]






% change [ {quit} ] to [ {exitproc} ]


[[{}] [cm1 cmt cmb txw]]     % possible blank page ?
[[{}] [cm2 cmt cmb txw]]     % possible blank page ?
[[{}] [cm3 cmt cmb txw]]     % possible blank page ?



% leave [ {quit} ] at end of page setup file


[ {exitproc} ]                         % final document wrapup
                                   % NOTE: will not execute with short copy!  
] def


/nextpage {
showpage adjustpage
/pagenum pagenum 1 add def 
docpage numpages lt { /docpage docpage 1 add def
docmatrix docpage get /curpage exch def
curpage length 1 sub /numpgcol exch def
curpage 0 get {cvx exec} forall  
/curcol 1 def nextcol}
{docmatrix curpage 1 add get {cvx exec} forall } ifelse
} def


% modified nextcol allows pages without text and deferred xpos calcs.

/nextcol { numpgcol 0 gt { curpage curcol get aload pop exec /txtwide
exch def exec /ylimit exch def exec /ypos exch def exec /xpos exch
def /curcol curcol 1 add def}{ nextpage} ifelse} def


/colcheck { ypos ylimit 1 sub le { curcol numpgcol gt {nextpage} {nextcol}
            ifelse} if } def


/templatestartup { templatefonts font1 /gonzojust true
                   def /rslashok true def

docmatrix length  /numpages exch def /docpage 1 def
docmatrix 0 get {cvx exec} forall  % do initial document files
docmatrix docpage get /curpage exch def 
curpage length 1 sub /numpgcol exch def
curpage 0 get {cvx exec} forall     % do initial page files
/curcol 1 def
nextcol

} def


% titleblock, headers and footers

/titleblock {save /blurbsnap exch def /colcheck {} def

/cstretch 0.2 def sstretch 1 def
cml cmt bh1 sub 15 add translate 

/blurbboxwide 180 def
/blurbboxhigh 80 def


1 setlinecap bestgray
3 23 mt  hdw 15 sub blurbboxwide sub 3 sub 23 lineto
hdw 3 sub 23 moveto -10 0 rlineto
[6 0.3 4.5 .85] superstroke    % changed to brown

hdw blurbboxwide sub 15 sub 0 blurbboxwide blurbboxhigh 5 roundbox

gsave grayshade setgray fill grestore               % temp expt

[4 0.3 2.5 .85] superstroke


0.85 setgray 4.5 setlinewidth
-5 23 mt 3 r
blurbboxwide 1 add 23 mt 3 r stroke

  grestore 




0.3 setgray

/font0 /Palatino-Bold 30 gonzofont /font1 /Palatino-Bold 10
gonzofont 

0.2 setgray

/font2 /Palatino-Bold 12 gonzofont font2 4 62 7 add author cl
font0 3 34 4 add titlename cl font2 4 7 titledate cl 


0.15 setgray

/yinc 12 def hdw  font1
105 sub    60
dokeystone titleblurb cck blurbsnap restore} def

/leftheader {save /blurbsnap exch def /colcheck {} def
cml cmt 16 add translate 

gsave mastergray setgray 0 8 mt 16 setlinewidth hdw r grestore  % color fill?

0 0 hdw 1.2 hrule 0 16 hdw 0.5 hrule /cstretch
0.2 def /sstretch 1 def /font2 /Palatino-Bold 11 gonzofont 0 4.5
leftheading cl blurbsnap restore} def

/rightheader {save /blurbsnap exch def /colcheck {} def
cml cmt 16 add translate 

gsave mastergray setgray 0 8 mt 16 setlinewidth hdw r grestore  % color fill?

0 0 hdw 1.2 hrule 
0 16 hdw 0.5 hrule 

/cstretch 0.2 def /sstretch 1 def /font2 /Palatino-Bold
11 gonzofont  hdw 4.5  rightheading cr blurbsnap restore} def

/leftfooter {
save /blurbsnap exch def /colcheck {} def
cml cmb 13 sub translate 

/txtwide 1000 store
/font3 /Helvetica 4.5 gonzofont font3
hdw -6
(Copyright c 1999 by Don Lancaster and Synergetics  (520) 428-4073  www.tinaja.com  \
All commercial rights and all electronic media rights fully reserved. Reposting expressly forbidden.) cr

0 0 hdw 0.8 hrule gsave 25 0 translate
-18 -7 36 14 2 roundbox gsave mastergray setgray fill grestore 0.5 setlinewidth
stroke /font2 /Palatino-Bold 11 gonzofont /cstretch 0.4 def
16 2 add 

0.2 setgray

 3.5 columnum (    ) cvs (.) mergestr colpagenum (    ) cvs
mergestr cc 

blurbsnap restore /colpagenum colpagenum 1 add def
} def

% adjusted for 100 - was -16 -7 32 14

/rightfooter {save /blurbsnap exch def /colcheck {} def cml cmb 13 sub
translate 

/txtwide 1000 store
/font3 /Helvetica 4.5 gonzofont font3
0 -6
(Copyright c 1999 by Don Lancaster and Synergetics  (520) 428-4073  www.tinaja.com \
 All commercial rights and all electronic media rights fully reserved. Reposting expressly forbidden.) cl


0 0 hdw 0.8 hrule gsave hdw 25 sub 0 translate -18 -7 36 14 2
roundbox gsave mastergray setgray fill grestore 0.5 setlinewidth stroke /cstretch
0.4 def /font2 /Palatino-Bold 11 gonzofont 16 2 add 3.5 


0.2 setgray

columnum (         )
cvs (.) mergestr colpagenum (        ) cvs mergestr cc 


blurbsnap restore
/colpagenum colpagenum 1 add def} def

end  % guru3 template


%% TEMP BYPASSES %%%

/adjustpage {} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% INCLUDED FILES AND PROCS


/dokeystone false def

/titleblurb
(Thoughts |j|jon|j|j brain|j|j parity
Impulse radio fundamentals
A "new" bookbinding method
Some |jRichard|j Feynman|j books
MEMS nanotechnology CDROM
) def

/author (Don Lancaster's) def
/titlename (T|k|kech M|k|kusings) def
/titledate (April, 1999  |j) def
/leftheading ( Tech Musings) def
/rightheading titledate def
/columnum 135 def
/colpagenum 1 def

%%%%%%%%%%%%% COMMON HEADER %%%%%%%%%%%%%%%%%

% graybox utilities

/grayfill {gsave bl bb translate /doublestroke true def
0 0 moveto 0 bh lineto bw bh lineto bw 0 lineto
closepath mastergray setgray fill grestore} def

/whitebox {gsave /wh exch def /ww exch def translate
0 0 mt 0 wh rlineto ww 0 rlineto 0 wh neg rlineto closepath
gsave white fill grestore line1 stroke} def  % keeps state!

/doublestroke true def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% /grayshade 0.92 def
/grayshade1 {grayshade} def

/setgray1 { dup grayshade 1 eq { 0.5 gt {pop 1}{pop 0} ifelse
                  } {pop} ifelse
           setgray  } def


/usecolor true def  % special for figure
/grayfig1 0.92 def

/figure1 {


% name of textfile: muse fig 135.5 fourier fake gaussian pulse
% ............................

% figure 1  A FOURIER PULSE that can be built up from ten sinewave harmonics \
% of the amplitudes shown.

save /snap1 exch def

%%%%%%%%%%%%%%%%%%%

electronics begin

bestgray


0 0 10 setgrid
% 30 30 showgrid

3 -1 translate  % position


/cstretch 0.02 def
/sstretch 0.0 def
/kern 0.1 def
/yinc 1.1 def

/font0 /Helvetica-Bold [1.2 0 0 1 0 -0.2] gonzofont
/font1 /Helvetica 0.75 gonzofont
/font4 /Helvetica 0.6 gonzofont
/font3 /Helvetica-Bold 0.75 gonzofont
/font2 /Helvetica-Oblique 0.75 gonzofont
/font5 /Helvetica-Bold 1.1 gonzofont
/font6 /Helvetica [2 0 0 1.4 0 0] gonzofont
/font7 /Helvetica-Oblique 0.75 gonzofont
/font8 /Symbol 0.75 gonzofont

font1
/yinc 1 def
/kern 0.1 def

%%%%%%%%%%%%%%



0 0 translate


0 settint

beige
 0.33 setgray1

line1


/coeffs [1 0.98 0.92 0.87 0.8 0.75 0.7 0.65 0.57 0.5] def



gsave 5 5 translate

0 -0.32 mt

0 1 360 {/phase exch store

phase 20 mul 360 div  % hpos


1 1 10 { /harm exch store



phase 180 sub harm mul  cos  % get raw amplitude
coeffs harm 1 sub get mul  % mult coeff
1.3 mul            % scale

} for

9 {add} repeat lineto





} for 

gsave 

20 -0.65 lineto 
0 -0.65 lineto


closepath grayshade 0.1 sub setgray1 fill grestore
line2

stroke

line1  -0.5 -0.65 mt 21 r

grestore


font1
black

/tabs [4.6] def

5 19.5



(amplitude = |t1.00 cos(1f) + 0.98 cos(2f) + 0.92 cos(3f) +
|t0.87 cos(4f) + 0.80 cos(5f) + 0.75 cos(6f) +
|t0.70 cos(7f) + 0.65 cos(8f) + 0.57 cos(9f) +
|t0.50 cos(10f)) cl


end
ypos snap1 restore /ypos exch def

} def





%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/figure2 { 






% name of textfile: muse fig 135.2   gaussian
% ............................



% figure 2  A SINGLE GAUSSIAN PULSE is made up of an infinite number of
% frequencies. Most of the energy in a 1 nanosecond Gaussian pulse lies
% in frequencies below 1 GagaHertz.



save /snap2 exch def

%%%%%%%%%%%%%%%%%%%

electronics begin

bestgray


0 0 10 setgrid
% 30 30 showgrid

3.5 1.5 translate  % position on page

/cstretch 0.02 def
/sstretch 0.0 def
/kern 0.1 def
/yinc 1.1 def

/font0 /Helvetica-Bold [1.2 0 0 1 0 -0.2] gonzofont
/font1 /Helvetica 0.75 gonzofont
/font4 /Helvetica 0.6 gonzofont
/font3 /Helvetica-Bold 0.75 gonzofont
/font2 /Helvetica-Oblique 0.75 gonzofont
/font5 /Helvetica-Bold 1.1 gonzofont
/font6 /Helvetica [2 0 0 1.4 0 0] gonzofont
/font7 /Helvetica-Oblique 0.75 gonzofont
/font8 /Symbol 0.75 gonzofont

font1
/yinc 1 def
/kern 0.1 def

%%%%%%%%%%%%%%

/time  {gsave translate

lime
0 0 mt 9 pu 10 pr 9 pd closepath
grayshade setgray1 fill black

0.33 setgray1

line1 
[{0 0 mt 10 r} 1 10] yrpt
[{0 0 mt 9 u} 1 11] xrpt

beige black


/tension 6 def

0 0 mt 
[3 0 0  
4 4 75
5 8 0
6 4 -75
7 0 0 ] curvetrace

10 0 lineto

gsave grayshade 0.10 sub setgray1 fill grestore
line2 stroke

line1 -0.5 0 mt 11 r
0 -0.5 mt 10 u

4 -0.3 mt 2 d
6 -0.3 mt 2 d

2 -1.5 mt 2 r rarrow
8 -1.5 mt 2 l larrow


0 4 mt 0.5 l
0 8 mt 0.5 l

font1

5 -3.3 (1.0 nanosecond) cc

-0.8 -0.3 (0.0) cr
-0.8 3.7 (0.5) cr
-0.8 7.7 (1.0) cr

0 10 (amplitude) cc

10 -1 (time) cr

% 4 4 mt dot
% 6 4 mt dot

grestore} def


/frequency {gsave translate


lime
0 0 mt 9 pu 10 pr 9 pd closepath
grayshade setgray1 fill black

0.33 setgray1
line1 
[{0 0 mt 10 r} 1 10] yrpt
[{0 0 mt 9 u} 1 11] xrpt

beige black


/tension 2.8 def


[0 8 0 

2.5 7.7 -10

5 4 -65

10 0.5 -5

] curvetrace


gsave 10 0 lineto 0 0 lineto grayshade 0.10 sub setgray1 fill grestore
line2 stroke

line1 -0.5 0 mt 11 r
0 -0.5 mt 10 u

5 -0.3 mt 2 d

5 -3.3 (1.0 GigaHertz) cc


0 4 mt 0.5 l
0 8 mt 0.5 l

-0.8 -0.3 (0.0) cr
-0.8 3.7 (0.5) cr
-0.8 7.7 (1.0) cr

0 10 (amplitude) cc

10 -1 (frequency) cr

% 5 4 mt dot

grestore} def


beige

3 4 time

17 4 frequency



end
ypos snap2 restore /ypos exch def

} def



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


/figure3  { 



% figure 3  SIMPLIFIED BLOCK DIAGRAMS of a typical pulse radio 
% transmitter and receiver. Gaussian pulses are transmitted simply \
% by suddenly changing the current in an antenna. Fancy codes that 
% determine pulse timing convey information or measure distances.




save /snap3 exch def

%%%%%%%%%%%%%%%%%%%

electronics begin

bestgray


0 0 10 setgrid
% 30 30 showgrid
3 0 translate  % position on page

/cstretch 0.02 def
/sstretch 0.0 def
/kern 0.1 def
/yinc 1.1 def

/font0 /Helvetica-Bold [1.2 0 0 1 0 -0.2] gonzofont
/font1 /Helvetica 0.75 gonzofont
/font4 /Helvetica 0.6 gonzofont
/font3 /Helvetica-Bold 0.75 gonzofont
/font2 /Helvetica-Oblique 0.75 gonzofont
/font5 /Helvetica-Bold 1.1 gonzofont
/font6 /Helvetica [2 0 0 1.4 0 0] gonzofont
/font7 /Helvetica-Oblique 0.75 gonzofont
/font8 /Symbol 0.75 gonzofont

font1
/yinc 1 def
/kern 0.1 def

%%%%%%%%%%%%%%

/box35 {gsave /msg exch store translate -2.5 -1.5 mt 3 pu 5 pr 3 pd
closepath gsave grayshade .15 sub setgray1 fill grestore
line2 stroke   /yinc 0.8 def
0.25 setgray
font1 0 0.55 msg cc black grestore} def

/sw {gsave translate 90 rotate 0 0 spst grestore} def
/sw- {gsave 1 -1 scale 0 0 sw grestore} def

/spst {gsave translate line3 white -0.75 0 mt 1.5 r
black
1 setlinecap line2 -0.75 0 mt 1.35 0.5 rlineto stroke

black -0.75 0 mt circ1

0.75 0 mt circ1
grestore} def




/transmit {gsave translate

% 30 30 showgrid

0 0 mt 21 pu 20 pr 21 pd closepath
gsave white fill grestore

% 30 30 showgrid

beige

line1 stroke

-5 0 translate % recenter


11 18.5 mt 8 d ground
11 18.5 mt circ1
11 14.5 mt dot
11 14.5 mt 8 r dot
11 16.5 sw
11 12.5 sw

19 18.5 mt 8 d ground
19 18.5 mt circ1
19 16.5 sw
19 12.5 sw

gsave
[0.6 0.4] 0.3 setdash

10 16.5 mt 2 l 4 d 2 r
10 16.5 mt 2 l 9 d 12 r

20 16.5 mt 2 r 4 d 2 l
20 16.5 mt 2 r 9 d 12 l

grestore

8 12.5 mt dot
22 12.5 mt dot



15 6 mt 2 d circ1
15 5.5 mt uarrow

15 14.5 (current\nmode\nantenna) box35
15 7.5 (timing\nsequence\ngenerator) box35


font1

11 19.1 (+v) cc
19 19.1 (+v) cc

12 17.5 (a) cc
18 17.5 (b) cc
12 11 (c) cc
18 11 (d) cc





font1


15 2.5 (data input) cc

15 1 ((a) transmitter) cc

grestore} def

/receive {gsave translate

line1

0 0 mt 21 pu 20 pr 21 pd closepath
gsave white fill grestore

% 30 30 showgrid

beige

13 17 mt 12.7 d circ1

5.5 12.5 mt 7 r

10 12.5 mt rarrow

13 15 mt darrow
13 10.5 mt darrow
13 6 mt darrow

13 17 (special\nbroadband\nantenna) box35
13 12.5 (\n|hintegrating\ncorrelator) box35
13 8 (\n|hsignal\nprocessor) box35
5.5 12.5 (sequence\nlocking\nloop) box35


10.5 8 mt 5 l 3 u
5.5 11 mt uarrow


font1

13 3 (data out) cc

10 1 ((b) receiver) cc

grestore} def





% beige

line1

8 2 receive

2 25 transmit


end
ypos snap3 restore /ypos exch def  
} def



%%%%

/figure4 { 



% figure 4 A COLLECTION OF pulse radio resources.




save /snap4 exch def

%%%%%%%%%%%%%%%%%%%

electronics begin

bestgray


0 0 10 setgrid
% 30 50 showgrid

3 0.5 translate  % position on page

/cstretch 0.02 def
/sstretch 0.0 def
/kern 0.1 def
/yinc 1.1 def

/font0 /Helvetica-Bold [1.2 0 0 1 0 -0.2] gonzofont
/font1 /Helvetica 0.75 gonzofont
/font4 /Helvetica 0.6 gonzofont
/font3 /Helvetica-Bold 0.75 gonzofont
/font2 /Helvetica-Oblique 0.75 gonzofont
/font5 /Helvetica-Bold 0.85 gonzofont
/font6 /Helvetica [2 0 0 1.4 0 0] gonzofont
/font7 /Helvetica-Oblique 0.75 gonzofont
/font8 /Symbol 0.75 gonzofont

font1
/yinc 0.9 def
/kern 0.1 def

%%%%%%%%%%%%%%


/emacro {/yhold ypos def} def
/fmacro {/ypos yhold def /xpos xpos 13.5 add def} def

/tabs [6 -1.5] def

/txtwide 26 def

3.5 56.5

(|/tinton1 |t|t|5ULTRA WIDEBAND WORKING GROUP|j\261
|h
|1This appears to be the main clearing house. Their \
website is up at                     |/surl |3www.uwb.org|1|/ultrawide  You subscribe to their \
discussion group by sending a message to \
|/surl |3fcc_uwb_noi-request@umunhum.stanford.edu|1|/ultrasub  with \
|3subscribe|1 in the subject line of your email.

|/tinton1 |t|t|5OTHER WEBSITE ADDRESSES|j\261
|h
    |3|/surl |twww.aetherwire.com|/b1 
      |/surl |tcommsci.usc.edu/ulab/ulab.html|/b2 
      |/surl |twww.com21.com|/b3 
      |/surl |twww.htc.honeywell.com|/b4 
      |/surl |twww.interval.com|/b5 
      |/surl |twww.llnl.gov|/b6 
      |/surl |twww.sensoft.on.ca|/b7 
      |/surl |twww.sss-mag.com|/b8 
      |/surl |twww.tapr.com|/b9 
      |/surl |twww.time-domain.com|/b10 
      |/surl |twww.trw.com|/b11 
      |/surl |twww.uwb.org|/b12 
      |/surl |twww.zircon.com|/b13 

|/tinton1 |t|t|5SEVERAL KEY PAPERS|j\261
|h
|1Are found at |/surl |3www.time-domain.com|1|/b10  and \
also at |/surl |3www.llnl.gov|1|/b6  

|/tinton1 |t|t|5IMPORTANT BOOKS|j\261
|h
|/surl |1|3Antennas & Waveguides for Nonsinusoidal Waves|/nonsin5  |1H. Harmuth
|/surl |1|3Nonsinusoidal Waves for Radar & Radio|/nonsin4  |1H. Harmuth
|/surl |1|3Propagation of Nonsinusoidal Electromagnetic Waves|/nonsin2  |1H. Harmuth
|/surl |1|3Propagation of Electromagnetic Signals|/nonsin3  |1H. Harmuth
|/surl |1|3Radiation in Nonsinusoidal Electromagnetic Waves|/nonsin1  |1H. Harmuth

|/tinton1 |t|t|5SOME RESEARCHERS|j\261

|e|3Aether Wire & Location|1
5950 Lucas Valley Road
Nicasio CA 94946
(415) 662-2055
|h
|3Honeywell Technology Center|1
3660 Technology Road
Minneapolis MN 55418
(612)951-7226
|h
|3Interval Research|1
1801 Page Mill Road #C
Palo Alto CA 94034
(650) 424-0722
|h
|3Lawrence Livermore Lab|1
7000 East Avenue
Livermore CA 94550
(925) 422-1100
|h
|3Sensors & Software|1
1091 Brevik Place
Mississauga ONT L4W3R7
(800)267-6013 
|h
|3USC Electrical Engineering|1
Comm Sciences Institute
Los Angeles CA 30089
(213) 740-7832
|h
|f|3Spread Spectrum Scene|1
Box 2199
El Granada CA 94018
(650) 726-6849
|h
|3Time Domain Corporation|1
6700 Odyssey Drive
Huntsville AL 35801
(256) 922-9229
|h
|3TRW Incorporated|1
One Space Park
Redondo Beach CA 90278
(216) 291-7000
|h
|3Tucson Packet Radio|1
8987 East Tanque Verde 
Tucson AZ 85749
(940) 383-0000
|h
|3Xtreme Spectrum|1
1077 30th St NW #311
Washington DC 20007

|h
|3Zircon Corporation|1
1580 Dell Avenue
Campbell CA 95008
(408) 866-8600


)cl
 
end
ypos snap4 restore /ypos exch def  
} def


%%%%%%

/figure5 {
% name of textfile: muse.fig.116.5 HTML error codes  NOT IN USE
% ............................

save /snap5 exch def

%%%%%%%%%%%%%%%%%%%

electronics begin


end
ypos snap5 restore /ypos exch def
} def
%%%%%%

/namestretch 0 def

/sidebar1 { 
8 -3 translate 1 dup scale  % adjust to fit
/title(     )def
/font0 /Helvetica [10 0 0 8.5 0 0] gonzofont
/font1 /Helvetica [9 0 0 9 0 0] gonzofont
/font2 /Helvetica-Bold [9 0 0 9 0 0 ] gonzofont
/txtwide 156 def
/yinc 11 def

% RSNUMBER

/Zmacro {gsave 
/Helvetica-Narrow-Bold findfont [7.5 0 0 7.5 0 0] makefont setfont
xpos ypos moveto charstretch 0(CIRCLE ) ashow
charstretch 0 RSnumber(      ) cvs ashow
( ON FREE INFORMATION CARD) show
/RSnumber RSnumber 1 add def
/ypos ypos yinc 0.7 mul sub def grestore} def
/Ymacro {/ypos ypos yinc 0.7 mul sub def} def

% temporary stretch
/Zmacro {(h) stringmacro /ypos ypos namestretch sub def } def
/ypos0 bt 3 sub def /yinc 17 def
/xpos bl def /xpos0 xpos def /pm 0 def
/sstretch 0.1 def
/cstretch 0.2 def
/ypos bt 20 sub def
/ypos 400 def
/txtwide bw def
/colcheck {} def
/ytopoflist bt 50 sub csf div def
xpos txtwide 2 div add 0 add ytopoflist 18 add 

% Set name below!!!!

( ) cc % for gray2

/ypos ytopoflist def
/columnspacing 158 def 
/yinc 10 def
/xpos0 bl 35 add def
/xpos xpos0 def
/amacro {/yhold ypos def /ypos ytopoflist def /xpos xpos columnspacing
add def /ypos ypos yinc add def} def

% temporary for 4 wide
/columnspacing 132 def     

% xpos 18 sub ypos 
% (|L|2AMX|1
% 11995 Forestgate Dr
% Dallas TX 75243
% (800) 222-0193
% |Z

% temp for url list


/font3 /Helvetica-BoldOblique 9.5 gonzofont
font3

/yinc 13 def

xpos -26 add ypos

(|3Feynman  |1(James Glick)
|3The Meaning of it All: Thoughts of a Citizen...  |1(Richard Feynman)
|h
|3The Beat of a Different Drum  |1(Jagdish Mehra)
|3The Character of Physical Law  |1(Richard Feynman)
|3Feynman Lectures on Computuation  |1(Richard Feynman)
|3Feynman Lectures on Gravitation   |1(Richard Feynman)
|3Feynman Lectures in Physics I-III  |1(Richard Feynman)
|3No Ordinary Genius  |1(C. Sykes)
|3Photon-Hadron Interactions  |1(Richard Feynman)
|3QED: The Strange Theory of Light & Matter  |1(Richard Feynman)
|3Quantum Electrodynamic  |1(Richard Feynman)
|3Six Easy Pieces  |1(Richard Feynman)
|3Statistical Mechanics: A Set of Lectures  |1(Richard Feynman)
|3Surely You're Joking Mr. Feynman  |1(R. Feynman)
|3Theory of Fundamental Processes  |1(Richard Feynman)
|3What Do You Care What Other People Think? |1(Richard Feynman)
|h
       |1For more details, see |/surl |3www.tinaja.com/amlink01.html|/amlink01 
) cl


} def


% /sidebar1 {} def  % temp lockout



%%%%

/sidebar2 { 
8 -3 translate 1 dup scale  % adjust to fit
/title (     ) def
/font0 /Helvetica [10 0 0 8.5 0 0] gonzofont
/font1 /Helvetica [9 0 0 9 0 0] gonzofont
/font2 /Helvetica-Bold [9 0 0 9 0 0 ] gonzofont

/txtwide 156 def
/yinc 11 def

/Ymacro {/ypos ypos yinc 0.7 mul sub def} def
/Zmacro {(h) stringmacro} def
/ypos0 bt 3 sub def /yinc 17 def
/xpos bl def /xpos0 xpos def /pm 0 def
/sstretch 0.1 def
/cstretch 0.2 def
/ypos bt 20 sub def
/txtwide bw def
/colcheck {} def
/ytopoflist bt 50 sub csf div def

xpos txtwide 2 div add 0 add ytopoflist 18 add 

% (|2|CNAMES  AND  NUMBERS) cc

( ) cc % for new graybox

/ypos ytopoflist def
/columnspacing 158 def 
/yinc 10 def
/xpos0 bl 35 add def
/xpos xpos0 def
/amacro {/yhold ypos def /ypos ytopoflist def /xpos xpos columnspacing add def           /ypos ypos yinc add def} def

/downtwo {/ypos ypos 2 sub def} def

% temporary stretch
/Zmacro {(h) stringmacro /ypos ypos namestretch sub def } def

% temporary for 4 wide
% /columnspacing 140 def 
% /xpos xpos 15 sub def


xpos ypos
(|L|2Adobe Systems|1
PO Box 7900
Mountain View CA 94039
(800) 833-6687
|Z
|2AeroSence Conference/SPIE|1
PO Box 10
Bellingham WA 98227
(360) 676-3290
|Z
|2Allegro Micro Systems|1
Box 15036
Worcester MA 01605
(508) 853-5000
|Z
|2Analog Devices|1
PO Box 9106 
Norwood MA 02062
(800) 262-5643
|Z
|2Ark-Plas Products|1
Hwy 178 N
Flippin AR 72634
(870) 453-2343
|Z
|2Brand Dielectrics|1
50 Brigham St
Marlborough MA 01752
(508) 303-8900
|Z
|2Electronics Cooling|1
1600 Osgood St Rm 21-3D-39
North Andover MA 01845
(508) 960-6443
|Z
|2InsideFinishing|1
PO Box 12090
Portland OR 97212
(503) 331-6221
|Z
|2International Rectifier|1
233 Kansas St
El Segundo CA 90245
(310) 322-3331
|Z
|2Linear Technology|1
1630 McCarthy Blvd
Milpitas CA 95035
(408) 432-1900
|Z
|a
|2MEMScaP|1
50, allee des Dauphins
ZAC du Pont Rivet
38330 St Ismier FRANCE
|Z
|/surl |2Chet Novicki|j/|jGigabooks|1|/gigabooks 
PO Box 90674
Honolulu HI 96835
chet@gigabooks.net
|Z
|2Paper Plus|1
4101 McEwen #800
San Antonio TX 75244
(888) PAPERPLUS
|Z
|2Plastikoil|1
Northgate Dr
Warrendale PA 15086
(800) 665-7884
|Z
|2Smart Card Allert|1
300 S Wacker Dr Ste 1800
Chicago IL 60606
(312) 913-1334
|Z
|2Society Amateur Scientists|1
4735 Clairemont Dr #179
San Diego CA  92101
(800) 873-8767 
|Z
|/surl |2Synergetics|1|/synlib01 
Box 809
Thatcher AZ 85552
(520) 428-4073
|Z
|2Texas Instruments|1
PO Box 655303
Dallas TX 75380
(800) 336-5236
|Z
|2Unibind/Pelsaer|1
4125 Prospect Dr
Carmichael CA 95608
(916) 967-6401
|Z
|2Vision Systems Design|1
98 Spit Brook Road
Nashua NH 03062
(603) 891-0123



) cl



} def



% temphelp

/hackhelp {          
% nt: hack.help
% ..
/sstretch 0 def
/cstretch 0.1 def
/font0 /Helvetica-Bold [8.5 0 0 8 0 0] gonzofont
/font1 /Helvetica [8.5 0 0 8 0 0] gonzofont
/font2 /Helvetica-Bold [8.5 0 0 8 0 0 ] gonzofont
/font7 /Helvetica-Oblique [8.5 0 0 8 0 0] gonzofont
/yinc 9.5 def
/font2 {font1} def

bc bt 15 sub (|0NEED  HELP?) cc
bl 14 add bt 30 sub
(|1Phone or write all your US |2Tech
Musings|1 questions to:
|h
         Don Lancaster
         |2Synergetics|1
         Box 809-EN
         Thatcher, AZ, 85552   
         (520) 428-4073
|h
US email:|j  |7don@tinaja.com|1
Web page:|j|j |7www.tinaja.com|1
) cl
} def

%%%



/f1name (Fig. 1 \261 A FOURIER PULSE that can be built up from ten \
sinewave harmonics by using the amplitudes and phasing shown.) def

/f2name (Fig. 2 \261 A SINGLE GAUSSIAN PULSE is made up of an infinite \
number of frequencies. Most of the energy in a 1 nanosecond \
Gaussian pulse lies in frequencies that are below 1 GagaHertz.) def  

/f3name (Fig. 3 \261 SIMPLIFIED BLOCK DIAGRAMS of a typical pulse \
radio transmitter and receiver. Gaussian pulses are transmitted \
simply by suddenly changing the current in an antenna. Fancy codes \
that determine pulse timing convey information or measure distances.) def

/f4name (Fig. 4 \261 A COLLECTION OF pulse radio resources.) def

/ad1name ( ) def % dummy
/s1name (BOOKS  ON  OR  BY  RICHARD  FEYNMAN) def 
/s2name (NAMES   AND   NUMBERS) def
/helpname (TEMPCHECK) def
/Zmacro {/ypos ypos 1 add def 0 setlinewidth xpos ypos moveto
txtwide 0 rlineto stroke /ypos ypos -2 add def} def  % hair rule
/reprogray {bestgray} def
bestgray
black
/header {} def
/setstrokeadjust where {pop /setstrokeadjust true def} if
muse3 begin
/cstretch 0.2 def
/sstretch -0.3 def
/showthegrid false def
/LaserWriterG false def
/boxdraw {bl bb bw bh brad roundbox
blw setlinewidth
stroke grestore
} def  
/br {bl bw add} def
/bb 0 def
% picojust patch18
gonzo begin
/swallow {/lopspaces lopspaces 1 add def printlist plistlength 1 sub
get dup 1 get dup 2 ge {1 sub} if 1 exch put} bind def
end
/rdiode {gsave 180 rotate diode grestore} def  % patch
/grayshade 0.92 def  % for compatibility
/showcolors false def   % temp for figure one cieF


% BBBBBB

% name of textfile: muse.116.z
% ....

% 	X E
% 	Z



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%  This is needed to improve post picojustufication...

gonzo begin

/swallow {/lopspaces lopspaces 1 add def printlist plistlength 1 sub
get dup 1 get dup 2 ge {1 sub} if 1 exch put} bind def
end

/wanttousepicojustify true def   % this globally turns picojust on or off

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

wanttousepicojustify
false 40 array dictstack {/^picoset known or} forall not and {

 %  FILL JUSTIFICATION IMPROVER version 6.3 June 3, 1994. c 1994 by
 %  Don Lancaster & Synergetics (602) 428-4073. [support on GEnie PSRT]
 %  Personal use premitted; All commercial & media rights fully reserved.
 
 %  Install this where it will redefine all print time uses of
 %  the -awidthshow- operator. Use picojust true or false to control.
 
 /picoflag true def      % selective availability switch
 /picofract 0.35 def     % percentage of excess space to be internalized
 /picothresh 0.03 def    % percentage increment per font change
 /^picoset true def      % job multiple def lockout

 /picojust {/picoflag exch store} def  % use for local turn on or off

 /awidthshow {1 index 4 index 6 index add add 32 eq not picoflag not or
 {//awidthshow}{/^msg exch store pop /^cst exch store pop pop /^sst exch
 store /^cct ^msg length store /^rwd ^msg stringwidth pop store /^sct
 0 ^msg {( ) search {pop pop exch 1 add exch}{pop exit} ifelse} loop
 store /^jwd ^cct ^cst mul ^sct ^sst mul add store /^saj ^jwd dup ^rwd
 add dup 0 eq {pop 0.0001} if div picothresh div floor picothresh mul
 picofract 1.33 mul mul 1 add store gsave ^saj 1 scale /^rft 1 ^saj 1
 sub ^rwd mul ^jwd dup 0 eq {pop 0.0001} if div sub ^saj div store ^sst
 ^rft mul 0 32 ^cst ^rft mul 0 ^msg //awidthshow 1 ^saj div 1 scale
 grestore ^jwd ^rwd add 0 rmoveto} ifelse} bind def

} if


%%%%%%%%%%%%% SYNERGETICS AD %%%%%%%%%%%%%%%%%%


%!




%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/ad1copy {


save /adsave exch store

green staytint

% IMPORTANT: Comment or remove the next line to get the ad up to EN page size!
%            Do this **ONLY** if you are extracting the ad for EN layout!

% 1.03 1.09 scale     


xpos 23 sub ypos 283 sub translate


0.95 0.915 scale

%%%% This code puts in the reader service number %%%%

/showreaderservicenumber true def % now a catalog
/readerservicenumber 146 def
/squashad true def
/showadgrays true def


squashad {1 0.80 scale} if


/height 693 114 add 60 add def   % stretched twice
/width1 165 def


/bc  width1 2 div def  % huh
/sidethk 4 def
/botheight 54 def
/topheight 33 def

/outrad 10 def
/inrad 5 def

/pm 0 def
/pmnorm 0 def


%%%%%%%%%%%%%% KEYSTONE STUFF %%%%%%%%%%%%%%%%%%%%%%%

% this is a repeat of the GONZO13B callout width proc ...

gonzo begin

/endtheline {/curwide txtwide roomleft sub def justx cvx exec
oktoprint {printline} if} bind def

/cw {save /snapc1 exch def /oktoadvance false def /oktoprint false def
/linestring linestring2 def /justx (justL) def 3 1 roll /ypos exch
def /xpos exch def stringgonzo curwide snapc1 restore} def 

end


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% This is a subtle correction to the gonzo fill justify that makes
% txtwide slightly more precise ...

gonzo begin

/reallyjustF {swallowandhang roomleft cstretch add numchars 1 sub 
numspaces spacecharratio mul add dup 0 eq {pop 0.001} if div dup 
cstretch add /cfix exch def spacecharratio mul sstretch add /sfix
exch def /xfix 0 def /yfix 0 def} bind def % unconditional justF

end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% KEYSTONE STUFF STARTS HERE


gonzo begin

% This is the core keystone code routine. It works by taking an average
% of the first two and last two string lengths to determine the keystone
% slope, increment, and starting width. It then checks the length of 
% each line and extends the starting width as needed so everything fits.

/keyproc {/kadj exch def /msg2 exch def /yy1 exch def /xx1 exch def
mark {msg2 (\n) search {exch pop exch /msg2 exch def dup length 0 le
{pop} if}{dup length 0 le {pop} if exit} ifelse} loop ] /karray
exch def 0 0 karray 0 get cw 0 0 karray 1 get cw add 2 div dup
0 0 karray dup length 1 sub get cw 0 0 karray dup length 2 sub get
cw add 2 div sub neg karray length 1 sub div dup /kinc exch def
2 div sub /kstart exch def /txtwide 10000 def 0 0 1 karray length
1 sub {/kpn exch def 0 0 karray kpn get cw kstart kinc kpn mul add
sub 2 copy lt {exch} if pop} for kstart add  1.01 mul dup /kstart
exch def /txtwide exch def /justifylastline true def 0 1 karray
length 1 sub { /posn exch def yy1 xx1 kstart kadj 

exch posn karray
exch get 

cf /txtwide txtwide kinc add def /xx1 xx1 kinc kadj def
/yy1 yy1 yinc sub def} for} def


% these are the three keystone routines. Use xpos ypos true (msg strings)
% cck, etc. true for keystone; false for ordinary justify.

/cck {save /keysnap exch def exch {{2 div sub} keyproc} {cc} ifelse
keysnap restore} def     % callout centered keystone

/clk {save /keysnap exch def exch {{pop} keyproc} {cl} ifelse
keysnap restore} def     % callout left keystone 

/crk {save /keysnap exch def exch {{sub} keyproc} {cr} ifelse
keysnap restore} def     % callout right keystone

end  % close gonzo dictionary


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





% outside box

0 0 width1 height 5 roundbox 
showadgrays {0.3}{0} ifelse setgray1  % for brown border
fill

% inside box

sidethk botheight width1 sidethk 2 mul sub
height topheight sub botheight sub inrad roundbox
showadgrays {0.96 setgray}{white} ifelse fill black  % shade for web




/cstretch 0.7 def
/sstretch 1.2 def

/font1 /Revue 10 gonzofont
/font3 /Revue 9 gonzofont
/font4 /Revue [9 0 0 9.05 0 1] gonzofont

/font9 /Helvetica-Bold 6.5 gonzofont


/font2 /Revue 14 gonzofont


font1

% adjust center

/bc bc sidethk 2 div add def


% top lettering

white

bc bt 22 add  (|1new from) cc
bc bt 6 add (|2DON LANCASTER) cc



bc -17 (|2SYNERGETICS) cc

/yinc 10 def
bc -28 

(|3B|1ox |3809-EN|1
|1Thatcher, |3AZ 85552
|4(|3520|4)|3 428-4073|1) cc




/cstretch 0.1 def
/sstretch 0.1 def

/font5 /Helvetica-Narrow 8 gonzofont
/font6 /Helvetica-Narrow-Bold 10 gonzofont
/font7 /Helvetica 6 gonzofont
/font8 /Helvetica-Narrow-Bold 8 gonzofont
/font: /Helvetica-Bold [5 0 0 4.95 0 6] gonzofont % uneven for distillery
/font- /Helvetica-Narrow-Oblique 8 gonzofont


black
3 3 (|7FREE US VOICE HELPLINE) cl
br 3 sub 3 (|7VISA|j/|jMC) cr


/xpos 4 def
/txtwide br 8 sub def

/yinc 8.5 def

/ypos bt 15.5 sub def


/amacro {/ypos ypos 2 add def} def
/cmacro {/ypos ypos 1 add def} def

/kern 0.5 def

/bw width1 sidethk 2 mul sub def



% obtuse code avoids the arcto bug

/bmacro {

gsave  


showadgrays {0.3}{0} ifelse setgray   % for brown border


0 ypos translate

0 0 mt
5 [-0.5 30
-0.5 3
bw 1 add 3 
bw 1 add 30
] roundpath

0 -31 rlineto
bw 1 add neg 0 rlineto
closepath fill

newpath

0 0 mt
5 [-0.5 -30
-0.5 -3
bw 1 add -3 
bw 1 add -30
] roundpath

0 31 rlineto
bw 1 add neg 0 rlineto
closepath fill


grestore
} def





/Umacro {ypos} def



xpos ypos (|C|6A|kCTIVE|j|j FILTER|j|j COOKBOOK
|h|a

|C|6RESEARCH|j|j INFOPACKS
|h|F|a
|5Don's instant use other oneash-and-carry flat rate consulting. Ask any reasonable technical \
question to get a detailed analysis and report. See |/tinton www.tinaja.com/info01|/info01 \
for specifics.     \
|8$79.00|5
|b
|a
|h
|F|5The sixteenth|k (!|j)|k printing of Don's bible on analog op-amp lowpass, bandpass, and highpass active filters. De-mystified instant designs. |8     $28.50|1
|b
|a
|h
|C|6CMOS|j|j AND|j|j TTL|j|j COOKBOOKS
|h|a
|F|5Millions of copies in print worldwide. |8THE|5 two books for digital integrated circuit fundamentals. About as hands-on as you can get. |8$28.50 |5each.|1
|b
|a
|h
|C|6INCREDIBLE|j|j SECRET
|h|c
MONEY|j|j MACHINE|j|j II
|5|h|F|a
Updated 2nd edition of Don's classic on setting up your own technical or craft venture.  |8$18.50|1
|b
|a
|h
|C|6LANCASTER|j|j CLASSICS|j|j LIBRARY
|5|h|a|F
Don's best early stuff at a bargain price. Includes the CMOS Cookbook, The TTL Cookbook, Active Filter Cookbook, PostScript video, Case Against Patents, Incredible Secret Money Machine II, and \
Hardware \
Hacker II reprints.            |8$119.50|1
|b
|a
|h
|C|6L|kOTS|j|j OF|j|j OTHER|j|j GOODIES
|5|h|a) stringgonzo



%%%%%%%%%%%%%%%%%%%%%%%%

% (A) WIDTH CALCULATIONS   2.20.91 

% A new curwide variable lets you calculate the gonzo string
% width independent of printing it. Handy for menu justify, etc..
% Use has to be bracketed with /oktoprint false def /oktoadvance
% false def --- stuff --- and then true. Works with any justify mode.

% make this change to main code so lengths can be extracted. Note that
% roomleft gets flushed at line end.

gonzo begin
/endtheline {/curwide txtwide roomleft sub def justx cvx exec
oktoprint {printline} if} bind def

% calloutwidth calculates only the width of the string, returning it
% to the top of the stack. For consistency with other callouts, use
% 0 0 (string) cw. This INCLUDES all stretching and font changes!

/cw {save /snapc1 exch def /oktoadvance false def /oktoprint false def
/linestring linestring2 def /justx (justL) def 3 1 roll /ypos exch
def /xpos exch def stringgonzo curwide snapc1 restore} def 
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% (B) MENU JUSTIFY 2.20.91

% The cm routine takes a leading string and a trailing string seperated
% by a delimiter and places a row of CONSTANT WIDTH, PRECISELY SPACED,
% VERTICALLY ALIGNED and WHOLE dots (or whatever) between the two. It
% is based on putting down the dots first and ERASING only whole dots
%  that are not wanted.

/menudots (. ) def
/menufont {font5} def
/mdoteht 3 def
/menudelim (   ) def
/cropleadingspaces true def

% drawmdots draws a line of menu dots, using plain old show

/drawmdots { gsave  menufont xxm yym moveto txtwide menudots stringwidth
pop  dup /mdot1 exch def div floor cvi {menudots show} repeat grestore } def

% spchomp takes a string and conditionally removes all leading spaces,
% returning the truncated string

/spchomp {cropleadingspaces {dup 0 exch {32 eq {1 add}{exit}
ifelse } forall} if exch dup length 2 index sub 3 -1 roll
exch getinterval} def

% mlineproc takes the mline string and processes it into a leading string,
% the dot row, and a trailing string. Unused dots are erased with logic
% to insure whole dots only. Null strings are ignored.

/mlineproc {mline length 0 gt {drawmdots mline menudelim search
{/lmstr exch def pop spchomp /rmstr exch def  } if gsave

showadgrays {0.96}{1}ifelse setgray   % for web color

xxm yym moveto mdoteht setlinewidth  0 0 lmstr cw mdot1
div ceiling mdot1 mul 0 rlineto stroke xxm txtwide mdot1 div floor
mdot1 mul add yym moveto 0 0 rmstr cw mdot1 div ceiling mdot1 mul
neg 0 rlineto stroke grestore xxm yym lmstr cl xxm txtwide add yym
rmstr cr /yym yym yinc sub def} if} def

% mj menujustify accepts tabbed string pairs and converts them into
% dotted menu listings..

/cm {gsave  /msg exch def  /yym exch def /xxm exch def
{ msg (\n) search {/mline exch def pop /msg exch def mlineproc}  
{/mline exch def mlineproc exit } ifelse} loop grestore} def 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% /txtwide 170 def                         % textwidth

/txtwide txtwide 8 sub def

/yinc 8 def

xpos 4 add ypos 0 sub

(Ask the Guru I or II or III       $24.50
Hardware Hacker II, III or IV      $24.50
Tech Musings V or VI               $24.50
Micro Cookbook I                   $19.50
PostScript Beginner Stuff          $29.50
PostScript Show and Tell           $29.50
Intro to PostScript Video          $29.50
PostScript Reference II            $34.50
PostScript Tutorial/Cookbook       $22.50
PostScript by Example              $32.50
Understanding PS Programming       $29.50
PostScript: A Visual Approach      $22.50
PostScript Program Design          $24.50
Thinking in PostScript             $22.50
LaserWriter Reference              $19.50
Type 1 Font Format                 $16.50
Acrobat Reference                  $24.50
Whole works (all PostScript)      $380.00
Technical Insider Secrets            |9|kFREE|j|j|j|5
) cm

/txtwide txtwide 8 add def


xpos ypos (|F


















|h|c|c|c
|b
|a
|h
|C|6BOOK-ON-DEMAND|j|j PUB|j|j KIT
|h|F|a
|5Ongoing details on Book-on-demand publishing, a new method of producing books only when and as ordered. Reprints, sources, samples.   |8$39.50|5
|b
|a
|h
|C|6THE|j|j C|kASE|j|j A|kGAINST|j|j P|kA|kTENTS
|h|F|a
|5For most individuals, patents are virtually certain to end up as a net loss of sanity, energy, time, and money. \
This reprint set shows you Don's tested and proven real-world alternatives.        |828.50|5
|b
|a
|h
|C|6BLATANT|j|j OPPORTUNIST|j|j  I
|h|F|a
|5The reprints from all Don's Midnight Engineering columns. Includes a broad range of real world, proven coverage on small scale technical startup ventures. Stuff you can use right now.      \
|8$24.50|5
|b
|a
|h
|C|6RESOURCE|j|j BIN|j|j  I
|h|F|a
|5A complete collection of all Don's Nuts & Volts columns to date, including a new index and his master names and numbers list.        |8$24.50|5 
|b
|a
|h
|C|6FREE|j|j SAMPLES
|h|F|a
|5Check Don's Guru's Lair at |-http://www.tinaja.com|5    for interactive catalogs and online samples \
of Don's unique products. Searchable reprints and reference resouces, too. Tech help, hot links to cool sites, consultants.    |jemail:|j|- don@tinaja.com|1
) stringgonzo




showreaderservicenumber {

/sstretch 0.25 def
/cstretch 0.20 def

/font1 /Helvetica-Bold [6 0 0 8 0 0 ] gonzofont

bc  0 sub botheight neg 10 sub  2 sub

%(Write in ) readerservicenumber (     ) cvs mergestr
%( on Reader Service Card.) mergestr cc

(FREE catalog: http://www.tinaja.com) cc

} if


adsave restore

} def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%




 
/figure5xx { 

% name of textfile: muse.fig.106.5 induction heating schematic
% ............................

% figure or text starts here //////////////////////////////////////

save /snap1 exch def

%%%%%%%%%%%%%%%%%%%

electronics begin

end
ypos snap1 restore /ypos exch def
} def



%%%%% MUSE PATCHES %%%%%


% Version 8.0 Jan 11, 1997 
% Insert just before "Name of textfile" on "Z" page.

muse3 begin






%%%%%%%%%%%%%%%% New colorizer patches %%%%%%%%%%%%%%%%%%
 

 
/boxgrays 0.92 def
/grayshade boxgrays def
/mastergray boxgrays def
/staytint {0.33 setgray} def
/staytint1 {0.25 setgray} def
/showadgrays true def

 /Zmacro {staytint /ypos ypos 2 add def 72 300 div setlinewidth xpos 
ypos moveto
txtwide 0 rlineto stroke /ypos ypos -2 add def tintoff} def  % hair rule
 
 /amacro {(zy0)  stringmacro /ypos
  ypos ypara add def  0.33 setgray } def             % start drop cap
 /bmacro {(iFy1) stringmacro /ypos
  ypos ypara add def  black} def             % finish drop cap
 

 
% Gonzo character colorizer

/blueon {mark /blue cvx 0.33 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/blueoff {mark /beige cvx 0  /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tinton {mark 0.33 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tinton1 {mark 0.25 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tintoff {mark 0 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def


%%%%%%%%%%%%%% COMPACT  VERSION OF  COLORIZER II %%%%%%%%%%%%%%%%%%%%%%

/settint {dup /currenttint exch store 5.999 mul dup floor cvi /&cbar
          exch store dup floor sub /&cwt exch store [
{/setgray [ /dup cvx 0.3 &cwt 0.59 mul add /ge cvx
 [1 /exch cvx &cwt 0.59 mul 0.30 add /sub cvx 1 &cwt sub
 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul cvx
 &cwt /add cvx /exch cvx ] cvx [ &cwt 0.59 mul 0.3 add /div
 cvx /dup cvx &cwt /mul cvx 0] cvx /ifelse cvx /setrgbcolor
 cvx] cvx /def cvx}
{/setgray [/dup cvx 0.59 1 &cwt sub 0.3 mul add /ge cvx
 [1 &cwt sub 0.3 mul 0.59 add /sub cvx &cwt 0.3 mul 0.11 add
 /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx /exch cvx
 1 /exch cvx] cvx [1 &cwt sub 0.3 mul 0.59 add /div cvx /dup
 cvx 1 &cwt sub /mul cvx /exch cvx 0] cvx /ifelse cvx
 /setrgbcolor cvx] cvx /def cvx}
{/setgray [/dup cvx 0.59 &cwt 0.11 mul add /ge cvx [&cwt
 0.11 mul 0.59 add /sub cvx 1 &cwt sub 0.11 mul 0.30 add
 /div cvx /dup cvx 1 &cwt sub /mul cvx &cwt /add cvx 1 /exch
 cvx] cvx [0 /exch cvx &cwt 0.11 mul 0.59 add /div cvx /dup cvx
 &cwt /mul cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx
 /def cvx}
{/setgray [/dup cvx 0.59 1 &cwt sub mul 0.11 add /ge cvx [1 &cwt
 sub 0.59 mul 0.11 add /sub cvx &cwt 0.59 mul 0.30 add /div cvx
 /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx 1] cvx [0 /exch cvx
 1 &cwt sub 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul
 cvx /exch cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx
/def cvx}
{/setgray [/dup cvx 0.11 &cwt 0.30 mul add /ge cvx[&cwt 0.30 mul
 0.11 add /sub cvx 1 &cwt sub 0.30 mul 0.59 add /div cvx /dup
 cvx 1 &cwt sub /mul cvx &cwt /add cvx /exch cvx 1] cvx [ &cwt
 0.30 mul 0.11 add /div cvx /dup cvx &cwt /mul cvx /exch cvx 0
 /exch cvx ] cvx /ifelse cvx /setrgbcolor cvx ] cvx /def cvx}
{/setgray [ /dup cvx 0.30 1 &cwt sub 0.11 mul add /ge cvx[ 1
 /exch cvx 1 &cwt sub 0.11 mul 0.30 add /sub cvx &cwt 0.11 mul
 0.59 add /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx
 ] cvx [ 1 &cwt sub 0.11 mul 0.30 add /div cvx /dup cvx
 1 &cwt sub /mul cvx 0 /exch cvx] cvx /ifelse cvx /setrgbcolor
 cvx ] cvx /def cvx}

] &cbar get exec exec} bind def

/beige  {0.10 settint} def      % examples of convenience operators
/aqua   {0.52 settint} def
/blue    {0.67 settint} def
/lime     {0.44 settint} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

beige
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


 % //// REVISED PROC /////
electronics begin       
% dipdraw - draws a dip integrated circuit.  (old code to be improved)

% Enter with currentpoint set to pin 1 and scale
% set so that 1.0 = distance between pins.  Then
% do a numpins-(name)-(hipins)-(lopins) dipdraw
% Pin callouts preceeded by / will be complemented.
    
% main dipdraw entry:
/dipdraw { save /dipsnap exch def /hipins exch def /lopins
exch def /chipname exch def /numpins exch def

mark 0 0 0 0 0 0 0 0 0 0 0 0 % temp patch

/howlong
{numpins 2 div cvi 1 add} def /howhigh {4 numpins 36 ge
{1 add} if} def /stub {howhigh 1.4 sub 2 div} def

% internal service subs start here:

/pinproc {numpins 2 div cvi{newpath 0 cpos 0.37 0 360 arc
gsave 1 setgray fill grestore 0.067 setlinewidth stroke 
pin# 5 string cvs dup stringwidth pop 2 div neg cpos
0.2 sub moveto show 1 0 translate /pin# pin# dir add
def} repeat } def

/stretchprint { dup stringwidth pop 2 div neg exch length
1 sub stretch mul 2 div sub  0 moveto callout (/)
anchorsearch true eq {currentpoint exch stretch add exch
moveto pop dup /callout exch def stringwidth
pop callout length 1 sub stretch mul add /barwide exch def
0.033 setlinewidth gsave currentpoint 0.55 add moveto
barwide 0 rlineto stroke grestore} if stretch 0 callout
ashow pop} def

/pincallouts{0 vpos translate {workstring ( ) search true
eq {/callout exch def pop /workstring exch def callout
stretchprint 1 0 translate}{dup /callout exch def
stretchprint exit } ifelse}loop} def

% actual dipdraw process starts here:

% ........ the outline:

gsave 1 setlinecap 1 setlinejoin
currentpoint translate


newpath -1 howhigh 2 div 0.7 -90 90  arc 0 stub
rlineto howlong 0 rlineto 0 howhigh neg rlineto howlong
neg 0 rlineto closepath 

gsave grayshade setgray fill grestore
  grayshade dup 1 ne {0.33}{0} ifelse setgray 
0.36 setlinewidth stroke   


 newpath -.55 .45 0.15 0 360
arc fill 
black
% ........ pin circles and numbers:

/Helvetica-Bold findfont [0.4 0 0 0.55 0 0] makefont
setfont gsave /pin# 1 def  /dir 1 def /cpos 0 def pinproc
grestore gsave /pin# numpins def  /dir -1 def /cpos howhigh
def pinproc grestore


%  pin callouts:

/Helvetica findfont [0.35 0 0 0.6 0 0] makefont setfont
/stretch 0.033 def gsave /workstring hipins def /vpos
0.6 def  pincallouts grestore gsave /workstring
lopins def /vpos howhigh 1.05 sub def pincallouts
grestore

%  device number:
grayshade 1 ne {0.33}{0} ifelse setgray
/Helvetica-Bold findfont [1.4 0 0 1 0 0] makefont setfont
/stretch 0.05 def gsave numpins 2 div 1 sub 2 div howhigh
2 div 0.33 sub translate chipname dup /callout exch def
stretchprint grestore
black
%  end cleanup:

grestore grestore
cleartomark dipsnap restore} def
end  % get out of electronics? 


% titleblock, headers and footers

/titleblock {save /blurbsnap exch def /colcheck {} def

/cstretch 0.2 def sstretch 1 def
cml cmt bh1 sub 15 add translate 

/blurbboxwide 180 def
/blurbboxhigh 80 def


1 setlinecap bestgray
3 23 mt  hdw 15 sub blurbboxwide sub 3 sub 23 lineto
hdw 3 sub 23 moveto -10 0 rlineto
[6 0.33 4.5 .85] superstroke

hdw blurbboxwide sub 15 sub 0 blurbboxwide blurbboxhigh 5 roundbox

gsave grayshade setgray fill grestore               % temp expt

[4 0.33 2.5 .85] superstroke


0.85 setgray 4.5 setlinewidth
-5 23 mt 3 r
blurbboxwide 1 add 23 mt 3 r stroke

  grestore 


0.33 setgray

/font0 /Palatino-Bold 30 gonzofont /font1 /Palatino-Bold 10
gonzofont /font2 /Palatino-Bold 12 gonzofont font2 4 62 7 add author cl

0.33 setgray
font0 3 34 4 add titlename cl font2 4 7 titledate cl 

0.20 setgray
/yinc 12 def hdw  font1
105 sub    60
dokeystone titleblurb cck blurbsnap restore} def

/hrule1 {gsave newpath setlinewidth 1 index 4 2 roll moveto lineto 
 stroke grestore} def

/leftheader {save /blurbsnap exch def /colcheck {} def
cml cmt 16 add translate 

0.25 setgray

gsave mastergray setgray 0 8 mt 16 setlinewidth hdw r grestore  % color fill?

0 0 hdw 1.2 hrule1 0 16 hdw 0.5 hrule1 /cstretch
0.2 def /sstretch 1 def /font2 /Palatino-Bold 11 gonzofont 8 4.5
leftheading cl blurbsnap restore} def

/rightheader {save /blurbsnap exch def /colcheck {} def
cml cmt 16 add translate 

0.25 setgray

gsave mastergray setgray 0 8 mt 16 setlinewidth hdw r grestore  % color fill?

0 0 hdw 1.2 hrule1 
0 16 hdw 0.5 hrule1 

/cstretch 0.2 def /sstretch 1 def /font2 /Palatino-Bold
11 gonzofont  hdw 8 sub 4.5  rightheading cr blurbsnap restore} def

/hrule1 {gsave newpath setlinewidth 1 index 4 2 roll moveto lineto 
 stroke grestore} def

/leftfooter {
save /blurbsnap exch def /colcheck {} def  0.25 setgray
cml cmb 13 sub translate 

/txtwide 1000 store
/font3 /Helvetica 4.5 gonzofont font3
hdw -6
(Copyright c 1999 by Don Lancaster and Synergetics  (520) 428-4073  www.tinaja.com  \
All commercial rights and all electronic media rights fully reserved. \
Reposting is expressly forbidden.) cr

0 0 hdw 0.8 hrule1 gsave 25 0 translate
-18 -7 36 14 2 roundbox gsave mastergray setgray fill grestore 0.5 setlinewidth
stroke /font2 /Palatino-Bold 11 gonzofont /cstretch 0.4 def
16 2 add  3.5 columnum (    ) cvs (.) mergestr colpagenum (    ) cvs
mergestr cc 

blurbsnap restore /colpagenum colpagenum 1 add def
} def

% adjusted for 100 - was -16 -7 32 14

/rightfooter {save /blurbsnap exch def /colcheck {} def cml cmb 13 sub
translate 

/txtwide 1000 store
/font3 /Helvetica 4.5 gonzofont font3  0.25 setgray
0 -6
(Copyright c 1999 by Don Lancaster and Synergetics  (520) 428-4073  www.tinaja.com \
 All commercial rights and all electronic media rights fully reserved. \
Reposting is expressly forbidden.) cl


0 0 hdw 0.8 hrule1 gsave hdw 25 sub 0 translate -18 -7 36 14 2
roundbox gsave mastergray setgray fill grestore 0.5 setlinewidth stroke /cstretch
0.4 def /font2 /Palatino-Bold 11 gonzofont 16 2 add 3.5 columnum (         )
cvs (.) mergestr colpagenum (        ) cvs mergestr cc 


blurbsnap restore
/colpagenum colpagenum 1 add def} def


/hackhelp {          
% nt: hack.help
% ..
/sstretch 0 def
/cstretch 0.1 def
/font0 /Helvetica-Bold [8.5 0 0 8 0 0] gonzofont
/font1 /Helvetica [8.5 0 0 8 0 0] gonzofont
/font2 /Helvetica-Bold [8.5 0 0 8 0 0 ] gonzofont
/font7 /Helvetica-Oblique [8.5 0 0 8 0 0] gonzofont
/yinc 9.5 def
/font2 {font1} def
0 grayshade 1 ne {pop 0.25} if setgray
bc bt 15 sub (|0NEED  HELP?) cc
bl 14 add bt 30 sub
(|1Phone or write all your US |2Tech
Musings|1 questions to:
|h
         Don Lancaster
         |2Synergetics|1
         Box 809-EN
         Thatcher, AZ, 85552   
         (520) 428-4073
|h
US email:|j  |7|/surl don@tinaja.com|1|/maildon 
Web page:|j|j |7|/surl www.tinaja.com|1|/tinaja 
) cl

} def


/ad1 {cm3 cmb 1colwide f5h
       false true /ad1name /ad1copy stdmusefig} def % link 

/ad1name ( ) def

/h1h yinc 14 mul def          % height of optional help box

end  % muse3 template



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/showreaderservicenumber false def
/showadgrays true def

/ad1copy {


save /adsave exch store

  0 0 translate  % adjusts position on page  was -127

% IMPORTANT: Comment or remove the next line to get the ad up to EN page size!
%            Do this **ONLY** if you are extracting the ad for EN layout!

% 1.03 1.09 scale 

green staytint    


xpos 23 sub ypos 283 sub translate


0.95 0.915 scale

%%%% This code puts in the reader service number %%%%


/readerservicenumber 146 def
/squashad true def



squashad {1 0.80 scale} if


/height 693 114 add 60 add def   % stretched twice
/width1 165 def
/sidethk 4 def
/botheight 54 def
/topheight 33 def

/outrad 10 def
/inrad 5 def

/pm 0 def
/pmnorm 0 def


%%%%%%%%%%%%%% KEYSTONE STUFF %%%%%%%%%%%%%%%%%%%%%%%

% this is a repeat of the GONZO13B callout width proc ...

gonzo begin

/endtheline {/curwide txtwide roomleft sub def justx cvx exec
oktoprint {printline} if} bind def

/cw {save /snapc1 exch def /oktoadvance false def /oktoprint false def
/linestring linestring2 def /justx (justL) def 3 1 roll /ypos exch
def /xpos exch def stringgonzo curwide snapc1 restore} def 

end


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% This is a subtle correction to the gonzo fill justify that makes
% txtwide slightly more precise ...

gonzo begin

/reallyjustF {swallowandhang roomleft cstretch add numchars 1 sub 
numspaces spacecharratio mul add dup 0 eq {pop 0.001} if div dup 
cstretch add /cfix exch def spacecharratio mul sstretch add /sfix
exch def /xfix 0 def /yfix 0 def} bind def % unconditional justF

end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% KEYSTONE STUFF STARTS HERE


gonzo begin

% This is the core keystone code routine. It works by taking an average
% of the first two and last two string lengths to determine the keystone
% slope, increment, and starting width. It then checks the length of 
% each line and extends the starting width as needed so everything fits.

/keyproc {/kadj exch def /msg2 exch def /yy1 exch def /xx1 exch def
mark {msg2 (\n) search {exch pop exch /msg2 exch def dup length 0 le
{pop} if}{dup length 0 le {pop} if exit} ifelse} loop ] /karray
exch def 0 0 karray 0 get cw 0 0 karray 1 get cw add 2 div dup
0 0 karray dup length 1 sub get cw 0 0 karray dup length 2 sub get
cw add 2 div sub neg karray length 1 sub div dup /kinc exch def
2 div sub /kstart exch def /txtwide 10000 def 0 0 1 karray length
1 sub {/kpn exch def 0 0 karray kpn get cw kstart kinc kpn mul add
sub 2 copy lt {exch} if pop} for kstart add  1.01 mul dup /kstart
exch def /txtwide exch def /justifylastline true def 0 1 karray
length 1 sub { /posn exch def yy1 xx1 kstart kadj 

exch posn karray
exch get 

cf /txtwide txtwide kinc add def /xx1 xx1 kinc kadj def
/yy1 yy1 yinc sub def} for} def


% these are the three keystone routines. Use xpos ypos true (msg strings)
% cck, etc. true for keystone; false for ordinary justify.

/cck {save /keysnap exch def exch {{2 div sub} keyproc} {cc} ifelse
keysnap restore} def     % callout centered keystone

/clk {save /keysnap exch def exch {{pop} keyproc} {cl} ifelse
keysnap restore} def     % callout left keystone 

/crk {save /keysnap exch def exch {{sub} keyproc} {cr} ifelse
keysnap restore} def     % callout right keystone

end  % close gonzo dictionary


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





% outside box

0 0 width1 height 5 roundbox 
showadgrays {0.3}{0} ifelse setgray  % for brown border
fill

% inside box

sidethk botheight width1 sidethk 2 mul sub
height topheight sub botheight sub inrad roundbox
showadgrays {grayshade setgray}{white} ifelse fill black  % shade for web




/cstretch 0.7 def
/sstretch 1.2 def

/font1 /Revue 10 gonzofont
/font3 /Revue 9 gonzofont
/font4 /Revue [9 0 0 9.05 0 1] gonzofont

/font9 /Helvetica-Bold 6.5 gonzofont


/font2 /Revue 14 gonzofont


font1

% adjust center

/bc bc sidethk 2 div add def


% top lettering

white

bc bt 22 add  (|1new from) cc
bc bt 6 add (|2DON LANCASTER) cc



bc -17 (|2SYNERGETICS) cc

/yinc 10 def
bc -28 

(|3B|1ox |3809-EN|1
|1Thatcher, |3AZ 85552
|4(|3520|4)|3 428-4073|1) cc




/cstretch 0.1 def
/sstretch 0.1 def

/font5 /Helvetica-Narrow 8 gonzofont
/font6 /Helvetica-Narrow-Bold 10 gonzofont
/font7 /Helvetica 6 gonzofont
/font8 /Helvetica-Narrow-Bold 8 gonzofont
/font: /Helvetica-Bold [5 0 0 4.95 0 6] gonzofont % uneven for distillery
/font- /Helvetica-Narrow-Oblique 8 gonzofont


black
3 3 (|7FREE US VOICE HELPLINE) cl
br 3 sub 3 (|7VISA|j/|jMC) cr


/xpos 4 def
/txtwide br 8 sub def

/yinc 8.5 def

/ypos bt 15.5 sub def


/amacro {/ypos ypos 2 add def} def
/cmacro {/ypos ypos 1 add def} def

/kern 0.5 def

/bw width1 sidethk 2 mul sub def



% obtuse code avoids the arcto bug

/bmacro {

gsave  


showadgrays {0.3}{0} ifelse setgray   % for brown border


-0.45 ypos translate

0 0 mt
5 [-0.5 30
-0.5 3
bw 1 add 3 
bw 1 add 30
] roundpath

0 -31 rlineto
bw 1 add neg 0 rlineto
closepath fill

newpath

0 0 mt
5 [-0.5 -30
-0.5 -3
bw 1 add -3 
bw 1 add -30
] roundpath

0 31 rlineto
bw 1 add neg 0 rlineto
closepath fill


grestore
} def





/Umacro {ypos} def



xpos ypos (|/tinton1 |C|6A|kCTIVE|j|j FILTER|j|j COOKBOOK
|h|a
|F|5The sixteenth|k (!|j)|k printing of Don's bible on analog op-amp lowpass, bandpass, and highpass active filters. De-mystified instant designs. |8     $28.50|1
|b
|a
|h
|/tinton1 |C|6RESEARCH|j|j INFOPACKS
|h|F|a
|5Don's instant cash-and-carry flat rate consulting service. Ask any reasonable technical \
question for a detailed analysis and complete report. See      |/surl www.tinaja.com|j/|jinfo01|/info01g  \
for specifics.       \
|8$79.00|5 
|b
|a
|h
|C|/tinton1 |6CMOS|j|j AND|j|j TTL|j|j COOKBOOKS
|h|a
|F|5Millions of copies in print worldwide. |8THE|5 two books for digital integrated circuit fundamentals. About as hands-on as you can get. |8$28.50 |5each.|1
|b
|a
|h
|/tinton1 |C|6INCREDIBLE|j|j SECRET
|h|c
|/tinton1 MONEY|j|j MACHINE|j|j II
|5|h|F|a
Updated 2nd edition of Don's classic on setting up your own technical or craft venture.  |8$18.50|1
|b
|a
|h
|/tinton1  |C|6LANCASTER|j|j CLASSICS|j|j LIBRARY
|5|h|a|F
Don's best early stuff at a bargain price. Includes the CMOS Cookbook, The TTL Cookbook, Active Filter Cookbook, PostScript video, Case Against Patents, Incredible Secret Money Machine II, and \
Hardware \
Hacker II reprints.            |8$119.50|1
|b
|a
|h
|/tinton1 |C|6L|kOTS|j|j OF|j|j OTHER|j|j GOODIES
|5|h|a) stringgonzo



%%%%%%%%%%%%%%%%%%%%%%%%

% (A) WIDTH CALCULATIONS   2.20.91 

% A new curwide variable lets you calculate the gonzo string
% width independent of printing it. Handy for menu justify, etc..
% Use has to be bracketed with /oktoprint false def /oktoadvance
% false def --- stuff --- and then true. Works with any justify mode.

% make this change to main code so lengths can be extracted. Note that
% roomleft gets flushed at line end.

gonzo begin
/endtheline {/curwide txtwide roomleft sub def justx cvx exec
oktoprint {printline} if} bind def

% calloutwidth calculates only the width of the string, returning it
% to the top of the stack. For consistency with other callouts, use
% 0 0 (string) cw. This INCLUDES all stretching and font changes!

/cw {save /snapc1 exch def /oktoadvance false def /oktoprint false def
/linestring linestring2 def /justx (justL) def 3 1 roll /ypos exch
def /xpos exch def stringgonzo curwide snapc1 restore} def 
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% (B) MENU JUSTIFY 2.20.91

% The cm routine takes a leading string and a trailing string seperated
% by a delimiter and places a row of CONSTANT WIDTH, PRECISELY SPACED,
% VERTICALLY ALIGNED and WHOLE dots (or whatever) between the two. It
% is based on putting down the dots first and ERASING only whole dots
%  that are not wanted.

/menudots (. ) def
/menufont {font5} def
/mdoteht 3 def
/menudelim (   ) def
/cropleadingspaces true def

% drawmdots draws a line of menu dots, using plain old show

/drawmdots { gsave  menufont xxm yym moveto txtwide menudots stringwidth
pop  dup /mdot1 exch def div floor cvi {menudots show} repeat grestore } def

% spchomp takes a string and conditionally removes all leading spaces,
% returning the truncated string

/spchomp {cropleadingspaces {dup 0 exch {32 eq {1 add}{exit}
ifelse } forall} if exch dup length 2 index sub 3 -1 roll
exch getinterval} def

% mlineproc takes the mline string and processes it into a leading string,
% the dot row, and a trailing string. Unused dots are erased with logic
% to insure whole dots only. Null strings are ignored.

/mlineproc {mline length 0 gt {drawmdots mline menudelim search
{/lmstr exch def pop spchomp /rmstr exch def  } if gsave

showadgrays {grayshade}{1}ifelse setgray   % for web color

xxm yym moveto mdoteht setlinewidth  0 0 lmstr cw mdot1
div ceiling mdot1 mul 0 rlineto stroke xxm txtwide mdot1 div floor
mdot1 mul add yym moveto 0 0 rmstr cw mdot1 div ceiling mdot1 mul
neg 0 rlineto stroke grestore xxm yym lmstr cl xxm txtwide add yym
rmstr cr /yym yym yinc sub def} if} def

% mj menujustify accepts tabbed string pairs and converts them into
% dotted menu listings..

/cm {gsave  /msg exch def  /yym exch def /xxm exch def
{ msg (\n) search {/mline exch def pop /msg exch def mlineproc}  
{/mline exch def mlineproc exit } ifelse} loop grestore} def 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% /txtwide 170 def                         % textwidth

/txtwide txtwide 8 sub def

/yinc 8 def

xpos 4 add ypos 0 sub

(Tech Musings V or VI              $24.50
Ask the Guru I or II or III        $24.50
Hardware Hacker II, III or IV      $24.50
Micro Cookbook I                   $19.50
PostScript Beginner Stuff          $29.50
PostScript Show and Tell           $29.50
PostScript Video & secrets         $29.50
PostScript Reference II            $34.50
PostScript Tutorial/Cookbook       $22.50
PostScript by Example              $32.50
Understanding PS Programming       $29.50
PostScript: A Visual Approach      $22.50
PostScript Program Design          $24.50
Thinking in PostScript             $22.50
LaserWriter Reference              $19.50
Type 1 Font Format                 $16.50
Acrobat Reference                  $24.50
Whole works (all PostScript)      $380.00
Technical Insider Secrets            |9|kFREE|j|j|j|5
) cm

/txtwide txtwide 8 add def


xpos ypos (|F


















|h|c|c|c
|b
|a
|h
|/tinton1 |C|6BOOK-ON-DEMAND|j|j PUB|j|j KIT
|h|F|a
|5Ongoing details on Book-on-demand publishing, a new method \
of producing books only when and as ordered. Reprints, \
sources, samples.   |8$39.50|5
|b
|a
|h
|/tinton1 |C|6THE|j|j C|kASE|j|j A|kGAINST|j|j P|kA|kTENTS
|h|F|a
|5For most individuals, patents are virtually certain to result in a net loss of sanity, energy, time, and money. \
This reprint set shows you Don's tested and proven real-world alternatives.        |828.50|5
|b
|a
|h
|/tinton1 |C|6BLATANT|j|j OPPORTUNIST|j|j  I
|h|F|a
|5The reprints from all Don's Midnight Engineering columns. Includes a broad range of real world, proven coverage on small scale technical startup ventures. Stuff you can use right now.      |8$24.50|5
|b
|a
|h
|/tinton1 |C|6RESOURCE|j|j BIN|j|j  I
|h|F|a
|5A complete collection of all Don's Nuts & Volts columns to date, including a new index and his master names and numbers list.        |8$24.50|5 
|b
|a
|h
|/tinton1 |C|6FREE|j|j SAMPLES
|h|F|a
|5Check Don's Guru's Lair at |-|/surl http://www.tinaja.com|5|/tinaja     for interactive \
catalogs and online samples \
of Don's unique products. Searchable reprints and reference resouces, too. Tech help, hot links to cool sites, consultants.    |jemail:|j|- |/surl don@tinaja.com|1|/maildon
) stringgonzo




showreaderservicenumber {

/sstretch 0.25 def
/cstretch 0.20 def

/font1 /Helvetica-Bold [6 0 0 8 0 0 ]gonzofont

bc  0 sub botheight neg 10 sub 2 sub

% (Write in ) readerservicenumber (     ) cvs mergestr
% ( on Reader Service Card.) mergestr cc

(FREE catalog: http://www.tinaja.com

(do NOT provide RS number!!) ) cc

} if


adsave restore

} def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



% %%% ADDITIONAL ELECTRONICS PATCHES %%%%

electronics begin

/npn {gsave newpath exch 0.2 sub exch translate -.1 0 1.2
0 360 arc gsave grayshade 
dup 1 ne {0.15 sub} if setgray fill grestore line2 stroke -0.2
0 translate line3 -.3 -.7 moveto 1.4 u line1 -.3 0 mt 1.3
l -.2 .4 mt 0.6 0.4 rlineto 1.2 u newpath -.2 -0.4 mt 0.6
-0.4 rlineto 1.2 d newpath 0.4 -0.75 mt -.2 .3 rlineto
-.2 -.3 rlineto closepath fill grestore} def

/npnl {gsave translate -1 1 scale 0 0 npn grestore} def

/pnp {gsave newpath exch 0.2 sub exch translate -.1 0 1.2
0 360 arc gsave grayshade 

dup 1 ne {0.15 sub} if  setgray fill grestore line2 stroke -0.2
0 translate line3 -.3 -.7 moveto 1.4 u line1 -.3 0 mt 1.3
l -.2 .4 mt 0.6 0.4 rlineto 1.2 u newpath -.2 -0.4 mt 0.6
-0.4 rlineto 1.2 d newpath -.2 .4 mt .3 .4 rlineto .1 -.3
rlineto closepath fill grestore} def

/pnpl {gsave translate -1 1 scale 0 0 pnp grestore} def

/circ3 {gsave currentpoint newpath  0.8 0 360 arc 
gsave grayshade dup 1 ne {0.15 sub} if  
pop 1 % try white
 setgray fill grestore black line1 stroke
 grestore} def %


end % electronics

% %%%ZZZZ%%%%%%%%%%%%%% URL PATCHES %%%%%%%%%%%%%%%%%%%%%%%%%%%%

% patch definitions...

% try a dictionary method

<<

/ultralab (http://commsci.usc.edu/ulab/links.html)
/ultrawide (http://www.uwb.org)

/spie (http://www.spie.org)
/sas (http://www.sas.org)

/ultrasub (mailto:fcc_uwb_noi-request@umunhum.stanford.edu)

/timedomain (http://www.time-domain.com)

/gigabooks (http://www.gigabooks.com) 

/nonsin1 (http://www.amazon.com/exec/obidos/ISBN=0120145979/donlancastersgurA/)
/nonsin2 (http://www.amazon.com/exec/obidos/ISBN=0120145804/donlancastersgurA/)
/nonsin3 (http://www.amazon.com/exec/obidos/ISBN=9810216890/donlancastersgurA/)
/nonsin4 (http://www.amazon.com/exec/obidos/ISBN=0120145758/donlancastersgurA/)
/nonsin5 (http://www.amazon.com/exec/obidos/ISBN=0120145774/donlancastersgurA/)

/spirit (http://www.amazon.com/exec/obidos/ISBN=0670882178/donlancastersgurA/)

/mems (http://www.memscap.com)

/b1 (http://www.aetherwire.com)
/b2 (http://commsci.usc.edu/ulab/ulab.html)
/b3 (http://www.com21.com)
/b4 (http://www.htc.honeywell.com)
/b5 (http://www.interval.com)
/b6 (http://www.llnl.gov)
/b7 (http://www.sensoft.on.ca)
/b8 (http://www.sss-mag.com)
/b9 (http://www.tapr.com)
/b10 (http://www.time-domain.com)
/b11 (http://www.trw.com)
/b12 (http://www.uwb.org)
/b13 (http://www.zircon.com)

/spread (http://www.sss-mag.com)
/spacetel(http://stlibrary.stsci.edu)
/parallax (http://www.parallaxinc.com)
/aerial (http://www.terraserver.microsoft.com)
/surplusal (http://www.qsl.net/w3ugd)
/seti2 (http://www.planetary.org)
/dewey (http://www.bslnet.com/map1)
/suremaps (http://www.horizons.com/suremaps)
/jameco (http://www.jameco.com)
/decade (http://www.decadenet.com/bob2/bob2.html)
/lindsay (http://www.lindsaybks.com)

/ng1 (news:///sci.electronics.design)
/ng2 (news:///sci.electronics.equipment)
/ng3 (news:///sci.electronics.misc)
/ng4 (news:///sci.electronics.repair)
/ng5 (news:///alt.education.disabled)
/ng6 (news:///alt.society.deaf)
/ng7 (news:///alt.support.disabled)
/ng8 (news:///alt.support.disabled.artists)
/ng9 (news:///alt.alt.support.learning-disab)
/ng10 (news:///misc.handicap) 
  



>>


{mark exch /eurl cvx ] cvx def} forall    % convert to defs


/maildon {(mailto:don@tinaja.com) eurl } def
/tinaja {(http://www.tinaja.com) eurl } def
/consult {(http://www.tinaja.com/consul01.html) eurl} def
/netscape {(http://www.netscape.com) eurl } def
/adobe    {(http://www.adobe.com) eurl } def
/aerp  {(http://www.aa.washington.edu/AERP/CRYOCAR/CryoCar.htm) eurl } def
/jdisk {(http://www2.hawaii.edu/suremath/jdisk1.html) eurl } def
/billb {(http://www.eskimo.com/~billb/freenrg/n-mach.html) eurl } def
/cool {(http://www.mtsc.unt.edu/CooLN2Car.html) eurl} def

/hack73 {(http://www.tinaja.com/glib/hack73.pdf) eurl} def
/hacklib {(http://www.tinaja.com/hack01.html) eurl} def
/magic {(http://www.tinaja.com/magsin01.html) eurl} def
/fourier {(http://www.tinaja.com/psutils/fourier.ps) eurl} def
/zeroharm {(http://www.tinaja.com/psutils/zeroharm.ps) eurl} def
/sincat210 {(http://www.tinaja.com/sn210cat.ps) eurl} def
/muse135 {(http://www.tinaja.com/glib/muse135.pdf) eurl} def


% power method...

/setglib {mark (http://www.tinaja.com/glib/) 2 index 20 string cvs
mergestr (.pdf) mergestr /eurl cvx ] cvx def} def

/sethtml {mark (http://www.tinaja.com/) 2 index 20 string cvs
mergestr (.html) mergestr /eurl cvx ] cvx def} def

/setweb {mark (http://www.) 2 index 20 string cvs
mergestr (.com) mergestr /eurl cvx ] cvx def} def

/magicsin {/msinprop} def
/parallax {/parallaxinc} def

[ /when2pat /msinprop  /magicsin /nuts08  /gramtram /muse112
/hack64 /hack86 /ratholes /hack52 /postflut /emergop4 /resbn67
/resbn73 /elesimp /dontsick /muse117 /bannyear /trimode 
/syncat01 /muse90 /hack54 /resbn66 
/bustpat /resbn66 ] {setglib} forall

[ /magsn01 /patnt01 /ismm01 /ismm01 /libry01 
/blat01 /advt01 /barg01 /amlink01 /weblib /barg01 
/bod01 /scweb01  /tinaja01 /synlib01 /info01 
/picup01 /webwb01 /golly01  /santa01 /acrob01
/hack01 /weblib01 /pseudo01 /info01 /beewb01  ] {sethtml} forall

[ /parallaxinc /lindsay /bh /amazon  /hotbot  /discoverypark
/keelynet /homepower /epri /rmi /mgfx /newtek /maxim-ic
/tinaja
/digital.altavista ] {setweb} forall

/papers {(http://cfarx1.harvard.edu/rx_lab) eurl} def
/mmt {(http://maisel.as.arizona.edu:8080) eurl} def
/nrao {(http://info.aoc.nrao.edu) eurl} def
/eskimo {(http://www.eskimo.com/~billb) eurl} def
/lindsay {(http://www.keynet.net/~lindsay) eurl } def

/adams {(http://www.adams1.com/pub/russadam) eurl} def
/aha {(http://www.ahasoft.com/complink.htm) eurl} def
/wavelet {(http://www.waveloe.org/wavelet/links.html) eurl} def
/drms {(http://www.drms.dla.mil) eurl} def
/billb {(http://www.eskimo.com/~billb) eurl} def

/info01g {(http://www.tinaja.com/info01.html) eurlg} def

%%%%%%

% This code locks pdfmark commands out of a PostScript printer.

/pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse

% /surl "start url" marks the beginning of a text sequence to be urled. 
% It also paints the text blue...

/surl {mark /blue cvx 0.33 /setgray cvx     % change text to blue
       /currentpoint cvx                    % remember box start
       /urly /exch cvx /store cvx
       /urlx /exch cvx /store cvx
         ] cvx                              % complete deferred command

       printlist exch 3 index exch put      % stuff into gonzo printlist
       exch 1 add exch                      % increment gonzo list count
} def

% /eurl "end url" unmarks the end of a text sequence and sets up
% the pdfmark needed to define the Acrobat web link. 


/eurl {mark                               % start deferred proc      
       exch                               % position url string
       /beige cvx 0  /setgray cvx         % turn blue marker off     
       /makeurl cvx                       % defer call of url builder
        ] cvx                             % complete deferred proc

        printlist exch 3 index exch       % stuff into gonzo printlist
        put exch 1 add exch               % increment gonzo list count      
        } def

/eurlg {mark        % special green for ad    % start deferred proc      
       exch                               % position url string
       /green cvx 0  /setgray cvx         % turn blue marker off     
       /makeurl cvx                       % defer call of url builder
        ] cvx                             % complete deferred proc

        printlist exch 3 index exch       % stuff into gonzo printlist
        put exch 1 add exch               % increment gonzo list count      
        } def

% /makeurl generates the pdfmark, receiving a {(urlstring) makeurl}.
% Note that it is not called until formatted printlist time...

/urlover 0.2 def                    % fraction of hot area over bounds

/makeurl { /cururlname exch store          % save the url string
            mark                           % start pdfmark

currentfont /ScaleMatrix get 3 get /fsize exch store  % guess height

  /Rect  [ urlx fsize urlover mul sub      % set box left x
           urly fsize urlover mul sub      % set box left y
           currentpoint
           exch fsize urlover mul add exch
           fsize add
           ]
           /Border [ 0 0 0]   % [0 0 0 ] = none; [0 0 2] = debug 
           /Color [ .7 0 0 ]
           /Action <</Subtype /URI /URI cururlname>>
           /Subtype /Link
           /ANN                            % annotation type
           pdfmark                        % call pdf operators    
} def



%%%%%%% END MUSE PATCHES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

muse3 starttemplate

/sstretch -0 def    % try even looser


/kern 0.5 def

/dropindent 48 def  % adjust for width of drop cap
/sstretch 0 def % looser still

/font0  /Times-Bold [48 0 0 54.1 0 -32] gonzofont   % normal
%/font0  /Times-Bold [45 0 0 54.1 0 -32] gonzofont   % narrow M

/font: /Times-Roman [9.5 0 0 -9.5 0 4.5 ] gonzofont
/font9 /Times-Roman [6.8 0 0 7.0 0 -3] gonzofont  % squared subscript
/font= /Times-BoldItalic [9 0 0 9 0 0 ] gonzofont % subtitles

/font9 /Symbol 9.5 gonzofont  % delta
/kern 0.5 def

% Command Summary:

% |0 - small caps font  |1 - normal text font   |2 - italic text font
% |3 - bold text font   |4 - caps text font     |6 - header font
% |F - fill justify     |L - left justify       |z - zero indent
% |p - normal indent    |y - negative linefeed  |8 - header font
% |g - start gonzo      |x - stop gonzo         |a - start drop cap
% |b - main body text   |c - start sub header   |d - end sub header
% |o - complement char


/sstretch 0 def

% /font9 /Symbol [9 0 0 0 0 0] gonzofont  % delta
/kern 0.5 def
/font; /Times-Roman  [6 0 0 6.01 0 3] gonzofont



% square root symbol and gonzo box autoposition linker

 /topstrlist {mark 3 1 roll {/roomleft exch roomleft exch sub def
 printlist exch 3 index exch put exch 1 add exch} /exec cvx ] cvx 
 def} def


/boxit{ gsave line1 currentpoint translate
      -1 -3 mt 10.5 pu 50.5 pr 10.5 pd closepath line1
      stroke grestore} 0 topstrlist

/sqrtsymbol {gsave currentpoint translate line1
             3 3 moveto 2 -5 rlineto 4 12 rlineto 32 0 rlineto
             stroke grestore} 0 topstrlist


% TEXT STARTS HERE

/tabs [60] def

startgonzo
|a
W
|b
hat will be the "next big thing" following spread \
spectrum comm? My best guess is that it just might \
involve much of the incredible new stuff coming down \
in\274
|c
Pulse  Radio
|d
We have seen a number of times before how important it is \
to relate time and frequency in nearly all of advanced electronics. \
Seems there was this |2Fourier|1 dude who said that any time \
or pulse waveform can be made up from bunches of \
carefully selected sinewaves correctly added together. For \
instance, a repeating square wave can be built by taking \
a sine plus a third its third harmonic plus one \
fifth its fifth harmonic, and so on. We saw a plot of \
this way on back in |/surl |4MUSE90.PDF|1|/muse90 .
Let us try this again in figure one. Only this time, I'm \
going to take ten sinewave harmonics and carefully \
|2weigh|1 each harmonic to stronger than unusual values. \
I'll then add them together. We \
get a fairly nice narrow pulse as our output. The \
PostScript code which lets you explore this by yourself \
appears in |/surl |4MUSE135.PSL|1|/muse135  
What happens here is that all the sinewaves "pile up" or \
time |2correlate|1 on their pulse peak but pretty much \
cancel out otherwise.
Yeah, this pattern repeats. There are lots of other \
pulses "hidden" off the graph. But we could keep adding \
lower and lower frequency sinewaves to spread the \
repetitions further and further out in time. And, yeah, \
that pulse baseline should be shifted on down \
from zero because the positive energy of a pile of \
sinewaves has to equal their negative energy on a long \
term average. But we can get rid of most of this shifting, \
again by adding enough subharmonics. 
Thus, |/tinton1 |2a single pulse can be built      |/tinton1 from a large enough \
pile of carefully     |/tinton1 arranged sinewaves|1.
This is a very simple example of a |2spread spectrum|1 \
scheme. Note that energy is \
transmitted |2simultaneously|1 at ten |2different|1 \
frequencies to build the pulse. Similarly, if we \
have this pulse, its energy will be spread out \
over ten different frequencies.
You could think of this pulse as having ten separate \
transmitters, each on its own frequency channel. Should \
there be any multipath or interference problems on a \
channel or two, all the others should fill in as needed.
Figure two shows us a very useful \
single shape known as a |2Gaussian|1 pulse. Instead of \
being built up from a few locked harmonics, a \
Gaussian pulse has energy components of \
|2all possible frequencies|1. As you can see, a one \
nanosecond pulse width uses frequencies that mostly lie \
below one GigaHertz. One nanosecond is a nice size, \
since it also equals one foot of radar resolution.
Very nicely, a Gaussian pulse can be produced in an \
antenna and then transmitted by suddenly changing an \
antenna's current.
We see that Gaussian pulses have an extremely spread \
spectrum. Now, |2if|1 we can find some way to suddenly \
switch Ampere sized or larger signals into a special antenna \
and |2if|1 we can find some way to build up physically \
small ultra broadband antennas with decent lf radiation \
resistance, and |2if|1 we can find some elegant means to \
move repeating pulses around, then all sorts of exciting \
things happen.
And that is pretty much what pulse radio is all about.
Using pulse radio, you send out a bunch of Gaussian \
pulses that repeat in a usefully coded sequence. Either \
to |2radio|1 communicate by sending out digitized \
info or to |2radar|1 measure a distance by \
evaluating path times.
Which just might give us several really big advantages\274
|h|z
|/tinton1 |6no tuning components|j\261|/tintoff  |1Because the system is \
so broadband, there are no resonant or tuning components. \
Nor any adjustments. Most parts can get integrated onto a single chip.
|h
|/tinton1 |6effective frequency use|j\261|/tintoff  |1the data or signal rates can \
go up to |470%|1 or more of the bandwidth. This is far \
higher than normal.
|h
|/tinton1 |6lower costs|j\261|/tintoff  |1silicon can replace \
fancy semiconductors because of the lower system \
frequencies involved.
|h
|/tinton1 |6no multipath|j\261|1|/tintoff  Because the energy is splattered \
across the entire spectrum, multipath signal problems \
virtually disappear.
|h
|/tinton1 |6better penetration\261|1|/tintoff  Pulse radio does seem \
remarkably adept at going into buidings, through trees, \
and even can do limited ground penetration.
|h
|/tinton1 |6highly secure\261|1|/tintoff  It seems exceptionally difficult for \
a third party to intercept pulse radio comm when they do \
not know the spreading codes.
|h
|/tinton1 |6interference resistant\261|1|/tintoff  Jamming an ultra broad \
band signal is very hard to do if you are using anything this side \
of a raw spark gap.
|h
|/tinton1 |6high resolution\261|1|/tintoff  Distances can now be measured to \
surprising accuracy for a given cost and \
bandwidth. Very precise clocks are not \
needed.
|h
|/tinton1 |6high channel capacity\261|1|/tintoff  Hundreds or even thousands \
of users can share the same region interference free, \
when codes are properly selected.
|h
|/tinton1 |6long range\261|1|/tintoff  Up to several miles are possible at \
milliwatt power levels.
|h
|/tinton1 |6micropower\261|1|/tintoff  Most transmitters and receivers \
should need far less power. Besides being smaller and cheaper \
than conventional circuits.
|h|p
Actually, pairs of pulses known as |2impulse doublets|1 or \
|2monocycles|1 are usually transmitted by connecting an \
|4"H"|1 bridge to its broadband current mode \
antenna. A logic one gets sent positive pulse first; a \
logic zero gets sent with negative polarity first. The \
positioning of the individual pulses sets up an \
elaborate pseudorandom code with strong self-correlation \
and very low cross-correlation properties. Different codes \
let hundreds or even thousands of \
transmissions in any area that will not interfere.
A simplified block diagram of one possible pulse radio \
setup appears in figure three. The transmitter is just \
an H-Bridge driver, usually built up from |4CMOS|1. Suddenly \
flip switches |2a|1 and |2d|1, and a positive Gaussian pulse will get \
output from the |2current mode|1 antenna. When you turn |2b|1 and |2c|1 \
on, a negative Gaussian pulse gets output. Between \
pulses, the antenna current is given a return path by \
turning |2a|1 and |2b|1 on. Or else |2c|1 and |2d|1.
The receiver consists of an antenna and a broadband \
amplifier. A local |2phase lock loop|1 or a similar \
circuit keeps track of your expected arriving ones and \
zeros. An attempt is made to match what you really get \
against what is expected using a |2correlation|1 \
technique. Finally, the received data either gets passed \
on as data (for a modem) or is converted to a distance \
measurement (for a radar).
We saw more on correlation back in |/surl |4HACK54.PDF|1|/hack54 
Figure four shows some resource websites and papers that \
should get you started exploring pulse radio. Your \
simplest starting point is to just punch "impulse \
radar" into Hotbot. Use the button at \
|/surl |2www.tinaja.com|1|/tinaja . Next check \
the |2Ultralab|1 link \
farm at     |/surl |2commsci.usc.edu/ulab/links.html|1|/ultralab . The leading \
advocacy group is the |2Ultra Wide Band Working Group|1 \
found at      |/surl |2www.uwb.org|1|/ultrawide . Good link lists appear there and \
|/surl |2www.tine.domain.com|1|/timedomain .
A rather useful mag here is Randy Robert's |2Spread Spectrum \
Scene|1 at      |/surl |2www.sss-mag.com|1|/spread  An essential text is \
that |2Radiation of Nonsinusodial \
Electromagnetic Waves|1 by Helman Harmuth. More details on this text at \
    |/surl |2www.tinaja.com/amlink01.html|1|/amlink01 
|c
What  Good  Is  It?
|d
Well, modems for openers. Data comm inside of buildings has \
fewer multipath and interface problems. Outside, you get \
longer distances on lower power. Comm is more \
secure, since it is insanely harder to detect by a third \
party. And Internet |4ISP|1's can hang a pulse radio on \
every tree. Giving you fast, "always connected" net \
access. And saving them lots of phone \
bills.
Vehicular safety radars. In front for thruway "safe \
distance" driving, on the sides as a parking aide, and \
in the back as a garage wall alarm.
The really big deal in computer animation these days is \
called |2motion capture|1. Where a dancer or actor has \
enough sensors on them that their avatar alter ego can \
realistically track them. In real time. Things get \
sticky fast when you have a room full of actors or need \
enough sensors that are cheap enough for faithful joint \
renditions. Pulse radio is poised to dramatically lower \
the costs here.
Prisons are an obvious use, where the location of each \
inmate can get continuously monitored. The same goes for \
firemen. Or soldiers on a battlefield where each \
has their own |4IFF|1 (Identification Friend \
or Foe) capability. And by odious big brother \
extensions, if everybody had to wear one of these, \
all traditional crimes would surely decrease.
Accurate distance measurements. Inventory control. \
Otherwise known as |5RFID|1 and an abbreviation for |2RF \
Identification Devices|1
Smart highways for vehicle \
nav. Pagers. Security and survelliance.
Personal "body" networks. Where you link your worn \
pager, cellphone, |4GPS|1 receiver, calculator, \
wristwatch, |4EKG|1 monitor, tv set, internet module, \
email display, Furby, and a coffee grinder together. 
Pulse radio offers strong ground penetration properties, \
given suitable antenna coupling and careful design. This \
leads to all sorts of apps from measuring the thickness \
of a glacier; finding the condition of buried steel in a \
bridge; doing archaeological mapping, utility pipe finding, or land mine \
recovery; and even treasure hunting. I'm especially \
fascinated by the possibility of applying lower \
frequency "holographic" arrays of pulse radio to cave \
exploration.
Does pulse radio take us back to the time of spark gaps? \
Where the loudest signal will always win? Not really, because \
most impulse radio apps will usually be micropower \
and have strictly limited ranges. But too many impulse \
radio systems in too small an area clearly will raise the \
background noise level for all other comm schemes. And a wimpy \
nearby signal clearly might trash a distant strong one. This \
one is called the |2near-far|1 problem.
There's a side effect to pulse radio that raises serious \
|4SETI|1 exploration questions. We are just beginning to \
learn that efficient communication is real hard to tell \
from low levels of noise. Supposedly smart \
civilizations probably have stopped \
blasting narrow spectrum radio power into space. Two \
predictions: |4(a)|1 today's |4SETI|1 searches, while \
admirable, are looking for the wrong signals in the \
wrong way in the wrong places; and |4(b)|1 an extremely \
small but horribly significant portion of what seems \
to be eltragalactic noise is in fact intelligent \
communications.
This one may take a while to sort out completely.
|c
Brain  Parity
|d
A few years back, I made the big prediction that we'd have human \
brain capable computers right about now. Yeah, these \
aren't a loss leader at |2Wal-Mart|1 quite yet.
The \
unused "between keystokes" capacity of the web on an \
average day certainly is a lot larger than humnan brain \
size. And lots of other examples can be found of \
specialized computing systems that do go way beyond human \
abilities.
There's a new "must read" book titled |/surl |2The Age of \
Spiritual Machines|1|/spirit  by Ray Kurzwell. He convincingly \
predicts |4$1000|1 brain parity machines in less than \
two decades.
And better machines that routinely will offer |41000X|1 human \
capability in three or less.
Kurzwell is rather big on neural nets, since this is his \
bag. My own feelings are that other non-neural architectures \
should be able do much more much better. The reason \
being that neural nets came about under severe \
engineering restraints. Being wetware, slow, and \
chemical. And, above all, by being forced to evolve \
gradually. A foremost engineering rule is that |/tinton1 |2whenever \
you excessively     |/tinton1 constrain any parameter, \
something      |/tinton1 else \
has got to give|1.
Nonetheless, neural nets certainly should be \
explored, and developed. Kurzwell's book and his \
references are a superbly good starting point. He also \
addresses brain |4I/O|1 and all the incredible potential of \
being able to real time read and write to individual \
live human neurons. Some of which hints at \
immortality.
There is definitely a buck to be made here. After all, \
most any used car salesman would gladly pay |4$19.95|1 \
for a remote control that has three buttons on it. Marked \
|4ENTER LOT|1, |4BUY|1 and |4GO AWAY|1. And the |5BMW|1 \
dealers might even spring extra for the |4$29.95|1 lilac \
scented and rosewood inlaid version.
A lot more info on |/surl |2The Age of|/spirit             |/surl Spiritual Machines|1|/spirit  can be \
gotten at     |/surl |2http://www.tinaja.com/amlink01.html|1|/amlink01 
|c
Home  Bookbinding
|d
With one glaring exception, home |2Book-on-demand|1 \
publication has now arrived. Thanks both to |2Acrobat|1 and \
duplexing PostScript laser printers, you can easily \
publish all your own books at very low cost. One at a time. \
On a when and as needed basis. But a lower cost binding \
solution remains a elusive dream.
I have personally still been using |2Unibind|1 and \
|2Pentabind|1 products, but sorely would like to use something \
better. The latest of |2Unibind|1 thermal binders \
have a steel |4"U"|1 shaped strip in them. The good \
news is that the backs always end up solid, wrinkle \
free, and square. The bad news is that you'll have to \
carefully match pages and paper thicknesses.  \
Worse yet, you cannot trim these binders \
using an ordinary paper shear.
Chet Novicki has just published |2Perfect Binding \
Handbook \261 Making Trade Paperbacks by Hand|1 Chet \
found that ordinary hardware store flexible contact \
cement does make a dandy bookbinding glue. He also has come \
up with some clamps and a simple process that lets you \
bind books that look just like the ones in the \
bookstore.
A |45-1/2|1 by |48-1/2|1 cover is often the easiest, usually \
using some heavier coated stock. The trick is to start with \
a legal sized cover stock, leaving all of the scrap on \
the front end of the book. A simple trimming solves the \
dilemma of needing a spine width over and above the size \
of a regular folded page.
Besides Chet, the |2Paper Plus|1 chain is one great \
place to get materials. There's also over a dozen direct \
mail paper outfits who also sell in small quantities. We \
looked at many of these back in |/surl |4RESBN66.PDF|1|/resbn66  and \
in      |/surl |2www.tinaja.com/bod01.html|1|/bod01  
Chet can be reached through his      |/surl |2www.gigabooks.com|1|/gigabooks  Besides \
binding books, he also sells low cost binding machines, \
materials, supplies, and his consulting services. An \
extensive listing of bookbinding books appears at \
|/surl |2www.tinaja.com/amlink01.html|1|/amlink01  More on Acrobat at \
|/surl |2www.adobe.com|1|/adobe  and |/surl |2www.tinaja.com/acrob01.html|1|/acrob01  And \
much more on |4BOD|1 are in my      |/surl |2Book-on-demand Resource \
Kit|1|/bod01  and at    |/surl |2http://www.tinaja.com/bod01.html|/bod01 
|c
Richard  Feynman
|d
I've long been a Richard Feynman fan. Who discovered \
fundamental quantum mechanics. In all his spare time, he built the atom bomb, \
made physics understandable to legions of students, \
solved the Challenger space accident, cracked safes, \
infuriated all security personnel, while he expertly played bongo drums.
I've gathered a few of the better books in the nearby listing.
|c
New  Tech  Lit
|d
From |2Analog Devices|1, the |2Winter |51999|2 Short Form \
Catalog|1. And by |2Texas Instruments|1, a |2Convert \
Analog|1 |4CDROM|1 about analog-to-digital and \
digital-to-analog conversions. From |2International \
Rectifier|1, a new data book on power semiconductors. \

From |2Linear Technology|1, |4Design Note |4161|1 \
on "smart rock" micropower transponders. And from \
|2Allegro Microsystems|1, their free |4CD ROM|1 \
dataguide on chips, sensors, and power \
drivers.
The |2MemScap |5MEMS|1 Universe|1 is a freebie new data \
|4CD|1. Subtitled |2The Power of a Small World|1, this \
one is on microminiature nanotechnology. Stuff like \
micro mirrors, resonators, comb fingers, electrostatic \
motors, tiny inductors, and even unbelievably small \
hinges. You can pick up more details at |/surl |2www.memscap.com|1|/mems 
I finally found the definition for |4ISO 9001|1. Which is \
just an insider's secret term for "no wrinkles on the \
Duck tape"
The |2AeroSence|1 conference will be held April |45-9, \
1999|1 at the Orlando World Center. Sponsored by \
|5SPIE|1, there's an incredible variety of laser sensing, \
wavelet, unmanned vehicle, neural networks, and infrared \
comm offerings here. Contact |/surl |2www.spie.org|1|/spie  for more \
details.
Free samples this month include plastic "wire" binding \
samples from |2Plastikoil|1, and expandable sleeving from \
|2Brand Dielectrics|1. Featured trade journals do include \
|2Electronics Cooling|1, |2Vision Systems|1, the pricey \
|2Smart Card Alert|1 newsletter, and that |2Inside \
Finishing|1 all about hot stamp technology.
The |2Society of Amateur Scientists|1 publishes their \
|2Amateur Scientists Bulletin|1, besides running forums \
and other useful activities. You can visit them at \
|/surl |2wwww.sas.org|1|/sas .
For most individuals most of the time, any involvement \
with patents is almost certainly going to \
result in a monumental loss of time, energy, money, and \
sanity. Find out exactly why, along with tested and proven real \
world alternatives, in my |/surl |2Case|/patnt01       |/surl Against Patents|1|/patnt01  \
package. As per my nearby |/surl |2Synergetics|1|/synlib01  ad. Or check out \
    |/surl |2www.tinaja.com/patnt01.html|1|/patnt01 .
I just made some major upgrades to both my |/surl |2Acrobat \
Library|1|/acrob01  and my |/surl |2webmaster library|1|/weblib01  shelves found at \
    |/surl |2www.tinaja.com/acrob01.html|1|/acrob01  and \
    |/surl |2www.tinaja.com/weblib01.html|/weblib01  See \
    |/surl |2www.tinaja.com/info01.html|1|/info01  for lots of instant research \
solutions and my     |/surl |2www.tinaja.com/barg01.html|1|/barg01  for some \
incredible surplus electronic bargains. 
As usual, most of the mentioned items are in our \
|2Names & Numbers|1 or |2Feynman Books|1 sidebars. \
Always check here first before calling our no-charge |4US|1 \
helpline shown in the service box. |/tinton1 |-F|1

|x




57 95 menu8 
% 57 348 menu8 

showpage


% this optionally displays the figures


/prodart false def

prodart {       


% redefine figures

/fig1x {40 50  2colwide f1h true   
       true /f1name /figure1 stdmusefig} def % link 

/fig2x {40 50 2colwide f2h true
       true /f2name /figure2 stdmusefig} def % link   

/fig3x {40  50  2colwide f3h true
       true /f3name /figure3 graymusefig} def % link 

/fig4x {40 50  2colwide f4h true
       true /f4name /figure4 stdmusefig} def % link 


/helpx {50 200
       1colwide h1h true false /helpname
       /hackhelp graymusefig} def

/ad1 {100 100 1colwide f5h
       false true /ad1name /ad1copy stdmusefig} def % link 

% run color sequence

/usecolor false def % special fig 1
/grayshade 0.92 def
 1.5 dup scale {0 0  0.9 fig1x} exec showpage

/narrowfig 0 def
 1.5 dup scale {0 0 0.9 fig2x} exec showpage
/narrowfig 0 def

/narrowfig 0 def

0 -20 translate
 1.5 dup scale {0 0  0.9 fig3x} exec showpage
/narrowfig 0 def

/narrowfig 0 def
0 -20 translate
% landscape  30 0 translate
 1.5 dup scale {0 0 0.9 fig3x} exec showpage
/narrowfig 0 def

 /narrowfig 0 def
  1.2 dup scale { 0 0  0.9 fig4x} exec showpage
 /narrowfig 0 def


/surl{}def /maildon{} def /tinaja {} def
-100 150 translate 1.5 dup scale {0 -6 1 help} exec showpage

% turn off colors

/setgray1 { dup grayshade 1 eq { 0.5 gt {pop 1}{pop 0} ifelse
                  } {pop} ifelse
           setgray  } def

/grayshade 1 def

/urlx 50 def  % temp?
/urly 50 def

/tinton1 {} def
/tinton {} def


/usecolor false def  % special for figure one
/grayfig1 1 def

 1.5 dup scale {0 0 0.9 fig1x} exec showpage

/narrowfig 0 def
% landscape -30 0 translate
  1.5 dup scale {0 0 0.9 fig2x} exec showpage
/narrowfig 0 def 

/narrowfig 0 def
% landscape -30 0 translate
0 -20 translate
 1.5 dup scale {0 0  0.9 fig3x} exec showpage
/narrowfig 0 def

/narrowfig 0 def 
 1.2 dup scale { 0 0  0.9 fig4x} exec showpage
 /narrowfig 0 def


/surl{}def /maildon{} def /tinaja {} def

-100 150 translate 1.5 dup scale {0 -6 1 help} exec showpage

/showreaderservicenumber true def
/showadgrays false def
 /tinton1 {black} def
1.5 dup scale {0 31 21 add 1 ad1} exec showpage

0 -400 translate  
1.5 dup scale {0 31 21 add 1 ad1} exec showpage

} if 

% 50 320 menu8