." $Header: /usr/src/ucb/vlp/RCS/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=