(FILECREATED "26-JUL-83 17:35:39" ("compiled on " {PHYLUM}LISP>COPYJOBDATA.;31) "28-JUN-83 18:54:59" recompiled exprs: DefineConstraints DefineHelpUnits DefinePlanGenerators in WORK dated "28-JUN-83 19:17:53") (FILECREATED "26-JUL-83 17:33:31" {PHYLUM}LISP>COPYJOBDATA.;31 24541 changes to: (RECORDS PlanGenerator) (FNS DefinePlanGenerators DefineConstraints DefineHelpUnits) previous date: "15-MAR-83 18:10:58" {PHYLUM}LISP>COPYJOBDATA.;30) CreateCopyJobConstraint D1 (P 13Q rand P 12Q term P 6 disjunction P 2 constraint I 0 wff F 14Q fields)  `@d` HdI1JJJ [Kd0 Nd _OO__OcN _Od O`sOgfOZd_lOOg`dJdOOOOOdLOW dMdN {h:J(355Q ADDPROP 337Q REMOVE 154Q LAST 114Q FieldsInWff 64Q CompactNormalForm 16Q CreateWff) (317Q Wff 306Q Wff 274Q Wff 251Q DeriverTYPE# 246Q derivers 223Q Wff 213Q = 206Q Wff 176Q WffTYPE# 57Q Constraint 53Q Constraint 37Q Constraint 11Q WffTYPE# 2 ConstraintTYPE#) NIL CreateHelpUnit D1 (I 2 changes I 1 text I 0 wff) A`@d` HdIA`A`dAdkHdIdB(16Q CreateWff) (44Q ParagraphTYPE# 35Q ParagraphTYPE# 11Q WffTYPE# 2 HelpUnitTYPE#) NIL DefineConstraints D1 (P 0 f) v`dHg o o o o o o o o o o o hg(141Q CreateCopyJobConstraint 132Q CreateCopyJobConstraint 123Q CreateCopyJobConstraint 114Q CreateCopyJobConstraint 105Q CreateCopyJobConstraint 76Q CreateCopyJobConstraint 67Q CreateCopyJobConstraint 60Q CreateCopyJobConstraint 51Q CreateCopyJobConstraint 42Q CreateCopyJobConstraint 33Q CreateCopyJobConstraint 17Q REMPROP) (163Q ok 160Q CopyJobConstraints 14Q derivers 2 CopyJobFields) (136Q (IMPLIES (= NumberOfCopies 1) (= Collate (QUOTE Yes))) 127Q (IMPLIES (= OriginalsOnStandardPaper (QUOTE Yes)) (= OriginalsPaperTooFragileOrThick (QUOTE No))) 120Q (IMPLIES (= OriginalsStandardSize (QUOTE Yes)) (AND (= OriginalsTooSmall (QUOTE No)) (= OriginalsTooLarge (QUOTE No)))) 111Q (IMPLIES (= TwoSidedCopies (QUOTE Yes)) (= #OfCopySheets (/ #OfOriginalSheets 2))) 102Q (IMPLIES (= TwoSidedCopies (QUOTE No)) (= #OfCopySheets #OfOriginalSheets)) 73Q (IF (OR (AND (> #OfOriginalSheets 62Q) (= TwoSidedOriginals (QUOTE No))) (AND (> #OfOriginalSheets 144Q) (= TwoSidedOriginals (QUOTE Yes)))) (= OriginalTooThick (QUOTE Yes)) (= OriginalTooThick (QUOTE No))) 64Q (IF (> #OfCopySheets 43Q) (= CopiesTooThickToStaple (QUOTE Yes)) (= CopiesTooThickToStaple (QUOTE No))) 55Q (IMPLIES (OR (= InputProcessor (QUOTE BDA)) (= InputProcessor (QUOTE Glass))) (= TwoSidedOriginals (QUOTE No))) 46Q (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))) 37Q (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))) 30Q (IMPLIES (AND (= OriginalsBound (QUOTE Yes)) (= Unbindable (QUOTE No))) (= InputProcessor (QUOTE BDA)))) DefineHelpUnits D1 NIL Uooo ooo ooo ooo oo hg(106Q CreateHelpUnit 73Q CreateHelpUnit 54Q CreateHelpUnit 35Q CreateHelpUnit 16Q CreateHelpUnit) (122Q ok 117Q HelpUnits) (103Q (Indicate number of copies desired.) 77Q (~ (> NumberOfCopies 0)) 70Q (Staple) 64Q (The 20010Q cannot staple copies of an original that is too thick for the RDH. It can make unstapled copies, which you can then staple.) 60Q (AND (= OriginalTooThick (QUOTE Yes)) (= InputProcessor (QUOTE RDH)) (= Staple (QUOTE Yes))) 51Q (Staple) 45Q (Your copies will be too thick for the 20010Q to staple. It can make unstapled copies, which you can then staple.) 41Q (AND (= Staple (QUOTE Yes)) (= CopiesTooThickToStaple (QUOTE Yes))) 32Q (Collate) 26Q (The 20010Q cannot make uncollated two-sided copies. It can make collated copies, which you can then uncollate.) 22Q (AND (= TwoSidedCopies (QUOTE Yes)) (= Collate (QUOTE No))) 13Q (Staple) 7 (The 20010Q cannot staple uncollated copies. It can make unstapled copies, which you can then staple.) 3 (AND (= Collate (QUOTE No)) (= Staple (QUOTE Yes)))) DefinePlanGenerators D1 NIL `dg o HdIdodg `o HdIdodg `dg o HdIdodgdg `o HdIdodg `dg o HdIdgdodgdg `dg o HdIdgdodg `dg o HdIdgdodg `dg o HdIdgdodgdg hg(523Q CreateWff 441Q CreateWff 357Q CreateWff 266Q CreateWff 213Q CreateWff 140Q CreateWff 65Q CreateWff 21Q CreateWff) (611Q ok 606Q PlanGenerators 567Q PlanBdaWithMaster 560Q AdviseBdaWithMaster 541Q PlanBdaWithMaster 511Q TimeForBdaWithMaster 504Q PlanGeneratorTYPE# 476Q PlanBdaNoMaster 457Q PlanBdaNoMaster 427Q TimeForBdaNoMaster 422Q PlanGeneratorTYPE# 414Q Plan1To1 375Q Plan1To1 345Q TimeFor1To1 340Q PlanGeneratorTYPE# 332Q Plan1To2 323Q Advise1To2 304Q Plan1To2 254Q TimeFor1To2 247Q PlanGeneratorTYPE# 241Q Plan2To1NoMaster 203Q PlanGeneratorTYPE# 175Q Plan2To1WithMaster 166Q Advise2To1WithMaster 126Q TimeFor2To1WithMaster 121Q PlanGeneratorTYPE# 113Q Plan2To2 55Q PlanGeneratorTYPE# 47Q PlanTooThick 7 TimeForTooThick 2 PlanGeneratorTYPE#) (551Q (Collate CopyBrightness CopiesOnStandardPaper CopiesTooThickToStaple NumberOfCopies Reduction Staple TwoSidedCopies) 520Q (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))))) 467Q (CopyBrightness CopiesOnStandardPaper NumberOfCopies Reduction Staple) 436Q (AND (> NumberOfCopies 0) (> #OfOriginalSheets 0) (OR (= InputProcessor (QUOTE BDA)) (= InputProcessor (QUOTE Glass))) (OR (= NumberOfCopies 1) (= Collate (QUOTE No))) (= TwoSidedCopies (QUOTE No)) (= Staple (QUOTE No))) 405Q (Collate CopyBrightness CopiesOnStandardPaper NumberOfCopies Reduction Staple) 354Q (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)))) 314Q (CopyBrightness CopiesOnStandardPaper NumberOfCopies Reduction Staple) 263Q (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)))) 232Q (CopyBrightness CopiesOnStandardPaper NumberOfCopies Reduction) 210Q (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)))) 157Q (CopyBrightness CopiesOnStandardPaper NumberOfCopies Reduction Staple) 135Q (AND (> NumberOfCopies 0) (> #OfOriginalSheets 0) (= InputProcessor (QUOTE RDH)) (= OriginalTooThick (QUOTE No)) (= TwoSidedOriginals (QUOTE Yes)) (= TwoSidedCopies (QUOTE No)) (= Collate (QUOTE Yes)) (OR (> NumberOfCopies 1) (AND (= Staple (QUOTE Yes)) (= CopiesTooThickToStaple (QUOTE No))))) 104Q (CopyBrightness CopiesOnStandardPaper NumberOfCopies Reduction Staple) 62Q (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)))) 40Q (Collate CopyBrightness CopiesOnStandardPaper NumberOfCopies Reduction TwoSidedCopies TwoSidedOriginals) 16Q (AND (> NumberOfCopies 0) (> #OfOriginalSheets 0) (= InputProcessor (QUOTE RDH)) (= OriginalTooThick (QUOTE Yes)) (= Staple (QUOTE No)) (OR (= TwoSidedCopies (QUOTE No)) (= Collate (QUOTE Yes))))) (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)) (RPAQQ COPYJOBDATARECORDS (Constraint CopyJob Deriver HelpUnit Paragraph PlanGenerator)) (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 planGeneratorName)) (/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 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.)) (LOADCOMP? (QUOTE 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.)) NIL