(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

(FILECREATED "11-Jun-90 16:42:16" |{DSK}<usr>local>lde>lispcore>library>LOAD-SKETCH.;2|
 1432   

      |changes| |to:|  (VARS LOAD-SKETCHCOMS)

      |previous| |date:| "10-May-88 15:04:43" |{DSK}<usr>local>lde>lispcore>library>LOAD-SKETCH.;1|
)


; Copyright (c) 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT LOAD-SKETCHCOMS)

(RPAQQ LOAD-SKETCHCOMS
 (
                            (* |;;| "file that loads Sketch from multiple floppies")


                            (FNS LOAD-SKETCH)
                            (P (LOAD-SKETCH))))



(* |;;| "file that loads Sketch from multiple floppies")


(DEFINEQ

(LOAD-SKETCH

  (LAMBDA NIL
                                            (* \; "Edited 10-May-88 15:04 by jds")


    (* |;;| "function that loads sketch from multiple floppies.  Floppy 1 should contain SKETCHBMELT SKETCHEDIT SKETCHOPS SCALEBITMAP MATMULT.  Floppy 2 should contain SKETCH SKETCHEDIT and SKETCHOBJ")


    (FILESLOAD SKETCHBMELT SKETCHEDIT SKETCHOPS MATMULT)
    (PRIN1 "Please put in the second Sketch floppy ..." T)
    (UNTIL
 (OR (INFILEP 'SKETCH.LCOM)
                   (INFILEP 'SKETCH.DFASL)) DO
 (DISMISS 3000))
    (TERPRI T)
    (FILESLOAD SKETCH)))
)

(LOAD-SKETCH
)
(PUTPROPS LOAD-SKETCH COPYRIGHT ("Venue & Xerox Corporation" 1988 1990))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (712 1317 (LOAD-SKETCH 722 . 1315)))))
STOP