4.3BSD-UWisc/lib/vlpmacs

.\" $Header: vlpmacs,v 1.4 83/08/04 16:15:42 layer Exp $	
.\" .Fi   -- print out file name and date, used at beginning of document
.\"
.de Fi
.ds Hd
.if !'\\*(F='' .bp
.if '\\*(F='' .sp 5v
.ds F= \\$1
.nr % 1
.ev 1
.ft 2
.ps 12
.tl 'File: \\*(F=''Modified: \\$2'
.tl '''Printed: \\$3'
.ev
.sp .25i 
..
.\"
.\" .Ti <text> -- declare text to be printed at the bottom of each page
.\"
.de Ti
.ds T= \\$1
..
.\"
.\"  .He   -- print out bottom of page information, and skip to next page
.\"
.de He
.br
.ev 1
.ft 2
.ps 12
.sp .25i
.tl '\\*(T=''Page \\n% of \\*(F='
.bp
.ft 3
.ps 12
.sp 4v
.if !'\\*(Hd'' .tl '''...\\*(Hd'
.if !'\\*(Hd'' .sp .25i
.ev
..
.\" 
.\" trap bottom of page -1.25 from bottom of paper
.\"
.\"
.\"	.Lf <name> --- declare we are in lisp function <name>
.\"
.de Lf
.ds Hd \\$1
.br
.ev 2		\" So it works with me macros, which use ev 1
.ft 3
.ps 12
.tl '''\\*(Hd'
.ev
..
.\"
.\"
.\"	.Ls <size> --- Begin block of embedded Lisp code
.\"
.de Ls
.\" save the point size and vert spacing
.nr Op \\n(.s
.nr Ov \\n(.v
.if \\n(.$=1 .ps \\$1
.if \\n(.$=1 .vs \\$1+2v
.\" save fill register flag in Xu and start fill mode
.nr Xu \\n(.u
.nf
..
.\"
.\"
.\"	.Le --- End block of embedded Lisp code
.\"
.de Le
.vs \\n(Ovu
.ps \\n(Op
.if \\n(Xu .fi
..
.ds T= 
.ds F=