(FILECREATED "12-Feb-85 01:46:04" {PHYLUM}<NOTECARDS>RELEASE1.1>VIDEOTAPE>VIDEOTAPE.LSP;1
 1147   

      changes to:  (VARS VIDEOTAPECOMS NC.BrowserCardDefaultWidth NC.BrowserCardDefaultHeight)
		   (ADVICE NC.MakeNoteCard))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT VIDEOTAPECOMS)

(RPAQQ VIDEOTAPECOMS
 ((VARS PSA.ContentsCardDefaultHeight PSA.ContentsCardDefaultWidth)
		      (VARS NC.BrowserCardDefaultWidth NC.BrowserCardDefaultHeight)
		      (ADVISE NC.MakeNoteCard)
		      (P (SETQ MENUFONT (SETQ PSA.TimesRoman10 (SETQ NC.DefaultFont
								     (FONTCREATE (QUOTE HELVETICA)
										 14)))))))

(RPAQQ PSA.ContentsCardDefaultHeight
 175)

(RPAQQ PSA.ContentsCardDefaultWidth
 225)

(RPAQQ NC.BrowserCardDefaultWidth
 475)

(RPAQQ NC.BrowserCardDefaultHeight
 125)

(PUTPROPS NC.MakeNoteCard READVICE
 (NIL (AFTER NIL (NC.AssignTitle !VALUE))))
(READVISE NC.MakeNoteCard)
(SETQ MENUFONT (SETQ PSA.TimesRoman10 (SETQ NC.DefaultFont (FONTCREATE (QUOTE HELVETICA)
								       14))))
(PUTPROPS VIDEOTAPE.LSP COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP