PDP-10 Archive: 5-galaxy/psp.rel from SRI_NIC_PERM_SRC_1

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 5-galaxy/psp.rel

There are no other files named psp.rel in the archive.

 0'Hp[)6gg	 TTY55: xg
/ph	 oon
{
/MD exch def
/Mr exch def
/My exch def
/Mx exch def
/pi3.1415926535 def
/ANM 2497886484 def
/SP 2551443 def
/temp MD ANM sub def
/IP temp temp SP div tru	 )ncate SP mul sub def
/AP IP SP div 2 mul pi mul def
/MCAP AP pi div 180 mul cos neg	 2 def
Mx Mr sub 10 sub My Mr sub 10 sub moveto Mr 2 mul 20 add dup box 0 setgray fill	 :
AP 0 ge AP pi lt and {RHM} {LHM} ifelse
} def
/RHM
{ Mx My moveto Mx My Mr 270 9	 C0 arc 1 setgray fill
MCAP 0 le {0 RE} {1 LE} ifelse
} def
/LHM
{ Mx My moveto Mx 	 KMy Mr 90 270 arc 1 setgray fill
MCAP 0 le {0 LE} {1 RE} ifelse
} def
/RE
{ Mx My 	 TMr MCAP abs mul Mr 270 90 E setgray fill } def
/LE
{ Mx My Mr MCAP abs mul Mr 90 27	 \0 E setgray fill} def

/Edict 8 dict def
Edict /mtrx matrix put
/E
{Edictbegine
/endangle exch def
/startangle exch def
/yrad exch def
/xrad exch def
/y exch de	 mf
/x exch def
/savematrix mtrx currentmatrix def
x y translate
xrad yrad scale
0	 v 0 1 startangle endangle arc
savematrix setmatrix
end
}def

/box
{currentpoint~
newpath
moveto
/y exch def
/x exch def
x 0 rlineto
0 y rlineto
x neg 0 rlineto	 
closepath
} def

/PF
{pop pop pop pop} def

/inch {72 mul} def

/curvedbox
{/r exch def
/y exch def
/x exch def
currentpoint
/cy exch def
/cx exch def
ne	 wpath
cx x 2 div add cy moveto
cx x add cy cx x add cy y add r arcto PF
cx x add c	  y y add cx cy y add r arcto PF
cx cy y add cx cy r arcto PF
cx cy cx x 2 div add cy	 ) r arcto PF
closepath
stroke
} def

/font
{exch
findfont
exch scalefont
setf	 1ont
} def

/inversetext
{dup stringwidth
/y exch def
/x exch def
currentpoint:
2 copy
newpath
moveto
/y 12 def
x 0 rlineto
0 y rlineto
x neg 0 rlineto
close	 Bpath
0 setgray
fill
1 setgray
moveto
show
0 setgray
} def

1 inch 7 inch mov	 Keto 6.5 inch 3 inch 25 curvedbox
494 674 16  phoon

.5 setgray
newpath
.5 i	 Snch 1 inch moveto
.5 inch 10 inch lineto
.75 inch 10 inch lineto
.75 inch 1 inch l	 \ineto
closepath
fill

newpath
7.75 inch 1 inch moveto
7.75	inch10inch lineto
8 inch 10 inch lineto
8 inch 1 inch lineto
closepath
fill

0 setgray

/Helvet	 mica 14 font
1.5 inch 9.5 inch moveto (User:) show 2.2 inch 9.5 inch moveto () inv	 uersetext
1.5 inch 9.0 inch moveto (Date:) show 2.2 inch 9.0 inch moveto () show
1.	 ~5 inch 8.5 inch moveto (File:) show 2.2 inch 8.5 inch moveto ( ) show

showpageA(
3hg"Od4\"(4@D@4@ 	4[\$ &#4@ " 4@	((E \"j!"\$4@ B k4@#4 Dfkl$4 	"  G4!    $ l $ &  $\"l "	 T**(@4*+,\"j+' B o4@ o54@\"g !& 	"U
1

4@ g3Bg+9\"p!"\$r4@ B o4@ ,D	*@
9 ,D  $ ":L;,M 	4?  $6B	`	( B6B`<+C-< 
\$g"&D4G  \$g"&D/	" 
J 4HE	4L,~ \$@K,]  &J4@\$P@	  S  4V\$u@OdH4@\$}@

	*[4@\$,~ &[/$:V%&Q@'t0(.&1&Q@+c &9c$$Q@.$"d,~  " +d	"gPS~LaserWriter in use by 
x`X%@Name of file to print:  (oddAssuming text file.
SYSTEM:PREPEND.PS	H+H2S[pKHz#,
G8[S 
GD7S 	
GE75
Ks	JO	)	 JO	gI@H0 3Q&;]H
ajB
al7;	@w<fML@
iD''
~${4	KHY4	Kzd(T<#K+l)kK+lj,	K+lu_K+m+EfS
k#K"XH1TOs>Aj<{otg|L

:zW

KzK'

Dq0KJ

k.&?HLl[eV~HB(HB)

r:^S	@"H%)F'P%)u%*}%*

eL

(e|))qkRpD

Keo*O'`Mo*UpMo+xx	"Mo+Mo+G#xo"gzo#KWuQcP	P		P	bP2iP2iPHgPHheO/L`Pk"OjLO|Z\O`xO`O`/Pzd"OOqh OOrc `kaDOvA+8 ( u