(FILECREATED "21-SEP-83 09:15:19" {PHYLUM}<BLUEBONNET>DMRUSSELL>COPYJOBDATA.;2 24212
previous date: "20-SEP-83 21:56:14" {PHYLUM}<BLUEBONNET>DMRUSSELL>COPYJOBDATA.;1)
(PRETTYCOMPRINT COPYJOBDATACOMS)
(RPAQQ COPYJOBDATACOMS ((FNS * COPYJOBDATAFNS)
(RECORDS * COPYJOBDATARECORDS)
(VARS * COPYJOBDATAVARS)
(PROP (helpMessage defaultValue relevancyPredicate default)
CopyBrightness)
(PROP valueRange Collate CopiesOnStandardPaper CopiesTooThickToStaple CopyBrightness
InputProcessor OriginalTooThick OriginalsBound OriginalsOnStandardPaper
OriginalsPaperTooFragileOrThick OriginalsStandardSize OriginalsTooLarge
OriginalsTooSmall Reduction Staple TwoSidedCopies TwoSidedOriginals Unbindable)
(PROP query #OfOriginalSheets Collate CopiesOnStandardPaper CopiesTooThickToStaple
CopyBrightness NumberOfCopies OriginalTooThick OriginalsBound OriginalsOnStandardPaper
OriginalsPaperTooFragileOrThick OriginalsStandardSize OriginalsTooLarge
OriginalsTooSmall Reduction Staple TwoSidedCopies TwoSidedOriginals Unbindable)
(P (DefineConstraints)
(DefinePlanGenerators)
(DefineHelpUnits))
(PROP Message A10 A11)
(DECLARE: EVAL@COMPILE (P (LOADCOMP? 'LOADBLUEBONNET)))
(PROP defaultValue #OfOriginalSheets Collate CopiesOnStandardPaper NumberOfCopies
OriginalsBound OriginalsOnStandardPaper OriginalsStandardSize Reduction Staple
TwoSidedCopies TwoSidedOriginals)
(PROP timeEstimate LoadRdh LoadTopPaperTray ReverseOriginals SetPanel SelectBottomTray
MakeCopies TransferToTopTray UnloadOutputTray UnloadRdh UnloadTopPaperTray)
(PROP PlanGenerator A12)
(PROP helpMessage #OfOriginalSheets Collate CopiesOnStandardPaper NumberOfCopies
OriginalsBound OriginalsOnStandardPaper OriginalsStandardSize Reduction Staple
TwoSidedCopies TwoSidedOriginals Unbindable)))
(RPAQQ COPYJOBDATAFNS (CreateCopyJobConstraint CreateHelpUnit DefineConstraints DefineHelpUnits
DefinePlanGenerators))
(DEFINEQ
(CreateCopyJobConstraint
[LAMBDA (wff) (* edited: "18-JAN-83 15:31")
(* Create a constraint with the given wff. If wff is not a Wff, create one using CreateWff.
Analyze the constraint to determine what fields it can be used to determine a value for and attach the constraint
to those fields as a deriver.)
(PROG [(constraint (create Constraint
wff ←(if (type? Wff wff)
then wff
else (CreateWff wff]
[for disjunction in constraint:normalForm
do (fields←(for term in disjunction join (FieldsInWff term)))
(for term in disjunction
when (type? Wff term) and term:operator=(QUOTE =)
do (for rand in term:operands when (ATOM rand)
do (ADDPROP rand (QUOTE derivers)
(create Deriver
constraint ← constraint
field ← rand
value ←(if rand=term:operands:1
then term:operands:2
else term:operands:1)
otherFields ←(REMOVE rand fields)
compactOr ← disjunction]
(RETURN constraint])
(CreateHelpUnit
[LAMBDA (wff text changes) (* edited: "31-JAN-83 16:49")
(* Create a help unit with the given wff, text, and changes. If wff is a list structure or atom it will be made
into a wff. If text is a list it will be made into a paragraph with a lookY of 1.0)
(create HelpUnit
wff ←(if (type? Wff wff)
then wff
else (CreateWff wff))
text ←(if (type? Paragraph text)
then text
else (create Paragraph
text ← text
lookY ← 1))
changes ← changes])
(DefineConstraints
[LAMBDA NIL (* edited: "12-MAR-83 16:48")
(* Define the constraints on a copy job.)
(* Note "#OfOriginalSheets" is misnamed.
It's semantics are "number of original images".)
(for f in CopyJobFields do (REMPROP f (QUOTE derivers)))
CopyJobConstraints← <[CreateCopyJobConstraint (QUOTE (IMPLIES (AND (= OriginalsBound
(QUOTE Yes))
(= Unbindable (QUOTE No)))
(= InputProcessor (QUOTE BDA]
[CreateCopyJobConstraint
(QUOTE (IMPLIES [AND (OR (= OriginalsBound (QUOTE No))
(= Unbindable (QUOTE Yes)))
(OR [AND (= OriginalsStandardSize (QUOTE No))
(OR (= OriginalsTooSmall (QUOTE Yes))
(= OriginalsTooLarge (QUOTE Yes]
(AND (= OriginalsOnStandardPaper (QUOTE No))
(= OriginalsPaperTooFragileOrThick
(QUOTE Yes]
(= InputProcessor (QUOTE Glass]
[CreateCopyJobConstraint
(QUOTE (IMPLIES [AND (OR (= OriginalsOnStandardPaper (QUOTE Yes))
(= OriginalsPaperTooFragileOrThick (QUOTE No)))
[OR (= OriginalsStandardSize (QUOTE Yes))
(AND (= OriginalsTooLarge (QUOTE No))
(= OriginalsTooSmall (QUOTE No]
(OR (= OriginalsBound (QUOTE No))
(= Unbindable (QUOTE Yes]
(= InputProcessor (QUOTE RDH]
[CreateCopyJobConstraint (QUOTE (IMPLIES (OR (= InputProcessor
(QUOTE BDA))
(= InputProcessor
(QUOTE Glass)))
(= TwoSidedOriginals (QUOTE No]
[CreateCopyJobConstraint (QUOTE (IF (> #OfCopySheets 35)
(= CopiesTooThickToStaple (QUOTE Yes))
(= CopiesTooThickToStaple (QUOTE No]
[CreateCopyJobConstraint (QUOTE (IF [OR (AND (> #OfOriginalSheets 50)
(= TwoSidedOriginals
(QUOTE No)))
(AND (> #OfOriginalSheets 100)
(= TwoSidedOriginals
(QUOTE Yes]
(= OriginalTooThick (QUOTE Yes))
(= OriginalTooThick (QUOTE No]
[CreateCopyJobConstraint (QUOTE (IMPLIES (= TwoSidedCopies (QUOTE No))
(= #OfCopySheets #OfOriginalSheets]
[CreateCopyJobConstraint (QUOTE (IMPLIES (= TwoSidedCopies (QUOTE Yes))
(= #OfCopySheets (/
#OfOriginalSheets 2]
[CreateCopyJobConstraint (QUOTE (IMPLIES (= OriginalsStandardSize
(QUOTE Yes))
(AND (= OriginalsTooSmall
(QUOTE No))
(= OriginalsTooLarge
(QUOTE No]
[CreateCopyJobConstraint (QUOTE (IMPLIES (= OriginalsOnStandardPaper
(QUOTE Yes))
(= OriginalsPaperTooFragileOrThick
(QUOTE No]
[CreateCopyJobConstraint (QUOTE (IMPLIES (= NumberOfCopies 1)
(= Collate (QUOTE Yes]
[CreateCopyJobConstraint (QUOTE (IMPLIES (OR (= InputProcessor
(QUOTE BDA))
(= InputProcessor
(QUOTE Glass)))
(= TwoSidedOriginals (QUOTE No]
>
(QUOTE ok])
(DefineHelpUnits
[LAMBDA NIL (* edited: " 1-FEB-83 13:21")
(* Define the help units that specify job descriptions
which are to be commented on to the user and changed by
the system.)
HelpUnits←
<[CreateHelpUnit [QUOTE (AND (= Collate (QUOTE No))
(= Staple (QUOTE Yes]
(QUOTE (The 8200 cannot staple uncollated copies. It can make unstapled copies,
which you can then staple.))
(QUOTE ((Staple . No]
[CreateHelpUnit [QUOTE (AND (= TwoSidedCopies (QUOTE Yes))
(= Collate (QUOTE No]
(QUOTE (The 8200 cannot make uncollated two-sided copies. It can make collated
copies, which you can then uncollate.))
(QUOTE ((Collate . Yes]
[CreateHelpUnit [QUOTE (AND (= Staple (QUOTE Yes))
(= CopiesTooThickToStaple (QUOTE Yes]
(QUOTE (Your copies will be too thick for the 8200 to staple. It can make
unstapled copies, which you can then staple.))
(QUOTE ((Staple . No]
[CreateHelpUnit [QUOTE (AND (= OriginalTooThick (QUOTE Yes))
(= InputProcessor (QUOTE RDH))
(= Staple (QUOTE Yes]
(QUOTE (The 8200 cannot staple copies of an original that is too thick for the
RDH. It can make unstapled copies, which you can then staple.))
(QUOTE ((Staple . No]
(CreateHelpUnit (QUOTE (~ (> NumberOfCopies 0)))
(QUOTE (Indicate number of copies desired.)))
>
(QUOTE ok])
(DefinePlanGenerators
[LAMBDA NIL (* edited: "13-MAR-83 22:31")
(* Create the plan generators for the 8200.0 Put them on
PlanGenerators.)
PlanGenerators← <(create PlanGenerator
timeEstimator ←(QUOTE TimeForTooThick)
enablingCondition ←[CreateWff (QUOTE (AND (> NumberOfCopies 0)
(> #OfOriginalSheets 0)
(= InputProcessor
(QUOTE RDH))
(= OriginalTooThick
(QUOTE Yes))
(= Staple (QUOTE No))
(OR (= TwoSidedCopies
(QUOTE No))
(= Collate (QUOTE Yes]
parameters ←(QUOTE (Collate CopyBrightness CopiesOnStandardPaper
NumberOfCopies Reduction TwoSidedCopies
TwoSidedOriginals)))
(create PlanGenerator
enablingCondition ←[CreateWff (QUOTE (AND (> NumberOfCopies 0)
(> #OfOriginalSheets 0)
(= InputProcessor
(QUOTE RDH))
(= OriginalTooThick
(QUOTE No))
(= TwoSidedOriginals
(QUOTE Yes))
(= TwoSidedCopies
(QUOTE Yes))
(= Collate (QUOTE Yes))
(OR (= Staple (QUOTE No))
(= CopiesTooThickToStaple
(QUOTE No]
parameters ←(QUOTE (CopyBrightness CopiesOnStandardPaper NumberOfCopies
Reduction Staple)))
(create PlanGenerator
timeEstimator ←(QUOTE TimeFor2To1WithMaster)
enablingCondition ←[CreateWff
(QUOTE (AND (> NumberOfCopies 0)
(> #OfOriginalSheets 0)
(= InputProcessor (QUOTE RDH))
(= OriginalTooThick (QUOTE No))
(= TwoSidedOriginals (QUOTE Yes))
(= Collate (QUOTE Yes))
(OR (> NumberOfCopies 1)
(AND (= Staple (QUOTE Yes))
(= CopiesTooThickToStaple (QUOTE No]
parameters ←(QUOTE (CopyBrightness CopiesOnStandardPaper NumberOfCopies
Reduction Staple))
advisor ←(QUOTE Advise2To1WithMaster))
(create PlanGenerator
enablingCondition ←[CreateWff (QUOTE (AND (> NumberOfCopies 0)
(> #OfOriginalSheets 0)
(= InputProcessor
(QUOTE RDH))
(= OriginalTooThick
(QUOTE No))
(= TwoSidedOriginals
(QUOTE Yes))
(= TwoSidedCopies
(QUOTE No))
(= Staple (QUOTE No))
(OR (= NumberOfCopies 1)
(= Collate (QUOTE No]
parameters ←(QUOTE (CopyBrightness CopiesOnStandardPaper NumberOfCopies
Reduction)))
(create PlanGenerator
timeEstimator ←(QUOTE TimeFor1To2)
enablingCondition ←[CreateWff (QUOTE (AND (> NumberOfCopies 0)
(> #OfOriginalSheets 0)
(= InputProcessor
(QUOTE RDH))
(= OriginalTooThick
(QUOTE No))
(= TwoSidedOriginals
(QUOTE No))
(= TwoSidedCopies
(QUOTE Yes))
(= Collate (QUOTE Yes))
(OR (= Staple (QUOTE No))
(= CopiesTooThickToStaple
(QUOTE No]
generator ←(QUOTE Plan1To2)
parameters ←(QUOTE (CopyBrightness CopiesOnStandardPaper NumberOfCopies
Reduction Staple))
advisor ←(QUOTE Advise1To2))
(create PlanGenerator
timeEstimator ←(QUOTE TimeFor1To1)
enablingCondition ←[CreateWff (QUOTE (AND (> NumberOfCopies 0)
(> #OfOriginalSheets 0)
(= InputProcessor
(QUOTE RDH))
(= OriginalTooThick
(QUOTE No))
(= TwoSidedOriginals
(QUOTE No))
(= TwoSidedCopies
(QUOTE No))
(OR (= Staple (QUOTE No))
(= Collate (QUOTE Yes)))
(OR (= Staple (QUOTE No))
(= CopiesTooThickToStaple
(QUOTE No]
generator ←(QUOTE Plan1To1)
parameters ←(QUOTE (Collate CopyBrightness CopiesOnStandardPaper
NumberOfCopies Reduction Staple)))
(create PlanGenerator
timeEstimator ←(QUOTE TimeForBdaNoMaster)
enablingCondition ←[CreateWff (QUOTE (AND (> NumberOfCopies 0)
(> #OfOriginalSheets 0)
(OR (= InputProcessor
(QUOTE BDA))
(= InputProcessor
(QUOTE Glass)))
(OR (= NumberOfCopies 1)
(= Collate (QUOTE No)))
(= TwoSidedCopies
(QUOTE No))
(= Staple (QUOTE No]
generator ←(QUOTE PlanBdaNoMaster)
parameters ←(QUOTE (CopyBrightness CopiesOnStandardPaper NumberOfCopies
Reduction Staple)))
(create PlanGenerator
timeEstimator ←(QUOTE TimeForBdaWithMaster)
enablingCondition ←[CreateWff
(QUOTE (AND (> NumberOfCopies 0)
(> #OfOriginalSheets 0)
(OR (= InputProcessor (QUOTE BDA))
(= InputProcessor (QUOTE Glass)))
(OR (AND (> NumberOfCopies 1)
(= Collate (QUOTE Yes)))
(= TwoSidedCopies (QUOTE Yes))
(AND (= Staple (QUOTE Yes))
(= Collate (QUOTE Yes))
(= CopiesTooThickToStaple (QUOTE No]
generator ←(QUOTE PlanBdaWithMaster)
parameters ←(QUOTE (Collate CopyBrightness CopiesOnStandardPaper
CopiesTooThickToStaple NumberOfCopies
Reduction Staple TwoSidedCopies))
advisor ←(QUOTE AdviseBdaWithMaster))
>
(QUOTE ok])
)
(RPAQQ COPYJOBDATARECORDS (Constraint CopyJob Deriver HelpUnit Paragraph PlanGenerator))
[DECLARE: EVAL@COMPILE
(DATATYPE Constraint (wff internalNormalForm label text)
[ACCESSFNS ((normalForm [OR (fetch internalNormalForm of DATUM)
(replace internalNormalForm of DATUM
with (CompactNormalForm (fetch (Constraint wff)
of DATUM]
(replace internalNormalForm of DATUM with NEWVALUE])
(DATATYPE CopyJob (#OfCopySheets #OfOriginalSheets Collate CopiesOnStandardPaper
CopiesTooThickToStaple CopyBrightness InputProcessor NumberOfCopies
OriginalTooThick OriginalsBound OriginalsOnStandardPaper
OriginalsPaperTooFragileOrThick OriginalsStandardSize
OriginalsTooLarge OriginalsTooSmall Reduction Staple TwoSidedCopies
TwoSidedOriginals Unbindable descriptionPanel derivations
removedAssertions plan relevantFields planGenerator timeEstimate)
removedAssertions ←(LIST NIL NIL))
(DATATYPE Deriver (constraint compactOr field value otherFields))
(DATATYPE HelpUnit (wff text changes
(* changes is a list of dotted pairs. The first element of each pair is a copyJob field name.
The second element of each pair is a new value for the field to be assigned by the help unit.)
))
(DATATYPE Paragraph (leftMargin rightMargin text lookY))
(DATATYPE PlanGenerator (advisor enablingCondition generator parameters requiredResources
timeEstimator))
]
(/DECLAREDATATYPE (QUOTE Constraint)
(QUOTE (POINTER POINTER POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE CopyJob)
(QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE Deriver)
(QUOTE (POINTER POINTER POINTER POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE HelpUnit)
(QUOTE (POINTER POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE Paragraph)
(QUOTE (POINTER POINTER POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE PlanGenerator)
(QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)))
(RPAQQ COPYJOBDATAVARS [CopiesFields CopyJobFields OriginalsFields
[DefaultQueryHelpMessage (create Paragraph text ←
(QUOTE (No help available for
this query.]
(CopyJobRecord (RECLOOK (QUOTE CopyJob])
(RPAQQ CopiesFields (Collate CopiesOnStandardPaper Staple TwoSidedCopies Reduction))
(RPAQQ CopyJobFields (#OfCopySheets #OfOriginalSheets Collate CopiesOnStandardPaper
CopiesTooThickToStaple CopyBrightness InputProcessor
NumberOfCopies OriginalTooThick OriginalsBound
OriginalsOnStandardPaper OriginalsPaperTooFragileOrThick
OriginalsStandardSize OriginalsTooLarge OriginalsTooSmall
Reduction Staple TwoSidedCopies TwoSidedOriginals Unbindable))
(RPAQQ OriginalsFields (OriginalsBound Unbindable TwoSidedOriginals OriginalsStandardSize
OriginalsTooSmall OriginalsTooLarge OriginalsOnStandardPaper
OriginalsPaperTooFragileOrThick CopyBrightness))
(RPAQ DefaultQueryHelpMessage (create Paragraph text ← (QUOTE (No help available for this query.))))
(RPAQ CopyJobRecord (RECLOOK (QUOTE CopyJob)))
(PUTPROPS CopyBrightness helpMessage (If your original is a paste-up, has a lot of background, or is
printed on colored paper, %"darker than normal%" should be
selected. If the image on your original has faint lines, is
printed in light blue or pencil, %"lighter than normal%"
should be selected. In most other cases %"normal%" should be
selected.))
(PUTPROPS CopyBrightness defaultValue normal)
(PUTPROPS CopyBrightness relevancyPredicate T)
(PUTPROPS CopyBrightness default normal)
(PUTPROPS Collate valueRange (Yes No))
(PUTPROPS CopiesOnStandardPaper valueRange (Yes No))
(PUTPROPS CopiesTooThickToStaple valueRange (Yes No))
(PUTPROPS CopyBrightness valueRange ("darker than normal" normal "lighter than normal"))
(PUTPROPS InputProcessor valueRange (RDH BDA Glass))
(PUTPROPS OriginalTooThick valueRange (Yes No))
(PUTPROPS OriginalsBound valueRange (Yes No))
(PUTPROPS OriginalsOnStandardPaper valueRange (Yes No))
(PUTPROPS OriginalsPaperTooFragileOrThick valueRange (Yes No))
(PUTPROPS OriginalsStandardSize valueRange (Yes No))
(PUTPROPS OriginalsTooLarge valueRange (Yes No))
(PUTPROPS OriginalsTooSmall valueRange (Yes No))
(PUTPROPS Reduction valueRange (No "35%% smaller" "26%% smaller" "2%% smaller"))
(PUTPROPS Staple valueRange (Yes No))
(PUTPROPS TwoSidedCopies valueRange (Yes No))
(PUTPROPS TwoSidedOriginals valueRange (Yes No))
(PUTPROPS Unbindable valueRange (Yes No))
(PUTPROPS #OfOriginalSheets query "About how many images are to be copied?")
(PUTPROPS Collate query "Collate each copy?")
(PUTPROPS CopiesOnStandardPaper query "Use standard paper?")
(PUTPROPS CopiesTooThickToStaple query "Will each copy be more than 1/8%" thick?")
(PUTPROPS CopyBrightness query "Quality of original:")
(PUTPROPS NumberOfCopies query "Number of copies:")
(PUTPROPS OriginalTooThick query "Is the document more than 3/16%" thick?")
(PUTPROPS OriginalsBound query "Is it a bound document?")
(PUTPROPS OriginalsOnStandardPaper query "Is it on standard thickness paper?")
(PUTPROPS OriginalsPaperTooFragileOrThick query "Is it on unusually fragile or thick paper?")
(PUTPROPS OriginalsStandardSize query "Is it on standard size (8.5%" x 11%") paper?")
(PUTPROPS OriginalsTooLarge query "Is it larger than 8 1/2%" by 14%"?")
(PUTPROPS OriginalsTooSmall query "Is it smaller than 8%" by 10%"?")
(PUTPROPS Reduction query "Reduce size of images?")
(PUTPROPS Staple query "Staple each copy?")
(PUTPROPS TwoSidedCopies query "Put images on both sides?")
(PUTPROPS TwoSidedOriginals query "Copy both sides of each sheet?")
(PUTPROPS Unbindable query "Are you willing to unbind the document for this copying job?")
(DefineConstraints)
(DefinePlanGenerators)
(DefineHelpUnits)
(PUTPROPS A10 Message (there has been a misfeed in the RDH.))
(PUTPROPS A11 Message (of a multifeed in the RDH. Remove your document from the RDH, restore the
pages to their original order, and return the document to the RDH.))
(DECLARE: EVAL@COMPILE
(LOADCOMP? 'LOADBLUEBONNET)
)
(PUTPROPS #OfOriginalSheets defaultValue 1)
(PUTPROPS Collate defaultValue Yes)
(PUTPROPS CopiesOnStandardPaper defaultValue Yes)
(PUTPROPS NumberOfCopies defaultValue 1)
(PUTPROPS OriginalsBound defaultValue No)
(PUTPROPS OriginalsOnStandardPaper defaultValue Yes)
(PUTPROPS OriginalsStandardSize defaultValue Yes)
(PUTPROPS Reduction defaultValue No)
(PUTPROPS Staple defaultValue No)
(PUTPROPS TwoSidedCopies defaultValue No)
(PUTPROPS TwoSidedOriginals defaultValue No)
(PUTPROPS LoadRdh timeEstimate 10)
(PUTPROPS LoadTopPaperTray timeEstimate 15)
(PUTPROPS ReverseOriginals timeEstimate TimeToReverseOriginals)
(PUTPROPS SetPanel timeEstimate 15)
(PUTPROPS MakeCopies timeEstimate CopyingTime)
(PUTPROPS TransferToTopTray timeEstimate 10)
(PUTPROPS UnloadOutputTray timeEstimate 5)
(PUTPROPS UnloadRdh timeEstimate 5)
(PUTPROPS UnloadTopPaperTray timeEstimate 10)
(PUTPROPS A12 PlanGenerator PlanClearA12)
(PUTPROPS #OfOriginalSheets helpMessage (Estimate the number of pages that you want copied.))
(PUTPROPS Collate helpMessage (If you want your copies delivered in numerical order, that is,
sequenced like your originals, you want collated copies.))
(PUTPROPS CopiesOnStandardPaper helpMessage (If you answer %"Yes%", your copies will be put on white
8.5%" x 11%" paper.))
(PUTPROPS NumberOfCopies helpMessage (Indicate how many copies of your document you want.))
(PUTPROPS OriginalsBound helpMessage (A bound document is a book or any other original whose pages
are fastened together.))
(PUTPROPS OriginalsOnStandardPaper helpMessage (If your original is on unusually heavy or flimsy
paper, it cannot be put in the recirculating
document handler (RDH)))
(PUTPROPS OriginalsStandardSize helpMessage (If your originals are on standard size paper, they can
be put in the Recirculating Document Handler
(RDH)))
(PUTPROPS Reduction helpMessage (The 8200 normally produces copies with an image that is the same
size as the original. Copies can also be made with an image size
that is reduced by 2%%, 26%%, or 35%%. For example: If you have
an 11 x 17 inch original and you want an 8 1/2 x 11 inch copy,
use 35%% reduction. Two 8 1/2 x 11 inch originals can be copied
onto one 8 1/2 x 11 inch copy with 35%% reduction. If you want
to copy a computer printout or an 8 1/2 x 14 inch original onto
an 8 1/2 x 11 inch copy, use 26%% reduction. If the image on
your original is close to the edge of the paper or if you need
room for hole punching or stapling the copies, use 2%%
reduction.))
(PUTPROPS Staple helpMessage (Your copies can be delievered either with or without a staple in the
upper left corner.))
(PUTPROPS TwoSidedCopies helpMessage (If you want your copies to be two-sided, answer %"Yes%" to this
question.))
(PUTPROPS TwoSidedOriginals helpMessage (If your original is two-sided, answer %"Yes%" to this
question.))
(PUTPROPS Unbindable helpMessage (Unbound documents can be copied much faster than bound documents.
If your original has a removable binding, such as staples,
you may save yourself time by removing the binding to make
the copies.))
(DECLARE: DONTCOPY
(FILEMAP (NIL (2016 14174 (CreateCopyJobConstraint 2026 . 3228) (CreateHelpUnit 3230 . 3843) (
DefineConstraints 3845 . 7066) (DefineHelpUnits 7068 . 8659) (DefinePlanGenerators 8661 . 14172)))))
STOP