(///users/sweet.pa/fumc/register.jam) = (width) 8.5 .def (height) 5.5 .def (sideMargin) .2 .def (bottomMargin) .23 .def (nameWidth) 4.75 .def (titleHeight) .80 .def (labelHeight) .5 .def (name-addr-font) 8 .def (column-head-font) 8 .def (bigger-head-font) 12 .def (small-church-font) 10 .def (church-font) 12 .def (title-font) 16 .def (turn-font) 8 .def (name-indent) .25 .def (date-width) 1 .def (narrowLine) (1 .setstrokewidth black .setcolor) .cvx .def (mediumLine) (2 .setstrokewidth black .setcolor) .cvx .def (wideLine) (3 .setstrokewidth black .setcolor) .cvx .def (centeredShow) ( 0 0 .setxy (theText) .exch .store -0.5 1 .scale .true .setnoimage theText .show -2 1 .scale .false .setnoimage theText .show).cvx .def (centeredSqueeze) {{ 0 0 .setxy .90 1 .scale (theText) .exch .store -0.5 1 .scale .true .setnoimage theText .show -2 1 .scale .false .setnoimage theText .show}.cvx .dosave} .cvx .def (rjShow) ( 0 0 .setxy (theText) .exch .store -1 1 .scale .true .setnoimage theText .show -1 1 .scale .false .setnoimage theText .show).cvx .def (serif-font){(xerox/pressfonts/timesroman-mrr) .exch 0 .nsrsetfont}.cvx .def (set-font){(xerox/pressfonts/helvetica-mrr) .exch 0 .nsrsetfont}.cvx .def (inches) {72 .mul} .cvx .def (goX) {inches 0 .translate} .cvx .def (goY) {inches 0 .exch .translate} .cvx .def (goXY) {inches .exch inches .exch .translate} .cvx .def (Hline) {inches 0 0 .moveto 0 .lineto .maskstroke} .cvx .def (Vline) {inches 0 0 .moveto 0 .exch .lineto .maskstroke} .cvx .def (goX) {inches 0 .translate} .cvx .def (goY) {inches 0 .exch .translate} .cvx .def (goXY) {inches .exch inches .exch .translate} .cvx .def (text) {{.90 1 .scale 0 0 .setxy .show} .cvx .dosave} .cvx .def (show1-bigger) {{ labelHeight bigger-head-font 72 .div .sub 2 .div goY centeredShow }.cvx .dosave}.cvx .def (show1) {{ labelHeight column-head-font 72 .div .sub 2 .div goY centeredSqueeze }.cvx .dosave}.cvx .def (show3) {{ labelHeight column-head-font 72 .div 3 .mul .sub 2 .div goY column-head-font 72 .div .exch centeredSqueeze .dup goY .exch centeredSqueeze goY centeredSqueeze }.cvx .dosave}.cvx .def (show4) {{ labelHeight column-head-font 72 .div 4 .mul .sub 2 .div goY column-head-font 72 .div .exch centeredSqueeze .dup goY .exch centeredSqueeze .dup goY .exch centeredSqueeze goY centeredSqueeze }.cvx .dosave}.cvx .def (showTitle2) {{ titleHeight title-font 72 .div 2 .mul .sub 2 .div goY title-font 72 .div .exch centeredShow goY centeredShow }.cvx .dosave}.cvx .def (showlines) {{ (w0) width sideMargin 2 .mul .sub .store (w1) w0 nameWidth .sub 7 .div .store (h2) height bottomMargin .sub titleHeight .sub .store (h0) h2 labelHeight .sub 7 .div .store (h1) h0 2 .div .store sideMargin bottomMargin goXY mediumLine w0 Hline h1 goY narrowLine nameWidth Hline h1 goY mediumLine w0 Hline h1 goY narrowLine nameWidth Hline h1 goY mediumLine w0 Hline h1 goY narrowLine nameWidth Hline h1 goY mediumLine w0 Hline h1 goY narrowLine nameWidth Hline h1 goY mediumLine w0 Hline h1 goY narrowLine nameWidth Hline h1 goY mediumLine w0 Hline h1 goY narrowLine nameWidth Hline h1 goY mediumLine w0 Hline h1 goY narrowLine nameWidth Hline h1 goY mediumLine w0 Hline labelHeight goY mediumLine w0 Hline nameWidth h2 .neg goXY mediumLine h2 Vline narrowLine w1 goX h2 Vline w1 goX h2 Vline w1 goX h2 Vline w1 goX h2 Vline w1 goX h2 Vline w1 goX h2 Vline }.cvx .dosave}.cvx .def (label-rows) {{ name-addr-font set-font sideMargin bottomMargin goXY label-one-row h0 goY label-one-row h0 goY label-one-row h0 goY label-one-row h0 goY label-one-row h0 goY label-one-row h0 goY label-one-row h0 goY }.cvx .dosave}.cvx .def (label-one-row) {{ name-indent h1 name-addr-font 72 .div .sub goXY (Address) text .5 nameWidth .mul .dup goX (City) text .2 nameWidth .mul .dup goX (Zip Code) text .add .neg goX h1 goY (Name) text .6 nameWidth .mul goX (Phone) text .4 -.1 goXY 0 0 .setxy 18 set-font (( )) .show }.cvx .dosave}.cvx .def (label-cols) {{ sideMargin nameWidth 2 .div .add height titleHeight .sub labelHeight .sub .014 .add goXY bigger-head-font set-font (Name and Address) show1-bigger column-head-font set-font nameWidth w1 .add 2 .div goX w1 goX (Member) (of) (this) (Church) show4 w1 goX (Frequent) (Attender,) (Non-) (Member) show4 w1 goX (Interested) (in) (Member-) (ship) show4 w1 goX (Visitor) show1 w1 goX (Put us) (on the) (mailing) (list) show4 w1 goX (Desire) (a) (Call) show3 }.cvx .dosave}.cvx .def (label-form) {{ width 2 .div height titleHeight .sub .014 .add goXY title-font serif-font (Welcome to this service of worship. Please register your attendance) (and pass on to others in the pew as they arrive.) showTitle2 }.cvx .dosave}.cvx .def (church-text) {{ width sideMargin .sub bottomMargin church-font 2 .add 72 .div .sub goXY church-font serif-font (F) .show small-church-font serif-font (IRST ) .show church-font serif-font (U) .show small-church-font serif-font (NITED ) .show church-font serif-font (M) .show small-church-font serif-font (ETHODIST ) .show church-font serif-font (C) .show small-church-font serif-font (HURCH OF ) .show church-font serif-font (P) .show small-church-font serif-font (ALO ) .show church-font serif-font (A) .show small-church-font serif-font (LTO) .show }.cvx .dosave}.cvx .def (church-name) {{ width sideMargin .sub bottomMargin church-font 1 .add 72 .div .sub goXY 0 0 .setxy -1 1 .scale .true .setnoimage church-text -1 1 .scale .false .setnoimage church-text }.cvx .dosave}.cvx .def (date-slot) {{ narrowLine width sideMargin .sub height titleHeight .sub column-head-font 3 .add 72 .div .add goXY date-width .neg Hline date-width -2 .div column-head-font 72 .div .neg goXY column-head-font set-font (Date) centeredSqueeze }.cvx .dosave}.cvx .def (turn-page) {{ sideMargin .5 .add bottomMargin turn-font 3 .add 72 .div .sub goXY turn-font serif-font 0 0 .setxy (Turn to next sheet when full.) .show }.cvx .dosave}.cvx .def (show-form) {{ showlines label-rows label-cols label-form church-name turn-page date-slot }.cvx .dosave}.cvx .def (two-up) {{ height goY show-form width goX 180 .rotate show-form }.cvx .dosave}.cvx .def (h-register) {(register.pd) .openhornetpd .true .setpriorityimportant two-up .closepd}.cvx .def (plateit-register) {(pms-register.pd) .openplatemakerpd .true .setpriorityimportant two-up .closepd}.cvx .def constants utilities ʨ˜Jšœ'˜'J˜šœ ™ J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜—šœ ™ J˜:J˜:J˜8J˜—J˜¶J˜JšœL˜LJšœI˜IJ˜J˜%J˜+J˜7J˜